[themegashooter]

Hi, ich wollte so etwas wie ein keygeneraotr machen...

Also sieht so was wie ein key generaotr und wenn man dann auf generieren klickt kommt eine zeile aus etwa 10 verschiedenen sätzen die ich vorhwer gemahct habe....

also nehmen wir an ich will das immer zufällig, entwerder

hallo ich bin luan oder so etwas kommt halt das immer ein zufälliger satz der vorher aufgeschriebenen kommt.. bin dankbar für jede hilfe

[urga]

don't drink and drive!

[spartan-b292]

Schreibe die sätze und weise die Sätze einer Zahl zu, 1-X

Erzeuge eine Zufallszahl:
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

Eventuell noch runden:
Round(Zahl,Nachkommastellen) wenn ich mich richtig erinnere hab ewig nix mehr mit VB gemacht.

Dann eine Zeile:
Wenn die erzeugte Zahl eins ist gebe Satz 1 aus..usw.

[CG!]

Was hat denn das mit KeyGen zu tun?
Du generierst doch garnichts.

Aber egal.
Da ich nicht weiß welches VB, hier der für VB6.

Option Explicit

Dim Serial As Variant

Private Sub Command1_Click()
    SerialGenerator
End Sub

Private Sub Form_Load()
    SerialGenerator
End Sub

Function SerialGenerator()
    Serial = Array("0815-4711", "007-JB-SUX", "MyG_RuleZ", "and_so_on", "und_so_weiter")
    Me.Text1.Text = Serial(Zufallszahl(0, 4))
End Function

Function Zufallszahl(ByVal Min, ByVal Max)
    Randomize
    Z = Rnd
    Zufallszahl = Int(Min + (Max - Min + 1) * Z)
End Function

Die erste Array Position ist 0, weshalb von 0 bis 4 ausgelesen wird, was dann alle 5 Einträge ergibt.
Je mehr Einträge vorhanden sind, desto weniger wiederholt sich die Ausgabe.

Benötigt 2 Elemente auf der Form:
Knopf: Command1
Text: Text1
Der Code muss dann nur noch in den FormCode eingefügt werden.

Auf die Schnelle zusammen gefrickelt. Also erwarte nicht zuviel.