1. Memindahkan Objek
Pada bagian ini, kita akan membuat animasi sederhana yaitu memindahkan objek dengan menggunakan button. Inputkan 1 picturebox dan 4 button ke dalam form. Untuk keterangan properties objeknya, dapat dilihat dari tabel berikut:

Ketikkan code berikut:
Public Class Form1
Private Sub btnTurun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTurun.Click
PictureBox1.Top = PictureBox1.Top + 10
End Sub
Private Sub btnNaik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNaik.Click
PictureBox1.Top = PictureBox1.Top - 10
End Sub
Private Sub btnKiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKiri.Click
PictureBox1.Left = PictureBox1.Left - 10
End Sub
Private Sub btnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKanan.Click
PictureBox1.Left = PictureBox1.Left + 10
End Sub
End Class
2. Animasi Menggunakan Timer
Pada bagian ini, kita akan membuat animasi sederhana yaitu memindahkan objek dengan menggunakan timer. Inputkan 1 picturebox, 2 button dan 1 timer ke dalam form. Untuk keterangan properties objeknya, dapat dilihat dari tabel berikut:
Kemudian ketik code berikut:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PictureBox1.Left < Me.Width Then
PictureBox1.Left = PictureBox1.Left + 10
Else
PictureBox1.Left = 0
End If
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Timer1.Enabled = False
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Timer1.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub
End Class
untuk mendapatkan file pdf nya, klik download
TRIMAKASIH.............
BalasHapussanghat membantu