Log In
Home
March 10, 2002
Offline
Hade tänkt göra ett frågesportsprogram som projekt i skolan. Men har fastnat lite. D;
Grafiken ska se ut såhär ungefär:
http://www.dehman.org/projekt.jpg
Men vet inte hur jag ska göra riktigt, vill att frågorna ska komma random. Vill inte sitta med 200 formulär. 😀
Så några tips på kod? =)
May 29, 2001
Offline
Nu kan jag inte så mycket VB, men jag skulle ha lagt upp frågorna i en array och sen generat slumptal som är mellan 1-20 (om arrayen har 20 element tex) då får du ett slumptal som matchar index på arrayen och så skriver du ut den frågan.
Nu vet jag inte hur det är med objekt i VB, men det vore snyggt om du gjorde en array som kunde innehålla "fråge objekt", fråge objekten består då av:
1. frågan
2. olika svars alternativ
3. rätt svar
Sen så plockar du bara ut ett fråge objekt ur arrayen, presenterar frågan och alternativen och jämför svaret från användaren med rätt svar.
Jaja hoppas att det var till någon hjälp i alla fall.
March 10, 2002
Offline
squarepusher wrote: Nu kan jag inte så mycket VB, men jag skulle ha lagt upp frågorna i en array och sen generat slumptal som är mellan 1-20 (om arrayen har 20 element tex) då får du ett slumptal som matchar index på arrayen och så skriver du ut den frågan.
Nu vet jag inte hur det är med objekt i VB, men det vore snyggt om du gjorde en array som kunde innehålla "fråge objekt", fråge objekten består då av:
1. frågan
2. olika svars alternativ
3. rätt svar
Sen så plockar du bara ut ett fråge objekt ur arrayen, presenterar frågan och alternativen och jämför svaret från användaren med rätt svar.
Jaja hoppas att det var till någon hjälp i alla fall.
Okej får kolla lite närmre på det. =)
March 10, 2002
Offline
Nu har jag kommit lite på vägen. Här är koden såhär långt:
Private MyArray() As String, score As Integer, ans As String, QuestionNr As Integer
Private Sub question()
SplitArray = Split(MyArray(i), ",")
fra = SplitArray(0)
svar1.Caption = SplitArray(1)
svar2.Caption = SplitArray(2)
svar3.Caption = SplitArray(3)
svar4.Caption = SplitArray(4)
ans = SplitArray(5)
End Sub
Private Sub next_Click()
Dim answer As String
If svar1.Value = True Then answer = svar1.Caption
If svar2.Value = True Then answer = svar2.Caption
If svar3.Value = True Then answer = svar3.Caption
If svar4.Value = True Then answer = svar4.Caption
If answer = ans Then
score = score + 1
Else
score = score + 0
End If
Call question
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Open "D:WUTempProgrammeringProjekt Prog. Bmyfile.txt" For Input As #1
Do Until EOF(1)
ReDim Preserve MyArray(i)
Line Input #1, MyArray(i)
i = i + 1
Loop
Call question
End Sub
Men jag får inte next att fungera. Vad är fel? =/
1 Guest(s)
