Escribir un programa de calculadora estándar en Visual Basic es un buen ejercicio para principiantes programadores de Visual Basic . Una calculadora básica contiene los dígitos " 0 ", " 9 ", un botón de muestra, un botón de punto decimal, un botón de borrado , es igual a un botón y botones para realizar la suma, resta , multiplicación y división a través . Los controles CommandButton se colocan en un formulario y un mínimo de código está escrito para cada evento de clic de botón para el programa. Los resultados se muestran en un control TextBox en la parte superior del formulario. Instrucciones
1
Abre tu calculadora proyecto de Visual Basic . El proyecto debe contener controles CommandButton para los dígitos de " 0 " a "9, " un botón de muestra de la serie , un botón decimal, un botón de borrado , es igual a un botón y botones para realizar la operación matemática especificada.
2
Declarar una variable de tipo " doble" para celebrar el primer valor introducido y el segundo valor introducido , si no se ha declarado. Hacer la variable " privada" a la forma . También asegúrese de que hay variables booleanas declarados saber qué se está realizando el tipo de operación . Un valor booleano es verdadero o falso .
Dim DPrim privado como Double
Dim dSecond privado como Double
bAdd Dim como Boolean
bSubtract Dim como Boolean
3
tienda el dígito clic en en la variable " DPrim " en el evento click del operador matemático . También captura la que se selecciona el botón de operación y establece el valor booleano en consecuencia. Por ejemplo, si se hace clic en el botón " Además ", ajuste BaDD a "true ". Si se han definido los botones de funcionamiento en una matriz, el código se vería así :
Select caso índice
Case 0
Bdivision = True
Caso 1
bMultiply = True
caso 2
bSubtract = True
caso 3
bAdd = True End
Seleccione
4
tienda el segundo valor introducido en " bSecond " y luego escribir un " Si Statement " para llevar a cabo la operación en los dos dígitos y mostrar el resultado en el " Iguales " botón de código de evento click. La " instrucción If " se escribe como " Si bAdd Entonces txtResult.text = DPrim + dSecond
End If ", donde " txtResult " es el control de cuadro de texto en la parte superior del formulario.
