Quiz

  • VB6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Maltevb.

    Quiz

    Hallo, ich muss in der Schule ein beliebiges Programm programmieren. Ich habe mich für ein Quiz entschieden. Dafür hat jemand anderes in einem anderen Forum schon mal den Grundlegenden Quellcode gepostet (Damit Fragen angezeigt werden etc.). Nun möchte ich, wenn die Antwort richtig ist. Das auf der rechten Seite ein balken immer weiter nach oben geht. Nur wie mache ich das?



    Da auf der rechten Seite sind alle Labels.

    Ein weiteres Problem ist, dass er sagt die Antwort ist richtig, obwohl die Antwort Falsch ist.

    Quellcode

    1. Option Explicit
    3. Dim Datei As String
    4. Dim i, n, r As Integer
    5. Dim Frage(200) As String
    6. Dim Antwort(200, 4) As String
    7. Dim Richtig(200) As Integer
    9. Private Sub Command1_Click(Index As Integer)
    10. If Index + 1 = Richtig(r) Then
    11. Label3.Caption = "richtig"
    12. Else
    13. Label3.Caption = "falsch"
    14. End If
    15. If Label3.Caption = "falsch" Then
    16. tmr1.Enabled = False
    17. Command1(0).BackColor = vbRed
    18. tmr2.Enabled = False
    19. Command1(1).BackColor = vbRed
    20. tmr3.Enabled = False
    21. Command1(2).BackColor = vbRed
    22. tmr4.Enabled = False
    23. Command1(3).BackColor = vbRed
    24. Else: Label3.Caption = "richtig"
    25. End If
    27. If Label3.Caption = "richtig" Then
    28. tmr1.Enabled = False
    29. Command1(0).BackColor = vbGreen
    30. tmr2.Enabled = False
    31. Command1(1).BackColor = vbGreen
    32. tmr3.Enabled = False
    33. Command1(2).BackColor = vbGreen
    34. tmr4.Enabled = False
    35. Command1(3).BackColor = vbGreen
    36. Else: Label3.Caption = "falsch"
    37. End If
    40. End Sub
    42. Private Sub Command2_Click()
    43. If Label3.Caption = "richtig" Then
    44. Label4(0).BackColor = vbGreen
    45. End If
    46. With Me
    47. .tmr1.Enabled = False
    48. .Command1(0).BackColor = &HC0C0C0
    49. .tmr2.Enabled = False
    50. .Command1(1).BackColor = &HC0C0C0
    51. .tmr3.Enabled = False
    52. .Command1(2).BackColor = &HC0C0C0
    53. .tmr4.Enabled = False
    54. .Command1(3).BackColor = &HC0C0C0
    55. End With
    56. Label3.Caption = "Falsch oder Richtig"
    57. tmr1.Enabled = True
    58. End Sub
    60. Private Sub Form_Load()
    61. Datei = "H:\ALG\Quizz\Fragen.txt"
    62. Open Datei For Input As #1
    63. Do While Not EOF(1)
    64. i = i + 1
    65. Line Input #1, Frage(i)
    66. For n = 0 To 3
    67. Line Input #1, Antwort(i, n)
    68. Next
    69. Input #1, Richtig(i)
    70. Loop
    71. Close #1
    72. Frage_Stellen
    73. With Me
    74. .tmr1.Enabled = False
    75. .tmr2.Enabled = False
    76. .tmr3.Enabled = False
    77. .tmr4.Enabled = False
    78. End With
    80. End Sub
    82. Private Sub Frage_Stellen()
    83. r = Int(Rnd(1) * i) + 1
    84. Label1.Caption = Frage(r)
    85. For n = 0 To 3
    86. Label2(n).Caption = Antwort(r, n)
    87. Next
    88. End Sub
    94. Private Sub Label5_Click(Index As Integer)
    96. End Sub
    100. Private Sub tmr1_Timer()
    102. Command1(0).BackColor = vbGreen
    103. Command1(3).BackColor = &HC0C0C0
    104. tmr4.Enabled = False
    105. tmr2.Enabled = True
    106. End Sub
    108. Private Sub tmr2_Timer()
    109. tmr3.Enabled = True
    110. Command1(0).BackColor = &HC0C0C0
    111. Command1(1).BackColor = vbGreen
    112. tmr1.Enabled = False
    114. End Sub
    116. Private Sub tmr3_Timer()
    117. tmr4.Enabled = True
    118. Command1(1).BackColor = &HC0C0C0
    119. Command1(2).BackColor = vbGreen
    120. tmr2.Enabled = False
    121. End Sub
    123. Private Sub tmr4_Timer()
    124. tmr1.Enabled = True
    125. Command1(2).BackColor = &HC0C0C0
    126. Command1(3).BackColor = vbGreen
    127. tmr3.Enabled = False
    128. End Sub


    Der Text ist noch ohne Kommentare und da ich auch nicht der King in vb bin, sind an manchen stellen sicherlich auch nocht schlecht programmierte Zeilen.

    Ich bitte aber nur das wesentliche zu beachten und mir zu helfen :)

    Achso eine Frage habe ich noch :) wie kann man in der mitte einen Countdown machen? Der jetzt in dem Bild zu sehen ist, ist im Hintergrund also in der Grafik drinnen. Ich würde denn dann wegmachen und mir irgendwie einen in Visual Basic zu programmieren.

    Bitte kein Komplettlösung, sondern nur Hilfen :) Weil sonst könnt ihr das ja gleich für mich schreiben :D

    Ich danke euch schonmal im voraus.

    Mit freundlichen Grüßen

    Malte Schneider


    *Topic verschoben*

    ________________________________

    Hallo, den Countdown habe ich gerade selber hinbekommen. Jetzt bleiben noch die anderen fragen übrig.

    Mit freundlichen Grüßen

    Malte Schneider
    ________________________________

    Ich habe das jetzt mit den Fragen hinbekommen. Bleibt nur noch die Frage, wie ich das mit den grünen Balken hinbekommen, der bei jeder richtigen Fragen einen nach oben geht?

    Kann man das irgendwie machen, dass der sich bewegt also ka koordinaten ändern oder so?

    Habe das jetzt noch mti Label, die den Hintergrund wechseln sollen. Aber funktioniert nur bei dem ersten Label, weil ich nicht weiß wie das geht, dass er immer das Label über dem grünen Label grün machen soll :)

    Mit freundlichen Grüßen

    Malte

    Edit By Agent: Keine dreifach-Posts! Es gibt eine Bearbeiten-Funktion! -> Posts zusammengefügt

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

    Du könntest z.B. ein Shape nehmen. Hier mal ein kleines Beispiel.

    Visual Basic-Quellcode

    1. Private Sub Balken_Hoch()
    3. If Shape1.Height < 1000 Then
    4. Shape1.Height = Shape1.Height + 50
    6. Shape1.Top = 1000 - Shape1.Height
    7. End If
    9. End Sub
    11. Private Sub Balken_reset()
    12. Shape1.Left = Me.Width - Shape1.Width - 150
    13. Shape1.Top = 1000
    14. Shape1.Height = 0
    15. Shape1.BackColor = vbGreen
    16. Shape1.BackStyle = 1
    18. End Sub
    20. Private Sub Command1_Click()
    21. Balken_Hoch
    22. End Sub
    24. Private Sub Form_Load()
    25. Balken_reset
    27. End Sub
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Ich habe jetzt ein Sharp und möchte, dass es jedesmal wenn Label4.Caption = "richtig" ist soll es 20 px oder halt ensprechenden wert nach oben gehen? wie macht man das?

    Also es soll beim clicken auf einen Button geprüft werden, ob die Caption von einem Label = "richtig" ist und dann soll er, sofern die Bedingung erfüllt wird ein Shape einmal um 20 pixel nach oben und da stehen lassen. Beim nächsten mal falls die Bedinung erfüllt ist, soll das Shape wieder 20 pixel nach oben bewegen.

    Mit freundlichen Grüßen

    Malte Schneider

    Ich habe nochmal eine Frage unzwar ... hab eich das quiz soweit fertig er nimmt auch zufällige fragen aber diese fragen sind immer in der gleich rein folgen.

    also wenn man das quiz startet nimmt er immer

    z.B. Frage 1,4,6,3,2,3,4....
    und wenn man dann das Quiz nochmal aufmacht, dann nimmt er wieder diese Fragen.

    Ich muss das morgen abgeben und wäre nett wenn mir noch jemand schnell sagen könnte wie man machen, kann das er auch unterschiedliche fragen nimmt.


    den grundlegenden Quellcode könnt ihr in meinem ersten Code sehen.

    hängt da mit

    Quellcode

    1. Option Explicit
    3. Dim Datei As String
    4. Dim i, n, r As Integer
    5. Dim Frage(200) As String
    6. Dim Antwort(200, 4) As String
    7. Dim Richtig(200) As Integer
    10. Private Sub Form_Load()
    12. Datei = "C:\Quizz\Fragen.txt"
    13. Open Datei For Input As #1
    14. Do While Not EOF(1)
    15. i = i + 1
    16. Line Input #1, Frage(i)
    17. For n = 0 To 3
    18. Line Input #1, Antwort(i, n)
    19. Next
    20. Input #1, Richtig(i)
    21. Loop
    22. Close #1
    24. Private Sub Frage_Stellen()
    26. 'Frage und Antworten werden ausgelesen
    27. r = Int(Rnd(1) * i) + 1
    28. Label1.Caption = Frage(r)
    29. For n = 0 To 3
    30. Label2(n).Caption = Antwort(r, n)
    31. Next
    32. End Sub


    das dürften die wichtigen Codeteile sein.

    Mit freundlichen Grüßen

    Malte

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

    Visual Basic-Quellcode

    1. Private Sub Frage_Stellen()
    3. 'Frage und Antworten werden ausgelesen
    4. randomize timer
    5. r = Int(Rnd(1) * i) + 1
    6. Label1.Caption = Frage(r)
    7. For n = 0 To 3
    8. Label2(n).Caption = Antwort(r, n)
    9. Next
    10. End Sub
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende