Pomoc!Hitno!VB6
Prikazujem rezultate 1 do 9 od 9

Tema: Pomoc!Hitno!VB6

  1. #1
    Ističe se zeksiv (avatar)
    Učlanjen
    14.04.2008.
    Pol
    muški
    Poruke
    2.160
    Tekstova u blogu
    10
    Reputaciona moć
    57

    Podrazumevano Pomoc!Hitno!VB6

    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...



  2. #2
    Elita
    Učlanjen
    08.07.2004.
    Pol
    muški
    Poruke
    16.334
    Reputaciona moć
    355

    Podrazumevano Re: Pomoc!Hitno!VB6

    fali ti end if
    .Ovu rezoluciju su predložile Francuska, Velika Britanija, SAD, Belgija, Maroko i Mađarska, a izglasana je uz podršku Rusije sa 13 naprama 0.

  3. #3
    Ističe se zeksiv (avatar)
    Učlanjen
    14.04.2008.
    Pol
    muški
    Poruke
    2.160
    Tekstova u blogu
    10
    Reputaciona moć
    57

    Podrazumevano Re: Pomoc!Hitno!VB6

    Citat Original postavio snoshaj efendija Pogledaj poruku
    fali ti end if
    Oznaci mi gde. Ne vidim gde fali...

  4. #4
    Elita
    Učlanjen
    08.07.2004.
    Pol
    muški
    Poruke
    16.334
    Reputaciona moć
    355

    Podrazumevano Re: Pomoc!Hitno!VB6

    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
    .Ovu rezoluciju su predložile Francuska, Velika Britanija, SAD, Belgija, Maroko i Mađarska, a izglasana je uz podršku Rusije sa 13 naprama 0.

  5. #5
    Ističe se zeksiv (avatar)
    Učlanjen
    14.04.2008.
    Pol
    muški
    Poruke
    2.160
    Tekstova u blogu
    10
    Reputaciona moć
    57

    Podrazumevano Re: Pomoc!Hitno!VB6

    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?

  6. #6
    Elita
    Učlanjen
    08.07.2004.
    Pol
    muški
    Poruke
    16.334
    Reputaciona moć
    355

    Podrazumevano Re: Pomoc!Hitno!VB6

    Citat Original postavio zeksiv Pogledaj poruku
    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...
    .Ovu rezoluciju su predložile Francuska, Velika Britanija, SAD, Belgija, Maroko i Mađarska, a izglasana je uz podršku Rusije sa 13 naprama 0.

  7. #7
    Ističe se zeksiv (avatar)
    Učlanjen
    14.04.2008.
    Pol
    muški
    Poruke
    2.160
    Tekstova u blogu
    10
    Reputaciona moć
    57

    Podrazumevano Re: Pomoc!Hitno!VB6

    Citat Original postavio snoshaj efendija Pogledaj poruku
    Na kom mestu...zavisi...
    Da mi random funkcija generise nasumican izbor pitanja.

  8. #8
    Zainteresovan član sist_ing (avatar)
    Učlanjen
    28.02.2006.
    Pol
    muški
    Lokacija
    Bor
    Poruke
    292
    Reputaciona moć
    46

    Podrazumevano Re: Pomoc!Hitno!VB6

    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:
    Option Base 1
    Dim Pitanje(10) As String
    
    Private Sub Command1_Click()
    On Error Resume Next
        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)
        '
    End Sub
    Sad ti experimentisi sa vrednostima funkcije Rnd "10 i 1"... sto je veci broj, to je slucajnost veca.
    Da li si idiot? Saznaj ovde.

  9. #9
    Ističe se
    Učlanjen
    04.01.2008.
    Pol
    muški
    Lokacija
    localhost
    Poruke
    2.842
    Reputaciona moć
    65


Slične teme

  1. Pomoc oko WOW-a HITNO!!!!!!!!!!
    Autor lizer92 u forumu Video igre
    Odgovora: 4
    Poslednja poruka: 16.10.2008., 10:30
  2. POMOC HITNO
    Autor hypnotoad u forumu Mobilna telefonija
    Odgovora: 3
    Poslednja poruka: 12.09.2008., 21:46
  3. hitno pomoc
    Autor alex25 u forumu Web dizajn
    Odgovora: 2
    Poslednja poruka: 26.10.2005., 15:37
  4. HITNO POMOC!!
    Autor nid u forumu Video igre
    Odgovora: 2
    Poslednja poruka: 19.12.2004., 08:05
  5. pomoc...pod hitno...
    Autor devojcurak u forumu Zdravlje
    Odgovora: 3
    Poslednja poruka: 22.08.2004., 15:01

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •