Anzeige

Taschenrechner


#1
Hallo Leute !!

Brauchen bitte hilfe ich weiß nicht wie ich anfagen sollte einen Taschenrechner der + - * /
Zahl 1 und Zahl1 berechnen und verarbeiten kann.


Danke !!
 

Yaslaw

n/a
Moderator
#6
Sorry, ich öffne keine fremden Makro-Dateien auf meinem Arbeits-PC.

Bitte stelle deine Fragen detaillierter.
Was funktioniert nicht? Hast due Code? Kommen da Fehlermeldungen? Oder Fehlverhalten?
Wenn ja, was für Meldungen. Auf welcher Code-Zeile.
 
#7
Sorry, ich öffne keine fremden Makro-Dateien auf meinem Arbeits-PC.

Bitte stelle deine Fragen detaillierter.
Was funktioniert nicht? Hast due Code? Kommen da Fehlermeldungen? Oder Fehlverhalten?
Wenn ja, was für Meldungen. Auf welcher Code-Zeile.
Visual Basic:
Dim zahl1 As Currency
Dim zahl2 As Currency
Dim Oper As String

Private Sub cmd1_Click()
Anzeige.Text = "1"
If zahl1 > 0 Then
zahl2 = 1
Else
zahl1 = 1
End If
End Sub

Private Sub cmd2_Click()
Anzeige.Text = "2"
If zahl1 > 0 Then
zahl2 = 2
Else
zahl1 = 2
End If
End Sub

Private Sub cmd3_Click()
Anzeige.Text = "3"
If zahl1 > 0 Then
zahl2 = 3
Else
zahl1 = 3
End If
End Sub

Private Sub cmd4_Click()
Anzeige.Text = "4"
If zahl1 > 0 Then
zahl2 = 4
Else
zahl1 = 4
End If

End Sub

Private Sub cmd5_Click()
Anzeige.Text = "5"
If zahl1 > 0 Then
zahl2 = 5
Else
zahl1 = 5
End If
End Sub


Private Sub cmd6_Click()
Anzeige.Text = "6"
If zahl1 > 0 Then
zahl2 = 6
Else
zahl1 = 6
End If
End Sub


Private Sub cmd7_Click()
Anzeige.Text = "7"
If zahl1 > 0 Then
zahl2 = 7
Else
zahl1 = 7
End If
End Sub

Private Sub cmd8_Click()
Anzeige.Text = "8"
If zahl1 > 0 Then
zahl2 = 8
Else
zahl1 = 8
End If
End Sub

Private Sub cmd9_Click()
Anzeige.Text = "9"
If zahl1 > 0 Then
zahl2 = 9
Else
zahl1 = 9
End If
End Sub




Private Sub cmdGeteilt_Click()
Oper = "/"
End Sub

Private Sub cmdGleich_Click()
If Oper = "+" Then
Anzeige.Text = Str(zahl1 + zahl2)
ElseIf Oper = "-" Then
Anzeige.Text = Str(zahl1 - zahl2)
ElseIf Oper = "*" Then
Anzeige.Text = Str(zahl1 * zahl2)
ElseIf Oper = "/" Then
If zahl2 = 0 Then
Anzeige.Text = "Error"
Else
Anzeige.Text = Str(zahl1 / zahl2)
zahl1 = Anzeige.Text
End If

End If

If Anzeige.Text = "Error" Then
Else
zahl1 = Anzeige.Text
End If
zahl2 = 0
Oper = ""

End Sub

Private Sub cmdMal_Click()
Oper = "*"
End Sub

Private Sub cmdMinus_Click()
Oper = "-"
End Sub

Private Sub cmd0_Click()
Anzeige.Text = "0"
If zahl1 > 0 Then
zahl2 = 0
Else
zahl1 = 0
End If
End Sub

Private Sub cmdPlus_Click()
Oper = "+"
End Sub

Private Sub cmdLöschen_Click()

zahl1 = 0
zahl2 = 0
Oper = ""
Anzeige.Text = zahl1
End Sub
_______________________________________


Ich will aber das es mit 2 feldern ist also wo ich Zahl 1 eingeben kann und Zahl2 .
 
Zuletzt bearbeitet von einem Moderator:
Anzeige

Neue Beiträge

Anzeige