Traducción de código Vb
Defina variables a nivel de módulo, dos, tipo de carácter.
Subcomando privado 1_Click (el índice es un número entero)
Evento de clic de botón, el botón es un tipo de matriz.
Seleccione índice de casos
Ramas según el índice del botón en el que hizo clic.
El caso es lt10
Dentro de 10.
Etiqueta1. Título = Val(Etiqueta1. Título y Título. Comando 1 (Índice). Título)
Visualización de etiqueta: el número de combinaciones de contenido de etiqueta y contenido de botón.
Caso 10 al 13
En 10 al 13
s1 = Etiqueta1. Descripción: s2 = Comando1(Índice). Descripción: Etiqueta1. Title = " "
S1 asigna el contenido de visualización de la etiqueta, S2 asigna el contenido de visualización del botón y se borra la visualización de la etiqueta.
Caso 14
Si es 14 (botón 14)
s1 = "": s2 = "": Etiqueta1. Title = " "
Se borra S1, se borra S2 y se borra el contenido de visualización de la etiqueta.
Caso 15
Si es 15:
Si s2 = " "entonces Etiqueta1. caption = Val(s 1) Val(etiqueta 1. título)
Si S2 es un número, entonces la etiqueta muestra la suma del contenido de s1 y la etiqueta original.
Si s2 = "-" entonces Etiqueta1. caption = Val(s 1)-Val(label 1. caption)
Si S2 es un signo negativo, entonces la etiqueta muestra: la diferencia entre s1 y la etiqueta original.
Si s2 = "×" entonces Etiqueta1. caption = Val(s 1)* Val(etiqueta 1. título)
Si S2 es un símbolo de multiplicación, entonces la etiqueta muestra: el producto de s1 y el contenido de la etiqueta original.
Si s2 = "Entonces
Si S2 es el divisor:
Si Val(Label1.Caption)>Entonces 0
Si Etiqueta El contenido de es mayor que cero
Label1. caption = Val(s 1)/Val(label 1. title)
La etiqueta muestra el cociente entre s1 y el contenido de la etiqueta.
Otro
En caso contrario:
Etiqueta1. Caption = "La línea divisoria no puede ser 0"
La etiqueta dice "La línea divisoria". la línea no puede ser 0"
Terminará si...
Terminará si...
Terminará si...
Terminará si...
Finalizar selección
Finalizar estructura de rama
Finalizar conector
Fin de proceso
Private Sub Form_KeyDown(KeyCode es un número entero, Shift es un número entero)
Evento de pulsación de teclado, cuando presionas esta tecla, se activará este proceso
Seleccionar el código de clave del caso
Según la tecla que presionó Seleccione el valor de la clave
Caso 48 al 57
Entre 48 y 57, el. El valor clave de 0 es 48 y el valor clave de 9 es 57.
Si Shift = 0, entonces ordene 1_Click (KeyCode - 48)
Si Shift = 0 (es decir, si la tecla Shift se presiona), se activará el evento de clic del botón con el valor clave -48.
Caso 187
Si 187
Si Shift = 1, entonces ordena 1_Click (10)
Si Shift = 1, entonces Subir el evento de clic de botón número 10.
Si Shift = 0, entonces comando 1_Click (15)
Si shift = 0, entonces se activa el evento de clic del botón 15.
Caso 189
Si es 189
Comando 1_Click (11)
Botón disparador 11.
Caso 56
Como arriba
Si Shift = 1, entonces comando 1_Click (12)
Como arriba
Caso 191
Si Shift = 0, entonces Comando 1_Click (13)
Caso 67
Comando 1_Click (14)
Caso 96 Ir a 105
Comando 1_Click (código clave - 96)
Caso 107
Comando 1_Click (10)
Caso 109
Comando 1_Click (11)
Caso 106
Comando 1_Click (12)
Caso 111
Si Shift = 0, luego comando 1_Click (13)
Finalizar selección
Finalizar selección
Finalizar conector
Finalizar el proceso.
Este es un programa de calculadora para suma, resta, multiplicación y división.