[VB6] Randomize ? NIET !

[LG_Greenman]

Alo

Ik heb net ff een programmaatje voor school gemaakt en het werkt allemaal ok, daar geen vraag over.

Maar nu ik het programma een aantal keer opstart krijg ik ELKE keer als eerste waarde 71 en als je dan op gemiddelde drukt altijd 54,7.

Dit terwijl ik een Randomize opdracht uitvoer.

VB is al opgedate tot SP5...

Klopt de randomize van VB niet ?

[KnoppenSpook]

laat eens wat code zien dan?

[majornono]

als je eerst wat code geeft, kunnen we even kijken of je wat vergeten bent. Ik weet dat er randomize functies zijn in andere programmeertalen die je eerst moet initialiseren voordat je ze kunt gebruiken, dus misschien ben je dat vergeten.

[whoami]

majornono schreef op 07 January 2003 @ 13:32:
als je eerst wat code geeft, kunnen we even kijken of je wat vergeten bent. Ik weet dat er randomize functies zijn in andere programmeertalen die je eerst moet initialiseren voordat je ze kunt gebruiken, dus misschien ben je dat vergeten.

Dat zal in VB waarschijnlijk niet veel anders zijn.
Je zult dus eerst de randomizer moeten 'seeden'.

[gorgi_19]

Een randomize is per definitie niet random.. (logisch he)
Aangezien een computer alles berekent, kan hij in theorie ook geen random nummer bedenken.

Vergelijk je code eens met deze:

http://www.devcity.net/pubs/article.asp?alias=randomnumbers

[Verwijderd]

RANDOM NUMBERS

Rnd - Generates a random number between 0 and 1.
Randomize - Tells VB to randomly generate numbers for the rnd statement. Using randomize will allow the rnd statement to generate an entirely random set of numbers that do not follow any recognizable pattern.

Generating Numbers between 1 and 10:

Num = Int((10 - 1 + 1)* rnd + 1)

Generating Numbers between 1 and 100:

Num = Int((100 - 10 + 1)* rnd + 1)

Bron : http://bs0d.superterran.com/tutorials/vb/vb1/6.php

[Soultaker]

gorgi_19 schreef op 07 januari 2003 @ 13:33:
Vergelijk je code eens met deze:
http://www.devcity.net/pubs/article.asp?alias=randomnumbers

Ik wil niet moeilijk doen, hoor, maar van dezelfde auteur:
http://www.devcity.net/pubs/article.asp?alias=search_array

I rest my case. Dan maar liever zelf nadenken. En dan te bedenken dat die code een score van 4 uit 5 krijgt! VB programmeurs.

[LG_Greenman]

Do Until INTaantal = INTteller
INTcijfer = Round(Rnd() * INTmaxi, 0)
INTteller = INTteller + 1
LSlijst.AddItem (Str(INTcijfer))
If INTmax <= INTcijfer Then INTmax = INTcijfer
If INTcijfer <= INTmin Then INTmin = INTcijfer
INTsom = INTsom + INTcijfer
Loop


Hier berekend hij die dingen in...

en dit is het programma:

http://members.ams.chello.nl/j.groen6/Statje.exe

[Soultaker]

Verwijderd schreef op 07 januari 2003 @ 13:34:
Bron : http://bs0d.superterran.com/tutorials/vb/vb1/6.php

Weer zo'n geslaagde bron:

Rnd - Generates a random number between 0 and 1.

[..]

Generating Numbers between 1 and 100:
Num = Int((100 - 10 + 1)* rnd + 1)

Nu zal ik wel gek zijn, maar als je 91 vermenigvuldigd met een getal tussen '0 en 1' (inclusief of exclusief 1?) en er 1 bij op telt, hoe kom je dan OOIT boven de 92 uit?

Ik denk dat de topic starter het van de officiele documentatie moet hebben, want van de tips, code en tutorials van medegebruikers moet je 't duidelijk niet hebben.

[LG_Greenman]

Met dat "Randomize" erboven in de code doet hij het wel goed....

doet het nu dus goed :):)

Dank (nooit geweten dat je die moest initialiseren)

Nieuwe: http://members.ams.chello.nl/j.groen6/Statje2.exe

[ Voor 21% gewijzigd door LG_Greenman op 07-01-2003 13:49 ]

[KnoppenSpook]

Randomize 'rekent' een random getal uit, rnd vraagt dat getal op, zoiets is het dacht ik

[Soultaker]

LG_Greenman schreef op 07 januari 2003 @ 13:44:
Do Until INTaantal = INTteller
INTcijfer = Round(Rnd() * INTmaxi, 0)
INTteller = INTteller + 1
LSlijst.AddItem (Str(INTcijfer))
If INTmax <= INTcijfer Then INTmax = INTcijfer
If INTcijfer <= INTmin Then INTmin = INTcijfer
INTsom = INTsom + INTcijfer
Loop

Codetags. Quickstart.
Welkom in P&W -> Quickstart (update 2/10/2002)

En waar staat die randomize van je dan? Moet 'ie die er zelf bij verzinnen ofzo?

Nu nog één keer voor de duidelijkheid: EERST roep je 'randomize' aan om de getallen (conceptueel) door elkaar te husselen. DAARNA kun je 'rnd' aanroepen om semi-willekeurige getallen te genereren. En dan te bedenken dat ik geen VB ken!

offtopic:
Note to self:
- VB topics mijden
- dokter om valium vragen

[whoami]

KnoppenSpook schreef op 07 January 2003 @ 13:49:
Randomize 'rekent' een random getal uit, rnd vraagt dat getal op, zoiets is het dacht ik

Nee hoor, Randomize gaat gewoon de random-generator gaan initialiseren.
En met Rnd vraag je dan idd een random getal op.
Maar zoals jij het zegt, zou je willen zeggen dat je iedere keer 'Randomize' moet aanroepen voor iedere Rnd, en dat is niet waar.

[Soultaker]

whoami schreef op 07 January 2003 @ 13:54:
Maar zoals jij het zegt, zou je willen zeggen dat je iedere keer 'Randomize' moet aanroepen voor iedere Rnd, en dat is niet waar.

Sterker nog, als randomize intern de huidige tijd gebruikt om te seeden (zoals gebruikelijk is in andere talen) dan krijg je daardoor juist vaak hetzelfde getal. Of dat zo werkt, of dat men bij het ontwikkelen van VB rekening heeft gehouden met de doelgroep, weet ik echter niet precies.

[whoami]

Soultaker schreef op 07 januari 2003 @ 13:53:
[...]

offtopic:
Note to self:
- VB topics mijden
- dokter om valium vragen

Ik denk dat vooral dat laatste van toepassing is....
Een beetje kalm en relaxed blijven gewoon....

[Super_ik]

zet

code:

randomize timer

in je code, ergens bij form_load ofzo

[Glimi]

Soultaker schreef op 07 January 2003 @ 13:53:

offtopic:
Note to self:
- VB topics mijden
- dokter om valium vragen

Soultaker, iets rustiger aan ajb. Als je jezelf er _zo_ erg aan stoort ga dan eventjes afkoelen, rondje lopen, whatever, maar houdt het hier een beetje gezellig ajb

[Janoz]

KnoppenSpook schreef op 07 januari 2003 @ 13:49:
Randomize 'rekent' een random getal uit, rnd vraagt dat getal op, zoiets is het dacht ik

Nope. De random functionaliteit werkt eigenlijk meer als een soort (virtuele!) oneindige lijst met getallen. Waneer je rnd uitvoert word adhv het huidige getal (de seed van de volgende dus) bepaald wat de volgende in de 'lijst' is. Probleem is dat aan het begin de boel wel geinitialiseerd moet worden. Waneer je altijd met 0 begint zal altijd dezelfde lijst met getallen uit rnd halen. Om toch een verschillend startpunt te krijgen word als initiele seed meestal de huidige tijd in ms gebruikt. Dit is wat randomize doet (je kunt ook zelf een seed opgeven)...

Je moet nu trouwens niet denken dat er een enorme lijst met random getallen, maar meer aan een klein algoritme wat aan de hand van vorige getrokken waarden nieuwe bitjes genereert (mbv Xor)..

[MSalters]

De "random" lijst is zeker niet oneindig; uit m'n hoofd is de lengte maximaal 2^statebits-1, waarna je weer met 't eerste getal begint.

[KnoppenSpook]

ah, bedankt Janoz, weer wat geleerd

[Crazy D]

De officiele docs zijn misschien toch het handigste (MSDN) en dan krijg je er zelfs gratis een sampletje bij:

code:

Dim MyValue
Randomize   ' Initialize random-number generator.
MyValue = Int((6 * Rnd) + 1)   ' Generate random value between 1 and 6.

Hoe duidelijk wil je het hebben...
(en de tekst in de hellup bij het Randomize statement en de Rnd function zijn ook niet verkeerd om eens te bekijken)

[Janoz]

MSalters schreef op 07 januari 2003 @ 14:51:
De "random" lijst is zeker niet oneindig; uit m'n hoofd is de lengte maximaal 2^statebits-1, waarna je weer met 't eerste getal begint.

Uiteraard, maar voor vb begrippen is dat redelijk oneindig . Straks komt er iemand die gaat beweren dat je aan de hand van enkele gegenereerde random nummers kunt voorspellen wat het volgende getal wordt... (wat natuurlijk ook kan, maar dat duurt wel ff)

[.oisyn]

MSalters schreef op 07 January 2003 @ 14:51:
De "random" lijst is zeker niet oneindig; uit m'n hoofd is de lengte maximaal 2^statebits-1, waarna je weer met 't eerste getal begint.

idd, de meeste standaard random implementaties zijn gewoon een modulaire vermenigvuldiging, waarbij het getal waarmee vermenigvuldigd wordt een voortbrenger is van het modulo argument (wat idd 2^x is, aangezien dat het makkelijkst is bij modulaire berekeningen op de pc)

[Sponge]

lol. Ik dacht net aan een Dilbert plaatje na het doorlezen van dit topic, snel opgezocht, wil ik het hier plakken, zie ik dat .oisyn die signature heeft!! Over toeval gesproken

Dilbert cartoon, Hier is ie te vinden.

Overigens staan op Pscode.comp verscheidene implementaties van zelfgemaakte Random number generators met verscheidene algoritmes (onder de VB sectie). Wellicht interessant om te bekijken. Persoonlijk is RND voor mij voldoende

[.oisyn]

thanx! ik zocht m laatst
toevalligerwijs had ik m eergisteren ingesteld als sig

[ Voor 53% gewijzigd door .oisyn op 07-01-2003 18:14 ]

[Verwijderd]

Randomize timer bij form_load werkt inderdaad, aangezien timer de tijd is tussen het aanroepen van windows, en het klaar zijn met opstarten van windows, die is dus nooit hetzelfde, dit betekent dat hij altijd een random lijst maakt met als seed de timer, en dan issie toch random