;* Zufall ohne Doupletten

;* Fenster zum Anzeigen:
Graphics(256,256,32,2)
;* Der Zufallssamen wird mit der Laufzeit des Computers initialisiert
;* damit werden bei jedem Programmstart andere Zahlen generiert.
SeedRnd(MilliSecs())

;* 3x3 Feld (mit Zahlen 1-9 zu befüllen)
Dim Feld(2,2)

Local x, y, Nummern_Liste$=""
;* Alle Felder werden von oben nach unten...
For y=0 To 2
    ;* ...und von rechts nach links durchgegangen.
    For x=0 To 2
        ;* Jetzt wird der folgende Vorgang wiederholt:
        Repeat
            ;* Ein zufallszahl wird generiert
            Feld(x,y)=Rand(1,9)
            ;* Wenn die Zufallszahl nicht im String enthalten ist, 
            ;* wird die Schleife verlassen
        Until Instr(Nummern_Liste,Feld(x,y))=0
        ;* Die Zufallszahl wird dem String hinzugefügt.
        Nummern_Liste=Nummern_Liste+Feld(x,y)
    Next
Next
;* Alle Felder wurden abgearbeitet

;* Anzeige der Felder:
For y=0 To 2
    For x=0 To 2
        Text(64+x*64, 64+y*64, Feld(x,y), True, True)
    Next
Next

;* Diese Methode kann man offensichtlich nicht für beliebige Werte verwenden!
;* Würde man Zahlen von z.B. 1-11 generieren, würde "1" im String "11" enthalten sein.
;* Natürlich lassen sich Zahlen durch Symbole für Beginn und Ende Trennen;
;* "'1'" wird nicht im String "'11'" gefunden!

WaitKey()
End

SeedRnd( MilliSecs() )

Local x, y, xt, yt, alreadySet

Dim dat(3, 3)

For x = 0 To 2
	For y = 0 To 2
		While True
			k = Rand(1, 9)
			
			alreadySet = False
			
			For xt = 0 To 2
				For yt = 0 To 2
					If dat(xt, yt) = k
						alreadySet = True
					EndIf
				Next
			Next
			
			If Not alreadySet
				dat(x, y) = k
				
				Exit
			EndIf
		Wend
	Next
Next

Local s$

For y = 0 To 2
	s = ""
	
	For x = 0 To 2
		s = s + dat(x, y)
	Next
	
	Print s
Next

WaitKey()

SeedRnd

Millisecs

Goto

While

False

Exit

	;Vorbereitung
	breite = 3
	hoehe = 3
	start = 1
	Dim feld(breite * hoehe - 1)
	SeedRnd(MilliSecs())
	
	;Feld füllem
	For i = 0 To breite * hoehe - 1
		feld(i) = start + i
	Next
	
	;Feld durchmischen
	;Nacheinander wird jedes Feld im Array mit einem zufälligen anderen Feld getauscht
	For i = 0 To breite * hoehe - 1	
		z = Rand(0, breite * hoehe - 1)		
		;Dreieckstausch
		temp = feld(i)
		feld(i) = feld(z)
		feld(z) = temp	
	Next
	
	
	;Ergebnis anzeigen
	Graphics 400, 400, 0, 2
	SetBuffer BackBuffer()
	
	fgb = GraphicsWidth() / breite
	fgh = GraphicsHeight() / hoehe
	
	For i = 0 To breite * hoehe - 1
		Text (i Mod breite + 0.5) * fgb, (i / breite + 0.5) * fgh, feld(i) 
	Next
	
	Flip()
	WaitKey
	End	
	
	

SeedRnd MilliSecs()

Const w=3, h=3

Dim numbers(w*h-1), used(w*h-1)
Global noOfNos

For noOfNos=1 To w*h
  Local n = getUnused(Rand(1, w*h-noOfNos+1))
  numbers(noOfNos-1) = n
Next

For y=1 To h
  Print "+---+---+---+"
  Print "|   |   |   |"
  For x=1 To w
    Write "| "+numbers((y-1)*w+x-1)+" "
  Next
  Print "|"
  Print "|   |   |   |"
Next
Print   "+---+---+---+"

Function getUnused(n)
  For i=1 To n
    If used(i-1) Then n = n+1
  Next
  used(n-1) = True
  Return n
End Function

Local timer = CreateTimer(1)

For i=1 To 3
  WaitTimer timer
Next

WaitKey

Const xmax%=800, ymax%=600, KEY_ESC%=1
Dim Feld%(3,3)
Graphics xmax,ymax,32,2
SetBuffer BackBuffer()
FPS=CreateTimer(60)
SeedRnd MilliSecs()
; Feld(x,y) mit 1 - 9 Füllen
i%=0
For x% = 1 To 3
	For y% = 1 To 3
		i = i+1
		Feld(x,y)=i
		 
	Next
Next
		
		;Felder Mischen
		For j% = 1 To 1000
			a%=Rand(1,3)
			b%=Rand(1,3)
			c%=Rand(1,3)
			d%=Rand(1,3)
		
		
			Tausch%=Feld(a,b)
			Feld(a,b)=Feld(c,d)
			Feld(c,d)=Tausch%
		Next 


Repeat 
WaitTimer(FPS)
	If KeyHit(KEY_ESC) Then Ende=1
	
		;3x3 Feld Zeichnen
		For x% = 1 To 3 
			For y% = 1 To 3
				Text x*30, y*30,+Feld(x,y)
			Next 
		Next 
	
Flip 0
Cls
Until Ende=1
End 

Const xmax%= 800, ymax%= 600, KEY_ESC%=1
Dim Zahl%(9), Feld%(3,3)
Graphics xmax,ymax,32,2
SetBuffer BackBuffer()
FPS=CreateTimer(60)
SeedRnd MilliSecs()


	
	;ZufallsZahl erstellen & auf Doppelte Zahlen Prüfen
	For i = 1 To 9 
		Repeat 
			Local Doppel = 0
			Zahl(i)=Rand(1,9)
			
				For j = 1 To i-1
					If Zahl(i) = Zahl(j) Then 
						Doppel = 1					
					EndIf 
				Next
				 
		Until Doppel = 0	
	Next 
	
	;3x3 Feld festlegen
	i = 0
	For x = 1 To 3
		For y = 1 To 3
			i = i+1
			Feld(x,y) = Zahl(i)
		Next 
	Next



Repeat 
WaitTimer(FPS)
If KeyHit(KEY_ESC) Then End  = 1
	;Zeichnen
	For x = 1 To 3
		For y = 1 To 3	
			Text x*30,y*30,Feld(x,y)	
		Next 
	Next
	
Flip 0
Cls
Until End = 1
End 

width = 3
height = 3
Global count = width * height
Dim array(count)

;Gibt für n > 0 den Index des n-ten freien Feldes zurück
Function NthFreeField(n)
    For i = 1 To count
        If array(i)=0 Then n = n - 1
        If n <= 0 Then Return i
    Next
End Function

;Fülle das Feld
SeedRnd(MilliSecs())
For i = 0 To count-1
    array( NthFreeField( Rand (1, count-i) ) ) = i+1
Next

;Anzeige geklaut von SpionAtom 
Graphics 400, 400, 0, 2
SetBuffer BackBuffer()

fgb = GraphicsWidth() / width
fgh = GraphicsHeight() / height

For i = 0 To count - 1
    Text (i Mod width + 0.5) * fgb, (i / width + 0.5) * fgh, array(i+1) 
Next

Flip
WaitKey
End