+- 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ığı: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme (/konu-liste-kutusuna-rastgele-benzersiz-sayi-ekleme.html)
Sayfalar:
1
2
Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - mustinba - 27/11/2018
İyi çalışmalar;
Sayı üret butonuna bastığımda
1 ile 100 arasında olacak şekilde metin kutusuna yazdığım sayı adedinde
Liste kutusuna birbirinden farklı ve küçükten büyüğe doğru sıralanmış şekilde sayılar ekleme.
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - berduş - 27/11/2018
maximum ve minimum değerlerini belirtebilir misiniz
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - mustinba - 27/11/2018
(27/11/2018, 21:17)haliliyas yazdı: maximum ve minimum değerlerini belirtebilir misiniz
Minimum 1 olacak maximum ise metin kutusuna gireceğim sayı olacak.
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - berduş - 27/11/2018
özür dilerim yanlış ifade ettim
rasgele sayıları kast etmiş
vba da "rnd()" fonksiyonu rasgele sayı üretiyor ama hangi aralıkta siz belirliyorsunuz
mesele 1-6 arasında üretsin
1-1000 …. gibi
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - berduş - 28/11/2018
dilerim işiniz görür
çok büyük sayılar girerseniz biraz zaman alabilir
butonun olay yordamına aşağıdaki kodu girin
düzenleme: maalesef tekrar engellenmemiş
while...wend kısmında 1 hata yapmışım galiba
strkar = Null
For xRasgele = 0 To Me.Metin1 - 1
intrasgele = Int(1000 * Rnd() + 1)
strkar = strkar & vbCrLf & intrasgele
While InStr(strkar, " " & intrasgele & " ") > 0
intrasgele = Int(1000 * Rnd() + 1)
Wend
Me.Liste3.AddItem (intrasgele)
Next
For i = 0 To Me.Liste3.ListCount - 1
For j = i + 1 To Me.Liste3.ListCount - 1
If Int(Me.Liste3.Column(0, i)) < Int(Me.Liste3.Column(0, j)) Then
strTempi = Me.Liste3.Column(0, i)
strTempj = Me.Liste3.Column(0, j)
Me.Liste3.RemoveItem (i)
Me.Liste3.AddItem Item:=strTempj, Index:=i
Me.Liste3.RemoveItem (j)
Me.Liste3.AddItem Item:=strTempi, Index:=j
End If
Next
Next
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - mustinba - 28/11/2018
arşiv hasarlı diyor;
kodu kullandım tekrarlı sayı üretiyor.
Çok özür dilerim benim hatam var
1 ile 100 arasında olacak şekilde metin kutusuna yazdığım sayı adedinde olacak.