Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Aula Visual Basic/ Teste Digitador

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Aula Visual Basic/ Teste Digitador

Mensagem por spectrus em Seg Jun 13, 2011 8:05 pm

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: [Você precisa estar registrado e conectado para ver este link.]
Textbox, Label, Commandbutton, Timer

Configure as seguintes propriedades.

Form

Código: [Você precisa estar registrado e conectado para ver este link.]
Name = digitador1
Caption = Teste para digitador

Text1

Código: [Você precisa estar registrado e conectado para ver este link.]
Name = txt1
Text = em branco
Width = 3500
Height = 300

Label1

Código: [Você precisa estar registrado e conectado para ver este link.]
Name = lbl1
Caption = Digite: Ricardo XD
Width = 3000
Height = 300

Command1

Código: [Você precisa estar registrado e conectado para ver este link.]
Name = cmd1
Caption = Testar
Width = 1000
Height = 360

Timer1

Código: [Você precisa estar registrado e conectado para ver 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: [Você precisa estar registrado e conectado para ver 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: [Você precisa estar registrado e conectado para ver 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: [Você precisa estar registrado e conectado para ver 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...


Divulgue nosso Forum!
[Você precisa estar registrado e conectado para ver este link.]
Código:
[url=http://makersbrasil.forumeiros.com/]
src="http://img841.imageshack.us/img841/9522/92324935.png"
border="0">[/url]



E meu fan? entao use:

Código:
[img]http://www.baixa.la/arquivos/3908525_imagem.gif[/img]

Sign:
Spoiler:



avatar
spectrus
Administrador
Administrador

Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 24
Localização : V.da conquista bahia

Voltar ao Topo Ir em baixo

Re: Aula Visual Basic/ Teste Digitador

Mensagem por RenanR em Dom Out 16, 2011 3:06 pm

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

E foi o Ricardo que criou isso.
avatar
RenanR
Modelador
Modelador

Mensagens : 26
Estrelas Makers : 61
Creditos : 3
Data de inscrição : 19/07/2011

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum