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.

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

    Hi,
    ich bin neu hier und möchte, zum üben für eine Prüfung, für mehrere Person ein Programm zur verfügung stellen, mit dem man die Fragen üben kann, also mit Microsoft Visual Basic 2010 Express. Am besten wäre es, wenn man sogar wählen könnte zw. richtiger Reihenfolge, gemischte Reihenfolge und wie in der Prüfung mit nur einer bestimmten Anzahl, in gemischter Reihenfolge.

    Die Fragen sind Multiple Coice Fragen, bei denen man teilweise auch mehrere Antwortmöglichkeiten markieren muss, damit die Frage richtig beantwortet ist. Insgesamt handelt es sich um 212 Fragen und ich wäre glücklich, wenn ich nicht für jede Frage eine neue Form erstellen müsste.

    Am Ende sollte bei der Prüfungssimulation eine Auswertung kommen, mit bestanden oder nicht bestanden (da geht es um einen bestimmten Prozentsatz). Bei den anderen zwei will ich nach jeder Frage eine Auswertung mit Richtig oder Falsch.

    Ich bin leider noch ein Anfänger...

    Wie kann ich das verwirklichen?

    Ich würde mich über jede Hilfe freuen...

    LG Marius

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

    Darauf kann man sowas aufbauen, mit ner Datenbank wäre das auch machbar,
    aber ich zeig dir mal ein Beispiel ohne.

    VB.NET-Quellcode

    1. Public Class Form1
    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. Label1.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. Label1.Text = "A ist richtig"
    19. A = True
    20. Case 2
    21. Label1.Text = "b ist richtig"
    22. B = True
    23. Case 3
    24. Label1.Text = "c ist richtig"
    25. C = True
    26. Case 4
    27. Label1.Text = "d ist richtig"
    28. D = True
    29. Case 5
    30. Label1.Text = "a + b ist richtig"
    31. A = True
    32. B = True
    33. Case 6
    34. Label1.Text = "a + c ist richtig"
    35. A = True
    36. C = True
    37. Case 7
    38. Label1.Text = "a + d ist richtig"
    39. A = True
    40. D = True
    41. Case 8
    42. Label1.Text = "b + c ist richtig"
    43. B = True
    44. C = True
    45. Case 9
    46. Label1.Text = "b + d ist richtig"
    47. B = True
    48. D = True
    49. Case 10
    50. Label1.Text = "c + d ist richtig"
    51. C = True
    52. D = True
    53. Case 11
    54. Label1.Text = "a + b + c ist richtig"
    55. A = True
    56. B = True
    57. C = True
    58. Case 12
    59. Label1.Text = "a + b + d ist richtig"
    60. A = True
    61. B = True
    62. D = True
    63. Case 13
    64. Label1.Text = "b + c + d ist richtig"
    65. B = True
    66. C = True
    67. D = True
    68. Case 14
    69. Label1.Text = "a + c + d ist richtig"
    70. A = True
    71. C = True
    72. D = True
    73. Case 15
    74. Label1.Text = "alle sind richtig"
    75. A = True
    76. B = True
    77. C = True
    78. D = True
    79. End Select
    80. End Sub
    82. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    83. Button1.Enabled = False
    84. Button2.Enabled = True
    85. Questionnumber += 1
    86. If Questionnumber > 14 Then
    87. Questionnumber = 1
    88. End If
    89. Select_Questions()
    90. Button2.Text = "Prüfen"
    91. CheckBox1.Checked = False
    92. CheckBox2.Checked = False
    93. CheckBox3.Checked = False
    94. CheckBox4.Checked = False
    95. Label2.Text = ""
    96. End Sub
    98. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    99. If A And CheckBox1.Checked And B And CheckBox2.Checked And C And CheckBox3.Checked And D And CheckBox4.Checked Then
    100. Label2.Text = "richtig"
    101. ElseIf A And CheckBox1.Checked And B And CheckBox2.Checked And C And CheckBox3.Checked Then
    102. Label2.Text = "richtig"
    103. ElseIf A And CheckBox1.Checked And B And CheckBox2.Checked And D And CheckBox4.Checked Then
    104. Label2.Text = "richtig"
    105. ElseIf B And CheckBox2.Checked And C And CheckBox3.Checked And D And CheckBox4.Checked Then
    106. Label2.Text = "richtig"
    107. ElseIf A And CheckBox1.Checked And C And CheckBox3.Checked And D And CheckBox4.Checked Then
    108. Label2.Text = "richtig"
    109. ElseIf A And CheckBox1.Checked And B And CheckBox2.Checked Then
    110. Label2.Text = "richtig"
    111. ElseIf A And CheckBox1.Checked And C And CheckBox3.Checked Then
    112. Label2.Text = "richtig"
    113. ElseIf A And CheckBox1.Checked And D And CheckBox4.Checked Then
    114. Label2.Text = "richtig"
    115. ElseIf B And CheckBox2.Checked And C And CheckBox3.Checked Then
    116. Label2.Text = "richtig"
    117. ElseIf B And CheckBox2.Checked And D And CheckBox4.Checked Then
    118. Label2.Text = "richtig"
    119. ElseIf D And CheckBox4.Checked And C And CheckBox3.Checked Then
    120. Label2.Text = "richtig"
    121. ElseIf A And CheckBox1.Checked Then
    122. Label2.Text = "richtig"
    123. ElseIf B And CheckBox2.Checked Then
    124. Label2.Text = "richtig"
    125. ElseIf C And CheckBox3.Checked Then
    126. Label2.Text = "richtig"
    127. ElseIf D And CheckBox4.Checked Then
    128. Label2.Text = "richtig"
    129. Else
    130. Label2.Text = "falsch"
    131. End If
    132. Button1.Enabled = True
    133. Button2.Enabled = False
    134. A = False
    135. B = False
    136. C = False
    137. D = False
    138. Button1.Text = "weiter"
    139. End Sub
    140. End Class


    In label1.text stellst du fragen und setzt dann, für die
    richtigen antworten die entsprechenden Booleans auf True

    MfG

    Derfuhr

    [VB2010 Projektmappe] Quiz.7z

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

    Hi,

    danke für die schnellen Antworten.

    Den Code von Derfuhr finde ich schon richtig gut. Das hätte ich nicht hinbekommen. Es ist aber noch ein Fehler drin. Wenn zB. A richtig ist und man hat A angeklickt ist es immer richtig, egal was man sonst noch angeklickt hat.

    Ich bin aber überascht, wie schnell du mitr mit einem guten Code geholfen hast.

    Wie müsste man so etwas denn mit einer Datenbank machen?

    LG Marius

    marius schrieb:

    DEn Code von Derfuhr finde ich schon richtig gut.

    Nein. Der Code ist großer Mist. Nur weil du es nicht hinbekommen hättest, beweist das nicht das Gegenteil. Überleg dir einfach mal, wie der Code aussehen würde, wenn du 200 Fragen hättest. Und was würdest du machen, wenn du feststellst, dass eine Frage falsch formuliert ist oder die vorgegebene Antwort nicht korrekt? Programm neu kompilieren? Wie gesagt: Lösung wie von derFuhr ist eine "Hauptsache es funzt"-Lösung.

    Überdenk mal folgende Aufgabenstellung:
    Die Kunden (Plural) wollen ein Programm, wo sie ihre (beliebig vielen) Multiple Choice Fragen und die Antworten selbst einpflegen können.
    Mach ein Programm, dass bei allen diesen Kunden läuft.
    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!

    Wie dann?

    Ok, aber wie soll ich es dann machen??

    DEr Code funzt auch noch nicht. Ich dachte ich könnte das Problem so lösen, hat aber nicht geklappt:

    VB.NET-Quellcode

    1. Case 1
    2. Label5.Text = "A ist richtig"
    3. A = True
    4. B = False
    5. C = False
    6. D = False


    ZU RodFromGermany

    So war das nicht gemeint, da habe ich mich wohl missverständlich ausgedrückt. Noch mal zur genaueren Erklärung:

    Das Programm ist für Freunde von mir. Also keine Kunden oder so und auch alles kostenlos.
    Es handelt sich auch immer um die selben Fragen, es gibt aber drei verschiedene Schwierigkeitsstufen: Bronze, Silber und Gold. Desto höher, umso mehr Fragen. Bei Gold 212.
    LG Marius

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

    marius schrieb:

    Also keine Kunden oder so und auch alles kostenlos.
    Darum geht es nicht.
    Es geht um den Lösungsansatz.
    Mach Dir eine DataTable und pro Frage einen Datensatz. n Fragen (Strings) , die richtige Antwort (Integer).
    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!

    marius schrieb:

    Datenbank?
    Nein.
    XML-Datei.
    Such mal danach im Forum.
    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!

    Ich habe die Auswertung falsch geschrieben, hab wohl die Bits vor lauter
    Bytes nicht mehr gesehen, so wäre die bedingung richtig gewesen.

    VB.NET-Quellcode

    1. If A = CheckBox1.Checked And B = CheckBox2.Checked And C = CheckBox3.Checked And D = CheckBox4.Checked Then
    2. Label2.Text = "richtig"
    3. Else
    4. Label2.Text = "falsch"
    5. End If

    Derfuhr schrieb:

    Ich habe die Auswertung falsch geschrieben
    So isses.
    @marius: Nimm RadioButton.
    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!

    Derfuhr schrieb:

    ... hab wohl die Bits vor lauter
    Bytes nicht mehr gesehen...


    Ich bin beeindruckt, dass du bei dem Code noch "bit" und "byte" unterscheiden kannst.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    milaim schrieb:

    Ich bin beeindruckt, dass du bei dem Code noch "bit" und "byte" unterscheiden kannst.


    Wenn man erst seit wenigen monaten Programmieren lernt, ist es doch
    nicht verwunderlich das man noch nicht die Perfekten Codes runtertippt
    oder nicht? Deshalb bin ich ja in diesem Forum, wer kritisiert wird,
    der weiss auch was er falsch macht und lernt durch diese kritiken.

    edit: Waren deine ersten Codes wie von "Steve Wozniak" getippt?

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

    picoflop schrieb:

    Geht nicht, weil:
    OK, dann muss in die oben beschriebene DataTable noch die Anzahl der richtigen Antworten und die Nummern aller richtigen Antworten, das ist sicherer, als allein die Liste der richtigen Antworten.
    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!

    marius schrieb:

    Wie mss ich da die Fragen rein schreiben?
    Lass das ein Programm tun.
    Mach für den Anfang eine untypisierte DataTable, gib ihr die richtigen Spalten und dann addest Du pro Frage einfach eine Zeile.
    Und dann MyDataTable.SaveXml(DEIN_PFAD).
    Fertich.
    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