MIIIK
01.05.2010, 21:07
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
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