8 veya 13 haneli random sayı üretmek

[Biltes]

Arkadaşlar öncelikle günaydınlar;

Forumdarandom ile ilgili mesajları araştırdım, hatta hüsyin hocamın loto diye bir makalesi vardı onuda okudum fakat bir türlü işin içinden çıkamadım.
Yapmak istediğim olay sürekli olarak 8 veya 13 haneli rastgele rakam üretmesi ve bu üretilen rakamların bir daha tekrarlanmaması.(1000'de 1 belki aynı sayı gelebilir ama bu çok önemli deil.) Böyle bir olayı daha önce yapan arkadaş varmı bu konuda yardımcı olabilirseni çok memnun olurum. Akşamdan beri çıkamadım işin içinden..

Yardımlarınız için şimdiden çok tşk ederim... Kolay gelsin...

[aslangeri]

s.a.
sıkıntı sayı üretmektemi yoksa çıkan sayının tekrar çıkmamasındamı?

[selam]

Merhaba,
İlk önce sayiuret diye bir fonksiyon yazarsınız parametre olarak üretilen sayıların kaydedileceği ortamı(tstrings vs.) yazarsınız ilk kontrol mesela random(2) olarak 0 çıkarsa 8 haneli 1 çıkarsa 13 haneli şeklinde ondan sonra rasgele sayı üretilir (8 hanelide 10000000 ile 99999999 13 hanelide de aynı şekilde ) ve result olarak atanır.
İnş yardımcı olabilmişimdir.

[Biltes]

Abdullah hocam sorun sayıyı üreten kodu yazmakta. Tüm denemelerime rağmen bir türlü başaramadım.

2.cevaptaki mantığı ise inanın anlayamadım. Kusura balmayın..

Kolay gelsin..

[mussimsek]

RandomRange fonksiyonunu kullanabilirsin. uses kısmına Math unitini eklemelisin.

RandomRange(10000000,99999999) -> 8 haneli üretmek için

RandomRange(1000000000000,9999999999999) -> 13 haneli üretmek için

Kolay gelsin.

[Biltes]

Mustafa hocam yardım için çok tşk ederim.

Dediğiniz gibi math üniti'ni ekledim. Verdiğini kodu da deniyorum ama randomrage komutu delphi5'te yok sanırım.Maalesef çalışmıyor. Math ünitini buldum programın klasörünün içine de attım ama sonuç değişmedi. Acaba önerebileceğiniz başka bir yöntem var mı?

[aslangeri]

s.a.

Kod: Tümünü seç

s:='';
for i:=1 to 8 do
begin
  s:=s+inttostr(random(10));
end;

bu 8 haneli random sayı üretir. tabi sayıyı stirng bir değişkende tutuyoruz...
13 haneli random sayıyı da artık üretirsin.
kolay gelsin.

[Biltes]

Hocam ne diyeyim yaa allah sizden razı olsun ok dediğiniz gibi yaptım 8 haneli türettim ve 13 haneli de yapabildim.

Yardımlarınız için çok tşk ederim. Allah her zaman yardımcınız oslun.. İyi çalışmalar...