[Tool/Web/Other] Gerador de mensagens[BETA] - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+----- Forum: Lançamentos/Releases (https://sampforum.blast.hk/forumdisplay.php?fid=56)
+----- Thread: [Tool/Web/Other] Gerador de mensagens[BETA] (/showthread.php?tid=295027)

---

Gerador de mensagens[0.7v] - RebeloX - 04.11.2011

Olб pessoal vim postar o meu "primeiro" projeto em VB, nгo й bem o meu primeiro eu tenho outros sу que nгo envolve samp, ainda й uma versгo beta pois irei colocar mais coisas ainda.
Aceito sugestхes, irei aceitar as que eu pareзo que sejam as melhores, entгo vamos lб.

Funзхes

♦ Gerador de SendClientMessage;
♦ Gerador de SendClientMessageToAll;(Adicionado)
♦ Gerador de Dialogs (Em desenvolvimento);

Bem sу tenho essas ideias por agora, estou tentando pegar mais ideias para desenvolver algo "Melhor".

Source

PHP код:

Public Class Form1
    Dim Numero
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "Selecione..."
        ComboBox1.Items.Add("SendClientMessage")
        ComboBox1.Items.Add("SendClientMessageToAll")
        ComboBox1.Items.Add("ShowPlayerDialog")
        'Hide System
        Button1.Hide()
        TextBox1.Hide()
        TextBox2.Hide()
        Label1.Hide()
        Label2.Hide()
        Label3.Hide()
        ProgressBar1.Hide()
        'ComboBox Text
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "Gerando Codigo"
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Todos os creditos reservados BlueX ©")
        Timer2.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            If Numero = 0 Then
                TextBox2.Text = "SendClientMessage(playerid,-1,""" + TextBox1.Text + """);"
                Label1.Text = "Codigo Gerado e Copiado"
                Clipboard.SetDataObject(TextBox2.Text, True)
                Timer1.Stop()
                ProgressBar1.Value = 0
            End If
            If Numero = 1 Then
                TextBox2.Text = "SendClientMessageToAll(-1,""" + TextBox1.Text + """);"
                Label1.Text = "Codigo Gerado e Copiado"
                Clipboard.SetDataObject(TextBox2.Text, True)
                Timer1.Stop()
                ProgressBar1.Value = 0
            End If
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Close()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Select ComboBox1.SelectedIndex
            Case 0
                Button1.Show()
                TextBox1.Show()
                TextBox2.Show()
                Label1.Show()
                Label2.Show()
                Label3.Show()
                ProgressBar1.Show()
                ComboBox1.Hide()
                Button3.Hide()
                Numero = 0
            Case 1
                Button1.Show()
                TextBox1.Show()
                TextBox2.Show()
                Label1.Show()
                Label2.Show()
                Label3.Show()
                ProgressBar1.Show()
                ComboBox1.Hide()
                Button3.Hide()
                Numero = 1
            Case 2
                MsgBox("Erro: Esta parte ainda estб em construзгo")
        End Select
    End Sub
End Class 


Code Info (0.7 Version || Updated 4/11/11 )

ChangeLog

Код:

Changelog:

0.5v - Lanзamento do programa.
0.6v - Removido os Bugs da versгo anterior
0.7v - Adicionado um novo gerador (SendClientMessageToAll) e Adicionado um menu de seleзгo para gerar e adicionado imagens ao tуpico.

ChangeLog Info (0.7 Version || Updated 4/11/11)

Imagens




Image Info(0.7 Version || Updated 4/11/11)

Crйditos

♦ BlueX - Criador do arquivo
♦ Todos os tutoriais sobre VB no *******, Ingles e Portuguкs, pois sem eles nem aprendia VB.

Download



Download Info(0.7 Version || Updated 4/11/11)

Antes de postar este ficheiro no seu blog leia.

Quote:

Originally Posted by Direitos de Autor Gerador De Mensagens 0.7v Copyright © 2011 BlueX Este programa й software livre: vocк pode redistribuн-lo e / ou modificar-lo sob os termos da Licenзa Pъblica Geral GNU conforme publicada pela Free Software Foundation, tanto a versгo 3 da Licenзa, ou (a seu critйrio) qualquer versгo posterior. Este programa й distribuнdo na esperanзa que possa ser ъtil, mas SEM QUALQUER GARANTIA, sem mesmo a garantia implнcita de COMERCIALIZAЗГO ou ADEQUAЗГO PARA UM PROPУSITO PARTICULAR. Veja o GNU General Public License para mais detalhes. Vocк deve ter recebido uma cуpia da Licenзa Pъblica Geral GNU junto com este programa. Se nгo, veja <http://www.gnu.org/licenses/>.

---

Re: Gerador de mensagens[BETA] - Laercio - 04.11.2011

Otimo Trabalho , Adorei (:

---

Re: Gerador de mensagens[BETA] - RebeloX - 04.11.2011

Obrigado, se tiver sugestхes me avise

---

Re: Gerador de mensagens[BETA] - Vai_Besta - 04.11.2011

vou baixar para testar logo logo relato minha experiencia
@edit
Nгo funcionou,diz que o programa parou de funcionar
sistema windows 7 32bits

---

Re: Gerador de mensagens[BETA] - PlueX - 04.11.2011

bem util para iniciantes e atй mesmo para alguns scripts Parabйns.

Sugestхes: SendClientMessageToAll

---

Re: Gerador de mensagens[BETA] - RebeloX - 04.11.2011

Pode ser simples, mas da jeito quando vc tem preguiзa, rs.

Irei anotar a sugestгo
Obrigado.

---

Re: Gerador de mensagens[BETA] - PlueX - 04.11.2011


@OFF

Sobre aquela questгo do nome ja enviei um MP para o Roam agora estou aguardando resposta...

---

Re: Gerador de mensagens[BETA] - ViniBorn - 04.11.2011

Legal.

Podia ter imagens : D

---

Re: Gerador de mensagens[BETA] - Miqueias Barros - 04.11.2011

Bem, bem simples hehe

Vocк poderia colocar pra pessoa escolher qual desejava, SendClientMessageToAll ou SendClientMessage e tambйm adicionar pro carinha colocar a cor que ele quer...

Se vocк quiser ajuda nisso entra em contato comigo pelo skype ou msn que te dф uma ajuda

---

Re: Gerador de mensagens[BETA] - RebeloX - 04.11.2011

Okay

Vou colocar

Sim irei colocar isso, sу que na hora que tava fazendo o programa eu tava almoзando para ir para escola kk' ai nгo tive tempo, rs.

Obrigado a todos irei fazer a nova versгo (:

---