.sprung

zahl = Rand(0,10)

While zahl = 5
 zahl = Rand(0,10)
Wend

Print zahl

If zahl = 5 Then End



If KeyDown(1) = 0 Then Goto sprung

End

SeedRnd Millisecs()


while not keyhit(1)


if not erstesmalblub =1 and blub
  zahl = Rnd (1,10)
    oldzahl=zahl
   erstesmalblub=1

if erstesmalblub =1 and blub
  zahl = Rnd (1,10)
     if zahl = oldzahl
        repeat
        zahl = Rnd (1,10)
        until zahl<> oldzahl
     endif

endif

Graphics 400,600,0,2
SetBuffer FrontBuffer()


Const SPEICHER=3 ;Wert ist ##+1, also ##-1 angeben

Dim Puffer(SPEICHER)




For Q=1 To 40
   Print Zahl(0,6)
Next

Print "Taste drücken"
WaitKey
End







Function Zahl(FnZahl1#=0, FnZahl2#=7)
   
   If Abs(Abs(FnZahl1)-Abs(FnZahl2))<=SPEICHER Then
      RuntimeError "Wertenereich führt zu einer Endlosscheife"
   End If
   
   Local InLoop%
   Local InWert%
   Local InBack%
   
   Repeat
      InBack=0
      InWert=Floor(Rnd(FnZahl1,FnZahl2+1))
      For InLoop=0 To SPEICHER
         If Puffer(InLoop)=InWert Then InBack=1
      Next
   Until InBack=0
   
   For InLoop=1 To SPEICHER
      Puffer(InLoop-1)=Puffer(InLoop)
   Next
   Puffer(SPEICHER)=InWert
   
   Return InWert
End Function

SeedRnd MilliSecs()         ;Los gehts mit dem Zufallsgenerator

Global maxrnd%=10            ;Größte per Zufall generierbare Zahl (z.B. 10)
Dim used(maxrnd)            ;Erstellt ein Array, das sich merken wird, welche Zahlen bereits generiert worden sind

While i<maxrnd
   newrnd=Rand(0,maxrnd)      ;eine neue Zahl wird generiert
   While used(newrnd)         ;solange in dem array an der Stelle der neuen Zahl eine 1 steht,...
      newrnd=Rand(0,maxrnd)   ;...generiere eine neue Zahl
   Wend                  ;sollte die Zahl noch nicht generiert worden sein, so
   used(newrnd)=1            ;belege das Array in der Zelle mit dem Wert 1
   Print newrnd               ;gib die Zahl zum Test aus
   i=i+1
Wend

Flip;damit wir was sehen
WaitKey()                     ;warte gefälligst!

SeedRnd(MilliSecs())
count=15
Dim array$(count)

For i=1 To count
   Select Len(i)
      Case 1
         nr$="0"+i
      Default
         nr=i
   End Select
   array(i)="text nr."+nr
Next

.loop
For i=1 To count
   r=Rand(i,count)
   temp$=array(i)
   array(i)=array(r)
   array(r)=temp$
   Locate 10,12*i
   Print array(i)   
Next

Locate 150,50
Print "mousebutton to recalculate"

WaitMouse
Cls
Goto loop

anzahl = 24 ; höchste Zahl       
Dim POSITION(anzahl)
SeedRnd MilliSecs()
For i = 1 To anzahl
Repeat
present = False
gg = Rand(1,anzahl)
For z = 1 To anzahl
If gg = POSITION(z)
present = True
Exit
EndIf
Next
Until present = False
POSITION(i) = gg
Next