Kamis, 18 September 2008

MEMBUAT BILANGAN RANDOM DI DELPHI

Jika anda ingin membuat bilangan random di Delphi ? source berikut merupakan source sederhana yang bisa anda kembangkan selanjutnya. Gunakan prosedur randomize untuk inisialisasi generator nomor random dan fungsi untuk membuat nomor random. parameter fungsi random menunjukkan jarak untuk random jumlah.
jika parameter ini 100 maka random jumlah akan terbentuk berkisar diantara 0 dan 99.

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:=IntToStr(Random(100));
end;

random 100 dapat anda ganti dengan bilangan yang lain misalnya 200, 1000 atau yang lainnya.

Tidak ada komentar: