Membuat Animasi Layar Berbintik

Thursday, May 12, 2011

Membuat Animasi Layar Berbintik

    No comments
Berikut ini adalah salah satu komponen ActiveX yang dapat teman - teman gunakan untuk membuat tampilan layar agar dipenuhi dengan bintik - bintik atau dengan sebuah kata. ActiveX ini mungkin tidak terlalu berguna bagi aplikasi teman - teman, tetapi mungkin bisa digunakan untuk mengembangkan kreasi atau mungkin pelengkap bagi aplikasi yang teman - teman buat. Hasil dari menjalankan animasi layar berbintik akan mengakibatkan layar monitor teman - teman akan dipenuhi bintik atau kata seperti gambar di bawah ini.
Layar Dipenuhi Bintik
Layar Dipenuhi Kata
Sebelum kita mencoba untuk menggunakan kontrol ActiveX Animasi_layar ini, silahkan download dulu file OCX nya di link di bawah ini :


Setelah mendownload ActiveX Animasi_Layar tersebut dan kemudian mengekstraknya, ikuti langkah - langkah berikut ini untuk menggunakannya :

  1. Registrasikan dulu kontrol ActiveX tersebut dengan cara mengetikkan syntak di bawah ini di dalam Command Window dan kemudian tekan enter.
    ! /n regsvr32 "I:\foxpro\Animasi_layar.ocx"
    Ubah I:\foxpro\ dan sesuaikan dengan lokasi (path) dimana teman - teman meletakkan file "Animasi_layar.ocx" di Local Disk. Dan bila proses registrasi ocx berhasil maka akan keluar pesan seperti gambar di bawah ini.
  2. Selanjutnya buat form dan tambahkan kontrol ActiveX Animasi_layar dengan cara menambahkan kontrol ActiveX Control (OleControl) ke dalam form, seperti gambar di bawah ini.
  3. Setelah tampil jendela Insert Object, pilih Animasi_Layar.Bintik seperti gambar di bawah ini.
  4. Setelah di tambahkan di form, maka kontrol Animasi_Layar.Bintik akan tampak seperti gambar di bawah ini.
  5. Setelah kontrol Animasi_Layar.Bintik berhasil ditambahkan ke dalam form, pertama kali atur property Interval dari olecontrol (Animasi_Layar.Bintik) tersebut dengan angka antara 1 - 200, semakin kecil nilai Interval yang diberikan maka semakin cepat animasi ditampilkan. 
  6. Setelah mengatur property Interval kemudian gunakan syntak - syntak di bawah ini untuk mengatur animasi.

    && Menampilkan Animasi Bintik - Bintik di Layar
    thisform.olecontrol1.showanim(1,0,"")

    && Menampilkan Animasi Bintik Kata - Kata di Layar
    thisform.olecontrol1.showanim(1,1,"Foxpro Mania")

    && Menghentikan Animasi
    thisform.olecontrol1.showanim(0,0,"")

    Function showanim() milik olecontrol (Animasi_Layar.Bintik) ini lah yang digunakan untuk mengatur penampilan animasi di layar.


SELAMAT MENCOBA...!!

No comments :

Post a Comment

Subscribe to: Post Comments ( Atom )