Const Zufallszahlen = 10
Const Hoehe = 10
Const Breite = 10
Const maxNumbers = 3

Dim myArray(Breite,Hoehe) ;dieses Array soll die Bedingungen nachher erfüllen.

Dim array(1,Zufallszahlen)
Dim array2(Zufallszahlen)

fillArray()
printMyArray()




Function printMyArray()
   For y = 0 To Hoehe
      Local s$ = myArray(0,y)
      For x=1 To Breite
         s = s + ","+myArray(x,y)
      Next
      Print s
   Next
End Function

Function fillArray()
   For x = 0 To Breite
   For y = 0 To Hoehe
      setNumber(x,y,getRandNumber(x,y))
   Next
   Next
End Function

Function setNumber(posX%,posY%,number)
   myArray(posX,posY) = number
End Function

Function getRandNumber(posX%,posY%)
   ;Array zurücksetzen
   For i=0 To Zufallszahlen
      array(0,i) = 0
      array(1,i) = 0
   Next

   ;herausfinden welche noch gültig sind, und diese eintragen (zusammenzählen)
   For i = 0 To Breite
      array(0,myArray(i,posY)) = array(0,myArray(i,posY)) + 1
   Next
   
   For i = 0 To Hoehe
      array(1,myArray(posX,i)) = array(1,myArray(posX,i)) + 1
   Next
   
   ;jetzt steht in 'array', für jede Zufallszahl an der position posX,posY, wie viele Male sie
   ;in horizontaler und vertikaler Richtung vorkommt.
   
   counter = 0;wir brauchen einen Counter, weil die Arraynummer
   ;in array2 <> der Zahl die dort gespeichert wird. Dieser counter dient
   ;auch gleichzeitig dazu, nachher zu wissen wie viele Zufallszahlen im
   ;array sind.
   ;jetzt werden alle Zufallszahlen durchgegangen, und für jede Zahl das 'array'
   ;abgefragt, ob diese Zahl in horzontaler und vertikaler Richtung weniger als 'maxNumbers' mal vorkommt.
   ;ist dies der Fall, dann wird die Zahl in 'array2' eingetragen.
   For i=1 To Zufallszahlen
      If array(0,i)<maxNumbers And array(1,i)<maxNumbers ;checken ob in dieser Zeile und Spalte diese Zufallszahl(i) noch nicht dreimal vorkommt
         array2(counter) = i ;Zufallszahl in Hilfsarray eintragen.
         counter = counter + 1 ;counter um 1 erhöhen, da wir gerade eine weitere gültige Zufallszahl dem array hinzugefügt haben.
      EndIf
   Next
   
   Return (array2(Rand(1,counter-1))) ;Aus den gültigen Zufallszahlen eine Zufällige auswählen.
End Function

For Y=0 to 9
   myArray(rnd(0,9),Y)
Next

For X=0 to 9
   myArray(X,rnd(0,9))
Next

Const Zufallszahlen = 10
Dim array(1,Zufallszahlen)
Dim array2(Zufallszahlen)


Function getRandNumber(posX%,posY%)
   
   For i=0 To Zufallszahlen
      array(0,i) = 0
      array(1,i) = 0
   Next
   
   For i = 0 To Breite
      array(0,myArray(i,posY)) = array(0,myArray(i,posY)) + 1
   Next
   
   For i = 0 To Hoehe
      array(1,myArray(posX,i)) = array(1,myArray(posX,i)) + 1
   Next
   
   counter = 0
   
   For i=1 To Zufallszahlen
      If array(0,i)<maxNumbers And array(1,i)<maxNumbers
         array2(counter) = i
         counter = counter + 1
      EndIf
   Next
   
   Return (array2(Rand(1,counter-1)))
End Function

Graphics 220,220,0,2
SetBuffer FrontBuffer()

Const XARRAY%=9
Const YARRAY%=9

Dim myArray%(XARRAY,YARRAY)
Local X%,Y%




;myArray schreiben
For Y=0 To XARRAY
   For X=0 To YARRAY
      myArray(X,Y)=Setzen(X,Y,4)
   Next
Next


;myArray anzeigen
For Y=0 To XARRAY
   For X=0 To YARRAY
      Text X*20,Y*20,myArray(X,Y)
   Next
Next

WaitKey
End




Function Setzen(FX,FY,FZahl)
   Local AllesOK=1
   Local TempWert
   
   Repeat
      AllesOK=1
      TempWert=Rnd(0,FZahl)
      If FX>0 Then If myArray(FX-1,FY)=TempWert Then AllesOK=0
      If FY>0 Then If myArray(FX,FY-1)=TempWert Then AllesOK=0
      If FX<XARRAY Then If myArray(FX+1,FY)=TempWert Then AllesOK=0
      If FY<YARRAY Then If myArray(FX,FY+1)=TempWert Then AllesOK=0
   Until AllesOK=1
   
   Return TempWert
End Function