Hallo,
ich probiere gerade einen Zufallsgenerator zu programmien,
er soll mir eine Zahl ausgeben die,
aus 9 Ziffern besteht, die Zahl "0" darf nicht vorkommen,
und in der gesamten Zufallszahl darf keine Zahl doppelt vorkommen,
also dürfte die Zahl "112233445" nicht vorkommen,
wobei die Zahl "568794231" eine mögliche wäre.
Ich hoffe ihr wisst was ich meine, denn es gibt viele Threads in denen nach einem Zufallsgenerator gefragt wird, in dem keine Zufallszahl doppelt vorkommen darf.
Mein Problem ist, dass ich nicht weiß wie ich die Funktion bzw. die ganze Abfrage neustarte...
Ich hab Google und die SuFu benutzt, aber nichts gefunden...
Und noch was anderes: Gibt es vielleicht eine andere möglichkeit zu prüfen ob Zahlen doppelt vorkommen, die auch einfacher wäre?
P.S. Bitte nicht auslachen Ich bin noch ein Anfänger
ich probiere gerade einen Zufallsgenerator zu programmien,
er soll mir eine Zahl ausgeben die,
aus 9 Ziffern besteht, die Zahl "0" darf nicht vorkommen,
und in der gesamten Zufallszahl darf keine Zahl doppelt vorkommen,
also dürfte die Zahl "112233445" nicht vorkommen,
wobei die Zahl "568794231" eine mögliche wäre.
Ich hoffe ihr wisst was ich meine, denn es gibt viele Threads in denen nach einem Zufallsgenerator gefragt wird, in dem keine Zufallszahl doppelt vorkommen darf.
Mein Problem ist, dass ich nicht weiß wie ich die Funktion bzw. die ganze Abfrage neustarte...
Ich hab Google und die SuFu benutzt, aber nichts gefunden...
Und noch was anderes: Gibt es vielleicht eine andere möglichkeit zu prüfen ob Zahlen doppelt vorkommen, die auch einfacher wäre?
VB.NET-Quellcode
- Public Class Form1
- Dim a(8) As Integer
- Public Function ZufallszahlErstellen()
- Dim rnd As New Random
- Dim Random As Integer = rnd.Next(123456789, 987654321) ' Erst wird die Zahl generiert
- For i As Integer = 1 To 9 'Hier wird abgespeichert, wie oft welche Zahl in der generierten Zufallszahl vorhanden ist
- For u As Integer = 0 To 8 'Hier wird jeder Wert im Array auf 0 gesetzt
- a(u) = 0
- Next
- Dim Zahl As Integer
- Zahl = Mid$(Random, i, 1)
- Select Case Zahl
- Case 0
- 'Hier soll er die Funktion von vorne starten!
- Case 1
- a(0) += 1
- Case 2
- a(1) += 1
- Case 3
- a(2) += 1
- Case 4
- a(3) += 1
- Case 5
- a(4) += 1
- Case 6
- a(5) += 1
- Case 7
- a(6) += 1
- Case 8
- a(7) += 1
- Case 9
- a(8) += 1
- End Select
- Next
- If a(0) & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) = 1 Then 'Hier wird geprüft ob eine Zahl mehrmals vorhanden ist
- ListBox1.Items.Add(Random)
- Else
- 'Hier soll er Funktion von vorne starten!
- End If
- End Function
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- ZufallszahlErstellen()
- End Sub
- End Class
P.S. Bitte nicht auslachen Ich bin noch ein Anfänger