Re: [VB.NET]Random functie

Article View: be.comp.programming

Article #711

Back to be.comp.programming Previous Next

#711

From: Leon Zandman
Date: Tue, 09 May 2006 22:01

27 lines
2107 bytes

> ik ben student informatica en heb een probleempje met de random functie in 
> VB.net. telkens als ik een programma run waar 3 random waardes worden 
> bepaald, leveren alle 3 die functies dezelfde waarde... hoe kan ik dit 
> oplossen?

Ik denk dat dit beter werkt:

         Dim randomGenerator As Random = New Random
         Dim waarde1 As Integer
         Dim waarde2 As Integer
         Dim waarde3 As Integer

         waarde1 = randomGenerator.Next(1, 100)
         waarde2 = randomGenerator.Next(1, 100)
         waarde3 = randomGenerator.Next(1, 100)

         ListBox1.Items.Add(CStr(waarde1))
         ListBox1.Items.Add(CStr(waarde2))
         ListBox1.Items.Add(CStr(waarde3))

Jouw code gaat fout, omdat de drie Random objecten tegelijkertijd worden 
aangemaakt. Ze krijgen dan dezelfde (tijdsafhankelijke) seed en daarmee 
hetzelfde startpunt voor het genereren van de random numbers.

Groeten,

Leon

Technical Details

Message-ID: <e3r3ev$cqm$1@news3.tilbu1.nb.home.nl>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feeder1.cambrium.nl!feed.tweaknews.nl!newshub2.home.nl!newshub1.home.nl!home.nl!not-for-mail

References: <4460e75e$0$27124$ba620e4c@news.skynet.be>

Show Full Headers

Complete Article Headers

X-Google-Thread: fcea4,e090aecbe70a9aec
X-Google-Thread: 107324,e090aecbe70a9aec
X-Google-Attributes: gidfcea4,gid107324,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feeder1.cambrium.nl!feed.tweaknews.nl!newshub2.home.nl!newshub1.home.nl!home.nl!not-for-mail
From: Leon Zandman <usenet@wirwar.com>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Re: [VB.NET]Random functie
Date: Wed, 10 May 2006 00:01:10 +0200
Organization: @Home Benelux
Lines: 27
Message-ID: <e3r3ev$cqm$1@news3.tilbu1.nb.home.nl>
References: <4460e75e$0$27124$ba620e4c@news.skynet.be>
NNTP-Posting-Host: cc467650-b.groni1.gr.home.nl
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: news3.tilbu1.nb.home.nl 1147212063 13142 82.73.138.58 (9 May 2006 22:01:03 GMT)
X-Complaints-To: usenet@corp.home.nl
NNTP-Posting-Date: Tue, 9 May 2006 22:01:03 +0000 (UTC)
User-Agent: Mozilla Thunderbird 1.0.6 (Windows/20050716)
X-Accept-Language: en-us, en
In-Reply-To: <4460e75e$0$27124$ba620e4c@news.skynet.be>

Reply to Parent Message