Cara Membuat Animasi Bergerak Di Visual Basic
1. Siapkan gambar yang akan di gerakkan di visual basic (gambar terdiri dri
beberapa gambar yang tersusun secara rapi dan sesuai dengan pergerakan
gambar)
Ex:
2. Buka Program Visual Basic
3. Pilih standar.exe lalu kilk open
4. Siakan Form
5. Tambahkan objek TIMERdan IMAGE yang ada di
TOOLBOX.
Letakkan dimana saja.
6. Tambahkan IMAGELIST yang
dapat ditambahkan melalui ctrl+t atau melalui menu PROJECT lalu
pilih KOMPONENTS
lalu centang
Microsoft Windows Common Controls 6.0 (SP2)
kemudian
klik APPLY
7. Taruhkan IMAGELIST dimana
saja
Tampilan akan tampak seperti diatas
8. Ubah data masing-masing komponen menjadi seperti dibwah
ini:
a. Kompone Form ubah
data Name menjadi
FmGo
Kompone Form ubah
data Caption menjadi Terserah
Anda
b. KomponeImage ubah
data Name menjadiImg
c. KomponeTimer ubah
dataName menjadiTimer1
Kompone Timer ubah
dataInterval
menjadi190 (makin kecil interval makin cepat gerak
gambar)
a. KomponeImageList ubah
dataNamemenjadi Imgl
9. Klik
kanan pada objek IMAGELIST, kemudian pilih menu PROPERTIES
Klik
tab IMAGES lalu INSERT PICTURE (Untuk menambahkan gambar yang telah
dipersiaapkan tadi)
10. setelah
itu masukkan kode program berikut kedalam halaman kode ddengan melalui menu VIEW kumudian
pilih CODE
secara benar fan lengkap
Option Explicit
Private m_Index As Integer
Private
m_NumImages As Integer
Private
Sub Form_Load()
m_NumImages
= Imgl.ListImages.Count
m_Index
= 0
End
Sub
Private
Sub Timer1_Timer()
m_Index
= ((m_Index + 1) Mod m_NumImages) + 1
Image1.Picture=Imgl.ListImages(m_Index)
_
.Picture
End Sub
11. hasilnya akan seperti ini
0 komentar: