Membuat Animasi Sederhana pada VB2010

VB2010 biasanya digunakan sebagai bahasa pemrograman untuk mendesain aplikasi bisnis ataupun apilikasi industry lainnya. Tetapi pada faktanya, VB2010 dapat digunakan untuk membuat animasi sederhana.

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