Re: VB 2005 Express edition : """Willekeurige getallen""""

Article View: nl.comp.programmeren

Article #110

Back to nl.comp.programmeren Previous Next

#110

From: JanS
Date: Fri, 27 Apr 2007 21:13

39 lines
2903 bytes

"Jawade" <Henk_Jawade@hotmail.com> wrote in message 
news:MPG.209c42e12ebc1aa098aa56@news.caiway.nl...
> In article <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>, Ward 
> <mmoopp@gmail.com> says...
>> Hoe komt het dat als ik dit
>>
>>      Sub Main()
>>          Dim arraytt(5) As Byte
>>          Dim AC As Integer
>>          For AC = 1 To 5
>>              arraytt(AC) = (Int(Rnd() * 42) + 1)
>>          Next
>>          For AC = 1 To 5
>>              MsgBox(arraytt(AC))
>>          Next
>>      End Sub
>>
>> uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit
>> programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz
>> enz... Als ik echter dit in access bij modulles invoer werkt het
>> programma wel zoals het moet, hoe komt dit?
>
> Het komt omdat de random-generator steeds gereset wordt bij het
> starten. Ik gebruik dan "randomize timer" maar of dat in VB 2005
> ook nog werkt weet ik niet zeker.
>
> -- 
> Met vriendelijke groeten, Jawade.       Bootmanager ook voor Vista
> Zin in een koffie- thee- of borrelpraatje?  Kom naar alt.jawade.nl
> http://jawade.nl (Mirror op http://www.geocities.com/kolibrie.geo)
> Bootmanager, ClrMBR, DiskEditors, POP3lezer, Filebrowser, Kalender

zie MSDN voor de volledige uitleg

http://msdn2.microsoft.com/en-us/library/8zedbtdt.aspx

--
groeten

Technical Details

Message-ID: <UHtYh.144519$9G3.1015897@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed00.sul.t-online.de!t-online.de!newsfeed.freenet.de!newsfeed.kamp.net!newsfeed.kamp.net!213.239.142.2.MISMATCH!feed.xsnews.nl!border-1.ams.xsnews.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

References: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be> <MPG.209c42e12ebc1aa098aa56@news.caiway.nl>

Show Full Headers

Complete Article Headers

X-Google-Thread: 107324,8468d4a1c42425b0
X-Google-Thread: fcea4,8468d4a1c42425b0
X-Google-Attributes: gid107324,gidfcea4,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed00.sul.t-online.de!t-online.de!newsfeed.freenet.de!newsfeed.kamp.net!newsfeed.kamp.net!213.239.142.2.MISMATCH!feed.xsnews.nl!border-1.ams.xsnews.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "JanS" <invalid@invalid.invalid>
Newsgroups: nl.comp.programmeren,be.comp.programming
References: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be> <MPG.209c42e12ebc1aa098aa56@news.caiway.nl>
Subject: Re: VB 2005 Express edition : """Willekeurige getallen""""
Lines: 41
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-Antivirus: avast! (VPS 000736-2, 26/04/2007), Outbound message
X-Antivirus-Status: Clean
Message-ID: <UHtYh.144519$9G3.1015897@phobos.telenet-ops.be>
Date: Fri, 27 Apr 2007 21:13:24 GMT
NNTP-Posting-Host: 81.165.188.163
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1177708404 81.165.188.163 (Fri, 27 Apr 2007 23:13:24 MEST)
NNTP-Posting-Date: Fri, 27 Apr 2007 23:13:24 MEST
Organization: Telenet Internet

Reply to Parent Message