Cómo escribir código numérico del 0 al 9 en la calculadora vb

Método:

Puedes escribir código usando una serie de controles.

Una matriz de controles es un grupo de controles con el mismo tipo y nombre que disfrutan del mismo evento y pasan su propiedad de índice al evento.

Específicamente:

Paso 1: cree un control CommandButton y cambie su nombre a cmdDigit.

Paso 2: Copie y pegue el control 10 veces y luego seleccione "Sí" en la ventana emergente "Crear matriz de control".

Paso 3: cambie el título de cmdDigit(0) a "0", y así sucesivamente, y cambie el título número 11 a ".". .y mueva cada control a la ubicación adecuada.

Paso 4: Crea un control TextBox y renómbralo como txtDisplayer. Borre la propiedad Texto y cambie la propiedad Bloqueado a Verdadero.

Paso 5: Cree un control CommandButton y cámbiele el nombre a cmdOperater.

Paso 6: Copie y pegue el control 3 veces y seleccione Sí en la ventana emergente "Crear matriz de control".

Paso 7: cambie el título de cmdOperater(0) a " ", luego a "-", "x" y "÷". Luego mueva cada control a la posición correspondiente.

Paso 8: cree un control CommandButton, cambie su nombre a cmdCalculate y cambie la propiedad Caption a "=".

Paso 9: Ingresa el siguiente código: Option?Explicit

Private?Text=txtDisplayer?amp;?cmdDigit(Index).Caption

'No aquí Utilice CStr(Index) porque se ingresa un punto decimal cuando Index=10.

¿Fin?Sub

¿Privado?Sub?cmdOperater_Click(Index?as?Integer)

a=?CDbl(txtDisplayer.Text)

op=Index

Fin ?Sub

Privado?Sub?cmdCalculater_Click()

b=?CDbl(txtDisplayer.Text)

Seleccionar?Caso?Op

caso?

c=a b

Caso?1

c=a-b

caso?2

c=a*b

caso?3

c=a/b

¿Fin?Seleccionar ?

txtDispalyer.Text=?

End?Sub

Esto completa una calculadora vb.

Referencias: Ninguna (actualmente en redacción)