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 ".
En resumen
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 ".
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 : adminpassword : 123456usuario : luispassword : 123Elementos : 2 Labels2 Botones2 TextboxNota : 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 SubEnd ClassArchivo para descargarhttps : / / app.
Box. com / s / sfdqr55xh91tl6yup1cnb5n4c7ziq2c9
¡ Saludos !
