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

Article View: nl.comp.programmeren

Article #109

Back to nl.comp.programmeren Previous Next

#109

From: Jawade
Date: Fri, 27 Apr 2007 16:27

28 lines
2512 bytes

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

Technical Details

Message-ID: <MPG.209c42e12ebc1aa098aa56@news.caiway.nl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!news-out1.kabelfoon.nl!newsfeed.kabelfoon.nl!xindi.nntp.kabelfoon.nl!nasari.nntp.kabelfoon.nl!not-for-mail

References: <l7pYh.144037$iy5.807039@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!news2.google.com!news.glorb.com!news-out1.kabelfoon.nl!newsfeed.kabelfoon.nl!xindi.nntp.kabelfoon.nl!nasari.nntp.kabelfoon.nl!not-for-mail
From: Jawade <Henk_Jawade@hotmail.com>
Newsgroups: nl.comp.programmeren,be.comp.programming
Subject: Re: VB 2005 Express edition : """Willekeurige getallen""""
Date: Fri, 27 Apr 2007 18:27:31 +0200
Message-ID: <MPG.209c42e12ebc1aa098aa56@news.caiway.nl>
References: <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>
Organization: Kolibrie Software Inc
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-15"
Content-Transfer-Encoding: 7bit
User-Agent: MicroPlanet-Gravity/2.60.2060
X-Face: )NDYW@E:v\u}q0UTy\x~$$+2rW@I6UGy8GRjxZa?JN*)K\(P<U}eWdwbavjy;.Nlhp8Yn^]5$;P.ki%/p/R%wq3]p$EaBvx{r0t?eF(jjV4-!LQy1|KK2naE'qu?\x2n_5i7}-W{Kp..=@cX{Bf
 $OfYo+8Q^.UC!sm,4!yh|X.2:s@^hh`FK#fko+_ey,ETZof/}VwHQp&S^$V(KzfN6+$,v#9Vk)|,0U]/^A%zl[~z0,l}]$P9H93QgGTdLRO[Z.8`,W-v!VkLOSppGXx${o3`W#-uL9`g6_`i
X-Antivirus: avast! (VPS 000736-2, 26-04-2007), Outbound message
X-Antivirus-Status: Clean
Lines: 28
NNTP-Posting-Host: 885cde41.news.kabelfoon.nl
X-Trace: 1177691252 nasari.nntp.kabelfoon.nl 235 83.128.73.192:2733
X-Complaints-To: abuse@caiway.nl

Reply to Parent Message