Private
Sub
cmdGleich_click()
formel = txtErgebnis
If
Rechenart =
"addieren"
Then
txtErgebnis =
CDbl
(Zahl1) +
CDbl
(txtErgebnis)
formel = Zahl1 &
" + "
& formel
ElseIf
Rechenart =
"subtrahieren"
Then
txtErgebnis =
CDbl
(Zahl1) -
CDbl
(txtErgebnis)
formel = Zahl1 &
" - "
& formel
ElseIf
Rechenart =
"multiplizieren"
Then
txtErgebnis =
CDbl
(Zahl1) *
CDbl
(txtErgebnis)
formel = Zahl1 &
" * "
& formel
ElseIf
Rechenart =
"dividieren"
Then
txtErgebnis =
CDbl
(Zahl1) /
CDbl
(txtErgebnis)
formel = Zahl1 &
" / "
& formel
ElseIf
Rechenart =
"potenzieren"
Then
txtErgebnis =
CDbl
(Zahl1) ^
CDbl
(txtErgebnis)
formel = Zahl1 &
" ^ "
& formel
End
If
ListBox1.AddItem formel &
" = "
& txtErgebnis
End
Sub