2ºAplicación una calculadora simple

Hola , vamos a iniciar nuestra segunda aplicación : una calculadora simple , para hacerla hay que segir los siguientes pasos:

1) Ejecutamos visual basic 6.0 y elegimos EXE estandar , e introducimos tres texbox , 4 options butons y 2 commands butons , a los "Captions" de los options box hay que ponerles Sumar , Restar , Multiplicar , Dividir y a los commands butons Aceptar y nueva operación , deberia ser así:

Seleccionamos los componentes

Los colocamos y les ponemos los nombres

En los textos aparece text1 , text2 y text3 eso se quita haciendo click una vez en el textbox y en la parte de la derecha buscamos el apartado "Texto" y suprimimos lo que halla puesto. Ahora vamos a lo que es el codigo que es el siguiente :

Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)
ElseIf Option2 = True Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Option3 = True Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Option4 = True Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Explicación

If sirve para hacer una condición y end if para terminarla. Por ejemplo : If option1 = true then significa que si el option button 1 es activado se ejecuta la orden que escribamos debajo de la condición , por eso cuando dice :

Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)

significa que cuando pulsemos el command1 si el option button 1 esta activado el valor que hallamos escrito en el texto1 se divide por el valor que hallamos escrito en el texto2 y el resultado aparece en el texto 3 por eso : Text3 = Val(Text1) / Val(Text2).
lo mismo ocurre con las demas condiciones

luego en el command2 cuando pone :

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

significa que cuando se pulse ese boton los tres textos se borran : Text1 = "" eso significa que text1 = nada.
Para guardar nuestra aplicación como un ejecutable (.exe) vamos a archivo y generar Proyecto1.exe (Depende del nombre que le deis al formulario) y despues a aceptar.