PROYECTO  TEORÍA CUARTO PARCIAL

FECHA MÁXIMO DE ENTREGA JUEVES 11/04/2019

DESCARGAR EL DOCUMENTO Y CONTESTAR A MANO

DESCARGAR PROYECTO TEÓRICO

GUÍA DE ESTUDIO 4TO PARCIAL INFORMÁTICA

GUIA DE ESTUDIO 4TO PARCIAL INFORMATICA

ACTIVIDAD 1     PORTADA PARCIAL 4 

ACTIVIDAD 2    DIAGRAMA DE FLUJO

ACTIVIDAD 3   BASE DE DATOS ACCESS



ACTIVIDAD 4   PROYECTO
 CALCULADORA VISUAL BASIC 
1.- ABRE EXCEL 
2.-GUARDA TU DOCUMENTO CON EL TIPO DE ARCHIVO LIBRO DE EXCEL HABILITADO PARA MACROS 
3.- OPRIME ALT+F11, SELECCIONA MENU INSERTAR -->USERFORM

CODIGOS 
Haz doble clic sobre cada boton y agrega el codigo correspodiente CÓDIGO DE CADA BOTÓN 

'ESTE CODIGO VA EN LA PARTE SUPERIOR DE LA VENTANA

'VARIABLES GLOBALES
Dim OPERACION As String
Dim A As Double
Dim B As Double

---------------------------------------------------------------------------------------------

'BOTON CERO
TextBox1.Text = TextBox1.Text & "0"
---------------------------------------------------------------------------------------------
'BOTON UNO
TextBox1.Text = TextBox1.Text & "1"
---------------------------------------------------------------------------------------------
'BOTON DOS
TextBox1.Text = TextBox1.Text & "2"
---------------------------------------------------------------------------------------------
'BOTON TRES
TextBox1.Text = TextBox1.Text & "3"
---------------------------------------------------------------------------------------------
'BOTON CUATRO
TextBox1.Text = TextBox1.Text & "4"
---------------------------------------------------------------------------------------------
'BOTON CINCO
TextBox1.Text = TextBox1.Text & "5"
---------------------------------------------------------------------------------------------
'BOTON SEIS
TextBox1.Text = TextBox1.Text & "6"
---------------------------------------------------------------------------------------------
'BOTON SIETE
TextBox1.Text = TextBox1.Text & "7"
---------------------------------------------------------------------------------------------
'BOTON OCHO
TextBox1.Text = TextBox1.Text & "8"
---------------------------------------------------------------------------------------------
'BOTON NUEVE
TextBox1.Text = TextBox1.Text & "9"
---------------------------------------------------------------------------------------------
'BOTON RESTA
A = TextBox1.Text
TextBox1.Text = ""
OPERACION = "-"
---------------------------------------------------------------------------------------------

'BOTON DIVISION

A = TextBox1.Text
TextBox1.Text = ""
OPERACION = "/"
---------------------------------------------------------------------------------------------
'BOTON SUMA
A = TextBox1.Text
TextBox1.Text = ""
OPERACION = "+"
---------------------------------------------------------------------------------------------
'BOTON MULTIPLICACION
A = TextBox1.Text
TextBox1.Text = ""
OPERACION = "*"
---------------------------------------------------------------------------------------------
'BOTON PUNTO
TextBox1.Text = TextBox1.Text & "."
---------------------------------------------------------------------------------------------
'BOTON IGUAL(=)
B = TextBox1.Text
TextBox1.Text = ""
If OPERACION = "+" Then
TextBox1.Text = A + B
ElseIf OPERACION = "-" Then
TextBox1.Text = A - B
ElseIf OPERACION = "*" Then
TextBox1.Text = A * B
ElseIf OPERACION = "/" Then
TextBox1.Text = A / B
End If
---------------------------------------------------------------------------------------------
'BOTON LIMPIAR
TextBox1.Text = ""
---------------------------------------------------------------------------------------------