La Red de Conocimientos Pedagógicos - Currículum vitae - Traducción de código Vb

Traducción de código Vb

Dim s1 es una cadena, s2 es una cadena

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.