Red de conocimiento informático - Espacio del host - ¡Mi tarea! ¡Quiero hacer una calculadora usando VB! ! Gracias

¡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, " ")

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

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