¡Mi tarea! ¡Quiero hacer una calculadora usando VB! ! Gracias
Copyright (c) 1994 Microsoft Corporation.
Eres libre de usar, modificar, copiar y distribuir cualquier cosa que consideres útil de cualquier forma.
Archivos de aplicación de muestra (o cualquier versión modificada). Microsoft no ofrece ninguna garantía y no asume ninguna responsabilidad por ningún archivo de aplicación de muestra.
-
Opción explícita
Dim Op1, Op2 'Preingresar operandos.
¿Existe el punto decimal?
Dim NumOps As Integer 'Número de operación.
"Dim LastInput" indica el tipo del último evento clave.
"Dim OpFlag" indica una operación sin terminar.
Lectura de temperatura tenue
Procedimiento de evento al hacer clic en el botón 'c (cancelar)
Restablece la pantalla e inicializa las variables.
Sub privado Cancel_Click()
Lectura = Formato(0, "0.")
Op1 = 0
Op2 = 0
Form_Loading
Conector final
El procedimiento del evento de hacer clic en el botón "ce".
Sub privado CancelEntry_Click()
Lectura = Formato(0, "0.")
DecimalFlag = False
LastInput = " CE "
Conector final
Haga clic en el botón del punto decimal (.) del proceso del evento
Si la última pulsación de tecla fue realizada por el operador, la lectura se inicializa a "0";
De lo contrario, se agrega un punto decimal a la pantalla.
Private Sub Decimal_Click()
Si LastInput = "NEG " Entonces
Lectura = Formato(0, "-0.")
ElseIf LastInput lt gt entonces llame a "NUMS"
lectura = formato(0, "0.")
finalizará si...
DecimalFlag = True
LastInput = "NUMS "
Conector final
El proceso de inicialización del formulario
establece todas las variables a sus valores iniciales.
Private Subform_Load()
DecimalFlag = False
NumOps = 0
LastInput = "NONE "
OpFlag = " "
Lectura = Formato(0, "0.")
Decimal. Título = Formato(0, " ")
Finalizar conector
Proceso de evento de hacer clic en la tecla numérica (0-9)
Agregar uno después del número mostrado Nuevos números.
Subnúmero privado_Click (indexado como número entero)
Si LastInput lt gt entonces se llama "NUMS"
Lectura = formato (0, " ") p>
DecimalFlag = False
Finalizar si...
Si DecimalFlag entonces
Lectura = ReadingNumber(Index).
Título
Otro
Lectura = Left(Readout, InStr(Readout, Format(0, " ")) - 1) número (índice). Formato del título (0, " ")
Terminará si...
Si LastInput = "NEG", entonces Readout = "-" & readout
LastInput = "NUMS "
Conector final
Operador ( , -, x, /, =)
Si la siguiente clave es una clave numérica, entonces Agregar Operaciones numéricas.
Si hay un operando, configure Op1.
Si hay dos operandos, establezca Op1 en Op1 y .
El resultado de la operación de la cadena de entrada actual y muestra el resultado.
Suboperador privado_Click (indexado como número entero)
Lectura de temperatura = lectura
Si LastInput = "NUMS " entonces
NumOps = NumOps 1
Terminará si...
Seleccione el número de caso
Caso 0
Si operador (índice). Caption = "-" y LastInput lt gt entonces "negativo"
Lectura = "-" & read
LastInput = "negativo"
Si... finalizará
Caso 1
Op1 = Lectura
Operador If (índice). Caption = "-" y LastInput lt gt "NUMS" y OpFlag lt gt "=" luego
Lectura = "-"
Última entrada = "Negativo"
Terminará si...
Caso 2
Op2 = Lectura de temperatura
Seleccione caso OpFlag
Caso " "
op 1 = CDbl(op 1) CDbl(Op2)
Caso "-"
op 1 = CDbl(op 1)-CDbl(Op2)
Caso "X"
op 1 = CDbl(op 1)* CDbl(Op2)
Caso "/"
Si Op2 = 0 , entonces
MsgBox "El divisor no puede ser cero", 48, "Calculadora"
Otros
op 1 = CDbl(op 1)/CDbl (Op2 )
Terminará si...
Caso" = "
Op1 = CDbl(Op2)
Caso" "
op 1 = CDbl(op 1)* CDbl(Op2)
Finalizar selección
Lecturas = Op1
NumOps = 1 p>
Finalizar selección
Si LastInput lt gt entonces "Negar"
LastInput = "Operación"
OpFlag = operador (índice). Título
Terminará si...
Finalizar conector
Haga clic en el proceso de evento de "Porcentaje de palabra clave ()"
Calcular y Muestra el porcentaje del primer operando.
Privado SubPercent_Click()
Lectura = Lectura/100
LastInput = "Operación"
OpFlag = " "
NumOps = NumOps 1
DecimalFlag = True
Conector final