[VBA] Rasgele Numara Üretme
#1
Merhaba,

Arkadaşlar 4 haneli noktasız virgülsüz eksi değersiz rasgele numara üretmem gerekiyor,
Aşağıdaki kodu kullanarak işimi görüyorum ama daha sağlıklı ve basit yolu var mıdır?

Visual Basic
  1. Left((Rnd(1)*100000000);4)



Rasgele numara 0,0326 gibi bir değer üretiyor bunu 100 milyon ile çarparak 0,0001 bile üretilse çarpıldığında en az 10000 rakamını verecek şekle getiryor.

Ve soldan 4 hane tamsayı olarak alınıyor.

Birde sıfır ile bailayan değerlerin 0 olarak görünmesi yani mutlaka 4 hane olması gerekiyor.

0012
3213
4543
5653

Gibi...

Daha pratik nasıl olur bu iş?



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba aşağıdaki açıklamalar Sayın Taruz'un açtığı bir konudan alıntıdır. Sanırım işinizi görür.

Int ((6 - 1 + 1) * Rnd + 1) 1 ile 6 arasında rastgele sayı üretir..

Int ((200 - 150 + 1) * Rnd + 150) 150 ile 200 arasında rastgele sayı üretir..

Int ((999 - 100 + 1) * Rnd + 100) 100 ile 999 arasında rastgele sayı üretir..




  Alıntı
Bu mesajı beğenenler:
#3
Bazı parantez içlerini anlayamadım?

Örneğin;

(6 - 1 + 1)

yerine

(6)

yazsak ne olur?

Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#4
Merhaba bu yazım şeklinin amacı sanırım başlangıç ve bitiş tarihlerinin daha net gösterimi. Ama belirttiğiniz şekilde yazmanızda sonuçta bir değişikliğe sebep olmayacaktır.



  Alıntı
Bu mesajı beğenenler:
#5
(13-12-2011, 17:19)MirzaKatar demiş ki: Merhaba bu yazım şeklinin amacı sanırım başlangıç ve bitiş tarihlerinin daha net gösterimi. Ama belirttiğiniz şekilde yazmanızda sonuçta bir değişikliğe sebep olmayacaktır.

Int((x) * Rnd + y)

x: max sayı

y: min sayı


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#6
Teşekkürler...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Eksik Numara Ve Mükerrer Kayıt golf2000 0 550 24-01-2021, 19:06
Son Mesaj: golf2000
  Klasör Içindeki Evraklara Numara Verme, Büro Içi Kullanım Yrdm. comand0 3 754 15-05-2020, 03:57
Son Mesaj: userx53
access-sql-18 [FORM] İlişkili alanlar ve Özel Kod Üretme ebenli 79 7.796 08-01-2020, 01:08
Son Mesaj: ebenli
access-sql-19 Sorguda Tekrarlanan Kayıtlara aynı numara ile Kars36 4 1.263 04-10-2017, 23:55
Son Mesaj: dsezgin
  [TABLO] access kimlik numara tutma rk10 2 1.555 23-03-2016, 19:46
Son Mesaj: rk10
  [FORM] Yeni numara verdiremiyorum mengene 4 1.926 15-03-2016, 21:29
Son Mesaj: mengene
  [VBA] Otomatik Numara Verdirme Allback 0 1.493 02-07-2015, 17:17
Son Mesaj: Allback
  [FORM] Combobox'ta seçilen bölüme göre diğer textbox'a otomatik numara atama (bölüm bazlı) yekta.eren06 11 9.589 24-07-2014, 20:22
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi