Skip to main content

AccessTr.neT


rastgele veri seçmek

rastgele veri seçmek

Çözüldü #1
a=rnd()*5
1,2,3,4,5 sayılarından herhangi birini seçiyor.acaba 5 sayıdan birini seçtikten sonra kalan 4 sayıdan herhangi birini sonra kalan 3 sayıdan herhangi birini sonra kalan 2 sayıdan herhangi birini ve ensonunda kalan tek sayıyı seçecek şekilde vb komutları nasıl yazılır.diyelim a=3 oldu 2.seçimi 1,2,4,5 arasından seçmesini istiyorum.2.seçimi 4 seçti diyelim.3.seçimi 1,2,5 arasından seçmek istiyorum.3.seçimi 1 seçti diyelim.4.seçimi 2,5 arasından seçmesini istiyorum.4.seçimi 5 seçti diyelim.son olarak 5.seçim 2 olmuş olacak.
afatsum75, 27-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Site Kuralları gereği örnek eklemelisiniz...
mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 11/03/2012, 23:31, Düzenleyen: mk70.
Cevapla
Çözüldü #3
kodu komut düğmesinin tıklanma olayına yazdım ve üretilen 28 farklı sayıyı oluşan dizi ile irtibatlandırdığımda her satırı ders Excel dosyasına rastgele sıralamış oldu.

alt = 1
ust = 5
adet = 5

Dim ustP1 As Long, i As Long, j As Long

Dim aa() As Variant, temp As Variant

If alt > ust Then temp = alt: alt = ust - 1: ust = temp Else alt = alt - 1

ReDim temp(1 To ust - alt)

For i = ust - alt To 1 Step -1

temp(i) = i

Next

ustP1 = UBound(temp) + 1

If adet > UBound(temp) Then adet = UBound(temp)

ReDim aa(1 To adet, 1 To 1)

For i = 1 To adet

j = i + Int(Rnd * (ustP1 - i))

aa(i, 1) = temp(j) + alt: temp(j) = temp(i)
Cells(i, 1) = aa(i, 1)
Next i


şimdiki yeni problemim ise rastgele yerleştir eklentisinde form üzerine yerleştirdiğim liste kutusunda ders Excel dosyasında aynı sütüna yerleşen sınıfların listesini çıkardım.istiyorum ki liste kutusu boş olsun yani aynı sütünda bir sınıf bir defa yazsın.umarım sorumu açıklayabilmişimdir.teşekkür ederim.



Ek Dosyalar
 rastgele yerleştir.rar(88.11 KB)
afatsum75, 27-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task