Kviz VB6 - problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Primer random fu-je:

pitanje=INT(1+10*RND(0))

slucajan ceo broj iz intervala 1-10


ovde je RND(0) funkcija koja daje realan broj iz intervala [0,1)

10*RND(0) je realan broj iz intervala [0,10)

1+10*RND je realan broj iz intervala [1,11)

INT(1+10*RND(0)) je ceo broj iz intervala [1,10]

Da se ne bi ponavljali brojevi svaki put kad se startuje program obicno se na pocetku programa napise: Randomize Timer


Usput, meni je predavao Malbaski.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kao sto rekoh na elitesecurity forumu kod je jako los:)

Decku inace treba za seminarski pretpostavljam ili tako nesto, nije programer.

Kod mu je prekopiran iz ko zna cijeg.

funkcija za random u VB6 bi isla otprilike ovako:

pitanje = CInt(Int(3 * Rnd)) - da bi dobio izmedju 0 i 3

probaj to da stavis kako snoop rece pre IF-a pa ce valjda raditi.

Ali koncept je jako los, mislim ako ce ti posluziti za to sto ti treba, ne treba da ucis programiranje samo zbog jednog kviza (ako se neces kasnije jos baviti time)

poz

Drejk

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

drejk ::Kao sto rekoh na elitesecurity forumu kod je jako los:)

Decku inace treba za seminarski pretpostavljam ili tako nesto, nije programer.

Kod mu je prekopiran iz ko zna cijeg.

funkcija za random u VB6 bi isla otprilike ovako:

pitanje = CInt(Int(3 * Rnd)) - da bi dobio izmedju 0 i 3

probaj to da stavis kako snoop rece pre IF-a pa ce valjda raditi.

Ali koncept je jako los, mislim ako ce ti posluziti za to sto ti treba, ne treba da ucis programiranje samo zbog jednog kviza (ako se neces kasnije jos baviti time)

poz

DrejkKada ubacim random funkciju tu gde ste rekli izbacuje nasumicno pitanja, ali onda kada potvrdim tacan odgovor, prikazuje ga kao netacan? Ako ima neko ko moze da mi iskucka code za dva-tri pitanja sa random funkcijom, bez ovih GoTo. Dva`es` dana se mučim s tim kvizom i ni makac....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Evo ti nesto nabrzaka sklepano...

poz

Drejk
[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

drejk ::Evo ti nesto nabrzaka sklepano...

poz

Drejk
[Link mogu videti samo ulogovani korisnici]
Meni se i ovde javlja problem. Kada napisem x=CInt(Int(3 * Rnd)) - opet se javlja problem oko tacnih i netacnih odgovora. A, ako ostavim x=randompitanje, izbacuje mi Sub or Function not definied...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne trebas ovde nista da dopisujes.

Randomiziranje sam izvukao u funkciju

Function RandomPitanje() As Integer

Randomize

RandomPitanje = (Int((3 * Rnd)))

End Function

a ovim ga poziva

x = RandomPitanje()

tako da je vec randomizirano.. ne trebas nista menjati.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

drejk ::Ne trebas ovde nista da dopisujes.

Randomiziranje sam izvukao u funkciju

Function RandomPitanje() As Integer

Randomize

RandomPitanje = (Int((3 * Rnd)))

End Function

a ovim ga poziva

x = RandomPitanje()

tako da je vec randomizirano.. ne trebas nista menjati.Ako skinem kviz onakav kakvog si ga uploadovao, pise mi Sub or Function not definied, a ako ubacim ovo onda na uvek drugom pitanju moram kliknuti dva puta da bi preslo na sledece pitanje...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne bi trebalo da kliknes dva puta, moguce da je dva puta zabo isto pitanje za redom (teorija verovatnoce

Gde ti javlja sub or function not defined na x=RandomPitanje()?

pa postoji ta funkcija u modulu... nije mi jasno...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

OK, resio sam to. Ponekad mi se jave dva ista pitanja - ali to je teorija verovatnoce kao sto kazes. Nego, problem mi je sad na primer ako imam 20 pitanja, kako da namestim da posle 5 pitanja izbaci rezultat i da bude kraj igre?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Prelazimo na PM, ako niko nema nista protiv