با تابع Random
Random تودلفی خیلی جالبه. چون رنج ورودیش و خروجیش میتونه هرچیزی باشه:
کنترل
اینت
دابل
رنگ
کاراکتر
و...
فقط از Randomize استفاده کنید قبلش و حتما یادتون باشه فقط یه بار استفاده بشه.
سلام
با اجازه safir 187
بازم با یک مثال ساده این کد رو براتون توضیح میدم مرحله به مرحله:
1-یک باتن و یک لیبل روی فرم قرار بدین
2- در onclick باتن کدهای زیر رو بنویسید
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
Randomize;
x:=RandomRange(1,100);
label1.Caption:=inttostr(x);
end;
2-برنامه رو اجرا و روی باتن 1 چند بار کلیک کنید می بینید که هر بار یک عدد تصادفی تولید میشه
3-برای کار شما، می تونید کد ها را در Onshow فرم بنویسید که هر بار فرم باز شد یک کد تصادفی تولید بشه
4-تمام
__________________
روزي کـه تو آمــــدي به دنيا عــريان *** جمعي به تو خندان و تو بودي گريان
کاري بکن اي دوست که وقت رفتن *** جمعي به تو گريند و تو باشي خندان
DrXoX جان ممنون ولی یه مشکلی هست. این که Randomize چند بار اجرا میشه یعنی با هر با کیلک روی دکمه.
باید اون بیاد تو ایونت شروع برنامه که فقط و فقط یه بار اجرا بشه:
کد:
procedure TForm1Initialize(Sender:TObject);
begin
Randomize;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
x:=RandomRange(1,100);
label1.Caption:=inttostr(x);
end;
نه نوید جان
اگر بیشتر از یک بار بشه اعداد رندم مشکلاتی دارن.
میتونید تست کنید و نتیجه رو ببینید.
هم تو .net هم تو delphi هم زبونای دیگه ای که الگوریتم های مشابه دارن.
نه نوید جان
اگر بیشتر از یک بار بشه اعداد رندم مشکلاتی دارن.
میتونید تست کنید و نتیجه رو ببینید.
هم تو .net هم تو delphi هم زبونای دیگه ای که الگوریتم های مشابه دارن.
