myGully.com - Visual basic problem...

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Visual basic problem... (https://mygully.com/showthread.php?t=2059169)

Visual basic problem...

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 :)

don't drink and drive!

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

Erzeuge eine Zufallszahl:
[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt 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.

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.

Code:

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.