AMERICA CAMPEON

PRÁCTICAS DE DE VISUAL BASIC 6.0

CREAR UNA CALCULADORA CON LAS OPERACIONES BÁSICAS:

CREA EL SIGUIENTE FORMULARIO CON LOS OBJETOS QUE SE INDICAN:

EL CÓDIGO DE CADA BOTÓN ES EL SIGUIENTE:

DAS DOBLE CLIC EN EL FORMULARIO Y EL LA PARTE SUPERIOR VAS A SELECCIONAR LA OPCION GENERAL, A LA DERECHA DEBE DE APARECER LA PALABRA DELCARACIONES Y VAS A ESCRIBIR LO SIGUIENTE:

ESTE EL EL CODIGO DE CADA BOTÓN

BOTON #0

Text1.Text = Text1.Text & 0

BOTON #1

Text1.Text = Text1.Text & 1

BOTON #2

Text1.Text = Text1.Text & 2

BOTON #3

Text1.Text = Text1.Text & 3

BOTON #4

Text1.Text = Text1.Text & 4

BOTON #5

Text1.Text = Text1.Text & 5

BOTON #6

Text1.Text = Text1.Text & 6

BOTON #7

Text1.Text = Text1.Text & 7

BOTON #8 

Text1.Text = Text1.Text & 8

BOTON #9

Text1.Text = Text1.Text & 9

BOTON PUNTO

Text1.Text = Text1.Text & "."

BOTON =

If (num1 = 0) Then

MsgBox ("No se realizo una operación")

Else

num2 = Text1.Text

If op = "+" Then

Text1.Text = num1 + num2

End If

If op = "-" Then

Text1.Text = num1 - num2

End If

If op = "/" Then

Text1.Text = num1 / num2

End If

If op = "*" Then

Text1.Text = num1 * num2

End If

End If

BOTON +

num1 = Text1.Text

Text1.Text = ""

op = "+"

Text1.SetFocus

BOTON -

num1 = Text1.Text

Text1.Text = ""

op = "-"

Text1.SetFocus

BOTON *

num1 = Text1.Text

Text1.Text = ""

op = "*"

Text1.SetFocus

BOTON /

num1 = Text1.Text

Text1.Text = ""

op = "/"

Text1.SetFocus

BOTON C

Text1.text = ""

Text1.setfocus

BOTON NEW

Text1.text = ""

Text.setfocus

BOTO SALIR

Msgbox "Gracias por utilizar mi calculadora"

End

__________________________________________________________________________________________________________________________________________________________________

HACER UNA BASE DE DATOS VERSIÓN 2000 CON LOS CAMPOS NO DE REGISTRO, NOMBRE, DIRECCIÓN, TELÉFONO, EDAD,CORREO ELECTRÓNICO,

GUARDARLA COMO AGENDA

ENTRAR A VISUAL BASIC Y CREAR EL SIGUIENTE FORMULARIO.

ABAJO DE LAS HERRAMIENTAS DAR UN CLIC CON EL BOTÓN DERECHO DEL MOUSE Y SELECCIONAR COMPONENTES, ACTIVAR MICROSOFT ADO DATA CONTROL 6.0 (OLEDB),

CREAR EL OBJETO ADODC.

DAR BOTÓN DERECHO SOBRE EL OBJETO, PROPIEDADES DE ADODC, BOTÓN GENERAR, SELECCIONAR MICROSOFT JET 4.0 OLE DB PROVIDER, ACEPTAR, BOTÓN GENERAR, SELECCIONE O ESCRIBE ELNOMBRE DE LA BASE DE DATOS (AHI SE SELECCIONAR  LA BASE DE DATOS QUE SE GENERO), PROBAR CONEXIÓN, ACEPTAR, ORIGEN DE REGISTROS, TIPO DE COMANDO, SELECCIONAR ADCMDTABLE, EN TABLA O NOMBRE DE PROCEDIMIENTO SELECCIONAR EL NOMBRE DE LA TABLA, ACEPTAR. CREA LOS SIGUIENTES BOTONES CON EL CÓDIGO ESCRITO