MEMBUAT BILANGAN RANDOM DI DELPHI

18.59
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.

Artikel Terkait

Previous
Next Post »