Brauche Hilfe für mein Quiz!

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Techniker.

    Brauche Hilfe für mein Quiz!

    Hallo ich lerne grade erst Visual Basic hab vor 1 Woche oder so angefangen,

    Ich habe mir so gedacht ein kleines Quiz Programm zu erstellen aber ich verfranze mich
    irgendwie dauernd xD ich habe eine kleine Vorlage verwendet und dann erweitert aber
    ab jetzt funktioniert irgendwie nix mehr könntet ihr euch mal mein Source angucken
    und mir sagen wo ich Fehler gemacht habe ?

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Status As Integer = 0
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. If Status = 0 Then
    9. 'Frage stellen
    10. FrageStellen(1)
    11. TextBox1.Enabled = True
    12. Button1.Text = "Weiter"
    13. ElseIf Status = 1 Then
    14. AntwortTesten(1)
    15. ElseIf Status = 1 Then
    16. FrageStellen(2)
    17. ElseIf Status = 2 Then
    18. AntwortTesten(2)
    19. ElseIf Status = 2 Then
    20. FrageStellen(3)
    21. ElseIf Status = 3 Then
    22. AntwortTesten(3)
    23. ElseIf Status = 3 Then
    24. FrageStellen(4)
    25. ElseIf Status = 4 Then
    26. AntwortTesten(4)
    27. ElseIf Status = 4 Then
    28. FrageStellen(5)
    29. ElseIf Status = 5 Then
    30. AntwortTesten(5)
    31. ElseIf Status = 5 Then
    32. FrageStellen(6)
    33. ElseIf Status = 6 Then
    34. AntwortTesten(6)
    35. ElseIf Status = 6 Then
    36. FrageStellen(7)
    37. ElseIf Status = 7 Then
    38. AntwortTesten(7)
    39. ElseIf Status = 7 Then
    40. FrageStellen(8)
    41. ElseIf Status = 8 Then
    42. AntwortTesten(8)
    43. ElseIf Status = 8 Then
    44. FrageStellen(9)
    45. ElseIf Status = 9 Then
    46. AntwortTesten(9)
    47. ElseIf Status = 9 Then
    48. FrageStellen(10)
    49. ElseIf Status = 10 Then
    50. AntwortTesten(10)
    52. TextBox1.Enabled = False
    53. TextBox1.Text = ""
    54. Label1.Text = "Fertig. Nochmal spielen?"
    55. Button1.Text = "Ja"
    56. Status = 0
    57. End If
    58. End Sub
    60. Private Sub FrageStellen(ByVal FrageNr As Integer)
    62. If FrageNr = 1 Then
    63. Label2.Text = "Frage: 1/10"
    64. Label1.Text = "DEINE FRAGE"
    65. Status = Status + 1
    66. ElseIf FrageNr = 2 Then
    67. Label2.Text = "Frage: 2/10"
    68. Label1.Text = "DEINE FRAGE"
    69. Status = Status + 1
    70. ElseIf FrageNr = 3 Then
    71. Label2.Text = "Frage: 3/10"
    72. Label1.Text = "DEINE FRAGE"
    73. Status = Status + 1
    74. ElseIf FrageNr = 4 Then
    75. Label2.Text = "Frage: 4/10"
    76. Label1.Text = "DEINE FRAGE"
    77. Status = Status + 1
    78. ElseIf FrageNr = 5 Then
    79. Label2.Text = "Frage: 5/10"
    80. Label1.Text = "DEINE FRAGE"
    81. Status = Status + 1
    82. ElseIf FrageNr = 6 Then
    83. Label2.Text = "Frage: 6/10"
    84. Label1.Text = "DEINE FRAGE"
    85. Status = Status + 1
    86. ElseIf FrageNr = 7 Then
    87. Label2.Text = "Frage: 7/10"
    88. Label1.Text = "DEINE FRAGE"
    89. Status = Status + 1
    90. ElseIf FrageNr = 8 Then
    91. Label2.Text = "Frage: 8/10"
    92. Label1.Text = "DEINE FRAGE"
    93. Status = Status + 1
    94. ElseIf FrageNr = 9 Then
    95. Label2.Text = "Frage: 9/10"
    96. Label1.Text = "DEINE FRAGE"
    97. Status = Status + 1
    98. ElseIf FrageNr = 10 Then
    99. Label2.Text = "Frage: 10/10"
    100. Label1.Text = "DEINE FRAGE"
    101. Status = Status + 1
    102. End If
    104. TextBox1.Text = ""
    105. TextBox1.Focus()
    107. End Sub
    109. Private Sub AntwortTesten(ByVal FrageNr As Integer)
    111. If TextBox1.Text = "" Then
    112. MsgBox("Bitte füllen sie das Feld aus!", MsgBoxStyle.OkOnly, "Frage")
    113. ElseIf FrageNr = 1 Then
    114. If TextBox1.Text = "DEINE ANTWORT" Then
    115. Label1.Text = "Richtig"
    116. Status = Status + 1
    117. Else
    118. Label1.Text = "Falsch"
    119. End If
    121. ElseIf FrageNr = 2 Then
    122. If TextBox1.Text = "DEINE ANTWORT" Then
    123. Label1.Text = "Richtig"
    124. Status = Status + 1
    125. Else
    126. Label1.Text = "Falsch"
    127. End If
    129. ElseIf FrageNr = 3 Then
    130. If TextBox1.Text = "DEINE ANTWORT" Then
    131. Label1.Text = "Richtig"
    132. Status = Status + 1
    133. Else
    134. Label1.Text = "Falsch"
    135. End If
    137. ElseIf FrageNr = 4 Then
    138. If TextBox1.Text = "DEINE ANTWORT" Then
    139. Label1.Text = "Richtig"
    140. Status = Status + 1
    141. Else
    142. Label1.Text = "Falsch"
    143. End If
    145. ElseIf FrageNr = 5 Then
    146. If TextBox1.Text = "DEINE ANTWORT" Then
    147. Label1.Text = "Richtig"
    148. Status = Status + 1
    149. Else
    150. Label1.Text = "Falsch"
    151. End If
    153. ElseIf FrageNr = 6 Then
    154. If TextBox1.Text = "DEINE ANTWORT" Then
    155. Label1.Text = "Richtig"
    156. Status = Status + 1
    157. Else
    158. Label1.Text = "Falsch"
    159. End If
    161. ElseIf FrageNr = 7 Then
    162. If TextBox1.Text = "DEINE ANTWORT" Then
    163. Label1.Text = "Richtig"
    164. Status = Status + 1
    165. Else
    166. Label1.Text = "Falsch"
    167. End If
    169. ElseIf FrageNr = 8 Then
    170. If TextBox1.Text = "DEINE ANTWORT" Then
    171. Label1.Text = "Richtig"
    172. Status = Status + 1
    173. Else
    174. Label1.Text = "Falsch"
    175. End If
    177. ElseIf FrageNr = 9 Then
    178. If TextBox1.Text = "DEINE ANTWORT" Then
    179. Label1.Text = "Richtig"
    180. Status = Status + 1
    181. Else
    182. Label1.Text = "Falsch"
    183. End If
    185. ElseIf FrageNr = 10 Then
    186. If TextBox1.Text = "DEINE ANTWORT" Then
    187. Label1.Text = "Richtig"
    188. Status = Status + 1
    189. Else
    190. Label1.Text = "Falsch"
    191. End If
    192. End If
    193. End Sub


    Mfg Techniker

    Funktioniert nicht ... so, so ...
    (ist KEINE Fehlerbeschreibung)

    BTW: Stell dir mal vor, dein Quiz hätte 1.000 Fragen. Wie würde dein Code aussehen? 1000 mal IF ... THEN ? Da das offensichtlich nicht sinnvoll sein kann, würde ich noch mal scharf nachgrübeln - oder das Buch erstmal zu Ende lesen!

    Es sollen ja nur 10 Fragen sein und ich als Anfänger habe mir gedacht das es immer das gleiche wäre,
    ja die Fehlerbeschreibung ist garnicht beschrieben.

    Wie soll ich das beschreiben es funktioniert nix die ersten 3 Fragen + Antworten habe geklappt ohne Probleme
    aber danach ging nix mehr, und jetzt wo ich den Code nochma bearbeitet habe funktioniert nix mehr
    rein garnix mehr deswegen frage ich ja nach wo der Fehler ist.

    Und das Buch handelt ALLGEMEIN über Visual Basic nicht über ein Quiz Programm ich habe mir halt ma gedacht
    das ich es mal versuche und jeder versuch macht klug.

    Mfg Techniker

    Kommt drauf an, was du haben möchtest^^

    Jedenfalls kann ein Teil des Codes nicht funktionieren.

    VB.NET-Quellcode

    1. ElseIf Status = 1 Then
    2. AntwortTesten(1)
    3. ElseIf Status = 1 Then
    4. FrageStellen(2)

    Das ist so als würdest du nach einem Erdbeereis fragen, und nachdem dir der Verkäufer gesagt hat, das sie keines haben, fragst du nochmal O.o ...
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Wie kommt drauf an? ich wollt doch nurn Quiz machen mit 10 Fragen was muss ich denn machen
    das eine Frage nach der anderen kommt und wenn man was falsches eintippt im label1 Falsch
    steht und wenn man das Richtige eintippt kommt richtig und geht zur nächsten Frage.

    Wie ich oben geschrieben habe, ich habe eine Vorlage verwendet und ich dachte nur das ich diese
    erweitern müsste aber hab wohl falsch gedacht wie bekomme ich es jetzt hin das es funktioniert ?

    @picoflop: .....das ist einfachste von einfachsten....gibs mehrere möglichkeiten wie man Quiz aufbaut.....voraussetzung "Grundkenntnisse" + "logisches denken"

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SystemUnknow“ ()

    wie wäre es mit einer for-schleife?:

    VB.NET-Quellcode

    1. for i as integer = 1 To 10
    2. FrageStellen(i)
    3. AntwortTesten(i)
    4. Next


    und um das ganze noch etwas schöner zu gestalten könntest du anstatt

    VB.NET-Quellcode

    1. status = status + 1

    VB.NET-Quellcode

    1. status += 1
    verwenden.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „oli-f“ ()

Facebook
Telefonspende