Ergebnis 1 bis 6 von 6
  1. #1
    Marcel2803 Marcel2803 ist offline

    Frage 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

  2. Anzeige

    Frage Visual Basic Taschenrechner

    Schau dir mal diesen Bereich an. Dort ist für jeden was dabei!
  3. #2
    FreeSpeech FreeSpeech ist offline

    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...
    Angehängte Dateien Angehängte Dateien

  4. #3
    Marcel2803 Marcel2803 ist offline

    AW: Visual Basic Taschenrechner

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

  5. #4
    FreeSpeech FreeSpeech ist offline

    AW: Visual Basic Taschenrechner

    Zitat Marcel2803 Beitrag anzeigen
    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....

  6. #5
    Dagobert Duck Dagobert Duck ist offline
    Avatar von Dagobert Duck

    AW: Visual Basic Taschenrechner

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

  7. #6
    FreeSpeech FreeSpeech ist offline

    AW: Visual Basic Taschenrechner

    Zitat Limatex Beitrag anzeigen
    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

Ähnliche Themen


  1. 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...

  2. 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...

  3. 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...

  4. 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...

  5. 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...

Besucher kamen mit folgenden Begriffen auf die Seite

visual basic ergebnisausgabe taschenrechner

visual basic rechenzeichen