Thema: Visual Basic Taschenrechner

Hi wir müssen in Informatik als Hausaufgabe eine Taschenrechner erstellen und programmiern. Ich hab jetzt schonmal angefangen aber komm jetzt nicht weiter. Das Problem ist das er mir im Textfeld das ausgibt was er rechen soll und das dann nicht ausrechnet. Vieliecht kennt sich ja da jemand aus:

Dim Rechenzeichen As String
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double


Private Sub Zero_Click()
Rechenzeichen = Rechenzeichen + "0"
TextBox1 = Rechenzeichen
End Sub

Private Sub Eins_Click()
Rechenzeichen = Rechenzeichen + "1"
TextBox1 = Rechenzeichen
End Sub

Private Sub Zwei_Click()
Rechenzeichen = Rechenzeichen + "2"
TextBox1 = Rechenzeichen
End Sub

Private Sub Drei_Click()
Rechenzeichen = Rechenzeichen + "3"
TextBox1 = Rechenzeichen
End Sub

Private Sub Vier_Click()
Rechenzeichen = Rechenzeichen + "4"
TextBox1 = Rechenzeichen
End Sub

Private Sub Fünf_Click()
Rechenzeichen = Rechenzeichen + "5"
TextBox1 = Rechenzeichen
End Sub

Private Sub Sechs_Click()
Rechenzeichen = Rechenzeichen + "6"
TextBox1 = Rechenzeichen
End Sub

Private Sub Sieben_Click()
Rechenzeichen = Rechenzeichen + "7"
TextBox1 = Rechenzeichen
End Sub

Private Sub Acht_Click()
Rechenzeichen = Rechenzeichen + "8"
TextBox1 = Rechenzeichen
End Sub

Private Sub Neun_Click()
Rechenzeichen = Rechenzeichen + "9"
TextBox1 = Rechenzeichen
End Sub

Private Sub Komma_Click()
If InStr(TextBox1, ",") = 0 Then
Rechenzeichen = Rechenzeichen + ","
TextBox1 = Rechenzeichen
End If
If InStr(TextBox1, ",") > 1 Then
MsgBox (" Komma ist schon vorhanden!")
Else: Rechenzeichen = Rechenzeichen + ""
End If
End Sub

Private Sub Plus_Click()
Rechenzeichen = Rechenzeichen + "+"
Zahl1 = CDbl(TextBox1)
TextBox1 = ""
End Sub

Private Sub Minus_Click()
Rechenzeichen = Rechenzeichen + "-"
Zahl1 = CDbl(TextBox1)
TextBox1 = ""
End Sub

Private Sub Mal_Click()
Rechenzeichen = Rechenzeichen + "*"
Zahl1 = CDbl(TextBox1)
TextBox1 = ""
End Sub

Private Sub Teilen_Click()
Rechenzeichen = Rechenzeichen + "/"
Zahl1 = CDbl(TextBox1)
TextBox1 = ""
End Sub

Private Sub Gleich_Click()
Zahl2 = CDbl(TextBox1)
Label3.Caption = CStr(Zahl1) + "" + "Rechenzeichen" + "" + CStr(Zahl2) + "="

If Rechenzeichen = "+" Then
Ergebnis = Zahl1 + Zahl2
End If

If Rechenzeichen = "-" Then
Ergebnis = Zahl1 + Zahl2
End If

If Rechenzeichen = "*" Then
Ergebnis = Zahl1 + Zahl2
End If

If Rechenzeichen = "/" Then
Ergebnis = Zahl1 + Zahl2
End If

TextBox1 = ""
TextBox1 = Ergebnis

End Sub

Private Sub CLS_Click()
TextBox1 = ""
Rechenzeichen = ""
End Sub

Private Sub Ende_Click()
End
End Sub

Was für ein Spaghetticode!

Du weist der Textbox überhaupt nicht richtig das Ergebnis zu.

sie dir mal diesen durchaus begreifbaren Code an...

OK wie öffne ich die Datei bei mir kommt da nur so komische Zeichen raus in Word

Marcel2803

OK wie öffne ich die Datei bei mir kommt da nur so komische Zeichen raus in Word

Du musst sie ENTPACKEN! klick mit der rechten Maustaste darauf und wähle ZIP oder entpacken aus, was auch immer angeboten wird....

Ich frag mich wie jemand einen Informatikkurs mit VisualBasic besuchen kann, und dabei nicht mal eine .zip Datei öffnen kann

Limatex

Ich frag mich wie jemand einen Informatikkurs mit VisualBasic besuchen kann, und dabei nicht mal eine .zip Datei öffnen kann

Vielleicht will der Dozent die Schüler neugierig machen und sie schreiben zuerst einmal einen Entpacker und DANN den Taschenrechner

... ist aber nur ne Vermutung