'Sicherstellen, daß bei jedem Start wirklich
'eine neue Zufallszahl generiert wird
Randomize -Timer
 
' maximal 20 Felder
Const nMax = 20
 
Dim nCount As Integer
Dim nZahl As Integer
Dim i As Integer
Dim sCheck As String * 10
Dim sField As String * 20
Dim nImage As Integer
Dim nField As Integer
Dim sImgFile As String
 
nCount = 0
While nCount < nMax
  ' Bild zufällig ermitteln (Bereich 1-10)
  Do
    nImage = Int(10 * Rnd + 1)
 
    ' Prüfen ob Bild bereits geladen
  Loop Until Mid$(sCheck, nImage, 1) <> "x"
 
  ' Kennung setzen, dass Bild bereits geladen
  Mid$(sCheck, nImage, 1) = "x"
 
  ' zufälligen Platz aussuchen (2x)
  For i = 1 To 2
    nCount = nCount + 1
    Do
      nField = Int(Rnd * 20 + 1)
 
      ' Prüfen, ob Feld bereits besetzt
    Loop Until Mid$(sField, nField, 1) <> "x"
 
    ' Kennung setzen, dass Feld belegt
    Mid$(sField, nField, 1) = "x"
 
    ' Bild seinen Platz zuordnen
    sImgFile = App.Path & "\" & Format$(nImage - 1, "00") & ".jpg"
    Image1(nField - 1).Picture = LoadPicture(sImgFile)
  Next i
Wend

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de