Hallo ,

ich möchte gerne einen kleinen "keygen" schreiben , er soll einfach nur in 12 Textfelder jeweils eine 4 stellige zufälluge zahl generieren .

Wie löse ich das am besten ?

wen man diese methode hier nutzt kann man ja immer nur vorgegebene zahlen eintragen ...

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim key As Integer
key = Int(Rnd() * 10)
Select Case key
Case 1
TextBox1.Text = "TEXT HERE"
Case 2
TextBox1.Text = "TEXT HERE"
Case 3
TextBox1.Text = "TEXT HERE"
Case 4
TextBox1.Text = "TEXT HERE"
Case 5
TextBox1.Text = "TEXT HERE"
Case 6
TextBox1.Text = "TEXT HERE"
Case 7
TextBox1.Text = "TEXT HERE"
Case 8
TextBox1.Text = "TEXT HERE"
Case 9
TextBox1.Text = "TEXT HERE"
Case 10
TextBox1.Text = "TEXT HERE"
End Select
End Sub
und das möchte ich nicht , es sollen wirklich zufällige zahlen sein , kein algo oder sonst was .

also sowas wie Das hier ,

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x(7000) As Integer
For i = 0 To 7000
x(i) = Rnd() * 200000
TextBox1.Text = (x(i))
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
End Class
aber die zahlen Müssen 4 stellig sein und bei 1000 anfangen .

Wie bekomm ich das hin

MfG MIIIK