Ergebnis 1 bis 6 von 6
Thema: Visual Basic Taschenrechner
-
14.09.2010, 15:25 #1Marcel2803
Visual Basic Taschenrechner
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
-
-
14.09.2010, 15:39 #2FreeSpeech
AW: Visual Basic Taschenrechner
Was für ein Spaghetticode!
Du weist der Textbox überhaupt nicht richtig das Ergebnis zu.
sie dir mal diesen durchaus begreifbaren Code an...
-
14.09.2010, 15:58 #3Marcel2803
AW: Visual Basic Taschenrechner
-
14.09.2010, 16:00 #4FreeSpeech
-
20.09.2010, 15:20 #5Dagobert Duck
AW: Visual Basic Taschenrechner
-
20.09.2010, 16:11 #6FreeSpeech
Ähnliche Themen
-
Visual Basic Registrierungsschlüssel: Hallo, ich brauche einen Registrierungsschlüssel. Der is ja gratis oder? aber ich hab keinen gefunden komischer weise...Registriert habe ich mich... -
Visual Basic 6.0: Hallo, ich benötige das Programm Visual Basic 6.0 für die Schule. Leider finde ich nicht die passende Seite zu einem Download. Ich würde mich... -
Visual Basic: Hab grad ein Tic Tac Toe spiel gmacht, es funkt. alles aber wenn ich eine Runde beende dann bleibt der Button den ich als letztes gedückt habe immer... -
Visual Basic: Hi ich hab mir jetzd microsoft visual basic 2008 Express runtergeladen und wollte es regiestrieren ich gehe auf Hilfe und dan auf produkt... -
Visual Basic: Hi ich hab mir jetzt Visual Basic 2008 downgeloaded und als das Setup zu ende war stand das ich das Product innerhalb 30.Tagen registrieren sollte...
Schade das es keine deutsche übersetzung gibt, aber wie hoch ist die chance das es nachgereicht wird? Bis jetzt gefällt mir das spiel mega gut,...
FANTASIAN Neo Dimension