Ekte bulunan uygulama örneğinde frm_katagori çalıştırılıp - katagori olarak KILIK KIYAFET seçildiğinde açılan frm_dort ( 4 resim olan) formunda YENİLE butonuna bastığımızda her defasında random olarak gelen resimlerden bazen 2 tanesinin aynı resim olduğu gözüküyor.
Random olarak gelen bu resimler asla aynı olmayacak şekilde kod yapısında nasıl bir değişiklik yapmam gerekmektedir?Kod yapısında her türlü oynadım ama bir türlü aynı resim olma ihtimalini yok edemedim.
Bu konuda öneri ve yardımlarınızı bekliyor saygılar sunuyorum.
Kod yapısı aşağıda
Kod:
On Error GoTo Hata
rsm_1 = CInt(Int((GKayitSayisi * Rnd()) + 1))
rsm_2 = CInt(Int((GKayitSayisi * Rnd()) + 1))
rsm_3 = CInt(Int((GKayitSayisi * Rnd()) + 1))
rsm_4 = CInt(Int((GKayitSayisi * Rnd()) + 1))
If rsm_4 = rsm_3 Then
Do Until rsm_2 <> rsm_3
rsm_4 = CInt(Int((GKayitSayisi * Rnd()) + 1))
Loop
End If
rsm_4 = CInt(Int((6 * Rnd()) + 1))
If rsm_4 = rsm_1 Or rsm_3 = rsm_2 Then
Do Until rsm_4 <> rsm_2 And rsm_3 <> rsm_1
rsm_4 = CInt(Int((GKayitSayisi * Rnd()) + 1))
Loop
End If
Hata:
If Err.Number <> 0 Then
MsgBox (Err.Number)
Exit Sub
End If
