Membuat Animasi Arah dengan Visual Basic

Dengan menggunakan komponen Visual Basic kita akan membuat animasi arah sederhana. Konsepnya sederhana, dengan menekan 1 tombol yang berfungsi sebagai Tombol Start/Stop kita dapat memerintahkan objek arah untuk berputar searah jarum jam. Langsung saja ya. Pertama sekali, buatlah sebuah form dengan tampilan sebagai berikut.

Form Arah

Komponen yang kita butuhkan adalah Timer, Image1(gambar panah kecil) di copy paste kemudian diganti gambarnya sehingga akan menjadi Image(0) – Image(3) dan Image2(gambar panah besar). Untuk gambar panahnya bisa dicari alternatif lainnya juga di Google ya.
Ok, setelah formnya jadi, berikutnya kita akan membuat listing programnya. Supaya lebih mudah dicoba dan gak susah mikir lama, saya akan tampilkan listing lengkapnya dibawah ini. Gak panjang kok.
Berikut listingnya:

Private Sub Command1_Click()
Timer1.Enabled = Not (Timer1.Enabled)
End Sub
Private Sub Timer1_Timer()
Static picnum As Integer
picnum = picnum + 1
If picnum > 3 Then picnum = 0
Image2.Picture = Image1(picnum).Picture
End Sub

Setelah diketik semuanya dengan tepat dan lengkap. Langsung jalankan dan lihat hasilnya. Untuk logikanya saya anggap Anda sudah dapat mendefinisikan dengan membaca urutan perintahnya ya.
Selamat mencoba & Semoga berguna. Tetap semangat belajar.

Posted in: Visual Basic