Taschenrechner

tony2018

Grünschnabel
Hallo Leute !!

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


Danke !!
 
Als erstes überlege dir, mit was du programmieen willst.
VB6? VBA in Access? VBA in Excel?
 
Aber Ich möchte zwei felder haben wo ich zahl1 und zahl2 eingebe und nicht alles über ein feld. Das schaffe ich nicht alles was ich versuche klappt nicht.

Bitte um Hilfe Danke !!!!!
 

Anhänge

  • Taschenrechner EDVB 5B.zip
    18 KB · Aufrufe: 4
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.
 
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:
Dann musst du 2 Textfelder machen und beim cmdGleich_Click() die Textfelder abrufen.
Ich sehe das Problem nicht.
 
Zurück