Ver Mensaje Individual
  #4 (permalink)  
Antiguo 27/09/2009, 22:15
Avatar de seba123neo
seba123neo
 
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 18 años, 2 meses
Puntos: 19
Respuesta: Ayuda con login y matrices

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

Código vb:
Ver original
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim vContador As Integer 'para el contador de logueos
  3.        Dim vIndiceUsuario As Integer ' para almacenar el indice del usuario si es encontrado
  4.        Dim vPassword As String = "" ' para almacenar el password buscandolo a travez del indice
  5.  
  6.         Dim Usuario() As String = {"jose", "pedro"}
  7.         Dim Password() As String = {"pass1", "pass2"}
  8.  
  9.         If Trim(txtusuario.Text) = "" Then MsgBox("debe ingresar un usuario") : Exit Sub
  10.         If Trim(txtpassword.Text) = "" Then MsgBox("debe ingresar un password") : Exit Sub
  11.  
  12.         If vContador = 3 Then
  13.             MsgBox("3 intentos")
  14.             Exit Sub
  15.         Else
  16.             vIndiceUsuario = Array.IndexOf(Usuario, Trim(txtusuario.Text)) 'Busca en el array de usuarios
  17.            'y devuelve el indice del mismo, si no encuentra devuelve -1
  18.  
  19.             If vIndiceUsuario <> -1 Then 'si encontro el usuario
  20.  
  21.                 vPassword = Password.GetValue(vIndiceUsuario)  'busca el password segun el indice
  22.  
  23.                 If vPassword = Trim(txtpassword.Text) Then ' si es igual al que ingresaste
  24.                    MsgBox("usuario y password correctos") 'login correcto
  25.                Else
  26.                     MsgBox("password incorrecto")
  27.                 End If
  28.             Else ' si no encontro el usuario
  29.                MsgBox("usuario incorrecto")
  30.             End If
  31.             vContador += 1
  32.         End If
  33.     End Sub

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein