Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
10/03/2012 20:29
Konu Sahibi
afatsum75
Yorumlar
2
Okunma
1720
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

afatsum75

Destek Ekibi
Kullanici Avatari
Destek
M.... A....
131
27/05/2009
74
Kahramanmaraş
Ofis XP
15/06/2017,14:32
Çözüldü 
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

mk70

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... K....
121
18/02/2010
37
Karaman
Ofis 2010 64 Bit
20/02/2017,11:02
Çözüldü 
Site Kuralları gereği örnek eklemelisiniz...


mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

afatsum75

Destek Ekibi
Kullanici Avatari
Destek
M.... A....
131
27/05/2009
74
Kahramanmaraş
Ofis XP
15/06/2017,14:32
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Access Formda Rastgele (random) Resimlerin Aynı Olmamasını Nasıl Sağlarız? mehami 5 566 15/04/2017, 09:25 ozanakkaya
Çözüldü webden veri alma, veri tabanına ekleme.... mbo69221088 15 1.089 10/12/2016, 00:08 mbo69221088
Çözüldü Formda onay kutusu ile tek personel seçmek!!!!!! ferhatozge 7 658 05/11/2016, 21:53 ferhatozge
Çözüldü Veri girildikce rastgele otomatik sayı üretimi +/- sıkıntısı aveN 3 552 13/05/2016, 14:25 aveN
Çözüldü Raporu yazdırmak için yazıcıyı seçmek kenan827 4 763 21/01/2016, 19:49 kenan827

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.