PureBoard

Verfasst: **26.04.2008 18:45**

Ich möchte das es 256 MyKeys gibt mit den Werten 0 - 255 aber jeder Wert soll nur einmal vorkommen. (und die Werte sollen zufällig and die MyKeys gerichtet werden also nicht MyKey(100) = 100)

Ich habe es so Versucht:

Code: Alles auswählen

    Dim MyKey.l(255)
     For a = 0 To 255
      MyKey(a) = Random(254)
      For b = 0 To a
       If MyKey(b) = MyKey(a)
        MyKey(a) = MyKey(a) +1
       EndIf
      Next b
Debug mykey(a)
     Next a

Aber so gibt es noch immer welche doppelt.

Wie mache ich das?

lG Tompazi

Verfasst: **26.04.2008 18:54**

ganz einfach, mach erst mal das array voll und tausche dann die Einträge:

Code: Alles auswählen

Dim MyKey.l(255) 
For a = 0 To 255 
 MyKey(a) = a
Next a

;Mischen
For n = 0 To 255
 Swap MyKey(n) , MyKey(Random(255))
Next n

For a = 0 To 255 
 Debug MyKey(a)
Next a

Verfasst: **26.04.2008 19:00**

Danke funktioniert jetzt.
Ich wäre nie auf diese Idee gekommen..
Mir fehlt einfach noch das Programmierverständniss.

lG Tompazi

PureBoard

[GELÖST] Schleifen Problem

[GELÖST] Schleifen Problem