[VB.NET]Random functie

Article View: be.comp.programming

Article #709

Back to be.comp.programming Previous Next

#709

From: bernd
Date: Tue, 09 May 2006 19:02

19 lines
1771 bytes

hallo,

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?

code:
Private Sub ButtonSpin_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles ButtonSpin.Click
Dim waarde1 As Random = New Random
Label1.Text = CStr(waarde1.Next(1, 100))
Dim waarde2 As Random = New Random
Label2.Text = CStr(waarde2.Next(1, 100))
Dim waarde3 As Random = New Random
Label3.Text = CStr(waarde3.Next(1, 100))
End Sub

bedankt

Technical Details

Message-ID: <4460e75e$0$27124$ba620e4c@news.skynet.be>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news4.google.com!news.glorb.com!feeder.enertel.nl!nntpfeed-01.ops.asmr-01.energis-idc.net!newsfeeder.concepts.nl!213.51.141.6.MISMATCH!newshub3.home.nl!newshub1.home.nl!home.nl!skynet.be!newspost001!tjb!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: fcea4,e090aecbe70a9aec,start
X-Google-Thread: 107324,e090aecbe70a9aec,start
X-Google-Attributes: gidfcea4,gid107324,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news4.google.com!news.glorb.com!feeder.enertel.nl!nntpfeed-01.ops.asmr-01.energis-idc.net!newsfeeder.concepts.nl!213.51.141.6.MISMATCH!newshub3.home.nl!newshub1.home.nl!home.nl!skynet.be!newspost001!tjb!not-for-mail
From: "bernd" <spurnd@belgacom.net>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: [VB.NET]Random functie
Date: Tue, 9 May 2006 21:02:51 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2900.2869
X-RFC2646: Format=Flowed; Original
X-Antivirus: avast! (VPS 0619-0, 08/05/2006), Outbound message
X-Antivirus-Status: Clean
Lines: 21
Message-ID: <4460e75e$0$27124$ba620e4c@news.skynet.be>
Organization: -= Belgacom Usenet Service =-
NNTP-Posting-Host: 1d030d62.news.skynet.be
X-Trace: 1147201374 news.skynet.be 27124 217.136.212.185:1266
X-Complaints-To: usenet-abuse@skynet.be