Hafiza Oyunu Acil Yardim!!!

[alib]

Arkadaşlar 4x4 karelerden oluşan ve resmin çiftini bulma oyununu yazmak istiyorum.fakar 8 resmi 16 kareye nasıl dağıtabileceğimi yapamadım.visual basic 2005 express edition kullanıorum.daha önce yazmış arkadaşlar var ise kodları yollarlarsa çok sevinirim...

[Revlis]

armut piş meselesi yapmayalım lütfen.

1 döngü yapacaksın 1. elemanı alacak 2 tane rasgele sayı alacak o rasgele yerler boşsa o elemanı o 2 kare ye koyacak.

[alib]

arkadaşım ben oyunun bütün kodlarını istemedim.sadece 8 reesmi 16 karta daıtabilmem için gerekli kodları istedim. döngü yapıorum fakat picturebox a yerleştirme işlemini .image ile mi yapıcam eer onunla yapıcaksam nasıl yapıcam? ben sadece bunu öğrenmek istiorum

[Revlis]

istediğin kadarını yazdım.
picturebox bu işlem için biraz yavaş. Aslında tek bir picturebox ile x ve y ler kullanılarak daha profosyenel şekilde de yapılır fakat ben bu şekilde api kullanmadan hızlı bir uygulama geliştirdim :

' 2007 Cihan Yakar
Private Sub Command1_Click()
    Randomize Timer
   
    On Error GoTo 66
    
    Dim sayi As Long
    Dim tutulanResim() As Long
    ReDim tutulanResim(0)
     
    Do While Not UBound(tutulanResim) = 16
                
        Do
                       
            sayi = (Int(Rnd * 16) + 1)
             
        Loop While kontrol(tutulanResim, sayi)
        
        ReDim Preserve tutulanResim(UBound(tutulanResim) + 1)
        tutulanResim(UBound(tutulanResim)) = sayi
        
        Set es(UBound(tutulanResim) - 1).Picture = LoadPicture(App.Path & "/resimler/" & (sayi Mod 8) + 1 & ".jpg")
        
    Loop
    
    Exit Sub
66     MsgBox "dosya hatası"
End Sub
Function kontrol(dizi() As Long, sayi As Long) As Boolean
     Dim i As Long
     
     kontrol = False
     
     For i = LBound(dizi) To UBound(dizi)
        If dizi(i) = sayi Then kontrol = True: Exit Function
     Next i
    
End Function
Private Sub Form_Load()
' --< tablo oluştur >--
    Dim i As Long
    
    For i = 1 To 15
        
        Load es(i)
        
        es(i).Visible = True
        
        
        es(i).Move es(i - 1).Left + es(i - 1).Width, es(i - 1).Top
        
        
        If i Mod 4 = 0 Then
            
            es(i).Move es(0).Left, es(i - 1).Top + es(0).Height
        End If
    
    Next i
' --</ tablo oluştur >--
End Sub

http://rafb.net/p/enDz1K62.html