Visual Basic 2010 Random Chancen Generator?

... komplette Frage anzeigen

1 Antwort

Eine Möglichkeit:

'Festlegen der Konstanten
a = 172 / (172+28+76)
b = a + 28 / (172+28+76)
c = b + 76 / (172+28+76)

Dim zufallswert As Double = random.NextDouble()

Select Case zufallswert
Case Is < a: auswahlPerson = PersonA
Case Is < b: auswahlPerson = PersonB
Case Is < c: auswahlPerson = PersonC
Case Else: Throw New Exception("Dieser Fall sollte nicht vorkommen können")
End Select

eine andere Möglichkeit:

Dim zufallspersonenliste = New List(Of Person)

For i = 1 To 172 : zufallspersonenliste.Add(PersonA) : Next
For i = 1 To 28 : zufallspersonenliste.Add(PersonB): Next
For i = 1 To 76 : zufallspersonenliste.Add(PersonC): Next

Dim zufallswert As Integer = random.Next(zufallspersonenliste.Count)
auswahlPerson = zufallspersonenliste(zufallswert)

 

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?