Jump to content
InfernalStorm

[VB6] Tentativas

Recommended Posts

InfernalStorm

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 ;):)

Share this post


Link to post
Share on other sites
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


Daniel Correia

Share this post


Link to post
Share on other sites
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


ser.gifsartim.gif

Share this post


Link to post
Share on other sites
InfernalStorm

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

Share this post


Link to post
Share on other sites
InfernalStorm
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

Share this post


Link to post
Share on other sites
InfernalStorm

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

Share this post


Link to post
Share on other sites
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 é!

Share this post


Link to post
Share on other sites
InfernalStorm

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

Share this post


Link to post
Share on other sites
danielsh

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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.