+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rastgele 10 Sayı Seçme (/konu-rastgele-10-sayi-secme.html)
Rastgele 10 Sayı Seçme - Matakli - 11/04/2026
1 ve 10 dahil olmak üzere birbirinden farklı 10 sayı yazan vb komutları nasıl olur? yardımcı olur musunuz?
Re: Rastgele 10 Sayı Seçme - onur_can - 16/04/2026
1 ile 10 arasında rasgele 10 sayı için aşağıdaki modülü kullanabilirsiniz.
Bir formumuz olsun, formda bir komut butonu ve birde Metin kutusu olsun.
Komut düğmesine basıldığında Metin kutusunda yan yana benzersiz 11 ile 10 arasında sayı üretecektir.
Komut düğmesinin Click olayı aşağıdaki kodla çalışacaktır.
Dim sayilar As New Collection
Dim uretilensayilar As Integer
Dim i As Integer
Randomize
Do While sayilar.Count < 10
uretilensayilar = Int((10 - 1 + 1) * Rnd + 1)
On Error Resume Next
sayilar.Add CStr(uretilensayilar), CStr(uretilensayilar)
On Error GoTo 0
Loop
' Debug.Print "Sonuçlar:"
For i = 1 To sayilar.Count
Me.txtSonuc.Value = sayilar(i) & " , " & Me.txtSonuc.Value
Next iRE: Rastgele 10 Sayı Seçme - Matakli - 16/04/2026
teşekkürler
RE: Rastgele 10 Sayı Seçme - onur_can - 16/04/2026
rica ederim, iyi çalışmalar...
RE: Rastgele 10 Sayı Seçme - atoykan - 18/04/2026
Sayın @onur_can Hocamızın kodu istediğiniz işlemi yapacaktır ancak not olarak şu hususu belirtmekte fayda var:
Üretilen sayıların benzersiz olması gerekiyor ise:
üreticelecek sayılar bir collection veya array olarak tanımlanarak, üretilen sayı collectiona eklendiğinde bu sayının ilgili üretilecek sayılar array/collection'ından çıkartılarak üretilmesi engellenmek sureti ile unique sayılar elde edilebilir.