Cara membuat animasi di Visual Basic 6.0

Langkah 1

Pergi ke "Mulai", lalu "Semua Program." Klik pada "Visual Basic 6.0". Kemudian di "File, " "Baru, " dan pilih "Aplikasi Windows" di jendela dialog Proyek Baru. Klik "Kontrol gambar" dan letakkan di formulir. Klik kanan pada proyek, pilih "Properties", dan kemudian masukkan tab "Resources". Di Resource Manager, tambahkan dua gambar anjing. Perlu bahwa kedua gambar berada di direktori yang sama di mana proyek tersebut berada. Pada kedua gambar, anjing digariskan ke kiri atau ke kanan.

Langkah 2

Klik dua kali pada latar belakang formulir untuk membuka pengendali event Form_Load. Tetapkan gambar anjing yang diuraikan di sebelah kiri ke kontrol gambar. Anjing dapat berjalan melewati formulir dari kiri ke kanan atau ke arah sebaliknya. Dengan demikian, ada empat negara bagian untuk anjing: ke kiri atau ke kanan, dan berjalan ke kiri atau ke kanan. Masukkan kode enumerasi berikut untuk menentukan empat status anjing: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Langkah 3

Tambahkan pengatur waktu untuk mengubah gerakan anjing dengan mengklik ikon "Jam" di bilah sisi umum. Setel pewaktu untuk mengaktifkan tanda setiap 100 milidetik. Atur status awal sebagai FacingLeftWalkingLeft dan kecepatan 10 piksel per langkah menggunakan kode berikut: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Langkah 4

Pindahkan kontrol gambar ke kiri dengan kecepatan tetap, dan ubah gambar. Periksa lokasi kontrol gambar ketika bergerak ke kiri atau ke kanan. Pastikan bahwa gambar tidak meninggalkan formulir. Balikkan gambar saat Anda mencapai ujung kiri atau kanan. Ini dapat dicapai melalui Kasus berikut dan klausul If-Else:

Pilih Case case Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed DogImg.Image = My.Resources.Dog2 Jika DogImg.Left> 5 Kemudian nyatakan = DogState.FacingLeftRightLegs Else state = DogState.FacingRightLeftLegs End If