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)