Skip to main content

AccessTr.neT


Liste Kutusuna Rastgele Benzersiz Sayı Ekleme

Liste Kutusuna Rastgele Benzersiz Sayı Ekleme

Çözüldü #1
İ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.
.rar RASTGELE SAYI.rar (Dosya Boyutu: 9,26 KB | İndirme Sayısı: 9)
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 28/11/2018, 07:34, Düzenleyen: mustinba.
Cevapla
#2
maximum ve minimum değerlerini belirtebilir misiniz
Cevapla
#3
(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.
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
ö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
Cevapla
#5
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
.rar RASTGELE SAYI_hy.rar (Dosya Boyutu: 13,78 KB | İndirme Sayısı: 6)
Cevapla
#6
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.
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 28/11/2018, 07:33, Düzenleyen: mustinba.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task