Hola a todos, siguiendo con las aplicaciones de Windows Forms con Visual Basic.NET y con cómo instalar el programa, ahora vamos a realizar una aplicación de registro de usuario. No es muy complicada, pero es necesaria en muchas aplicaciones para ingresar siendo cierto "usuario", y con cierta "contraseña" a un lugar. Asi conoceremos su funcionamiento.
Para ello, empezaremos viendo una instrucción muy famosa, vista en AS2, AS3, PHP,... y que seguramente entenderás: el condicional If....Else:
Código :
If condicion=cierta Then Ejecuta esto... Else Ejecuta esto otro... End if
Nuestro código dejará de ser lineal,lo que quiere decir que ya no se ejecutan todas las líneas una detrás de otra, ya que tenemos esta instrucción que nos va a romper la secuencia dependiendo de si se cumple una condición o no, por ejemplo:
Código :
If i>=0 Then
Console.Writeline ("El número es positivo")
Else
Console.Writeline ("El número es negativo")
End if
Empezamos con nuestra aplicación
Ahora crearemos una aplicación Windows form con:
- Dos cuadros de texto con nombres - txt_usuario(Al Text Box1) y txt_password(Al Text Box2).
- Dos labels, que escribiremos en ellos, "Usuario" y "Contraseña".
- Y un botón con nombre - btn_entrar y con texto "Entrar".
Nos deberá quedar asi:

Realmente no es importante la situación de cada objeto, pero si la organización...
Ahora haremos doble click en el botón, y en el evento clic, evaluaremos si ha escrito unos valores, si coinciden le pondremos un mensaje de que ha sido correcto, y si no, lo contrario. Tendremos que comprar el contenido de los cuadros de texto "txt_nombre.text" y "txt_password.text", si cumplen las dos comparaciones podremos un mensaje de bienvenida y en caso contrario, un mensaje de que no es correcto:
Código :
If txt_usuario.Text = "Wyrm" And txt_password.Text = "cristalab" Then
MsgBox("Bienvenido al sistema")
Else
MsgBox("Acceso denegado")
End If
Si ahora ejecutamos el programa poniendo los datos correctamente, nos mostrará el mensaje de bienvenida:

Si por el contrario, ponemos otra contraseña o usuario, nos mostrará el otro resultado:

Obviamente hay que mejorarlo, no podemos dejar que se vea la contraseña cuando se escriba, así que cambiaremos una propiedad de ese segundo cuadro de texto para que se comporte como un control de contraseña, donde escriba "*"(o el simbolo que se quiera, el mas común es el asterisco) en lugar de las letras.
Seleccionamos el cuadro de texto y modificamos la propiedad "PaswordChar":

En la parte inferior nos pone la descripción de la propiedad que estamos seleccionando o editando, en éste caso: "PaswordChar".
Si ejecutamos ahora el programa, nos saldrán los asteriscos en vez de la palabra que hemos usado como clave(en este caso, "cristalab"):

Espero que os haya gustado ésta tercera aplicación de Windows Forms, dentro de poco haremos formularios mas complejos, y con una programación bastante mas extensa...pero aún asi, no serán difíciles de entender.
PD: Los archivos del tutorial son modificables 100%, pero hasta que les cambiéis el nombre de usuario y la contraseña, seguirán siendo: Usuario Wyrm y contraseña cristalab.
Espero que os haya gustado!
Archivos del tutorial

Por ciberguts el 07 de Octubre de 2009
Me gustaría un tutorial de VB2008 con Base de Datos, Clases y Funciones (pequeño proyecto), y asi tener un poco más claro y iniciar pruebas y practicas de este software. (Algun link para revisarlas)
Felicitaciones por el tutorial. Excelente.
Gracias.
Cesar
Por nahun el 04 de Noviembre de 2009
Por LeninDC el 11 de Diciembre de 2009
Flicitaciones Suban mas tutos
Por sara el 29 de Marzo de 2010
Por devgert el 30 de Julio de 2010
Por vane el 20 de Agosto de 2010
Por diana el 15 de Marzo de 2011
Por liliana el 29 de Septiembre de 2011
Por davidd88 el 25 de Octubre de 2011
Tengo un logingform1.vb con el siguiente codigo :
Public Class LoginForm1
' TODO: inserte el código para realizar autenticación personalizada usando el nombre de usuario y la contraseña proporcionada
' (Consulte http://go.microsoft.com/fwlink/?LinkId=35339).
' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual como se indica a continuación:
' My.User.CurrentPrincipal = CustomPrincipal
' donde CustomPrincipal es la implementación de IPrincipal utilizada para realizar la autenticación.
' Posteriormente, My.User devolverá la información de identidad encapsulada en el objeto CustomPrincipal
' como el nombre de usuario, nombre para mostrar, etc.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "davidd88" And PasswordTextBox.Text = "1234" Then
Me.DialogResult = DialogResult.No
Form9.Visible = True
Me.Hide()
Form9.Label1.Text = "Bienvenido Sr. " & UsernameTextBox.Text
Else
MsgBox("Los datos introducidos no son correctos.")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Bien , lo que intento es poder registrar usuarios nuevos para que puedan acceder a el programa , ahora mismo solo funcionaria si se añade "davidd88" y "1234".
A su vez , que este usuario , se agrege a una tabla de Employees ; tengo una tabla de datos Employees de Northwind , directamente la coji y la pege en un formulario.
Alguien me puede echar una mano??
Un saludo.
--------------------------------------------------------------------------------
davidd88