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 961 korisnika na forumu :: 114 registrovanih, 9 sakrivenih i 838 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: -[CoA]-, 4. Ozrenska, _stipa_, Aleksa 3215, alex71, ALEXV, anbeast, Aska, BAKI89, Barista, Bbbggg1979, Bo96, Bob.Rock, bojank, BrcakRS, brufen, Chainsaw, Cicumile, Cirkon, cuvarkuca, cyprus, d.arsenal321, Dambi, DavidA, DeerHunter, delrey, desmeki, Dimitrije Paunovic, Djole3621, Doc, DonRumataEstorski, Dorcolac, Draganeli, draganl, Dzumanga, Džekson, Folkstar, Gagi193, gajasvi, GazdaDjoka, GrammaticalAnalysis, Grochow, GveX, HogarStrashni, Imperator_Aleksandr_lll, Ir, istina, Jeremiah, JimmyNapoli, Jozo74, K a s p e r, Kapo64, kikisp, kolle.the.kid, Komanca, Kototamopeva, Krin, ladro, Laluvr, lord sir giga, Lotus, madza, Malahit, marsovac 2, matrix_1, mercedesamg, milenko crazy north, Miler88, Milos1987, Milovan Dinic, mnn2, Mux007, nemkea71, nikoladim, ostoja, OtacMakarije, pein, Pero, Pero Petković, PITT, Prečanin30, Radoslava, RajkoB, raykan, rebro1974, Rothmans, samojednoimeznam, sarma, Sass Drake, septembar, Shinobi, shiro, shlauf, Smiljkovich, spot4chulle, Srki98, ssekir75, stalja, styg, svetleći, TBF1D, tomo2, Trimi68, tuja, Vanderx, Vlado82, Vladoj, Wrangler, xAlex2, Yugol33, ZetaMan, zil10, Zmaj Tolak, 787