Pergunta sobre Visual basic 6

[griladoh 0]

galerinha, eu estou estudando sobre programação e eu queria saber se esta certo oq cada função faz. eu fiz esta possivel tradução!! o programa é um contador automatico!!!!!

 

Dim num As Integer (declara a variavel dim como um numero inteiro)

Dim meta As Integer (declara a variavel meta como um numero inteiro)

 

Private Sub Command1_Click() (quando se clica no comand1 faz isso: )

meta = Text1.Text (diz que a variavel meta é a caixinha de texto1)

If Timer1.Enabled = False Then (vê se o timer1 esta off se estiver off e

Timer1.Enabled = True <<<liga-o com esse comando)

ElseIf Timer1.Enabled = (True Then vê se o timer1 esta on se estiver on e

Timer1.Enabled = False <<< desliga-o com esse comando)

End If (fim da If)

 

End Sub (Fim Dos Comandos do botão1)

 

Private Sub Timer1_Timer() (Propriedades do relogio ou seja "oq ele faz")

num = num + 1 (pega a variavel num e diz que ela é ela +1)

Label1.Caption = num (diz que a label1 é a variavel num)

If num = meta Then (diz que a variavel num é igual a variavel then, pois com o codigo "num = num + 1" ela vai subindo de 1 por 1)

MsgBox "A contagem acabou", vbInformation, "finish" (mostra uma msgbox!)

Label1.Caption = 0 (deixa o label1 zerado)

Timer1.Enabled = False (desliga o timer 1)

End Sub (termina com o as propriedades do relogio)

 

Nimguem vai responder intão!!!!!!!!!!