Procedimiento

Procedimiento Práctica “Usuario y Contraseña”
1.-Crear un Label en el formulario. En Caption escribir “Usuario”. Cambiar las propiedades según sus gustos, como tipo, tamaño y color de letra en la Ventana de Propiedades.
2.-Crear un TextBox. En la ventana de propiedades borrar lo que viene en Text1.
3.-Crear otro Label en el formulario. En Caption escribir “Contraseña”. Cambiar las propiedades según sus gustos, como tipo, tamaño y color de letra en la Ventana de Propiedades.
4.-Crear un TextBox. En la ventana de propiedades borrar lo que viene en Text2.
5.-Crear un CommandButton. En Caption escribir “Aceptar”. Dar doble click y escribir el siguiente código:
If.text1.text = "Usuario" and text2.text = "Password" then
Msgbox "Codigo Correcto"
Else
Msgbox "Codigo Incorrecto"
End if
6.-Ejecutar el programa.
7.-Guardarlo como Usuario.exe

Procedimientos

PRACTICA VISUAL BASIC
Primero cambiamos el título del formulario a “Subir – Bajar”
Cambiamos (Nombre) frmSubirBajar
Max Button = False
Startuposition = Center Screen
Moveable = False

Agragamos Label Caption CETis 109
Nombre = lblMensaje
Alignment = Center
Font = Seleccionando tamaño 18
Back Color = Azul
Fore Color = Negro
Top = 0

Agregamos Command 1
Caption = Bajar
Nombre = cmdBajar

Agregar Command 2
Caption = Subir
Nombre = cmdSubir

CODIFICACIÓN
Private Sub cmdBajar_Click()
lblMensaje.Top = 2000

End Sub

Private Sub cmdSubir_Click()
lblMensaje.Top = 0

End Sub

PROGRAMA

REGLAMENTO DE CLASE

REGLAMENTO DE LABORATORIO

VIDEO

SECUENCIAS