Mathe-Spiel Fehler

  • VB6

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Crayne.

    Mathe-Spiel Fehler

    Hallo,

    ich habe einen kleinen Bruder, der gerne ein Mathe-Spiel hätte. Da ich mich in letzter Zeit mit VB6 beschäftigt habe, dachte ich, dass ich ihm einfach mal eins programmiere. Meine Idee war wie folgt:

    So sieht es aus:

    Unter nächster Level ist der Starten Button.

    Dann habe ich 5 Textfelder.

    Text1 (Zahl), Text2(Zeichen), Text3(Zahl) sollen die Aufgabe darstellen.

    Das Feld daneben habe ich Ergebnis genannt, da soll halt das Ergebnis rein :)

    Dann habe ich noch den Prüfenbutton, der soll prüfen ob die Aufgabe richtig ist.

    Jetzt kommt mein Problem: Ich habe Text4 (aktuelle Level) mit dem nächster level button verknüpft. Dazu habe ich die If-Funktion verwenden, allerdings funktioniert das nicht. Ich wollte, dass ab Level 6 nicht mehr addiert, sonder subtrahiert wird.

    Ich finde einfach nicht den Fehler und bräuchte ein wenig Hilfe.

    Danke im Vorraus!

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    3. Command1.Visible = False
    4. Text4.Visible = True
    5. Label3.Visible = True
    7. Text4.Text = 1
    9. If Text4.Text = "1" Or "2" Then
    11. Randomize -Timer
    13. a = Int(99 * Rnd) + 1
    14. b = Int(99 * Rnd) + 1
    16. Text1.Text = a
    17. Text3.Text = b
    19. Text2.Text = "+"
    22. End If
    23. End Sub
    25. Private Sub Command2_Click()
    26. Command2.Visible = False
    28. Text4.Text = Text4.Text + 1
    30. Randomize -Timer
    32. a = Int(99 * Rnd) + 1
    33. b = Int(99 * Rnd) + 1
    34. c = Int(11 * Rnd) + 1
    35. d = Int(11 * Rnd) + 1
    37. If Text4.Text = "2" Or "3" Or "4" Or "5" Then
    39. Text1.Text = a
    40. Text3.Text = b
    41. Text2.Text = "+"
    43. ElseIf Text4.Text = "6" Or "7" Or "8" Or "9" Or "10" Then
    45. Text1.Text = a
    46. Text3.Text = b
    47. Text2.Text = "-"
    49. ElseIf Text4.Text = "11" Or "12" Or "13" Or "14" Or "15" Then
    51. Text1.Text = c
    52. Text2.Text = "*"
    53. Text3.Text = d
    55. ElseIf Text4.Text = "16" Or "17" Or "18" Or "19" Or "20" Then
    57. Text1.Text = a
    58. Text2.Text = "+" Or "-"
    59. Text3.Text = b
    61. ElseIf Text4.Text = "21" Then
    63. Text1.Text = a
    64. Text2.Text = "*"
    65. Text3.Text = b
    67. Else
    69. MsgBox "Herzlichen Glückwunsch, sie können im Kopf rechnen!" _
    70. , 64, "Sieg"
    72. End If
    75. End Sub
    77. Private Sub Command3_Click()
    79. End
    81. End Sub
    83. Private Sub Prüfen_Click()
    85. c = Int(Text1.Text)
    86. d = Int(Text3.Text)
    88. If c + d = Ergebnis.Text _
    89. Or c - d = Ergebnis.Text _
    90. Or c * d = Ergebnis.Text Then
    92. MsgBox "Richtig! Klicken sie auf - Nächstes Level - um weiter zu spielen!", 64, "Richtig"
    93. Command2.Visible = True
    94. Ergebnis.Text = ""
    95. Text1.Text = ""
    96. Text2.Text = ""
    97. Text3.Text = ""
    99. Else
    100. MsgBox "Falsch", 64, "Falsch!"
    102. End If
    104. End Sub

    Hi.

    Dein Fehler sind folgende Abfragen:

    Visual Basic-Quellcode

    1. If TextX.Text = "x" Or "y" Or "z"
    Richtig würde es so heißen:

    Visual Basic-Quellcode

    1. If TextX.Text = "x" Or TextX.Text = "y" Or TextX.Text = "z"

    Mit einem

    Visual Basic-Quellcode

    1. Select Case Text4.Text
    2. Case "x", "1" ' usw.
    3. Case "y", "2"
    4. Case "z", "3"
    5. End Select

    lässt sich der Code auch besser lesen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke, aber...

    Danke, war aber auch ein dummer Fehler naja.
    Ich habe jetzt mal ne Frage.
    Ich würde es gerne noch so machen, dass man für jede Frage nur ´ne gewisse Zeit hat.
    Und die Sekunden die nicht vergangen sind gelten dann als Punkte.
    Ich hätte also gerne noch ne Punktzahl in dem Spiel.
    Geht das?

    SuFu: TimeSpan => 273 Einträge.
    Quelltext:

    Visual Basic-Quellcode

    1. Dim ts = New TimeSpan

    mit der Maus auf TimeSpan klicken, danach Taste F1 => Hilfe. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo Crayne,
    Zeitabläufe kannst du mit einem Timer-Control steuern.

    Visual Basic-Quellcode

    1. Private Sek As Long
    3. Private Sub Form_Load()
    5. Timer1.Interval = 1000
    6. Timer1.Enabled = True
    8. End Sub
    10. Private Sub Timer1_Timer()
    12. Label1.Caption = Sek
    13. Sek = Sek + 1
    14. If Sek = 30 Then Timer1.Enabled = False
    16. End Sub


    @RodFromGermany:
    Das sieht nach .Net-Code aus. Die Frage bezog sich auf VB6.
    Gruss,

    Neptun