04.11.2011, 17:00
(
Последний раз редактировалось RebeloX; 04.11.2011 в 21:22.
Причина: Version Update
)
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
Code Info (0.7 Version || Updated 4/11/11 )
ChangeLog
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.
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
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.
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/>. |
