TUTORIAL CREAR UNA CALCULADORA EN VISUAL BASIC

Hola, amigos hoy les voy a mostrar como se hace una calculadora con el Visual Basic 6.0
Empecemos:

1ºPrimero abrimos un nuevo proyecto. Archivo>nuevo proyecto
2ºVamos a agregar:

*1 Frame con dentro 4 OptionButton
*3 Botones
*3 TextBox

Les tiene que ir quedando asi:

Y vamos a ir cambiando los nombres de los botones, llamados "caption"
Si no saben como cambiar el "caption", hacen click en el boton, text, frame o otros y van al menu de propiedades:

4º Ya estamos listos, ahora vamos a cambiar los nombres de los botones

Para hacer esto lo que hay que hacer es seleccionar el boton e ir al boton de propiedades y buscar el que dice "Nombre"(es el primero).

ahora vamos a ver los nmbres que tiene que quedar cada uno:

5º Ahora hay que poner los codigos a cada uno, despues los voy a explicar

Al boton calcular:

dijo:

Private Sub Calcu_Click()
Dim a, b As Double
a = Num1.Text
b = Num2.Text

If Suma.Value = True Then
Resultado.Text = a + b
ElseIf Resta.Value = True Then
Resultado.Text = a - b
ElseIf Division.Value = True Then
Resultado.Text = a / b
If b > a Then
c = b / a
End If
ElseIf Multiplicacion.Value = True Then
Resultado.Text = a * b
End If

End Sub

*Pongo Dim a,b,c para que sepa que es lo que voy a nombrar para abrebiar y no poner todo, seguido de eso, abajo se pone a = (su respectivo nombre de cuadro).Text

*Se pone If para hacer una condicion, True, para saber, si esta activado que haga tal accion, en este caso sumar, restar, dividir o multiplicar.

*Siempre que se terminan las condiciones If, se pone un End If

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


Al boton Salir:

dijo:

Private Sub Salir_Click()
End
End Sub

*En este, simplemente se pone End que quiere decir salir, lo que hace es sacar el programa al apretar el boton

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


Al boton Reset:

dijo:

Private Sub Reset_Click()

Num1.Text = ""
Num2.Text = ""
Resultado.Text = ""

End Sub

*Los nombres de los campos para completar se ponen seguidos por un .Text. Yo, despues de eso, puse un "=" seguido de 2 "", que significa que dejen el espacio vacio, osea, que se borren



Bueno, ahora unas imagenes de la calculadora en funcionamiento: