Zufallszahlen aus List(of integer)

Morrison · 9. Februar 2015, 16:51

Hallo!

Ich möchte mir aus einer List(of integer) per Zufall sechs Zahlen ausgeben lassen. Zuerst hatte ich dieses:

rand = Math.Ceiling((Rnd() * aNumbersBalls.Count) - 1) 'Zufallszahl erstellen
aLottozahlen.Add(aNumbersBalls.Item(CInt(rand))) 'Zufallszahl schreiben
aNumbersBalls.RemoveAt(CInt(rand)) 'gezogene Zufallszahl aus Array löschen

Klappte auch wunderbar, jedoch hab ich nun VisualBasic aus dem Projekt genommen und nun weiss ich nicht wie ich dies in .net zum laufen bekomme?!

Also ich möchte mir Lottozahlen(1 - 49) ausgeben lassen. (sechs unterschiedliche Zahlen)

Counterbug · 9. Februar 2015, 17:00

Das .Net-Framework bietet dazu die Random-Klasse.

ChOoSeMyNaMe · 9. Februar 2015, 17:17

Eben. Nutze die Random-Klasse und Schleifen und dann trage die gezogenen Zahlen in ein Array oder eine List(Of Integer) ein. Das werden wenige Zeilen an Code sein.

LG

Morrison · 9. Februar 2015, 17:40

zzahl = rand.Next(aNumbersBalls.Count)

bringt mir nur sechs aufeinander folgende Zahlen, aber keine wirklichen Zufallszahlen.

Counterbug · 9. Februar 2015, 17:46

Random.Next Method (Int32)

Returns a nonnegative random number less than the specified maximum.

Wo liegt das Problem?

Morrison · 9. Februar 2015, 17:55

Kann ich mir nicht aus einer List(of integer) eine, bzw. sechs Zufallszahlen ausgeben lassen??

So nimmt er ja nur die Anzahl der noch vorhandenen Zahlen und es muss extra geprüft werden ob die Zahl schon gezogen wurde, das braucht Zeit!!

ChOoSeMyNaMe · 9. Februar 2015, 18:44

Macht keinen Unterschied ob du jetzt das auf die umständliche und schwere Weise machst, oder ob du es dir leicht machst.

Ich würde das zum Beispiel so machen:

VB.NET-Quellcode

Dim counts(5) As Integer
Dim i As Integer
Dim rdm as New Random
For i = 0 to 5
Dim count as Integer = rdm.Next(1,50)
If counts.Contains(count) Then
Do While counts.Contains(count)
count = rdm.Next(1,50)
Loop
End If
counts(i) = count
Next

Das ist ein Code der funktioniert und schnell ist. Er wird vermutlich schneller sein, als wenn du mit einer Liste und irgendwelchen Formeln rumrechnest.

LG

ErfinderDesRades · 9. Februar 2015, 19:36

für diese Anforderung nimmt man gewöhnlich den Fisher-Yates-Shuffle.

sehr viel langsamer, aber unerhört elegant ist der "picoflop-Shuffle"

VB.NET-Quellcode

dim rnd as new random
dim shuffled = Enumerable.Range(0,6).OrderBy(function(i)rnd.next)

ponmalka · 11. Februar 2015, 09:03

VB.NET-Quellcode

Dim rnd as new Random()
Dim Zahlen as new List(of Integer)
For i as Integer = 1 to 49
Zahlen.add(i)
Next
Dim aLottoZahlen(5) as Integer
For i as Integer = 0 to 5
aLottoZahlen(i) = (Zahlen(rnd.next(Zahlen.Count)))
Zahlen.remove(aLottoZahlen(i))
Next

Morrison · 11. Februar 2015, 19:47

Ja! Wunderbar..Danke!!

Finde die Shuffle-Methode am besten! Werd mir daraus was basteln..
..hab bei der VB-random-Methode das Phänomen entdeckt das nach jedem neuen Programmstart die generierten Zufallszahlen immer die selben waren!!

ponmalka · 18. Februar 2015, 14:11

Das sollte eigentlich nicht passieren...

Morrison · 19. Februar 2015, 16:09

Tut´s aber!

Hab´s nochmal angehängt!

Zufallszahlen aus List(of integer)

Zufallszahlen aus List(of integer)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben