Posted by: gagah35 | February 23, 2010

Membuat Animasi Gambar dari ImageList Dengan Menggunakan Visual Basic 6(tugas)

Note: Tulisan ini dibuat sebagai tugas dari mata kuliah Desain Permodelan Grafik dimana ini merupakan tugas kelompok.

Membuat Animasi Gambar dari ImageList Dengan Menggunakan Visual Basic 6.0

Sebelum Anda membuat aplikasi ini anda wajib mempunyai gambar apa saja yang berurutan sebagai contoh gambar kelelawar yang terbang dalam sebuah animasi adalah sebuah urutan gambar yang saling berhubungan satu dengan yang lainnya. Apabila Anda tidak mempunyai urutan gambar yang berurut maka anda tidak perlu berkecil hati, anda dapat menggunkan gambar yang tidak berurutan sekalipun. Akan tetapi hasil yang akan diperoleh tentu saja berbeda dari gambar yang berurutan.
Jika dalam gambar berurutan akan didapat sebuah gambar yang bergerak atau jalan secara continue, jika gambar yang dipakai tidak berurutan maka hasil dari setiap segmen akan berbeda. Adapun cara membuatnya akan saya uraikan sebagai berikut :
1. Siapkan Objek gambar .
2. Bukalah proyrk baru menggunakan Standard.Exe
3. Tambahkan objek Timer dan Image ke dalam Form
4. Tambahkan juga objek ImageList yang berasal dari komponen Mirosoft Windows Common Control 6.0 (SP2).
5. Desain tata Letak susunan form menggunakan table pengaturan tampak seperti gambar berikut.

Tabel pengaturan Form Aplikasi Animasi Gambar

Komponen Properti Nilai
Form Name Fmplay
Caption Play Image
Image Name Image1
Timer Name Timer1
Interval 200
Imagelist Name ImageList1

6. Klik kanan pada objek ImageList. Kemudian pilih menu Properties untuk memasukkan daftar`gambar
7. Aktifkan tab image kemudian tambahkan gambar.

8. Setelah selesai mengatur form dan memasukkan gambar pada ImageList, sekarang masukkan pada`halaman kode dan tuliskan program lengkap berikut.

Option Explicit
Private m_index As Integer
Private m_NumImages As Integer

Private sub Form_Load ()
m_NumImages = ImageList1.ListImage.Count
m_Index = 0
End Sub

Private Sub Timer1_Timer()
m_index = ((m_index + 1) Mod m_NumImages)+1
Image1.Picture=ImageList1.ListImage(m_Index)_.Picture
End Sub

9. Setelah selesai menulis code. Cobalah untuk menjalankan program. Apabila berhasil dan tidak ada pesan kesalahan maka gambar akan bergerak sesuai dengan image yang kita masukkan.

Catatan:

Program telah saya coba dalam computer saya dan tidak ada pesan kesalahan atu deteksi error lainnya.

Sumber:

Buku Aplikasi Multimedia Dengan Visual Basic 6.0
Bunafit Nugroho
Penerbit:
Elex media Computindo

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: