---

Hvordan genererer et tilfældigt 12 cifret tal, ved at bruge "Randomize"??

---

"Dondata" <tim_data@hotmail.com> wrote:

>Hvordan genererer et tilfældigt 12 cifret tal, ved at bruge "Randomize"??

RANDOMIZE [TIMER]
RND * 1000000000000 \ 1 ',måske

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

"Dondata" <tim_data@hotmail.com> wrote in message
news:9145ka$1dvk$1@news.cybercity.dk...
> Hvordan genererer et tilfældigt 12 cifret tal, ved at bruge "Randomize"??

Det er ikke Randomize, der i sig selv laver det tilfældige tal.
Men den "føder" tilfældigheds generatoren med system tiden.

Desværre giver brugen af Rnd() kun et komma tal på 7 decimaler,
hvilket jo ikke er helt nok til at skabe et 12 cifret tal.

Jeg har lavet et eksempel hvor et 12 cifret tal bliver stykket sammen af
fire tilfældige tal (Da du ikke nævner hvilken datatype du ønsker tallet i,
er eksemplet lavet med variant typen decimal):

Dim etStortTal as Variant

etStortTal=CDec(Int(Rnd * 1000)) * 1000000000 + CDec(Int(Rnd * 1000)) *
1000000 + CDec(Int(Rnd * 1000)) * 1000 + Int(Rnd * 1000)

Dette er ikke nogen speciel god løsning.

For prøv lige at observer hvad der sker når man køre følgende kode:


Dim n As Long ' n tæller antallet af tilfældige tal
Dim r As Single
Dim i As Integer

Randomize ' Seed

r = Rnd ' Et tilfældigt tal

Debug.Print "Udskriv ti tilfældige tal"
For i = 1 To 10
Debug.Print Rnd
Next i
n = 10 ' Vi har lige taget ti tilfældige tal

While r <> Rnd ' find hvornår det oprindelige tilfældig tal kommer igen.
n = n + 1
Wend
Debug.Print "Tallet kommer igen efter:"; n; " gange"

Debug.Print "Vi ser lige hvad de næste ti tilfældige tal er"
For i = 1 To 10
Debug.Print Rnd
Next i
Debug.Print "---------"

Hvis man køre eksemplet et par gange. Opdager man
der 16777215 tilfældige tal.

Det Randomize gør, er at starte et tilfældigt sted inde i denne række.

Med venlig hilsen

Niels G.