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...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock