Just nu i M3-nätverket
Jump to content

slumptalsmysterium


Krister E

Recommended Posts

behöver hjälp av er snillen därute!

 

följande kod:

i = 0

Do Until i = 7

For x = 0 To 500

a = Int(10 * Rnd)

Text1(i).Text = a

DoEvents

Next x

a = Int(10 * Rnd)

Text1(i).Text = a

i = i + 1

Loop

 

for-satsen gör att det ser ut som en enarmad bandit, siffran rullar väldigt snabbt.

efter detta är att den helt enkelt slumpar ett tal som kommer att synas i den textrutan.

problemet är att alla tre a:n visar samma siffra för varje loop-varv, tex i 1:a varvet är dom 8, 2:a varvet 9 osv.

testat att nollställa a efter for-satsen med det spelar ingen roll.

varför slumpas det inte en ny siffra efter for-satsen?

 

mvh

krister

Link to comment
Share on other sites

Du måste köra randomize i början av programmet, men bara EN gång per program, alltså utanför dina loopar.

 

Exakt syntax har jag inte i huvudet...

 

Link to comment
Share on other sites

Hej,

 

Då en dator egentligen inte kan skapa riktigta slumptal så finns det en lista med en massa tal som man kommer åt via komandot Rnd. Problemet med din kod är att du tar ut ett tal från samma ställe ur listan.

 

Innan du startar din slumpsnurra bör du köra kommandot Randomize.

Den gör att du kommer börja från ett nytt ställe i listan varje gång.

 

/Stefan

 

Link to comment
Share on other sites

Principen är densamma, du måste använda Randomize för att det ska fungera... Får man samma tal varje gång, är det ju inte slumptal...; )

 

 

 

Link to comment
Share on other sites

Hade det varit ett krypto eller dyl. så hade jag föreslagit den där prylen som slumpar tal med hjälp av pluton i paralell-porten..

 

Skämt och sido så när det gäller spel så är det ganska viktigt att få bra slumptal då man lätt kan få väldigt bra resultat hemma på datorn och sedan springer man på casino och spelar bort alla pengar.. :)

 

Jag är förövrigt väldigt förvånad över kommandot Rnd och Randomize, i samtliga programeringsspråk så är det samma sak.. Borde har varit enkelt att Randomize körs automatiskt första gången man kör Rnd..

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...