Zufallsgenerator

[Schnitzelbrot]

Was muß ich machen, wenn ich aus einer Liste von mir vorgegebener Wörter per Zufallsgenerator z.B. 20 verschiedene Wörter gezogen haben möchte?

Also so eine Art Lotto-Programm allerdings mit Wörtern. Bin ein vollkommener Programmierungs-Noob und habe keine Ahnung. Muß man dazu eine Datenbank (ala Access) verwenden oder geht es auch ohne?

[Eckard41]

Das schreit nach Arrays :

'Controls: Command1, Text1
Private Sub Command1_Click()
Dim i As Integer, rndIndex As Integer, Woerter()
Woerter = Array("Maus", "Baum", "Haus", "Auto", "Computer") '...

For i = 1 To 20
  Randomize 'Intialisiert einen Zufallsgenerator
  rndIndex = Int((UBound(Woerter()) * Rnd) + 1)
  Text1.Text = Text1.Text & "Zufallswort Nr." & i & " :" & Woerter(rndIndex) & vbNewLine
Next i

End Sub

Woerter wird durch die () als Feld definiert. Die Anzahl der Feldelemente wird später mit UBound() bestimmt.

[Schnitzelbrot]

Danke, werde ich gleich mal versuchen.

[Schnitzelbrot]

Irgendwas stimmt nicht. Bekomme wenn ich das Programm ausführe und auf den Button klicke folgende Fehlermeldung:

"Fehler beim Kompilieren: Keine Zuweisung an Datenfeld möglich"

[Eckard41]

Benutzt du VB6 oder .NET?

[TR]

Probier's mal hiermit:

Private Sub Command1_Click()
Dim i As Integer, rndIndex As Integer, Woerter
Woerter = Array("Maus", "Baum", "Haus", "Auto", "Computer") '...

For i = 1 To 20
  Randomize 'Intialisiert einen Zufallsgenerator
  rndIndex = Int((UBound(Woerter) * Rnd) + 1)
  Text1.Text = Text1.Text & "Zufallswort Nr." & i & " :" & Woerter(rndIndex) & vbNewLine
Next i

End Sub

[Schnitzelbrot]

Jetzt läuft es. Danke euch für die Hilfe.

Ähm ja, ich könnt mich zwar jetzt für völlig blöd halten, aber ich bekomm das nicht hin^^.

Also ich füge den Code bei Visual Basic ein und klicke dann als Projekt1 speichern. Aber dann bekomm ich nur das angezeigt:
[center:95928b0e7c]
[/center:95928b0e7c]

Visual Basic 6 hab ich.
Ach ich hab das Visual Basic 6 heut das erstemal gestartet.
Merkt mann's?

[Eckard41]

Du brauchst noch die beiden Steuerelemente, die im Code vorkommen: Command1 und Text1
Beide sind links in der Werkzeugsammlung zu finden.
Einfach aufs Form ziehen.

Nun, wir kommen der Sache zumindest schon einmal näher, aber es funktioniert noch immer nicht richtig:



Es werden alle Zufallswörter angezeigt...

[Eckard41]

Na du musst natürlich die Menge der zu ziehenden Zufallswörter anpassen oder eben die Liste, die aufgrund meiner Faulheit nur aus den 5 Wörtern besteht, erweitern.

Wenn du beispielsweise 2 Wörter ermitteln möchtest:

For i = 1 To 2

Bei nur einem Zufallswort, kannst du die Schleife natürlich weglassen und brauchst nur die Anweisungen darin.

Die Liste erweiterst du einfach, indem du neue Arrayelemente anfügst:

Woerter = Array("Maus", "Baum", "Haus", "Auto", "Computer", "Ameisenbär")

Die Multiline-Eigenschaft solltest du auf true setzten, um "echte" Zeilenumbrüche im Textfeld zu erhalten.

[Abby]

Ok,
soweit so gut.
Jetzt geht es an die Feinarbeit.

Also



1. Wie mache ich das, das dort nur das Zufallswort steht, z. B. Auto und keine 0 und so.
2. Wie ändere ich den Titel des Fensters?
3. Wenn man noch einmal auf Zufalls klickt, das sich das alte Wort löscht und durch das neue Ersetzt wird? Oder, wie bekomme ich es hin, das das Wort so ausgeben wird:

[Eckard41]

1. Schau halt in den Code.

Text1.Text = Text1.Text & "Zufallswort Nr." & i & " :" & Woerter(rndIndex) & vbNewLine

wird zu

Text1.Text = Text1.Text & Woerter(rndIndex)

2. Über die Caption-Eigenschaft des Forms (rechts im Eigenschaftsfenster bei Caption den Wert ändern.)
3.1. Text1.Text = ""
3.2. MsgBox "String"

[Abby]

Gut, jetzt läuft alles ausser eines!
Und zwar wird nur String ausgeben, egal wo ich den Befehl hinsetze:

[Eckard41]

String war ja auch nur ein Beispiel für die MsgBox-Funktion, die eine Zeichenkette erwartet.

MsgBox Woerter(rndIndex)