Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Usuarios y Contraseñas en visual basic 6.0

Visual Basic - Usuarios y Contraseñas en visual basic 6.0

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Usuarios y Contraseñas en visual basic 6.0

Publicado por Fabiana (3 intervenciones) el 12/11/2016 16:39:52
Hola, necesito ayuda con los códigos en un trabajo en viasual basic 6.0.
El mismo consiste en un formulario que debe tener 2 usuarios y 2 contraseñas (invitado/1234 y admin/admin), los cuales abrirán cada uno un formulario diferente.
Ademas deben tener un limite de 3 intentos al ingresar. Al primer y segundo intento aparece un mensaje de contraseña incorrecta, y si se ingresa incorrectamente a la tercera el programa se cierra.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edward
Val: 152
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Usuarios y Contraseñas en visual basic 6.0

Publicado por Edward (57 intervenciones) el 12/11/2016 17:20:12
Buen día para todos,

Fabiana, la temática del foro es que en donde se te presenta un problema con el código lo compartes e intentamos entre todos brindar un posible solución.

Por favor comparte el código en donde tienes la dificultad.

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Usuarios y Contraseñas en visual basic 6.0

Publicado por Fabiana (3 intervenciones) el 12/11/2016 17:36:45
Ok, gracias por decirmelo :)

Hace años que no trabajo con visual y me cuesta bastante, esto es lo que tengo hasta ahora.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Contador As Integer
 
Private Sub Command1_Click()
If (Text1.Text = "INVITADO" And Text2.Text = "1234") Then
Form2.Show
Me.Hide
Else
Contador = Contador + 1
MsgBox "Contraseña Incorrecta", vbOKOnly, Error
End If
If Contador = 3 Then
MsgBox "Ha ingresado 3 contraseñas incorrectas, se cerrará el programa", vbOKOnly, Salir
End
End If
 
If (Text1.Text = "admin" And Text2.Text = "admin") Then
Form3.Show
Me.Hide
Else
Contador = Contador + 1
MsgBox "Contraseña Incorrecta", vbOKOnly, Error
End If
If Contador = 3 Then
MsgBox "Ha ingresado 3 contraseñas incorrectas, se cerrará el programa", vbOKOnly, Salir
End
End If
 
End Sub

Para ser mas especifica, el problema esta en que cuando ingreso el usuario y contraseña, se abren los formularios que le corresponde a cada uno, pero en conjunto con el cartel de contraseña incorrecta. Y eso es lo que quiero resolver
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de jorge
Val: 45
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Usuarios y Contraseñas en visual basic 6.0

Publicado por jorge (21 intervenciones) el 12/11/2016 18:11:19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
 If (Text1.Text = "INVITADO" And Text2.Text = "1234") Then
 Form2.Show
 Me.Hide
 
 Else
 MsgBox "Contraseña Incorrecta", vbOKOnly, Error
 Contador = Contador + 1  ' hay que inicialisar esta variable en 0

If Contador = 3 Then
 MsgBox "Ha ingresado 3 contraseñas incorrectas, se cerrará el programa", vbOKOnly, Salir
 End
 End If
 
 End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Edward
Val: 152
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Usuarios y Contraseñas en visual basic 6.0

Publicado por Edward (57 intervenciones) el 13/11/2016 04:05:53
Buen día para todos,

Fabiana, tu inconveniente radica en que estas haciendo la validación por separado, lo que quiere decir que cuando ingresas el usuario "admin" con su password "admin" pasa su primera validación pero para la validación del usuario "INVITADO" te dice que es incorrecto.

El código te debe quedar así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Contador As Integer
 
Private Sub Command1_Click()
If (Text1.Text = "INVITADO" And Text2.Text = "1234") Then
Form2.Show
Me.Hide
ElseIf (Text1.Text = "admin" And Text2.Text = "admin") Then
Form3.Show
Me.Hide
Else
Contador = Contador + 1
MsgBox "Contraseña Incorrecta", vbOKOnly, Error
If Contador = 3 Then
MsgBox "Ha ingresado 3 contraseñas incorrectas, se cerrará el programa", vbOKOnly
End If
End If
End Sub


Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Usuarios y Contraseñas en visual basic 6.0

Publicado por Fabiana (3 intervenciones) el 14/11/2016 01:42:17
Gracias por sus respuestas, me sirvieron bastante y ya pude resolver el problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Edward
Val: 152
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Usuarios y Contraseñas en visual basic 6.0

Publicado por Edward (57 intervenciones) el 14/11/2016 01:57:44
Buen día para todos,

Fabiana, un gusto haber podido colaborarte.

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar