Random sayı

[Armani]

Merhabalar
100000 ile 150000 arasında random bir tane sayı üretip label 1 e yazdırm ak için bana örnek bir kod verebilirmisinz ?

Teşekkürler

[Çağrıbey]

aşağıdaki örnek delphi7 de test edilmiştir, her hangi bir hata da vermemiştir.. bunu kendi programina uygun hale getirerek kullanabilirsin..
kolay gelsin..
not: fonksiyon buradaki bir arkadaşimizdan alinmiştir..
//////////////
Function SayiUret(RandMin, RandMax: Integer): Integer;
Var
RandRange: Integer;
RandValue: Integer;
Begin
If RandMax <= RandMin Then
Begin
Result := RandMin;
Exit;
End;
Randomize;
RandRange := RandMax-RandMin;
RandValue := Random(RandRange);
Result := RandValue + RandMin;
End;


procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
x:=sayiuret(100000,150000);
Label1.caption:=(inttostr(x));
end;

[Asri]

Merhaba,
Boş bir projenin Oncreate olayına

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);

var
i:longint;

begin
     for i:=100000 to 150000 do
         begin
            avalues[i]:=i;

         end;

  randomize;

end;

şeklinde kod girin. Yukarılarda implementation deyiminin üstünde var deyimi ile değişken tanımının yapıldığı yere

Kod: Tümünü seç

avalues:array [100000..150000] of longint;

kodunu yazın.

Bir butonun onClick olayına da aşağıdaki kodu yazarsanız. Butona her basışınızda farklı bir rakam gelecektir. Son olarak formun Uses kısmına
,Math eklemeyi unutmayın.

İyi çalışmalar.

_______________
ofenX

[aslangeri]

s.a.

Kod: Tümünü seç

randomize;
i:=random(50000)+100000;
label1.caption:=inttostr(i);

kolay gelsin