Gambar Acak

Pada postingan kemarin saya telah postingkan cara membuat Acak Angka, nha untuk postingann kali ini saya bahas tentang membuat gambar berpindah secara acak....oke langsung saja siapkan delphinya hehe

desain seperti  gambar samping :

Keterangan :

1.Image di ambil di componen pallet

  Additional, untuk gambar bisa load sendiri 

  caranya. Klik pada image lihat pada

  propertis dan pada picture klik pada scrol 

  dan akan muncul kotak dialog seperti di 

  bawah 

klik load untuk mencari gambar yang akan di gunakan dan setelah mendapatkan gambar klik ok

2. Timer diambil di componen pallet System pada interval ganti 

   100 atau lebih kecil.

seteleh desainnya selesai kita tinggal memberi rumus, dan rumus cukup di timer karena kunci dari pergerakan gambar ada di timer. Rumusnya sebagai berikut :

   Image1.Left:=left*round(random);
   Image1.top:=top*round(random);


coba jalankan dan lihat hasilnya


Salam ilmu dan semoga bermanfaat.. komentar kritik dan saran yang membangun senantiasa kami tunggu untuk memperbaiki susunan postingan di blog ini