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. Untuk logikanya saya anggap Anda sudah dapat mendefinisikan dengan membaca urutan perintahnya ya.
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
Selamat mencoba & Semoga berguna. Tetap semangat belajar.

Tidak ada komentar:
Posting Komentar