Acak Angka

Hallo para agan" yang sudah berkenan berkunjung di blog ini hehe. Kali ini saya akan membahas tentang membuat Acak Angka yang penting jangan ampe orangnya yang acak-acakan hahag. langsung aja gan rancang atau desain form seperti gambar di bawah ini okokok hehe.....

keterangan:

1. Label ambil di componen pallet standard pada propertis caption diganti angka 0
2. Button ambil di componen pallet standart pada propertis untuk button1 caption ganti Acak Angka dan pada button2 caption ganti Ulang
3. Timer ambil di componen pallet System pada propertis enable diganti false dan interval ganti 100

setelah itu masuukan rumus di timer sebagai berikut

• double klik pada timer1

              Label1.Caption:=inttostr(round(random*9));
              Label2.Caption:=inttostr(round(random*9));
              Label3.Caption:=inttostr(round(random*9));

• masukan rumus di button1 atau Acak Angka sebagai berikut

             if Button1.Caption='Acak Angka' then
              begin
                Timer1.Enabled:= true;
                Button1.Caption:='Stop';
              end
             else
              begin
                Timer1.Enabled:=false;
                Button1.Caption:='Acak Angka'
             end;

• masukan rumuus terakhir di button2 atau Ulang

            Label1.Caption:='0';
            Label2.Caption:='0';
            Label3.Caption:='0';

• selesai dech coba jalankan dan lihat hasilnya. . . . . semoga bermanfaat.

untuk yang mempunyai pendapat, kritik dan saran bisa di tulis di kolom komentar yang tersedia. Salam Ilmu