Calculadora Programa
Crear un formulario nuevo con los siguientes objetos (por defecto, al crear un nuevo proyecto, ya viene el Form1):
Label (3)
Button (5)
TextBox (3)
Nota: Cambia lapropiedad "(Name)" de los TextBox a "Numero1", "Numero2" y "Resultado" respectivamente.
Distribuido de esta forma:
*Distribución de los objetos.
Código:
Para escribir código de unbotón u otro objecto, doble clic sobre el botón (o algún otro objeto).
Aparecerá algo así:
Private Sub [...] 'Esto lo pone el mismo programa.
'Aquí escribes el código de lo que va a hacerese botón o objeto.
End Sub 'Esto también lo pone el programa.
*Los comentarios en código se ponen con una '
En el botón "Salir":
Private Sub [...]
End 'El comando End, cierra todoslos formularios y el programa.
End Sub
Sobre el Botón "+":
Private Sub [...]
Resultado.Text = (CDbl(Numero1.Text) + CDbl(Numero2.Text)) 'Resultado = Numero1 + Numero2
End Sub
Sobreel botón "-":
Private Sub [...]
Resultado.Text = (CDbl(Numero1.Text) - CDbl(Numero2.Text)) 'Resultado = Numero1 - Numero2
End Sub
Sobre el botón "x":
Private Sub [...]
Resultado.Text= (CDbl(Numero1.Text) * CDbl(Numero2.Text)) 'Resultado = Numero1 x Numero2
'El * indica multiplicar, aunque en el botón se haya puesto una x
End Sub
Sobre el botón":":
Private Sub[...]
Resultado.Text = (CDbl(Numero1.Text) / CDbl(Numero2.Text)) 'Resultado = Numero1 : Numero2
'Aunque en el botón pongamos :, para dividir se usa una /
End Sub
Opcional: Se puede ponerun sexto botón que ponga AC o Nuevo calculo con el siguiente código:
Private Sub[...]
Numero1.Text = "" 'El TextBox del número1 se queda en blanco.
Numero2.Text = "" 'El TextBox delnúmero2 se queda en blanco.
Resultado.Text = "0" 'El TextBox del resultado se queda a "0".
End Sub
Para saber cómo generar un .exe con ese código, al final del tutorial se explica.
Regístrate para leer el documento completo.