[VB6] Tentativas

[diogo1n23456]

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 😛 ;)🙂

[AriOps]

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

[perdido_e_sozinho]

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

[diogo1n23456]

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...

[diogo1n23456]

como e k faço pa n passar?

[AriOps]

mostra lá a source sff.

[diogo1n23456]

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

[diogo1n23456]

a cena das tentativas inda n ta a bulir...

[diogo1n23456]

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

[vbmaster]

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 é!

[diogo1n23456]

a minha versao e a 6.0... loooooooooool mas ja copnsegui cm essa ideia k me deste 😁 brigadao 🙂

[danielsh]

a minha versao e a 6.0... loooooooooool mas ja copnsegui cm essa ideia k me deste 😄 brigadao 😞

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

Vlw

[acao]

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.