Multiple Chice Fragen in gemischter Reihenfolge mit anschließender Auswertung mit Microsoft Visual Basic 2010 Express

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von BlackNetworkBit.

    marius schrieb:

    Und wie funktioniert das?
    Verwende doch bitte mal die Suchfunktion auf der Startseite :!:
    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!

    DataTable

    Ich habe mal mit google gesucht und das gefunden:
    das hier

    Wie hilft mir das weiter? ?(

    Kann mir das jemand mal an einer Beispiel Frage erklären?



    Ich habe jetzt mal den anderen Code überarbeitet und finde den gar nicht so schlecht...

    Wie bekomme ich das jetzt hin, dass mit einer if Funktion die Fragen in zfälliger Reihenfolge gestellt werden? Also keine doppelt! Man soll also auf Form1 auswählen ob e durcheinander sein soll. zB. mit einem Radio Button?


    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim Questionnumber As Integer
    5. Dim A, B, C, D As Boolean
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. Label5.Text = "Kann es losgehen?"
    9. A = False
    10. B = False
    11. C = False
    12. D = False
    13. End Sub
    15. Private Sub Select_Questions()
    16. Select Case Questionnumber
    17. Case 1
    18. Label5.Text = "A ist richtig"
    19. A = True
    20. B = False
    21. C = False
    22. D = False
    24. Case 2
    25. Label5.Text = "b ist richtig"
    26. A = False
    27. B = True
    28. C = False
    29. D = False
    30. Case 3
    31. Label5.Text = "c ist richtig"
    32. A = False
    33. B = False
    34. C = True
    35. D = False
    36. Case 4
    37. Label5.Text = "d ist richtig"
    38. D = True
    39. A = False
    40. B = False
    41. C = False
    43. Case 5
    44. Label5.Text = "a + b ist richtig"
    45. A = True
    46. B = True
    48. C = False
    49. D = False
    50. Case 6
    51. Label5.Text = "a + c ist richtig"
    52. A = True
    53. C = True
    55. B = False
    57. D = False
    58. Case 7
    59. Label5.Text = "a + d ist richtig"
    60. A = True
    61. D = True
    63. B = False
    64. C = False
    66. Case 8
    67. Label5.Text = "b + c ist richtig"
    68. B = True
    69. C = True
    70. A = False
    72. D = False
    73. Case 9
    74. Label5.Text = "b + d ist richtig"
    75. B = True
    76. D = True
    77. A = False
    79. C = False
    81. Case 10
    82. Label5.Text = "c + d ist richtig"
    83. C = True
    84. D = True
    85. A = False
    86. B = False
    88. Case 11
    89. Label5.Text = "a + b + c ist richtig"
    90. A = True
    91. B = True
    92. C = True
    93. D = False
    94. Case 12
    95. Label5.Text = "a + b + d ist richtig"
    96. A = True
    97. B = True
    98. D = True
    100. C = False
    102. Case 13
    103. Label5.Text = "b + c + d ist richtig"
    104. B = True
    105. C = True
    106. D = True
    107. A = False
    109. Case 14
    110. Label5.Text = "a + c + d ist richtig"
    111. A = True
    112. C = True
    113. D = True
    115. B = False
    117. Case 15
    118. Label5.Text = "alle sind richtig"
    119. A = True
    120. B = True
    121. C = True
    122. D = True
    123. End Select
    124. End Sub
    126. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    127. Button1.Enabled = False
    128. Button2.Enabled = True
    129. CheckBox1.Enabled = True
    130. CheckBox2.Enabled = True
    131. CheckBox3.Enabled = True
    132. CheckBox4.Enabled = True
    134. Questionnumber += 1
    135. If Questionnumber > 14 Then
    136. Questionnumber = 1
    137. End If
    138. Select_Questions()
    139. Button2.Text = "Prüfen"
    140. CheckBox1.Checked = False
    141. CheckBox2.Checked = False
    142. CheckBox3.Checked = False
    143. CheckBox4.Checked = False
    144. Label7.Text = ""
    145. End Sub
    147. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    148. If A = CheckBox1.Checked And B = CheckBox2.Checked And C = CheckBox3.Checked And D = CheckBox4.Checked Then
    149. Label7.Text = "richtig"
    150. Label7.ForeColor = Color.Green
    151. Else
    152. Label7.Text = "falsch"
    153. Label7.ForeColor = Color.Red
    154. End If
    155. Button1.Enabled = True
    156. Button2.Enabled = False
    157. A = False
    158. B = False
    159. C = False
    160. D = False
    161. Button1.Text = "weiter"
    162. End Sub
    163. End Class


    Da sieht dann übrigens so aus:

    Frage= Label5
    die Checkboxen1-4 sind am anfang enable=False
    genauso der Button Prüfen (Button2)
    Button1.Text = Starten
    die Auflösung kommt dann mit richtig in grün oder falsch in Rot in Label 7 was normal ohne Text ist

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „marius“ ()

    Da mein Code berechtigt kritisiert wurde, habe ich ein neues Grundgerüst mit einer
    xml Datei erstellt, es Funktioniert gut aber falls ich das nicht richtig angegangen bin,
    wäre ich Dankbar wenn ihr mir sagt wie ich es besser machen kann.

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Xml
    5. Public Class Form1
    7. Dim xmlFile As XmlReader
    8. Dim ds As New DataSet
    9. Dim fList As List(Of String) = New List(Of String)
    10. Dim A, B, C, D As Boolean
    12. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    13. ds.WriteXml("Quiz.xml")
    14. End Sub
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\Quiz.xml") Then
    18. Create_newxml()
    19. End If
    20. Button2.Enabled = False
    21. DataGridView1.Width = Me.Width
    22. DataGridView1.Location = New Point(0, 0)
    23. xmlFile = XmlReader.Create("Quiz.xml", New XmlReaderSettings())
    24. ds.ReadXml(xmlFile)
    25. DataGridView1.DataSource = ds.Tables(0)
    26. DataGridView1.Columns(0).Width = 50
    27. DataGridView1.Columns(1).Width = 250
    28. DataGridView1.Columns(2).Width = 125
    29. DataGridView1.Columns(3).Width = 125
    30. DataGridView1.Columns(4).Width = 125
    31. DataGridView1.Columns(5).Width = 125
    32. DataGridView1.Columns(6).Width = 100
    33. xmlFile.Close()
    34. For i As Integer = 0 To ds.Tables("Quiz").Rows.Count - 1
    35. Dim cRow As DataRow = ds.Tables("Quiz").Rows(i)
    36. fList.Add(CStr(cRow("Frage")) & ";" & CStr(cRow("Antwort_A")) & ";" & CStr(cRow("Antwort_B")) & ";" & CStr(cRow("Antwort_C")) & ";" & CStr(cRow("Antwort_D")) & ";" & CStr(cRow("Richtige_Antwort")))
    37. Next
    38. End Sub
    40. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    41. A = False
    42. B = False
    43. C = False
    44. D = False
    45. Label2.Text = String.Empty
    46. Dim rnd As Random = New Random
    47. Dim fNum As Integer = rnd.Next(0, fList.Count - 1)
    48. Dim cRow As DataRow = ds.Tables("Quiz").Rows(fNum)
    49. Dim rowContent As String = fList(fNum)
    50. Dim splitter As Object()
    51. splitter = Split(rowContent, ";")
    52. Label1.Text = CStr(splitter(0))
    53. CBA.Text = CStr(splitter(1))
    54. CBB.Text = CStr(splitter(2))
    55. CBC.Text = CStr(splitter(3))
    56. CBD.Text = CStr(splitter(4))
    57. If CStr(splitter(5)).Contains("A") Or CStr(splitter(5)).Contains("a") Then
    58. A = True
    59. End If
    60. If CStr(splitter(5)).Contains("B") Or CStr(splitter(5)).Contains("b") Then
    61. B = True
    62. End If
    63. If CStr(splitter(5)).Contains("C") Or CStr(splitter(5)).Contains("c") Then
    64. C = True
    65. End If
    66. If CStr(splitter(5)).Contains("D") Or CStr(splitter(5)).Contains("d") Then
    67. D = True
    68. End If
    69. fList.RemoveAt(fNum)
    70. Button1.Enabled = False
    71. Button2.Enabled = True
    72. CBA.Checked = False
    73. CBB.Checked = False
    74. CBC.Checked = False
    75. CBD.Checked = False
    76. End Sub
    78. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    79. Button2.Enabled = False
    80. Label2.Text = String.Empty
    81. Label2.Text = "Die Antworten: "
    82. If A = True Then
    83. Label2.Text += "A "
    84. End If
    85. If B = True Then
    86. Label2.Text += "B "
    87. End If
    88. If C = True Then
    89. Label2.Text += "C "
    90. End If
    91. If D = True Then
    92. Label2.Text += "D "
    93. End If
    94. Label2.Text += "sind richtig"
    95. If fList.Count > 0 Then
    96. Button1.Enabled = True
    97. End If
    98. End Sub
    100. Private Sub Create_newxml()
    101. Dim dsn As New DataSet
    102. Dim dt As DataTable
    103. dt = New DataTable()
    104. dt.Columns.Add(New DataColumn("Nummer", Type.GetType("System.Int32")))
    105. dt.Columns.Add(New DataColumn("Frage", Type.GetType("System.String")))
    106. dt.Columns.Add(New DataColumn("Antwort_A", Type.GetType("System.String")))
    107. dt.Columns.Add(New DataColumn("Antwort_B", Type.GetType("System.String")))
    108. dt.Columns.Add(New DataColumn("Antwort_C", Type.GetType("System.String")))
    109. dt.Columns.Add(New DataColumn("Antwort_D", Type.GetType("System.String")))
    110. dt.Columns.Add(New DataColumn("Richtige_Antwort", Type.GetType("System.String")))
    111. dsn.Tables.Add(dt)
    112. Dim dr As DataRow
    113. dr = dt.NewRow()
    114. dr("Nummer") = "1"
    115. dr("Frage") = "Frage"
    116. dr("Antwort_A") = "Antwort_A"
    117. dr("Antwort_B") = "Antwort_B"
    118. dr("Antwort_C") = "Antwort_C"
    119. dr("Antwort_D") = "Antwort_D"
    120. dr("Richtige_Antwort") = "Richtige_Antwort"
    121. dt.Rows.Add(dr)
    122. dsn.Tables(0).TableName = "Quiz"
    123. dsn.WriteXml("Quiz.xml")
    124. End Sub
    125. End Class


    Die xml datei:

    XML-Quellcode

    1. <?xml version="1.0" standalone="yes"?>
    2. <NewDataSet>
    3. <Quiz>
    4. <Nummer>1</Nummer>
    5. <Frage>Steve Jobs ist der Gründer von...</Frage>
    6. <Antwort_A>Apple</Antwort_A>
    7. <Antwort_B>Microsoft</Antwort_B>
    8. <Antwort_C>Amd</Antwort_C>
    9. <Antwort_D>Intel</Antwort_D>
    10. <Richtige_Antwort>A</Richtige_Antwort>
    11. </Quiz>
    12. <Quiz>
    13. <Nummer>2</Nummer>
    14. <Frage>Gold findet man...</Frage>
    15. <Antwort_A>in der Luft</Antwort_A>
    16. <Antwort_B>im Boden</Antwort_B>
    17. <Antwort_C>in Gewässern</Antwort_C>
    18. <Antwort_D>im Aschenbecher</Antwort_D>
    19. <Richtige_Antwort>b,C</Richtige_Antwort>
    20. </Quiz>
    21. <Quiz>
    22. <Nummer>3</Nummer>
    23. <Frage>Luft braucht der Mensch zum...</Frage>
    24. <Antwort_A>atmen</Antwort_A>
    25. <Antwort_B>blähen</Antwort_B>
    26. <Antwort_C>trinken</Antwort_C>
    27. <Antwort_D>essen</Antwort_D>
    28. <Richtige_Antwort>A</Richtige_Antwort>
    29. </Quiz>
    30. <Quiz>
    31. <Nummer>4</Nummer>
    32. <Frage>Windows 8 ist der direkte nachfolger von...</Frage>
    33. <Antwort_A>Windows Xp</Antwort_A>
    34. <Antwort_B>Windows ME</Antwort_B>
    35. <Antwort_C>Windows 95</Antwort_C>
    36. <Antwort_D>Windows 7</Antwort_D>
    37. <Richtige_Antwort>D</Richtige_Antwort>
    38. </Quiz>
    39. </NewDataSet>

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

    Das funzt noch nicht.
    Aus CBA.Checked hab ich CheckBox1.Checked gemacht, aber

    CBA.Text = CStr(splitter(1))
    CBB.Text = CStr(splitter(2))
    CBC.Text = CStr(splitter(3))
    CBD.Text = CStr(splitter(4))

    Was ist CBA? der zeigt mir einen Fehler an...

    Aber danke, du bist super

    LG Marius

    CBA,CBB...
    CBA = Antortmöglichkeit A (CHeckbox) usw.
    und CBA.Text = wird eine Antwortmöglichekeit
    angezeigt. CBA wird bei button2.click mit dem
    Boolean A verglichenund falls er true ist steht
    in Label2 das A eine der richtigen Antwort-
    möglichkeiten ist, mit CBB, CBC, CBD verhält
    es sich genauso.


    Quiz XML.7z

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Derfuhr“ ()

    Wenn Du das gleich in Kleinbuchstaben (oder Groß~) konvertierst, sparst Du jeweils eine Abfrage:

    VB.NET-Quellcode

    1. CBA.Text = CStr(splitter(1)).ToLower
    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!

    Warum schreibt ihr jetzt überhaupt das quiz für ihn ist das nicht ein bisschen sinnlos ?
    sollte er dabei nicht ein bisschen lerner wie man überhaupt programmiert?


    MFg BlackNetworkBit
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

Facebook
Telefonspende