Hier will ich erklären wie man einen Zufallsgenerator schreibt:
- Standart Exe erstellen
- Modul einfügen [Projekt - modul hinzufügen]
Variablendeklaration in das Modul:
Public Möglichkeit(123) As String 'die Zahl in der Klammer gibt an wie viele Möglichkeiten es geben soll
Variablendeklaration für das Formular:
Option Explicit
Public zufzahl As Integer ' für eine Zufallszahl
Quellcode für die Zufallszahl [z.B als eigene Sub oder Befehl für einen Commandbutton eingeben]:
Randomize -Timer
zufzahl = Int((123 - 1 + 1) * Rnd + 1)
'123 steht wieder für die anzahl der Möglichkeiten
Quellcode um die Möglichkeiten anzugeben [am besten in Form_Load()]
Private Sub Form_Load()
Möglichkeit(1) = "Wer der Möglichkeit 1"
Möglichkeit(2) = "Wer der Möglichkeit 2"
.
.
.
Quellcode zum Anzeigen:
lblAngabe.caption = Möglichkeit(zufzahl)
' hier nimmt er dann Möglichkeit die der Zufzahlzugeordnet ist (in frm load)