1.- ABRI EL PROGRAMA VISUAL BASIC 6.
2.- CREE UN PROYECTO DE NOMBRE OPERACIONES - MENSAJES.
3.- HICE TRES FORMULARIOS EL PRIMERO DE NOMBRE INICIO.
4.- EN EL PRIMER FORMULARIO (FORM1) PUSE 7 OBJETOS (COMMAND) Y EN CAPTION LE PUSE LO SIGUIENTES NOMBRES A CADA BOTON TAMBIEN PUSE UN CUADRO DE TEXTO DE NOMBRE T1:
FORM1 (INICIO)
5.- EN EL BOTON "B1" DE NOMBRE "CLICK" LE DI DOBLE CLICK CON EL MAUSE Y SALIO EL CUADRO DEL CODIGO Y ESCRIBI EL SIG. CODIGO:
Private Sub B1_Click()
Text1.Text = "hola"
End Sub
6.- EN EL BOTON "B2" DE NOMBRE "CLICK AQUI" DE DI DOBLE CLICK CON EL MAUSE Y SALIO EL CUADRO DE CODIGO DONDE ESCRIBI EL SIGUIENTE CODIGO:
Private Sub B2_Click()
Print ""
Print ""
Print " bienvenido da click en iniciar"
End Sub
7.- EN EL BOTON "B3" DE NOMBRE "Q VAS A APRENDER" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO ESCRIBI EL SIG. CODIGO:
Private Sub B3_Click()
Print "A sumar", "Y a restar"
Print ""
Print "ACONTINUACION" & vbCrLf & "DA CLICK EN UNA OPCION" & vbCrLf & " PARA COMENZAR"
End Sub
8.- EN EL BOTON "B4" DE NOMBRE "INICIAR" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO ESCRIBI EL SIGUIENTE CODIGO:
Private Sub B4_Click()
MsgBox "ahora vamos a sumar y restar" & VBCRKF & "", vbCritical, "INICIO"
End Sub
9.- EN EL BOTON "B5" DE NOMBRE "SUMA" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO PUSE EL SIGUIENTE CODIGO:
Private Sub B5_Click()
Form2.Show
End Sub
(CON ESTE BOTON LA ORDEN QUE ESTOI DANDO ES QUE ME MANDE DE FORM1 A FORM2 QUE CORRESPONDE A LA SUMA)
10.- EN EL BOTON "B6" DE NOMBRE "RESTA" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO ESCRIBI LO SIGUIENTE:
Private Sub B6_Click()
Form3.Show
End Sub
11.- EN EL BOTON "B7" DE NOMBRE "SALIR" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO PUSE EL SIGUIENTE CODIGO:
Private Sub B7_Click()
End
End Sub
12.- DESPUES DE QUE PUSE LOS BOTONES CORRI EL PROGRAMA PARA ASEGURARME QUE ESTE BIEN.
13.- LUEGO LE HISE ALGUNAS MODIFICACIONES AL FORMULARIO COMO PONERLE UNA IMAGEN DE FONDO, CAMBIO DE LA LETRA EN CADA BOTON Y EL COLOR DE LETRA.
FORM2 (SUMA)
14.- EN EL SEGUNDO FORMULARIO (FORM2) PRIMERO INCERTE LOS 6 OBJETOS (COMMAND) Y EN CAPTION LES CAMBIE EL NOMBRE COMO SE MUESTRA EN LA IMAGEN:
15.- EN EL BOTON "B1" DE NOMBRE "CUIDADO" DI 2 CLICK CON EL MAUSE Y ESCRIBI EL SIG. CODIGO:
Private Sub B1_Click()
MsgBox "SEGURO QUE KIERES CONTINUAR" & vbCrLf & "DA CLICK EN ACEPTAR", vbExclamation, " CUIDADO"
End Sub
16.-EN EL BOTON "B2" DE NOMBRE "CLICK" LE DI 2 CLICK CON EL MAUSE Y EN EL CUADRO DE CODIGO PUSE LO SIGUIENTE:
Private Sub B2_Click()
Print "suma"
Print "5+8+2"
Print ""
Print "resultado"
End Sub
17.- EN EL BOTON "B3" DE NOMBRE "RESULTADO" DI 2 CLICK CON EL MAUSE Y EN EL CUADRO DE CODIGO PUSE ESTE CODIGO:
Private Sub B3_Click()
A = 5
B = 8
C = 2
D = A + B + C
T1 = D----------------- AL DECLARAR ESTO QUIERE DECIR QUE LA SUMA DE A+B+C QUIERO QUE EL RESULTADO SALGA DENTRO DEL CUADRO DE TEXTO.
End Sub
ANTES DE ESTO DECLARE VARIABLES EN EL CUADRO GENERAL DEL CODIGO QUE ES EL SIGUIENTE CODIGO:
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
18.-EN EL BOTON "B4" DE NOMBRE "INICIO" DI 2 CLICK Y EN EL CUADRO DE CODIGO PUSE:
Private Sub B4_Click()
Form1.Show
End Sub
CON ESTE CODIGO DI LA ORDEN PARA QUE AL DAR CLICK ME REGRESE AL PRIMER FORMULARIO.
19.- EN EL BOTON"B5" DE NOMBRE "RESTA" DI 2 CLICK EN EL BOTON Y EN EL CUADRO DE CODIGO INCERTE LO SIG.
Private Sub B5_Click()
Form3.Show
End Sub
CON ESTE CODIGO LE DI LA ORDEN AL PROGRAMA DE QUE AL DARLE CLICK ME MANDE DE FORM2 A FORM3 QUE ES EL DE LA RESTA.
20.- EN EL BOTON"B6" DE NOMBRE "EXIT" DI DOBLE CLICK Y EN EL CUADRO DE TEXTO ESCRIBI EL SIGUIENTE CODIGO:
Private Sub B6_Click()
End
End Sub
21.- DESPUES CORRI EL PROGRAMA PARA ASEGURARME QUE ESTE BIEN.
22.- LE HICE UNAS MODIFICACIONES AL FORMULARIO- LE AGREGUE UNA IMAGEN Y LE CAMBIE EL COLOR Y TAMAÑO ALA LETRA DE CADA BOTON.
FORM3 (RESTA)
23.-EN EL TERCER FORMULARIO (FORM3) PRIMERO PUSE 6 OBJETOS (COMMAND) Y EN CAPTION LES CAMBIE EL NOMBRE, TAMBIEN PUSE UN CUADRO DE TEXTO DE NOMBRE T1.
24.- EN EL BOTON "B1" DE NOMBRE "CLICK" DI 2 CLICK Y EN EL CUADRO DE CODIGO PUSE EL SIGUIENTE CODIGO:
Private Sub B1_Click()
Print "resta"
Print "9-3"
Print ""
Print "resultado"
End Sub
25.-EN EL BOTON "B2" DE NOMBRE "RESULTADO" DI 2 CLICK Y EN EL CUADRO DE CODIGO ESCRIBI LO SIGUIENTE:
Private Sub B2_Click()
A = 9
B = 3
C = A - B
T1 = C----- CON ESTO QUIERO QUE LA RESTA DE A-B SALGA EL RESULTADO EN EL CUADRO DE TEXTO.
End Sub
COMO VEN AKI YA NO DECLARE LAS VARIABLE PORQUE EN EL FORMULARIO ANTERIOR YA LAS AVIA DECLARADO EN FORMA GENERAL PARA TODOS LOS FORMULARIOS.
26.- EN EL BOTON "B3" DE NOMBRE "CORRECTO" DI 2 CLICK Y EN EL CUADRO DE CODIGO PUSE LO QUE SIGUE:
Private Sub B3_Click()
MsgBox "MUI BIEN" & vbCrLf & " ¿TE GUSTARIA INTENTARLO DE NUEVO? ", vbQuestion, "CORRECTO"
End Sub
CON ESTE CODIGO ESTO DANDO LA ORDEN PARA QUE ME SALGA UN CUADRO DE MENSAJE AL DARLE CLICK CUANDO LO EJECUTE.
27.- EN EL BOTON "B4" DE NOMBRE "SUMA" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO ESCRIBI LO SIGUIENTE:
Private Sub B4_Click()
Form2.Show
End Sub
CON ESTE CODIGO LE ESTOI DANDO LA ORDEN AL PROGRAMA DE QUE AL DARLE CLICK AL BOTON ME REGRESE AL FORMULARIO DE LA SUMA.
28.- EL EL BOTON "B5" DE NOMBRE "INICIO" DI DOBLE CLICK Y EN EL CUADRO DE CODIGO ESCRIBI:
Private Sub B5_Click()
Form1.Show
End Sub
CON ESTE CODIGO LE ESTOI DANDO LA ORDEN AL PROGRAMA DE QUE AL DARLE CLICK EN EL BOTON ME MANDE AL PRIMER FORMULARIO DE INICIO.
29.- EN EL BOTON "B6" DE NOMBRE "EXIT" DI 2 CLICK Y PUSE L SIGUIENTE CODIGO:
Private Sub B6_Click()
End
End Sub
30.- AL TERMINAR ESTO CORRI TODO EL PROGRAMA LE HICE ALGUNAS MODIFICACIONES COMO INCERTAR UNA IMAGEN EN EL FORMULARIO Y CAMBIARLE EL COLOR Y EL TIPO DE LETRA.
31.- LO GUARDE
32.- Y POR ULTIMO LO GUARDE COMO EJECUTABLE LO CORRI Y TODO SALIO BIEN.
Y ESO ES TODO.......
.gif)