![Visual Basic Java
Private Sub Igual_Click()
Select Case signo 'la variable signo te dice si
sumas(0) si restas(1)......
Case 0
Text1.Text = suma(anterior,
Val(Text1.Text)) 'llamada a la función suma
Case 1
Text1.Text = resta(anterior,
Val(Text1.Text))
Case 2
Text1.Text = multiplicar(anterior,
Val(Text1.Text))
Case 3
Text1.Text = Dividir(anterior,
Val(Text1.Text))
End Select
End Sub
Private Sub Nueva_Click()
Text1.Text = ""
End Sub
Private Sub Operador_Click(Index As
Integer)
signo = Index 'si index es 0 sumas, si es 1
restas......
anterior = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Numero_Click(Index As Integer)
Text1.Text = Text1.Text +
Numero(Index).Caption
End Sub
Private Function suma(Numero As Integer,
Operador As Integer) As Integer
suma = Numero + Operador
End Function
Private Function resta(Numero As Integer,
Operador As Integer) As Integer
resta = Numero - Operador
End Function
Private Function multiplicar(Numero As
Integer, Operador As Integer) As Integer
package calculadora;
import javax.swing.JOptionPane;
/**
* @author belial9826
* www.jagonzalez.org
*/
public class principal { //iniciacion de
la clase
public static void main (String[] ar
gs){ //metodo principal
int op=0, n1=0, n2=0; //op varia
bles para el menu, n1 y n2 variables de
los numeros
String ax; //variable que recibe
los numeros
operaciones trin = new operacion
es(); //objeto llamado trin de la clase
operaciones para usar los metodos
do{//comienzo del ciclo
op = JOptionPane.showConfirm
Dialog(null,"Desea ingresar dos numeros
y mostrar el resultado "
+ "nde las 4 operaci
ones basicas?");//cuadro de dialogo de t
ipo entrada
if(op == JOptionPane.YES_OPT
ION){//si se selecciona SI hara lo que h
ay en el bloque
ax = JOptionPane.showInp
utDialog(null, "Digite el primer numero:
");
if(trin.isNum(ax)){//pri
mera validacion
n1 = Integer.parseIn
t(ax);//n1 toma el valor convertido del
anterior cuadro de dialogo
ax = JOptionPane.sho
wInputDialog(null, "Digite el segundo nu
mero: ");
if(trin.isNum(ax)){/
/segunda validacion
n2 = Integer.par
seInt(ax);//n2 toma le valor convertido
del anterior cuadro de dialogo
JOptionPane.show
MessageDialog(null, "El resultado de la
suma es: "+trin.suma(n1, n2)//se usa el
metodo de suma de la clase operacioes
+"nEl resultado de la resta es: "+trin.r](https://image.slidesharecdn.com/visualbasic-170818183840/85/Visual-basic-1-320.jpg)
Visual basic
- 1. Visual Basic Java Private Sub Igual_Click() Select Case signo 'la variable signo te dice si sumas(0) si restas(1)...... Case 0 Text1.Text = suma(anterior, Val(Text1.Text)) 'llamada a la función suma Case 1 Text1.Text = resta(anterior, Val(Text1.Text)) Case 2 Text1.Text = multiplicar(anterior, Val(Text1.Text)) Case 3 Text1.Text = Dividir(anterior, Val(Text1.Text)) End Select End Sub Private Sub Nueva_Click() Text1.Text = "" End Sub Private Sub Operador_Click(Index As Integer) signo = Index 'si index es 0 sumas, si es 1 restas...... anterior = Val(Text1.Text) Text1.Text = "" End Sub Private Sub Numero_Click(Index As Integer) Text1.Text = Text1.Text + Numero(Index).Caption End Sub Private Function suma(Numero As Integer, Operador As Integer) As Integer suma = Numero + Operador End Function Private Function resta(Numero As Integer, Operador As Integer) As Integer resta = Numero - Operador End Function Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer package calculadora; import javax.swing.JOptionPane; /** * @author belial9826 * www.jagonzalez.org */ public class principal { //iniciacion de la clase public static void main (String[] ar gs){ //metodo principal int op=0, n1=0, n2=0; //op varia bles para el menu, n1 y n2 variables de los numeros String ax; //variable que recibe los numeros operaciones trin = new operacion es(); //objeto llamado trin de la clase operaciones para usar los metodos do{//comienzo del ciclo op = JOptionPane.showConfirm Dialog(null,"Desea ingresar dos numeros y mostrar el resultado " + "nde las 4 operaci ones basicas?");//cuadro de dialogo de t ipo entrada if(op == JOptionPane.YES_OPT ION){//si se selecciona SI hara lo que h ay en el bloque ax = JOptionPane.showInp utDialog(null, "Digite el primer numero: "); if(trin.isNum(ax)){//pri mera validacion n1 = Integer.parseIn t(ax);//n1 toma el valor convertido del anterior cuadro de dialogo ax = JOptionPane.sho wInputDialog(null, "Digite el segundo nu mero: "); if(trin.isNum(ax)){/ /segunda validacion n2 = Integer.par seInt(ax);//n2 toma le valor convertido del anterior cuadro de dialogo JOptionPane.show MessageDialog(null, "El resultado de la suma es: "+trin.suma(n1, n2)//se usa el metodo de suma de la clase operacioes +"nEl resultado de la resta es: "+trin.r
- 2. multiplicar = Numero * Operador End Function Private Function Dividir(Numero As Integer, Operador As Integer) As Integer Dividir = Numero / Operador End Function Private Sub Salir_Click() Unload Me End Sub esta(n1, n2)//se usa el metodo de resta de la clase operaciones +"nEl resultado de la multiplicacion es: "+trin.multiplicacion(n1, n2)//se usa el metodo de multiplicacion de la clase ope raciones +"nEl resultado de la division es: "+tri n.division(n1, n2));//se usa el metodo d e division de la clase operaciones }//final segunda val idacion else{ JOptionPane.show MessageDialog(null, "Ingrese un numero", "Advertencia !!!", JOptionPane.WARNING_M ESSAGE); } } //final primera valid acion else{//se muestra un men saje y no se realiza las operaciones ya que el primer valor no es un numero JOptionPane.showMess ageDialog(null, "Ingrese un numero","Adv ertencia !!!", JOptionPane.WARNING_MESSA GE); } }//finaliza bloque