[Tool/Web/Other] Gerador de mensagens[BETA]
#1

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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button1.Click
        Label1
.Text "Gerando Codigo"
        
Timer1.Start()
    
End Sub
    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        MsgBox
("Todos os creditos reservados BlueX ©")
        
Timer2.Start()
    
End Sub
    
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.TextTrue)
                
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.TextTrue)
                
Timer1.Stop()
                
ProgressBar1.Value 0
            End 
If
        
End If
    
End Sub
    
Private Sub Timer2_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer2.Tick
        Close
()
    
End Sub
    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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/>.
Reply
#2

Otimo Trabalho , Adorei (:
Reply
#3

Quote:
Originally Posted by Laercio
Посмотреть сообщение
Otimo Trabalho , Adorei (:
Obrigado, se tiver sugestхes me avise
Reply
#4

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

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

Sugestхes: SendClientMessageToAll
Reply
#6

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

Irei anotar a sugestгo
Obrigado.
Reply
#7


@OFF

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

Legal.

Podia ter imagens : D
Reply
#9

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
Reply
#10

Quote:
Originally Posted by PlueX
Посмотреть сообщение

@OFF

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

Quote:
Originally Posted by Viniborn
Посмотреть сообщение
Legal.

Podia ter imagens : D
Vou colocar

Quote:
Originally Posted by Miqueias Barros
Посмотреть сообщение
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
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 (:
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)