AW: Rotationen erstellen
31.08.2005 20:18:55
Reinhard
Hi Volker,
in Frankfurt heißt ein Stadtteil so (0ffiziel Heddrnheim) hat was mit Fasching zu tun, jedenfalls bin ich dann oft dort, am Dienstag in der einen Turnhalle.
Und die Nachfrage ob Luschi deine Datei runtergeladen hat, naja, es gibt hier einige der Antworter, die ertmal völlig korrekt sagen, warum soll ich mir eine Datei runterladen, womöglich noch entzippen, nur weil der Fragesteller sein problem hier nicht so darstellen kann dass man es lösen kann. Erst wenn das nicht möglich ist wird ne Datei angefordert oder auch nicht :-)
Erst beim 2ten Lesen des Codes dämmerte es mir dass du mit deinen Rotationen womöglich das meinst was hier eher als Kombinationen bezeichnet wird.
Ich habe Code, der macht aus z.b. "abc", (es gehen auch mehr Buchstaben, solange bis halt 65536 zeilen voll sind.) :
abc, acb, bac, bca cba, cab ggfs usw wenn ich was vergessen habe *g.
Würde der dir weiter helfen?
Aus:
If zufallszahl = 1 Then
If konzept(1, i) < maxzahl Then konzept(1, i) = konzept(1, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 2 Then
If konzept(2, i) < maxzahl Then konzept(2, i) = konzept(2, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 3 Then
If konzept(3, i) < maxzahl Then konzept(3, i) = konzept(3, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 4 Then
If konzept(4, i) < maxzahl Then konzept(4, i) = konzept(4, i) + 1 Else GoTo nochmal
End If
würde ich das machen:
select case zufallszahl
case 1 to 12
If konzept(zufallszahl, i) < maxzahl Then konzept(zufallszahl, i) = konzept(zufallszahl, i) + 1
Else
GoTo nochmal
end if
case else
msgbox "zu groß"
end select
Gruß
Reinhard