Como hacer una calculadora en java

como puedes hacer una calculadora sin ayuda de nadie en java o visual basic.

1. Como Hacer una Calculadora en
Java
Como Hacer una Calculadora en visual Basic
public class Operacion {

double n1;
double n2;
double res;
char operacion;


public Operacion(double n1, double n2, char
operacion) {

this.n1 = n1;
this.n2 = n2;
this.operacion = operacion;
}


public void mostrarResultado(){

System.out.println(this.n1+" "+this.operacion+"
"+this.n2+" = "+this.res);

}
}
Private Sub Command1_Click()
Text3.Text = Text1.Text * Text2.Text
End Sub
public class Suma extends Operacion{

double suma;

public Suma(double n1, double n2) {

super(n1, n2, '+');
this.suma = n1 + n2;
this.setRes(this.suma);
}
}
Private Sub Sumar_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

2. public class Resta extends Operacion{

double resta;

public Resta(double n1, double n2) {

super(n1, n2, '-');
this.resta = n1 - n2;
this.setRes(this.resta);
}
}
Private Sub RESTAR_Click()
Text3.Text = Text1.Text - Text2.Text
End Sub
public class Multiplicacion extends Operacion{

double multi;

public Multiplicacion(double n1, double n2) {

super(n1, n2, '*');
this.multi = n1 * n2;
this.setRes(this.multi);
}
}
Private Sub Command1_Click()
Text3.Text = Text1.Text * Text2.Text
End Sub
public class Division extends Operacion{

double div = 0;

public Division(double n1, double n2) {

super(n1, n2, '/');
if(n2==0) System.out.println("No se puede dividir
entre cero");
else this.div = n1 / n2;
this.setRes(this.div);
}
}
Private Sub Dividir_Click()
Text3.Text = Text1.Text / Text2.Text
End Sub
double n1 = 10;
double n2 = 5;

//suma
Suma sum = new Suma(n1,n2);
sum.mostrarResultado();

//resta
Resta res = new Resta(n1,n2);
res.mostrarResultado();

//multiplicacion
Multiplicacion mul = new Multiplicacion(n1,n2);

3. Como Hacer una Calculadora en Java y visual
Basic
mul.mostrarResultado();

//division
Division div = new Division(n1,n2);
div.mostrarResultado();
Private Sub Limpiar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Cerrar_Click()
Unload Me
End Sub