• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

InfernalStorm

[VB6] Tentativas

13 mensagens neste tópico

boas tardes pessoal. tenho k fazer um programa e o programa ja ta feito, so me falta e ter um contador de tentativas. se falhar a 3ª tentativa o programa fecha. alguem sabe como se faz? agradeço a ajuda :P;):)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

isso é fácil, basta criares uma acção depois do check k queres fazer, tipo se tiveres o check num onclick, depois do check (que deve ser um if) metes um else que adiciona 1 ao valor de uma variável, por ex cont. Depois basta fazeres um IF para verificares se o valor da variável cont é = 3 e se sim, fazes END.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para resolver este problema existem diversas formas de o fazer, com ciclos for ou um do loop. Aqui fica uma delas.

Dim Contador = 0

Do

    Contador = Contador + 1

    If ("Aqui fica a confição para sair do Loop") Then
           Exit Do
    End If

    'Verifica o Numero de Tentativas
    If Contador = 3 Then
           End 'Sai do Programa
    End If

Loop

Uma Nota não te esqueças sempre de indicar a versão do VB a que se refere o tópico ex: [VB.NET]Tentativas

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pessoal deparei me com um erro estupido. este programa é de um login, e tenho 2 forms, e mm k introduza o username mal ele passa para o 2º form...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Command1_Click()
If tent = 3 Then
End
End If
If Text1.Text = "Diogo" Then
MsgBox "Bem vindo " & nome & Text1.Text + ""
Else
MsgBox "Login Incorrecto"
End If
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True
Text1.Visible = False
Text2.Visible = True
Text3.Visible = True
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

agr ja ta a funcionar a cena das tentativas. agr so m falta e k ele n passe po 2º form...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Opah...

Dim tentativas As Integer
If Text1.Text = "Diogo" Then
Me.Finalize
Form2.Show ()
Else
if tentativas <> 3
tentativas = tentativas + 1
else
End
End If
End If

isto em vb.net 2005, se for em 2003 o processo de mostrar forms muda uma beca, e se for 6 a unica coisa que deve dar erro é o Me.Finalize que deves substituir por unload me

Diz que versão é!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a minha versao e a 6.0... loooooooooool mas ja copnsegui cm essa ideia k me deste :cheesygrin: brigadao :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a minha versao e a 6.0... loooooooooool mas ja copnsegui cm essa ideia k me deste :D brigadao :(

Me ajudem, estou com o mesmo erro no VB6 tem como postar o código q vc fez?

Vlw

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Me ajudem, estou com o mesmo erro no VB6 tem como postar o código q vc fez?

Vlw

nao sei se reparou mas o post é de 2006, vai ser dificil retorno.

porque não coloca o seu codigo para alguem ajudar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora