+- 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
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - berduş - 28/11/2018
buton olayının kodunu aşağıdaki kod ile değiştirip dener misiniz?
strkar = Null
Me.Liste3.RowSource = ""
ArrBoy = Int(Me.Metin1) - 1
Dim intRasgele() As Integer
ReDim Preserve intRasgele(ArrBoy)
For x = 0 To Int(Me.Metin1) - 1
10
intRasgele(x) = Int(Me.Metin1 * Rnd() + 1) 'buradaki Me.Metin1 yerine 100 yazarsanız 1-100 arası değer üretir
If InStr(strkar, " " & intRasgele(x) & " ") > 0 Then GoTo 10
strkar = strkar & " " & intRasgele(x) & " "
Next
For i = 0 To ArrBoy - 1
For j = i + 1 To ArrBoy
If intRasgele(i) < intRasgele(j) Then
Temp = intRasgele(j)
intRasgele(j) = intRasgele(i)
intRasgele(i) = Temp
End If
Next j
Next i
For x = 0 To ArrBoy
Me.Liste3.AddItem (intRasgele(x))
NextCvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - notrino - 28/11/2018
Merhaba,
Ben çok daha basit bir şey yaptım. Bilmem işinizi görür mü...
Cvp: Liste Kutusuna Rastgele Benzersiz Sayı Ekleme - mustinba - 28/11/2018
(28/11/2018, 14:09)haliliyas yazdı: buton olayının kodunu aşağıdaki kod ile değiştirip dener misiniz?
strkar = Null
Me.Liste3.RowSource = ""
ArrBoy = Int(Me.Metin1) - 1
Dim intRasgele() As Integer
ReDim Preserve intRasgele(ArrBoy)
For x = 0 To Int(Me.Metin1) - 1
10
intRasgele(x) = Int(Me.Metin1 * Rnd() + 1) 'buradaki Me.Metin1 yerine 100 yazarsanız 1-100 arası değer üretir
If InStr(strkar, " " & intRasgele(x) & " ") > 0 Then GoTo 10
strkar = strkar & " " & intRasgele(x) & " "
Next
For i = 0 To ArrBoy - 1
For j = i + 1 To ArrBoy
If intRasgele(i) < intRasgele(j) Then
Temp = intRasgele(j)
intRasgele(j) = intRasgele(i)
intRasgele(i) = Temp
End If
Next j
Next i
For x = 0 To ArrBoy
Me.Liste3.AddItem (intRasgele(x))
Next
Teşekkürler