galeee
17.1.2009, 15:05
Da li neko moze da mi napise kod za dva-tri pitanja sa random funkcijom cisto da vidim kako ide? Ja sam pokusavao sa ovim kodom ali kada ubacim random funkciju onda mi tacne odgovore prikazuje kao netacne....Molim Vas, pomozite!
Public pitanje As Integer
Private Sub Command2_potvrdi_Click()
If pitanje = 0 Then GoTo prvopitanje
If pitanje = 1 Then GoTo drugopitanje
If pitanje = 2 Then GoTo trecepitanje
If pitanje = 3 Then GoTo cetvrtopitanje
prvopitanje: `pitanje i odgovori su postavljeni na formi
If Option2.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Koliko iznosi 100 procenata od broja 1?"
Option1.Caption = "1"
Option2.Caption = "2"
Option3.Caption = "0.5"
Option4.Caption = "10"
Exit Sub
drugopitanje:
If Option1.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Broj pi ima vrednost?"
Option1.Caption = "3.24"
Option2.Caption = "2.24"
Option3.Caption = "3.14"
Option4.Caption = "1.14"
Exit Sub
trecepitanje:
If Option3.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Mika Petrovic je imao nadimak?"
Option1.Caption = "Som"
Option2.Caption = "Saran"
Option3.Caption = "Riba"
Option4.Caption = "Alas"
Exit Sub
cetvrtopitanje:
If Option4.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
End Sub
Public pitanje As Integer
Private Sub Command2_potvrdi_Click()
If pitanje = 0 Then GoTo prvopitanje
If pitanje = 1 Then GoTo drugopitanje
If pitanje = 2 Then GoTo trecepitanje
If pitanje = 3 Then GoTo cetvrtopitanje
prvopitanje: `pitanje i odgovori su postavljeni na formi
If Option2.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Koliko iznosi 100 procenata od broja 1?"
Option1.Caption = "1"
Option2.Caption = "2"
Option3.Caption = "0.5"
Option4.Caption = "10"
Exit Sub
drugopitanje:
If Option1.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Broj pi ima vrednost?"
Option1.Caption = "3.24"
Option2.Caption = "2.24"
Option3.Caption = "3.14"
Option4.Caption = "1.14"
Exit Sub
trecepitanje:
If Option3.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "Mika Petrovic je imao nadimak?"
Option1.Caption = "Som"
Option2.Caption = "Saran"
Option3.Caption = "Riba"
Option4.Caption = "Alas"
Exit Sub
cetvrtopitanje:
If Option4.Value = True Then
MsgBox "Tacan odgovor!", vbInformation, "Kviz znanja"
tacno = tacno + 1
Else
MsgBox "Netacan odgovor!", vbInformation, "Kviz znanja"
netacno = netacno + 1
End If
End Sub