MyCity » Visual Studio -> Visual Basic » Kviz VB6 - problem

Kviz VB6 - problem

Napisano na dan: 16.1.2009
5

Kviz VB6 - problem
Pagination Prethodna strana

Idi na vrh

Poslao: 30 Jan 2009 18:09
Idi na vrh
offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

Kako da namestim da mi se u toku jedne igre ne pojavljuju dva ista pitanja?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 31 Jan 2009 15:01
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Uradi ovako(bilo je na jednom forumu):

Option Explicit Dim question(1 To 500) As Long   '  500 ti je broj pitanja, ti upisi koji tebi treba Dim currentQuestion As Long Sub InitQuestions()   Dim i As Long     Randomize Timer     For i = LBound(question) To UBound(question)      question(i) = i   Next   End Sub Function Random(min As Long, max As Long) As Long   Random = Int(Rnd * (max - min + 1)) + min End Function Sub RandomizeQuestions()     Dim i As Long   Dim k As Long   Dim t As Long   For i = LBound(question) To UBound(question)     k = Random(LBound(question), UBound(question))     t = question(k)     question(k) = question(i)     question(i) = t   Next End Sub Private Sub Command1_Click()     Dim n As Integer     Open "Redni brojevi pitanja.txt" For Output As #1         For n = 1 To UBound(question)             List1.AddItem question(n)             Print #1, question(n)         Next n     Close #1 End Sub Sub Form_Load()         InitQuestions  ' ovo pozoves na pocetku programa     ' a ovo tamo gde hoces da promesas pitanja (moze u Form_Load)     RandomizeQuestions     currentQuestion = 1  ' prvo pitanje   End Sub
[Link mogu videti samo ulogovani korisnici]
[/code]



MyCity » Visual Studio -> Visual Basic » Kviz VB6 - problem

Ko je trenutno na forumu
 

Ukupno su 956 korisnika na forumu :: 71 registrovanih, 6 sakrivenih i 879 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: amaterSRB, Arhiv, Ben Roj, bladesu, Bojan198527, bojan_t, bojanstros9, Botovac, Bubimir, cenejac111, Chainsaw, CraniumWhite, Crazzer, Dambi, DejanSt, deLacy, Dovla 1980, dukajov, dule10savic, Flanker-G, FOX, HogarStrashni, ivan979, Jakonjveliki, jalos, jodzula, kaisarevic1, karevski, krca73, Kriglord, Kubovac, Leonov, Lester Freamon, ljuba.b, M74AB3, Michellefromrezistance, milutin134, Miškić, nebidrag, nekdo, nelezele, niksa517, nuki1234, Panter, perko91, perunnurep, pipanova, Povratak1912, Prašinar, proka89, Ripanjac, samojednoimeznam, Sirius, Skakac7, Sr.Stat., Srle993, stalja, stegonosa, styg, t84dar, virked, VJ, Vlad000, vlahale, vojnik švejk, vuksa72, wizzardone, YU-UKI, zgoljo, ZlatniRez, Zorge