[Sesa_Mina]

Ich schreib das hier mal als basic code her aber umsetzen sollt ja ganz ganz easy sein

   dim array(15) as byte
   for x=0 to 15:array(x)=x:next
   for x=0 to 15
      y=int(rnd*16)
      z=int(rnd*16)
      a=array(y):array(y)=array(z):array(z)=a
   next

Damit hast mal ein geordnetes array in dem nachher 16 mal zwei der Werte vertauscht werden. Damit hast recht einfach und vor allem schnell ein durcheinandergewürfeltes array das nur gewünschte zahlen enthält und ausserdem keine doppelt. Somit sparst dir an haufen überprüfungen usw.