13-12-2011, 16:55
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?
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ş?
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
- 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ş?


