Ir para o conteúdo
InfernalStorm

[VB6] Tentativas

Mensagens Recomendadas

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
perdido_e_sozinho    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
InfernalStorm    0
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...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
InfernalStorm    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
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 é!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
danielsh    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
acao    19
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.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade