Problem bei Quiz

  • VB.NET

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

    Problem bei Quiz

    Hallo Leute

    ich hab' da eine Frage zu folgendem Code.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Dim quest As Integer = 1
    6. Dim sr As StreamReader = New StreamReader("Fragen.txt")
    7. Dim line As String
    10. Sub frage(ByVal frage As String, ByVal a1 As String, ByVal a2 As String, ByVal a3 As String, ByVal a4 As String, ByVal right As String)
    11. Label1.Text = frage
    12. ComboBox1.Items.Clear()
    13. ComboBox1.Items.Add(a1)
    14. ComboBox1.Items.Add(a2)
    15. ComboBox1.Items.Add(a3)
    16. ComboBox1.Items.Add(a4)
    17. End Sub
    19. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    20. For i As Integer = 1 To quest
    21. line = sr.ReadLine()
    22. Next
    23. Dim frag() As String = line.Split(",")
    24. frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
    25. End Sub
    27. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    28. For i As Integer = 1 To quest
    29. line = sr.ReadLine()
    30. Next
    31. Dim frag() As String = line.Split(",")
    32. frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
    33. If ComboBox1.Text = frag(5) Then
    34. MsgBox("Richtig!")
    35. quest += 1
    36. Else
    37. MessageBox.Show("Leider falsch! Du hast verloren!", "Verloren", MessageBoxButtons.OK, MessageBoxIcon.Error)
    38. End
    39. End If
    40. For i As Integer = 1 To quest
    41. line = sr.ReadLine()
    42. Next
    43. Dim fra() As String = line.Split(",")
    44. frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
    45. End Sub
    46. End Class

    Er will einfach nicht funktionieren ?(
    Wieso?
    Bitte helft mir ;(
    Danke im Vorraus
    Gruß TGenius

    Hey,

    wahrscheinlich liegt es daran, dass du die Groß & Kleinschreibung nicht beachtest.

    Das kannst du mit String.Tolower bewerkstelligen.

    VB.NET-Quellcode

    1. If ComboBox1.Text.Tolower = frag(5).ToLower Then
    2. MessageBox.Show("Diese Antwort ist richtig!")
    3. quest += 1
    4. Else
    5. MessageBox.Show("Leider falsch!")
    6. End If

    Setz mal hier (Zeile 33)

    VB.NET-Quellcode

    1. If ComboBox1.Text = frag(5) Then


    einen Haltepunkt und sieh dir mal an was ComboBox1.Text ist und was frag(5) ist.

    Mfg
    Firestorm

    ASchreib mal Deinen Code etwas um, da kannst Du ihn besser warten:

    VB.NET-Quellcode

    1. Sub frage(ByVal a() As String)
    2. Label1.Text = a(0)
    3. ComboBox1.Items.Clear()
    4. ComboBox1.Items.Add(a(1))
    5. ComboBox1.Items.Add(a(2))
    6. ComboBox1.Items.Add(a(3))
    7. ComboBox1.Items.Add(a(4))
    8. End Sub
    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!

    Setz da mal einen Haltepunkt rein (F9) und steppe den Code mit F10 Schritt für Schritt durch.
    Sieh Dir nach jedem Schritt Deine Variablen an und vergleiche den Inhalt mit Deiner Vorstellung.
    Da solltest Du den Fehler schnell gefunden haben.
    Vielleicht ist es nur ein Index-Fehler.
    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!

Facebook
Telefonspende