Visual Basic – Menampilkan Animasi

Animation Control adalah cara termudah untuk menambahkan animasi pada program VB Anda. Dengan Animation Control ini, Anda dapat mem-play file AVI hanya dengan beberapa baris program.

Control ini hanya mendukung file AVI yang tidak ”bersuara” atau file AVI yang telah dikompres dengan menggunakan Run-Length Encoding (RLE). Selain file AVI jenis tersebut, maka akan muncul errror yaitu error 35752 (Unable to open AVI file).


Komponen Animation control harus ditambahkan terlebih dulu lewat menu Project|Component atau dengan shortcut Ctrl+T. Beri tanda check untuk Microsoft Windows Common Control-2 6.0 atau dengan memilih file MSCOMCT2.OCX lewat button Browse.




Sedangkan untuk form, siapkan 4 buah text box dengan nama txtFileName (digunakan untuk mengisikan nama file AVI yang hendak dijalankan), txtTimes (digunakan untuk mengatur berapa kali animasi dijalankan), txtFrom (digunakan untuk mengisi mulai dari frame ke berapa animasi dijalankan) dan txtTo (digunakan untuk mengisi sampai frame ke berapa animasi dijalankan). Tiga buah command button (dengan nama cmdBrowse, cmdPlay dan cmdStop) serta sebuah animation control (dengan nama animation1).




Untuk keperluan browse (membuka file AVI), kita akan membutuhkan control Common Dialog. Control Common Dialog ini harus ditambahkan dengan cara yang sama seperti menambahkan Animation Control, yaitu lewat menu Project|Component atau dengan shortcut Ctrl+T. Component yang dipilih adalah Microsoft Common Dialog Control 6.0 atau dengan memilih file COMDLG32.OCX.


Untuk menjalankan file AVI, perintah yang digunakan adalah perintah PLAY. Sintaks penulisan untuk perintah PLAY ini adalah:

Play [RepeatCount], [StartFrame], [EndFrame]

RepeatCount adalah jumlah pengulangan yang dilakukan. StartFrame adalah frame awal untuk memulai animasi dan EndFrame adalah frame terakhir yang dijalankan. Ketiga perintah tersebut adalah opsional (boleh ditulis, boleh tidak). Jika RepeatCount tidak diisi apa-apa, artinya animasi akan dijalankan terus menerus sampai animasi dihentikan dengan perintah stop.

Program selengkapnya adalah:

Private Sub cmdBrowse_Click()   CommonDialog1.ShowOpen   txtFileName.Text = CommonDialog1.FileName End Sub  Private Sub cmdPlay_Click()   Dim times, fromf, tof   Animation1.Open txtFileName.Text   If txtTimes.Text <> "" Then times = Val(txtTimes.Text) Else times = -1   If txtFrom.Text <> "" Then fromf = Val(txtFrom.Text) Else fromf = 0   If txtTo.Text <> "" Then tof = Val(txtTo.Text) Else tof = -1   Animation1.Play times, fromf, tof End Sub  Private Sub cmdStop_Click()   Animation1.Stop   Animation1.Close End Sub

Simpan program ini, lalu jalankan. Jika Anda memilih file filecopy.AVI, Anda akan mendapatkan tampilan seperti pada gambar:




Catatan: Contoh file-file AVI yang bisa dijalankan ada pada folder \Common\Graphics\AVIs yang ada di dalam folder instalasi Visual Studio Anda.