Pomoc!Hitno!VB6

zeksiv · 15.01.2009. u 20:40

Private Sub Command1_Click()

If pitanje = 0 Then GoTo prvopitanje
If pitanje = 1 Then GoTo drugopitanje
If pitanje = 2 Then GoTo trcepitanje

prvopitanje: ' za prvo pitanje stavi sam pitanje i odgovore na formu
If Option2.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz"
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"
netacno = netacno + 1
End If

pitanje = pitanje + 1
Frame1.Caption = "No.2"
Label1.Caption = "Proba"
Option1.Caption = "Tacno"
Option2.Caption = "Netacno"
Option3.Caption = "Netacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub

drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "No.3"
Label1.Caption = "Proba"
Option1.Caption = "Netacno"
Option2.Caption = "Netacno"
Option3.Caption = "Tacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub

trcepitanje:
If Option3.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz"
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"
netacno = netacno + 1
End If
End Sub

Problem je u tome sto posle tacnog odgovora na drugo pitanje ne prebacuje na trece pitanje. Ako neko zna gresku neka mi kaze, hitno mi je...

snoshaj efendija · 15.01.2009. u 21:08

fali ti end if

zeksiv · 15.01.2009. u 21:26

snoshaj efendija:
fali ti end if

Oznaci mi gde. Ne vidim gde fali...

snoshaj efendija · 15.01.2009. u 21:52

drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz"
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "No.3"
Label1.Caption = "Proba"
Option1.Caption = "Netacno"
Option2.Caption = "Netacno"
Option3.Caption = "Tacno"
Option4.Caption = "Netacno"
Option1.Value = True
END IF
Exit Sub

zeksiv · 16.01.2009. u 12:48

Kod:

Public pitanje as integer
Private Sub Command1_Click()


If pitanje = 0 Then GoTo prvopitanje
If pitanje = 1 Then GoTo drugopitanje
If pitanje = 2 Then GoTo trecepitanje


prvopitanje: ' za prvo pitanje stavi sam pitanje i odgovore na formu
If Option2.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz" 
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz" 
netacno = netacno + 1
End If

pitanje = pitanje + 1
Frame1.Caption = "No.2"
Label1.Caption = "Proba"
Option1.Caption = "Tacno"
Option2.Caption = "Netacno"
Option3.Caption = "Netacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub


drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz" 
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "No.3"
Label1.Caption = "Proba"
Option1.Caption = "Netacno"
Option2.Caption = "Netacno"
Option3.Caption = "Tacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub

trecepitanje:
If Option3.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz"
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"
netacno = netacno + 1
End If
End Sub

Kako ubaciti random funkciju u ovaj kod?

snoshaj efendija · 17.01.2009. u 00:41

zeksiv:

Kod:

Public pitanje as integer
Private Sub Command1_Click()


If pitanje = 0 Then GoTo prvopitanje
If pitanje = 1 Then GoTo drugopitanje
If pitanje = 2 Then GoTo trecepitanje


prvopitanje: ' za prvo pitanje stavi sam pitanje i odgovore na formu
If Option2.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz" 
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz" 
netacno = netacno + 1
End If

pitanje = pitanje + 1
Frame1.Caption = "No.2"
Label1.Caption = "Proba"
Option1.Caption = "Tacno"
Option2.Caption = "Netacno"
Option3.Caption = "Netacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub


drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz" 
netacno = netacno + 1
End If
pitanje = pitanje + 1
Frame1.Caption = "No.3"
Label1.Caption = "Proba"
Option1.Caption = "Netacno"
Option2.Caption = "Netacno"
Option3.Caption = "Tacno"
Option4.Caption = "Netacno"
Option1.Value = True
Exit Sub

trecepitanje:
If Option3.Value = True Then
MsgBox "Tacno !!", vbInformation, "Kviz"
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"
netacno = netacno + 1
End If
End Sub

Kako ubaciti random funkciju u ovaj kod?

Na kom mestu...zavisi...

zeksiv · 18.01.2009. u 11:49

snoshaj efendija:
Na kom mestu...zavisi...

Da mi random funkcija generise nasumican izbor pitanja.

sist_ing · 18.01.2009. u 20:47

Mislim da ti treba unapred definisani niz promenljivih kojima dodeljujes vrednost tvojih pitanja, zatim Rnd() funkcijom generises nasumican broj pitanja.
To bi izgledalo ovako:

Kod:

[COLOR="Navy"]Option Base 1[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Pitanje(10) [COLOR="#000080"]As String[/COLOR]

[COLOR="Navy"]Private Sub[/COLOR] Command1_Click()
[COLOR="#000080"]On Error Resume Next[/COLOR]
    Pitanje(1) = "Prvo pitanje"
    Pitanje(2) = "Drugo pitanje"
    Pitanje(3) = "Trece pitanje"
    Pitanje(4) = "Cetvrto pitanje"
    Pitanje(5) = "Peto pitanje"
    Pitanje(6) = "Sesto pitanje"
    Pitanje(7) = "Sedmo pitanje"
    Pitanje(8) = "Osmo pitanje"
    Pitanje(9) = "Deveto pitanje"
    Pitanje(10) = "Deseto pitanje"
    '
    Label1.Caption = Pitanje(10 * Rnd + 1)
    '
[COLOR="#000080"]End Sub[/COLOR]

Sad ti experimentisi sa vrednostima funkcije Rnd "10 i 1"... sto je veci broj, to je slucajnost veca. :bye:

mornar_popaj · 22.01.2009. u 13:44

http://forum.krstarica.com/threads/222180

Pomoc!Hitno!VB6

zeksiv

Ističe se

snoshaj efendija

Elita

zeksiv

Ističe se

snoshaj efendija

Elita

zeksiv

Ističe se

snoshaj efendija

Elita

zeksiv

Ističe se

sist_ing

Zainteresovan član

mornar_popaj

Ističe se

Slične teme