Jump to content

[ES][Tutorial] - Base De Datos + Programa Terminado


Recommended Posts

Posted

[VB.NET] Tutorial Nº 2 By Weeken : Creacion De Un Login

 

¿Para Que Sirve Esto?

 

Este Programa Mas Que Nada Sirve Para Tener Alguna Seguridad A Tus Programas, Tambien Puede Utilizarlo Para Guardar Informacion Personal

Asi No Podran Obtener La Informacion, Sino Por La Contraseña

IMPORTANTE :Las Contraseñas Visual Basic "No Se Pueden Hackear!"

Asi Que Eso Nos Brindan Una Muy Buena Proteccion ;)

 

 

Comenzemos! (:

 

Paso 1 : Creamos un nuevo proyecto en VB.net (Aplicación)

85580917.png

 

Paso 2 : Creamos >

34175054.png

 

  • 4 TextBox
  • 3 Labels
  • 1 Button
  • 1 Timer

 

Los Acomodamos y Nos Quedaria Algo Asi..

73770276.png

 

Paso 3 : Click Sobre El TextBox De > "Contraseña"

y En Las Propiedades Cambiar Esto:

PasswordChar = *
19678094.png

 

Paso 4 : Hacemos Lo Mismo Con El TextBox Que Esta Al Lado Del Label De "Codigo"

 

Paso 5 : El TextBox Que Esta Apartados De Todos, Le Hacemos Click, Vamos A Las Propiedades Y Cambiamos Esto:

Visible = False
50486735.png

 

Paso 6 : Hacer Lo Mismo Con El Boton

Paso 7 : Agamos Un Click Sobre El Reloj (Ya Creado)

51357735.png

 

Paso 8 : Editamos Lo Siguiente En Propiedades

Interval = 1

Enabled = True

98471751.png

 

Paso 9 : Editamos El Codigo De Timer1 Con Doble Click Sobre El

Ponemos Esto :

'Tutorial By Weeken

        If TextBox1.Text = ("CUENTA") And TextBox2.Text = ("CONTRASEÑA") And TextBox3.Text = ("CODIGO") Then

            'Tutorial By Weeken

            TextBox4.Text = ("OK")

            'Tutorial By Weeken

        Else

            'Tutorial By Weeken

            TextBox4.Text = ("NO")

            'Tutorial By Weeken

        End If

        'Tutorial By Weeken

        If TextBox4.Text = ("OK") Then

            'Tutorial By Weeken

            Button1.Visible = True

            'Tutorial By Weeken

        ElseIf TextBox4.Text = ("NO") Then

            'Tutorial By Weeken

            Button1.Visible = False

            'Tutorial By Weeken

        End If

        'Tutorial By Weeken

Paso 10 : Editamos El Codigo De Button1 Con Doble Click Sobre El

Ponemos Esto :

'Tutorial By Weeken

        MsgBox("Bienvenido!", MsgBoxStyle.OkOnly, "Tutorial By Weeken")

        'Tutorial By Weeken

        Form2.Show()

        'Tutorial By Weeken

        Me.Hide()

        'Tutorial By Weeken

Paso 11 : Vamos a Proyecto > Agregar Windows Form.

43639001.png

 

41323690.png

 

Paso 11 : Doble Click Sobre Form2.vb y Comenzar A Editar

El Contenido Que Quieres Guardar!, Tus Datos Estan

A Salvo Haora! ;)

 

 

Felicidades!, Terminaste El Programa

 

Asi Es Como Me Quedo A Mi :

 

31462643.png

 

 

Datos Para Mi Login :

 

Cuenta : weeken

Contraseña : contraseña

codigo : 4048

 

PD: TENGAN EN CUENTA LAS MAYUSCULAS Y MINUSCULAS

Click Aqui Para Descargar El Programa

 

 

Creditos : Weeken

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...