Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

simples Quiz mit VB erstellen
Autor: non-vb-kenner
Datum: 05.10.08 18:46
Hallo zusammen, ich soll für die Schule ein Quiz erstellen, weiß aber nicht so recht weiter. Vielleicht könnt ihr mir ja helfen Das ist der bisherige Quellcode: Option Explicit Dim Datei As String Dim i, n, r As Integer Dim Frage(1 To 200) As String Dim Antwort(1 To 200, 4) As String Dim Richtig(1 To 200) As Integer Private Sub Command1_Click(Index As Integer) If Index + 1 = Richtig(r) Then 'Überprüfung = Label Überprüfung.Caption = "richtig" Else Überprüfung.Caption = "falsch" End If Frage_Stellen End Sub Private Sub Form_Load() Datei = "D:\Quizfragen.txt" 'Einlesen der txt-Datei Open Datei For Input As #1 Do While Not EOF(1) i = i + 1 Line Input #1, Frage(i) For n = 1 To 4 'Index wurde zuvor auf 1 gestellt Line Input #1, Antwort(i, n) Next Input #1, Richtig(i) Loop Close #1 Frage_Stellen End Sub Private Sub Frage_Stellen() r = Int(Rnd(1) * i) + 1 'zufällige Ausgabe der Fragen (random) Fragestellung.Caption = Frage(r) 'Fragestellung = Label For n = 1 To 4 Antwortmöglichkeit(n).Caption = Antwort(r, n) 'Antwortmöglichkeit(en) = Label Next End Sub Mein Problem ist aber, dass sich die Fragen wiederholen und kein Limit eingebaut ist. Ich wollte in die Textdatei ca. 50 Fragen reinschreiben, von denen im Quiz aber nur 15 Stück abgefragt werden sollen. Und ich hab wirklich gar keinen Peil, wie ich jetzt weiter vorgehen soll.. Wäre echt toll, wenn mir da geholfen werden könnte lg

simples Quiz mit VB erstellen	1.703	non-vb-kenner	05.10.08 18:46
Re: simples Quiz mit VB erstellen	929	Dieter	05.10.08 23:05
Re: simples Quiz mit VB erstellen	996	non-vb-kenner	05.10.08 23:49
Re: simples Quiz mit VB erstellen	880	non-vb-kenner	08.10.08 15:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen