Question

realizar un programa que solicite usuario y contraseña al digitar en acceder al sistema con dos usuarios.




psdta: es de a ser en visual studio


Al ingresar presentar un mensaje "bienvenido al sistema su nombre " si no les permite ingresar presentar un mensaje " usuario o contraseña incorrecto "

Answer 1

Hola.

Tarea:

Realizar un programa que solicite usuario y contraseña al digitar en acceder al sistema con dos usuarios.  Al ingresar presentar un mensaje "bienvenido al sistema su nombre " si no les permite ingresar presentar un mensaje " usuario o contraseña incorrecto ". En visual studio.

Solución:

Para realizar el ejercicio, ingresamos dos etiquetas, dos cuadros de texto, y dos botones, el sistema tiene la función de un login (loguearse), que cuando ingresamos el usuario y contraseña, nos mostrará un mensaje de Bienvenida, caso contrario mostrará que el usuario o contraseña son incorrectos.

Para programar el botón Ingresar, se utilizó un if (Decisión), que cuando los datos ingresados en la caja de texto de usuario y contraseña por ejemplo: "admin" y "123456" respectivamente, mostrará el mensaje de Bienvenida, Caso contrario nos mostrará que los datos son incorrectos.

Para el botón Cancelar, se utilizo un if, para que cuando la decisión sea correcta el programa se cerrará, caso contrario seguirá activo.

Usuarios:

usuario: admin

password: 123456

usuario: luis

password: 123

Elementos:

• 2 Labels
• 2 Botones
• 2 Textbox

Nota: En el segundo textbox, en propiedades donde dice PasswordChar, escribir * (asterisco). Para que al escribir un texto aparezca en asteriscos.

Codigo en Visual Studio:

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim usu, pass As String 'Variables

       'Entrada

       usu = TextBox1.Text

       pass = TextBox2.Text

       'Proceso

       If (usu = "admin" And pass = "123456") Or (usu = "luis" And pass = "123") Then

           'Salida

           MsgBox("Bienvenido al Sistema" & " , " & usu)

           Me.Close()

       Else

           'Salida

           MsgBox("Usuario o Contraseña Incorrecto")

       End If

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       If MsgBox("¿Desea salir del programa?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

           Me.Close()

       End If

   End Sub

End Class

Archivo para descargar

https://app.box.com/s/sfdqr55xh91tl6yup1cnb5n4c7ziq2c9

¡ Saludos !