🚀 go-pugleaf

bernd wrote:
> 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 
> 
> 

Ik ken niet van VB.Net, maar het lijkt erop dat de functie telkens met 
dezelfde seed wordt opgeropen, misschien eens in die richting zoeken?

> 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

ja bedankt voor jullie hulp,

nu werkt het.... 

bernd wrote:
> 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 
> 
> 

Je 3 instanties vertrekken vanuit dezelfde seed. Starten met een andere 
seed kan met Randomize().

Trouwens,
Waarom 3 instanties.
Je kan toch 3x de next method aanroepen van 1 instantie?


mvg,
Peter