Kviz VB6 - problem

2

Kviz VB6 - problem

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

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



offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

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

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

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

Evo ti nesto nabrzaka sklepano...

poz

Drejk
https://www.mycity.rs/must-login.png

offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

drejk ::Evo ti nesto nabrzaka sklepano...

poz

Drejk
mycity.rs/must-login.png
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...

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

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.

offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

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

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

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

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

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

offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

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?

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

Prelazimo na PM, ako niko nema nista protiv Smile

Ko je trenutno na forumu
 

Ukupno su 588 korisnika na forumu :: 40 registrovanih, 5 sakrivenih i 543 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., aramis s, asknoone84 2, attila.jukicburai, Botovac, Cobi026, Dannyboy, darkangel, Djole, dragoljub11987, duskovuk63, Faki-Valjevo, FOX, gorval, goxin, ivance95, Kristian_KG, Kubovac, lord sir giga, ltcolonel, Metanoja, Milos1977, nuke92, pericailic82, rkekoke, S-lash, shmele, Sr.Stat., tomigun, Toni, vathra, Vlada1389, vladetije, vlvl, wolverined4, x9, zixmix, zodiac94, zoranlik