Thema Datum  Von Nutzer Rating
Antwort
27.01.2008 10:29:56 Daniela
NotSolved
Blau Aw:Wörter per Zufall generieren ohne Wiederholung
 27.01.2008 12:39:22 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
27.01.2008 12:39:22		 Views:
1357		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Wörter per Zufall generieren ohne Wiederholung
Hallo Daniela,
ich würde das Array Wort beim Index 0 beginnen lassen. Um festzustellen, welche Werte bereits gezogen wurden, kannst du ein weitere Array, z.B. Verw() derselben Größe verwenden, dessen Werte du von 0 auf 1 setzt, wenn das entsprechende Wort verwendet wurde: An geeigneter Stelle hinter den Wort-Definitionen kannst du folgende Zeilen einfügen.

ReDim Verw(UBound(Wort))
Label3.Caption = "" 'oder welches Label du verwendest
For i = 0 To UBound(Wort): Verw(i) = 0: Next i
Randomize
For i = 0 To UBound(Wort)
Do
j = Int(Rnd * (UBound(Wort) + 1))
Loop Until Verw(j) = 0
Verw(j) = 1
Label3.Caption = Label3.Caption + vbCrLf + Wort(j) 'oder welches Label du verwendest
Next i

Viel Erfolg
Holger


Daniela schrieb am 27.01.2008 10:29:56:

Hallo,

ich habe folgenden Code für meine Wortliste:

Wort(1)="Öl"
Wort(2)="Essig"
Wort(3)="Zucker"
Wort(4)="Salz"
.
.
Wort(9)="Pfeffer"

Diese Wörter möchte ich nacheinander per Zufallsgenerator in einem Label ausgeben. Es sollen nie 2 gleiche Wörter nacheinander auftauchen, aber alle Wörter sollen immer wieder für die Auswahl zur Verfügung stehen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.01.2008 10:29:56 Daniela
NotSolved
Blau Aw:Wörter per Zufall generieren ohne Wiederholung
 27.01.2008 12:39:22 Holger
NotSolved