Ayuda con login y matrices

[Zeta4]

Bueno, acabo de comenzar a usar Visual Basic (con el programa 2008), estoy haciendo ejercicios varios y el caso es que tengo un problema el cual no consigo solucionar, puede que no me de cuenta del error y lo tenga en frente de las narices, estoy desesperado.

Lo que trato de hacer es hacer que en el formulario se reconozca una serie de usuarios y contraseñas (la única forma más fácil y para prácticar que se me ocurre es mediante una matriz bidimensional). A la hora de intentar probar un usuario y contraseña introducidos por una persona tiene que ir probando los datos de la matriz pero me da error.

He probado con un for o bien con un do while pero sigue sin funcionar como quiero. Os dejo el código por si hay algo mal (está incompleto).

Código:

Dim Intento As Integer = 1

[...]

Private Sub aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aceptar.Click
        Dim Matriz(5, 2) As String
        Dim i As Integer = 1

        Matriz(1, 1) = "user"
        Matriz(1, 2) = "pass"
        Matriz(2, 1) = "user2"
        Matriz(2, 2) = "pass2"
        Matriz(3, 1) = "user3"
        Matriz(3, 2) = "pass3"
        Matriz(4, 1) = "user4"
        Matriz(4, 1) = "pass4"
        Matriz(5, 1) = "user5"
        Matriz(5, 1) = "pass5"

       If (Intento = 3) Then
            MsgBox("Error")
            BoxUsuario.Enabled = False
            BoxContrasena.Enabled = False
            aceptar.Enabled = False
       Else
            If (Matriz(i, 1) = BoxUsuario.Text.ToLower) Then
                If (Matriz(i, 2) = BoxContrasena.Text.ToLower) Then
                     MsgBox("Conexión aceptada")
                Else
                     MsgBox("Contraseña incorrecta")
                     Intento = Intento + 1
                End If
             Else
                MsgBox("Usuario no reconocido")
                Intento = Intento + 1
             End If
       End If
End Sub

[seba123neo]

Hola, no mira para hacerlo un poco mejor podes crearte 2 matrices, una que guarde los nombres de usuarios y otra que contenga los passwords pero estos en orden a los usuarios de matriz primera...entonces despues es facil, hay una propiedad de la matriz que te devuelve el indice de un objeto que buscas...y al tener ese indice podes hacer las comparaciones en la matriz de password, me explico, algo asi:

1 - creas las matrices

2 - buscas el nombre de usuario dentro de la primera matriz, si no existe ya le avisas y no haces mas nada, si existe entonces te devuelve el indice del item encontrado y ahi pasas al proximo paso

3 - con el indice anterior, ahora lo buscas en la matriz de password, al encontrarlo lo comparas con el password del usuario, si no es igual le avisas y salis, y si es correcto, ya terminaste.

saludos.

[Zeta4]

Aun no lo consigo y el problema está en el bucle. Hace falta uno, no?

Código:

For i = 1 To 5 Step 1
            If Intento = 3 Then
                MsgBox("Error.")
            Else
                If BoxUsuario.Text = Matriz1(i) Then
                    j = i
                    If Boxontrasena.Text = Matriz2(j) Then
                        MsgBox("Exito.")
                    Else
                        MsgBox("Contraseña incorrecta.")
                        Intento = Intento + 1
                    End If
                Else
                    MsgBox("Usuario incorrecto.")
                    Intento = Intento + 1
                End If
            End If
Next

[seba123neo]

no hace falta ningun bucle, proba algo asi, lo arme asi nomas despues vos adaptalo a lo que quieras...

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim vContador As Integer 'para el contador de logueos
        Dim vIndiceUsuario As Integer ' para almacenar el indice del usuario si es encontrado
        Dim vPassword As String = "" ' para almacenar el password buscandolo a travez del indice
 
        Dim Usuario() As String = {"jose", "pedro"}
        Dim Password() As String = {"pass1", "pass2"}
 
        If Trim(txtusuario.Text) = "" Then MsgBox("debe ingresar un usuario") : Exit Sub
        If Trim(txtpassword.Text) = "" Then MsgBox("debe ingresar un password") : Exit Sub
 
        If vContador = 3 Then
            MsgBox("3 intentos")
            Exit Sub
        Else
            vIndiceUsuario = Array.IndexOf(Usuario, Trim(txtusuario.Text)) 'Busca en el array de usuarios 
            'y devuelve el indice del mismo, si no encuentra devuelve -1
 
            If vIndiceUsuario <> -1 Then 'si encontro el usuario
 
                vPassword = Password.GetValue(vIndiceUsuario)  'busca el password segun el indice
 
                If vPassword = Trim(txtpassword.Text) Then ' si es igual al que ingresaste
                    MsgBox("usuario y password correctos") 'login correcto
                Else
                    MsgBox("password incorrecto")
                End If
            Else ' si no encontro el usuario
                MsgBox("usuario incorrecto")
            End If
            vContador += 1
        End If
    End Sub
 

saludos.

[culd]

Muy lindo seba que quieras ayudarlo, pero no te olvides que este subforo no es .NET es VB CLASICO!!!

[seba123neo]

Iniciado por culd

Muy lindo seba que quieras ayudarlo, pero no te olvides que este subforo no es .NET es VB CLASICO!!!

Ok, pero la duda es de VB 2008, y si tenes razon que algun moderador mueva el tema.

saludos.

[pkj]

Creo que algo así tendría que funcionar. No lo he probado.

Código :

For i = 1 To 5 Step 1
            If Intento = 3 Then
                MsgBox("Error.")
                Exit For
            Else
                If BoxUsuario.Text = Matriz1(i) Then
                    If BoxContrasena.Text = Matriz2(i) Then
                        MsgBox("Exito.")
                        Intento = 0
                        Exit For
                    Else
                        MsgBox("Contraseña incorrecta.")
                        Intento = Intento + 1
                        Exit For
                    End If
                End If
            End If
Next i
If i > 5 Then
                    MsgBox("Usuario incorrecto.")
                    Intento = Intento + 1
End If
 

Como es tu código lo entenderás mejor y podrás repararlo si hay un fallo.

También te recomiendo usar UBound para saber el tamaño de la matriz, en lugar de usar números fijos como el 5.

Saludos