nicht wiederholende, zufällige Reihenfolge

  • VB.NET

Es gibt 34 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    marius schrieb:

    dass die selbe Zahl nicht doppelt vorkommt?
    Hättest Du den Code verstanden, den Du da gepostet hast, hättest Du jetzt die Lösung, allerdings ohne LINQ.
    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!

    Bitte, helft mir doch einfach...

    Der RadioButton1 auf Form1 steht für normale Reihenfolge.
    Der RadioButton2 auf Form1 steht für gemischte Reihenfolge.

    Das hier steht unteranderem in einem Button auf Form2:

    VB.NET-Quellcode

    1. If Form1.RadioButton1.Checked = True Then
    2. Questionnumber += 1
    3. If Questionnumber > 14 Then
    4. Questionnumber = 1
    5. End If
    6. End If
    8. If Form1.RadioButton2.Checked = True Then
    9. Dim Rnd As New Random
    10. Questionnumber = Rnd.Next(1, 16)
    11. End If


    Leider kommt immer mal wieder die selbe Zahl für Questionnumber. Das gibt ja auch Sinn. Aber wie kann ich das verhindern?? ?(


    LG Marius

    marius schrieb:

    VB.NET-Quellcode

    1. Form1.RadioButton1
    1. Von wo aus greifst Du auf den RadioButton zu?
    2. Checked ist Boolean, da brauchst Du nicht auf = True zu testen.
    3. Wenn Du 2 Fälle hast (sortiert / unsortiert) genügt eine CheckBox.
    Also:

    VB.NET-Quellcode

    1. If CheckBox1.Checked Then
    2. ' etwas tun
    3. Else
    4. ' etwas anderes tun
    5. End If
    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!

    RodFromGermany schrieb:

    Wenn Du 2 Fälle hast (sortiert / unsortiert) genügt eine CheckBox.

    Ich will am Ende aber drei Möglichkeiten. sortiert, unsortiert und Prüfungssimulation, dh.: genaue Anzahl an unsortierten Fragen mit Auswertung am Ende.

    Mir geht es jetzt aber nur um das unsortiert, deshalb habe ich es nicht genauer erklärt, dass ich drei RadioButtons habe.

    Bei meiner Powerpointpräsentation hatte ich 2 Checkboxen, das finde ich hier aber nicht so gut.

    Solche unwichtigen Details hätte ich auch erst im 25. Post kund getan.
    Dann mach

    VB.NET-Quellcode

    1. If Form1.RadioButton1.Checked = True Then
    2. ' etwas tun
    3. ElseIf Form1.RadioButton2.Checked = True Then
    4. ' etwas anderes tun
    5. Else
    6. ' noch etwas anderes tun
    7. End If
    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!

    Prinzipiel könnte ich das doch aber auch mit 3 RadioButtons machen? Find ich schöner...

    VB.NET-Quellcode

    1. If Form1.RadioButton1.Checked = True Then
    2. ' etwas tun
    3. ElseIf Form1.RadioButton2.Checked = True Then
    4. ' etwas anderes tun
    5. ElseIf Form1.RadioButton3.Checked = True Then
    6. ' etwas ganz anderes tun
    7. Else
    8. ' noch etwas anderes tun z.B. bei Form1 eine MsgBox mit "Bitte wählen" oder so...
    9. End If


    LG Marius

    Stell konkrete Fragen zu Deinem Code und Dir wird geholfen.
    Wischi-waschi und Prosa ist heute nicht. :D
    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!

    VB.NET-Quellcode

    1. Form1.RadioButton1
    Du hast noch nicht gesagt, von wo aus Du auf die RadioButton zugreifst.
    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!

    Genau 0,1 und 2.

    Du hast noch nicht gesagt, von wo aus Du auf die RadioButton zugreifst. Was meinst du damit?

    OK, dann jetzt nochmal, was mein Problem ist:

    Das ist mein Code von Form2:

    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. CheckBox1.Text = "Antwortmöglichkeit A"
    20. CheckBox2.Text = "Antwortmöglichkeit B"
    21. CheckBox3.Text = "Antwortmöglichkeit C"
    22. CheckBox4.Text = "Antwortmöglichkeit D"
    23. A = True
    24. B = False
    25. C = False
    26. D = False
    28. Case 2
    29. Label5.Text = "b ist richtig"
    30. CheckBox1.Text = "Antwortmöglichkeit A"
    31. CheckBox2.Text = "Antwortmöglichkeit B"
    32. CheckBox3.Text = "Antwortmöglichkeit C"
    33. CheckBox4.Text = "Antwortmöglichkeit D"
    34. A = False
    35. B = True
    36. C = False
    37. D = False
    38. Case 3
    39. Label5.Text = "c ist richtig"
    40. CheckBox1.Text = "Antwortmöglichkeit A"
    41. CheckBox2.Text = "Antwortmöglichkeit B"
    42. CheckBox3.Text = "Antwortmöglichkeit C"
    43. CheckBox4.Text = "Antwortmöglichkeit D"
    44. A = False
    45. B = False
    46. C = True
    47. D = False
    48. Case 4
    49. Label5.Text = "d ist richtig"
    50. CheckBox1.Text = "Antwortmöglichkeit A"
    51. CheckBox2.Text = "Antwortmöglichkeit B"
    52. CheckBox3.Text = "Antwortmöglichkeit C"
    53. CheckBox4.Text = "Antwortmöglichkeit D"
    54. D = True
    55. A = False
    56. B = False
    57. C = False
    59. Case 5
    60. Label5.Text = "a + b ist richtig"
    61. CheckBox1.Text = "Antwortmöglichkeit A"
    62. CheckBox2.Text = "Antwortmöglichkeit B"
    63. CheckBox3.Text = "Antwortmöglichkeit C"
    64. CheckBox4.Text = "Antwortmöglichkeit D"
    65. A = True
    66. B = True
    68. C = False
    69. D = False
    70. Case 6
    71. Label5.Text = "a + c ist richtig"
    72. CheckBox1.Text = "Antwortmöglichkeit A"
    73. CheckBox2.Text = "Antwortmöglichkeit B"
    74. CheckBox3.Text = "Antwortmöglichkeit C"
    75. CheckBox4.Text = "Antwortmöglichkeit D"
    76. A = True
    77. C = True
    79. B = False
    81. D = False
    82. Case 7
    83. Label5.Text = "a + d ist richtig"
    84. CheckBox1.Text = "Antwortmöglichkeit A"
    85. CheckBox2.Text = "Antwortmöglichkeit B"
    86. CheckBox3.Text = "Antwortmöglichkeit C"
    87. CheckBox4.Text = "Antwortmöglichkeit D"
    88. A = True
    89. D = True
    91. B = False
    92. C = False
    94. Case 8
    95. Label5.Text = "b + c ist richtig"
    96. CheckBox1.Text = "Antwortmöglichkeit A"
    97. CheckBox2.Text = "Antwortmöglichkeit B"
    98. CheckBox3.Text = "Antwortmöglichkeit C"
    99. CheckBox4.Text = "Antwortmöglichkeit D"
    100. B = True
    101. C = True
    102. A = False
    104. D = False
    105. Case 9
    106. Label5.Text = "b + d ist richtig"
    107. CheckBox1.Text = "Antwortmöglichkeit A"
    108. CheckBox2.Text = "Antwortmöglichkeit B"
    109. CheckBox3.Text = "Antwortmöglichkeit C"
    110. CheckBox4.Text = "Antwortmöglichkeit D"
    111. B = True
    112. D = True
    113. A = False
    115. C = False
    117. Case 10
    118. Label5.Text = "c + d ist richtig"
    119. CheckBox1.Text = "Antwortmöglichkeit A"
    120. CheckBox2.Text = "Antwortmöglichkeit B"
    121. CheckBox3.Text = "Antwortmöglichkeit C"
    122. CheckBox4.Text = "Antwortmöglichkeit D"
    123. C = True
    124. D = True
    125. A = False
    126. B = False
    128. Case 11
    129. Label5.Text = "a + b + c ist richtig"
    130. CheckBox1.Text = "Antwortmöglichkeit A"
    131. CheckBox2.Text = "Antwortmöglichkeit B"
    132. CheckBox3.Text = "Antwortmöglichkeit C"
    133. CheckBox4.Text = "Antwortmöglichkeit D"
    134. A = True
    135. B = True
    136. C = True
    137. D = False
    138. Case 12
    139. Label5.Text = "a + b + d ist richtig"
    140. CheckBox1.Text = "Antwortmöglichkeit A"
    141. CheckBox2.Text = "Antwortmöglichkeit B"
    142. CheckBox3.Text = "Antwortmöglichkeit C"
    143. CheckBox4.Text = "Antwortmöglichkeit D"
    144. A = True
    145. B = True
    146. D = True
    148. C = False
    150. Case 13
    151. Label5.Text = "b + c + d ist richtig"
    152. CheckBox1.Text = "Antwortmöglichkeit A"
    153. CheckBox2.Text = "Antwortmöglichkeit B"
    154. CheckBox3.Text = "Antwortmöglichkeit C"
    155. CheckBox4.Text = "Antwortmöglichkeit D"
    156. B = True
    157. C = True
    158. D = True
    159. A = False
    161. Case 14
    162. Label5.Text = "a + c + d ist richtig"
    163. CheckBox1.Text = "Antwortmöglichkeit A"
    164. CheckBox2.Text = "Antwortmöglichkeit B"
    165. CheckBox3.Text = "Antwortmöglichkeit C"
    166. CheckBox4.Text = "Antwortmöglichkeit D"
    167. A = True
    168. C = True
    169. D = True
    171. B = False
    173. Case 15
    174. Label5.Text = "alle sind richtig"
    175. CheckBox1.Text = "Antwortmöglichkeit A"
    176. CheckBox2.Text = "Antwortmöglichkeit B"
    177. CheckBox3.Text = "Antwortmöglichkeit C"
    178. CheckBox4.Text = "Antwortmöglichkeit D"
    179. A = True
    180. B = True
    181. C = True
    182. D = True
    183. End Select
    184. End Sub
    186. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    187. Button1.Enabled = False
    188. Button2.Enabled = True
    189. CheckBox1.Enabled = True
    190. CheckBox2.Enabled = True
    191. CheckBox3.Enabled = True
    192. CheckBox4.Enabled = True
    197. If Form1.RadioButton1.Checked = True Then
    198. Questionnumber += 1
    199. If Questionnumber > 14 Then
    200. Questionnumber = 1
    201. End If
    202. End If
    204. If Form1.RadioButton2.Checked = True Then
    206. Dim a(15) As Integer
    207. For i As Integer = 1 To 16
    208. a(i - 1) = i
    209. Next
    210. Dim r As New Random
    211. Dim b() As Integer = (From i As Integer In a Order By r.NextDouble Select i Take 6).ToArray
    212. Questionnumber = a
    214. End If
    220. Select_Questions()
    221. Button2.Text = "Prüfen"
    222. CheckBox1.Checked = False
    223. CheckBox2.Checked = False
    224. CheckBox3.Checked = False
    225. CheckBox4.Checked = False
    226. Label7.Text = ""
    227. End Sub
    229. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    230. If A = CheckBox1.Checked And B = CheckBox2.Checked And C = CheckBox3.Checked And D = CheckBox4.Checked Then
    231. Label7.Text = "richtig"
    232. Label7.ForeColor = Color.Green
    233. Else
    234. Label7.Text = "falsch"
    235. Label7.ForeColor = Color.Red
    236. End If
    237. Button1.Enabled = True
    238. Button2.Enabled = False
    239. A = False
    240. B = False
    241. C = False
    242. D = False
    243. Button1.Text = "weiter"
    244. End Sub
    245. End Class


    Ein Teil davon ist das da:

    VB.NET-Quellcode

    1. If Form1.RadioButton2.Checked = True Then
    3. Dim a(14) As Integer
    4. For i As Integer = 1 To 15
    5. a(i - 1) = i
    6. Next
    7. Dim r As New Random
    8. Dim b() As Integer = (From i As Integer In a Order By r.NextDouble Select i Take 6).ToArray
    10. Questionnumber = a
    12. End If


    Nur geht das da nicht, weil der Wert vom Thyp "1-dimensionales Array von Integer" kann nicht in "Integer" konvertiert werden:

    VB.NET-Quellcode

    1. Questionnumber = a


    Vom Ansatz her müsste das doch jetzt aber richtig sein oder?
    Also ich will, dass die Frafen in ungeordneter Reihenfolge abgefragt werden.
    LG Marius

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

    marius schrieb:

    was mein Problem ist:

    Dein Problem ist, dass dir die Grundlagen der Grundlagen fehlen, dein "Programm" für dich momentan weit außerhalb deiner Kenntnisse liegt und du das nicht einsehen willst oder kannst!

    VB.NET-Quellcode

    1. Questionnumber = a

    Questionnumber ist eine ZAHL. a sind viele Zahlen
    Hast du Mathe in der Schule?
    x = 1, 2, 7, 9, 12, 16 ... sieht komisch aus oder?


    VB.NET-Quellcode

    1. Dim b() As Integer = (From i As Integer In a Order By r.NextDouble Select i Take 6).ToArray

    Ich find's ja schön, wenn Leute meinen Code hilfreich finden, aber wenn sie ihn nur kopieren ohne auch nur den Hauch davon zu verstehen, dann wird das nix!

    VB.NET-Quellcode

    1. Case 1
    2. Label5.Text = "A ist richtig"
    3. CheckBox1.Text = "Antwortmöglichkeit A"
    4. CheckBox2.Text = "Antwortmöglichkeit B"
    5. CheckBox3.Text = "Antwortmöglichkeit C"
    6. CheckBox4.Text = "Antwortmöglichkeit D"
    7. A = True
    8. B = False
    9. C = False
    10. D = False

    Du willst 212 Fragen in deinem "Quiz". Und die willst du alle SO darstellen? Schneidest du den Rasen eines Fußballfeldes auch mit ner Nagelschere?

    picoflop schrieb:

    Schneidest du den Rasen eines Fußballfeldes auch mit ner Nagelschere?
    :thumbup: :thumbup: :thumbup:
    @marius: Überleg mal, ob es möglich ist, das ganze mit Fragen und Antworten in einer Datei, meinetwegen zunächst im Quellcode, drastisch zusammenzufassen.
    Bevor Du nicht programmierst, überleg Dir einen Algorithmus dafür.
    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