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

Article View: nl.comp.programmeren

Article #111

Back to nl.comp.programmeren Previous Next

#111

From: Ward
Date: Sat, 28 Apr 2007 08:37

44 lines
3052 bytes

Het werkt, bedankt

W.

JanS schreef:
> "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: <AJDYh.145291$pW7.826511@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.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> <UHtYh.144519$9G3.1015897@phobos.telenet-ops.be>

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!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: Ward <mmoopp@gmail.com>
User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)
MIME-Version: 1.0
Newsgroups: nl.comp.programmeren,be.comp.programming
Subject: Re: VB 2005 Express edition : """Willekeurige getallen""""
References: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be> <MPG.209c42e12ebc1aa098aa56@news.caiway.nl> <UHtYh.144519$9G3.1015897@phobos.telenet-ops.be>
In-Reply-To: <UHtYh.144519$9G3.1015897@phobos.telenet-ops.be>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Antivirus: avast! (VPS 000736-2, 26/04/2007), Outbound message
X-Antivirus-Status: Clean
Lines: 44
Message-ID: <AJDYh.145291$pW7.826511@phobos.telenet-ops.be>
Date: Sat, 28 Apr 2007 08:37:52 GMT
NNTP-Posting-Host: 84.195.40.191
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1177749472 84.195.40.191 (Sat, 28 Apr 2007 10:37:52 MEST)
NNTP-Posting-Date: Sat, 28 Apr 2007 10:37:52 MEST
Organization: Telenet Internet

Reply to Parent Message