Graphics 800,700,16,2

SeedRnd MilliSecs()

For start=1 To 2
zahl = Rand(1,3)
Select zahl

 Case 1
   bild1 = LoadImage ("...")
   DrawImage bild1
cls

  Case 2
   bild2 LoadImage ("...")
   DrawImage bild1
cls

 Case 3
   bild3 LoadImage ("...")
   DrawImage bild1
cls

End Select
Next

waitkey
end

Local maximum=9

Dim arr(maximum)
SeedRnd MilliSecs()

For i = 1 To maximum
   Repeat
      present = False
      gg = Rand(1,maximum)
      For z = 1 To maximum
         If gg = arr(z)
            present = True
            Exit
         EndIf
      Next
   Until present = False
   arr(i) = gg
Next

For i=0 To maximum
   Print "Feld Nr "+i+" beinhaltet "+arr(i)
Next

WaitKey()

Graphics 640,480

SeedRnd MilliSecs()

Dim zahlen(10) ;Dim Feld erstellen



For i = 1 To 10
           .again
      neuezahl= Rnd (1,10) ;Zufällige Zahl
      For a = 1 To 10
         If neuezahl=zahlen(a) ;Falls die Zahl im Dimfeld enthalten ist
         Print "doppelte zahl gefunden nämlich die "+neuezahl
         Goto again ;Die ganze Prodzedur nochmal
         EndIf
      Next
   zahlen(i)=neuezahl ;Jetzt da wir uns sicher sind das sie nicht doppelt vorkommt, ins dim speichern
Next

Print ""


For i = 1 To 10
Print "Zahl-"+i+" ="+zahlen(i) ;So können wir testen, von 10 zahlen keine doppelte dabei ;)
Next

Const Entries = 100

Local Bank = CreateBank()

InitRnd( Bank, Entries )

Local v

While v <> -1
   v = GetRnd( Bank )
   DebugLog v
Wend
Stop
End

; Erstellt den Pool mit definierter Grösse
Function InitRnd( Pool, Size )
   Local a
   ResizeBank Pool, Size *4
   For a = 0 To Size -1
      PokeInt Pool, a *4, a
   Next
   SeedRnd MilliSecs()
End Function

; Liefert eine Zufallszahl
Function GetRnd( Pool )
   Local Size = BankSize( Pool ) /4
   ; Wenn der Pool leer ist, -1 zurückgeben
   If Size = 0 Then Return -1
   ; Zufällige Zahl ermitteln
   Local Pntr = Rand( 0, Size -1 )
   Local Val = PeekInt( Pool, Pntr *4 )
   ; Zahl aus dem Pool entfernen
   CopyBank Pool, Pntr *4 +4, Pool, Pntr *4, (Size -Pntr) *4 -4
   ResizeBank Pool, Size *4 -4
   
   Return Val
End Function