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 2803 korisnika na forumu :: 58 registrovanih, 4 sakrivenih i 2741 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: 5.56, AC-DC, AMX72, Avalon015, BB, bojank, bolenbgd, brkan1, bukefal, cenejac111, Crazzer, darko_c, dd201176, dejan1972, DezurniOperativni, Dovla, Giskard, GveX, Hans Gajger, iceburn, invictuss, istina, Ivoo, K a s p e r, koliko, kybonacci, ludiagresivan, maxim_von_burdengate, mean_machine, Metanoja, mikrimaus, Milun24, monomah, N.e.m.a.nj.a., Nemanja.M, nenad81, nenomir, Paklenica, Panter, Parker, peradetlić, raster12, Semberija, Semprini, Siti2, skok, spektorsky, sslay, svnedelja, v82, vargas, VJ, vzd1389, zajcev1, zastavnik, Zoran1959, Zrcalo, 79693