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
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()Setelah diketik semuanya dengan tepat dan lengkap. Langsung jalankan dan lihat hasilnya
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
Tidak ada komentar:
Posting Komentar