Aula Visual Basic/ Teste Digitador

TESTE PARA DIGITADOR

Vamos criar um programa para testar sua habilidade ao digitar.
Inicie o Visual Basic.
Iniciar/ Programas/ Microsoft Visual Basic 6/ Visual Basic 6
Selecione o projeto padrão (StandardEXE), e clique no botão Abrir.

Insira os seguintes controles:

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Textbox, Label, Commandbutton, Timer

Configure as seguintes propriedades.

Form

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = digitador1
Caption = Teste para digitador

Text1

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = txt1
Text = em branco
Width = 3500
Height = 300

Label1

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = lbl1
Caption = Digite: Ricardo XD
Width = 3000
Height = 300

Command1

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = cmd1
Caption = Testar
Width = 1000
Height = 360

Timer1

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = tmr1
Interval = 20000
Enabled = True

Dê um clique duplo no objeto “tmr1” no formulário e digite o seguinte código.

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
MsgBox ("Descupe-me. Mas seu tempo acabou")
End

Rode o programa Run/Start e veja que após 20 segundos o programa será fechado.

Insira mais um formulário em seu projeto

Project/ Add Form.

Configure as propriedades do segundo formulário.

Form

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Name = digitador2
Caption = Teste para digitador

No formulário “digitador1” dê um clique no botão “Testar” (cmd1), digite o seguinte código.

Código: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
If txt1.Text = "Ricardo XD" Then
tmr1.Enabled = False
Unload Me
‘ Carrega o segundo formulário (digitador2).
digitador2.Show vbModal
Else
MsgBox ("Desculpe-me, mas você digitou errado")
End If

Faça os testes necessários clique em Run/Start.
O intervalo de tempo do objeto (tmr1) é muito grande reduza para 15000 (15 segundos).
Siga
os mesmos passos para criação do segundo formulário (digitador2), mas
desta vez reduza o tempo e mude a frase que será digitada para abrir um
terceiro formulário (digitador3).
Salve seu project clicando em File/ Save Project.
Crie um executável do project em File/Make project.exe...

Arruma ae os bugs nos códigos que você postou...

E foi o Ricardo que criou isso.