Operaciiion Mensajeee

1.- Abrimos Visual Basic

2.- En el proyecto agregamos 3 formularios

3.- Les cambiamos el nombre a los 3 formularios, en el recuadro de propiedades, opción nombre al primero le pusimos “INICIO” al segundo “SUMA” y al último “RESTA”.

4.- En el Formulario de INICIO. Insertamos 6 objetos y un cuadro de texto con los nombres de:

5.- Al objeto que dice ((CLIC)) le pusimos el código siguiente:

Private Sub Command1_Click()

Print "BIENVENIDO"

Print "compañero", , "conalep"

Print ""

Print "a visual basic"

End Sub

6.- Luego el objeto que sigue ((SUMA)):

Private Sub Command2_Click()

SUMA.Show

End Sub

7.- Después al objeto que dice ((RESTA))  le pusimos el código siguiente:

Private Sub Command5_Click()

RESTA.Show

End Sub

8.- Luego al de ((SALIR))

Private Sub Command4_Click()

End

End Sub

9.- Despues al que dice ((MENSAJE 1)):

Private Sub Command3_Click()

MsgBox "es incorrecto" & vbCrLf & "sigueintentando", vbCritical, "mensaje1"

End Sub

10.- Y por ultimo al que dice ((CLIC CUADRO)) para que nos salga el texto en el cuadro de texto:

Private Sub C1_Click()

Text1.Text = "HOLA"

End Sub

11.- En el Formulario de SUMA. Insertamos 6 Objetos y un cuadro de texto con los nombres de:

12.- Al objeto que dice ((CLIC)) le pusimos el código siguiente:

Private Sub Command1_Click()

Print "suma"

Print "9+8"

Print ""

Print "resultado"

End Sub

13.- Luego el objeto que sigue ((SALIR)):

Private Sub Command2_Click()

End

End Sub

14.- Después en el siguiente objeto que es ((RESTA)):

Private Sub Command3_Click()

RESTA.Show

End Sub

15.- Después en el siguiente objeto que es ((INICIO))

Private Sub Command3_Click()

RESTA.Show

End Sub

16.- Luego al objeto de ((MENSAJE 2)):

Private Sub Command5_Click()

MsgBox "estas seguro" & vbCrLf & "compañero", vbQuestion, "mensaje1"

End Sub

17.- Declaramos variables hasta arriba

18.- Y por ultimo al objeto que dice ((RESULTADO)) para que nos aparezca en el cuadro de texto

Private Sub Command6_Click()

A = 5

B = 3

C = 9

D = A + B + C

Text1 = D

End Sub

19.- En el Formulario de RESTA. Insertamos 6 Objetos y un cuadro de texto con los nombres de:

20.- Al objeto que dice ((CLIC)) le pusimos el código siguiente:

Private Sub Command1_Click()

Print "resta"

Print "50-12"

Print ""

Print "resultado"

End Sub

21.- Luego el objeto que sigue ((SUMA)):

Private Sub Command2_Click()

SUMA.Show

End Sub

22.- Después en el siguiente objeto que es ((INICIO)):

Private Sub Command3_Click()

INICIO.Show

End Sub

23.- Después en el siguiente objeto que es ((SALIR)):

Private Sub Command4_Click()

End

End Sub

24.- Luego al objeto de ((MENSAJE 3)):

Private Sub Command5_Click()

MsgBox "Estas Restando" & vbCrLf & "compañero", vbInformation, "mensaje2"

End Sub

25.- Y por ultimo al objeto que dice ((RESULTADO)) para que nos aparezca en el cuadro de texto

Private Sub Command6_Click()

A = 50

B = 5

C = 7

D = A - B - C

Text1 = D

End Sub

26.- Corremos el programa para verificar que este bien:

27.- Ya que insertamos los objetos les podemos cambiar el tipo de letra, y el tamaño en la opción “FONT” y ponerle color al formulario en la opción “BACKCOLOR” ,

28.-También podemos ponerle una imagen de fondo al formulario en la opción “PICTURE”

29-Al final solo lo guardamos y terminamos.