Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Membuat Animasi Sederhana Menggunakan Objek Timer

| Comments

Objek timer selain digunakan untuk menampilkan tanggal dan jam secara realtime, juga bisa digunakan untuk membuat animasi sederhana salah satunya dengan memanfaatkan objek label. Silahkan buat rancangan form seperti berikut :

copy paste kode berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit

Dim x           As Integer
Dim gerakX      As Integer
Dim gerakY      As Integer
Dim zigZagX     As Integer
Dim zigZagY     As Integer
Dim i           As Integer

Private Sub Form_Load()
    gerakY = 20
    x = 20
    zigZagX = 20
    zigZagY = 20
End Sub

Source code untuk event _Timer (gunakan salah satu atau solusi lain objek timernya dijadikan array kemudian tinggal seleksi berdasarkan index array) 1. Teks berjalan dari kiri ke kanan

1
2
lblAnimasi.Move lblAnimasi.Left - 15
If lblAnimasi.Left < -lblAnimasi.Width Then lblAnimasi.Left = picPanel.Width
  1. Teks mantul dari kiri ke kanan
1
2
3
4
5
6
lblAnimasi.Move lblAnimasi.Left - x
If lblAnimasi.Left < picPanel.ScaleLeft Then
    x = -20
ElseIf lblAnimasi.Left + lblAnimasi.Width > picPanel.ScaleWidth + picPanel.ScaleLeft Then
    x = 20
End If
  1. Teks mantul dari atas ke bawah
1
2
3
4
5
6
lblAnimasi.Move lblAnimasi.Left + gerakX, lblAnimasi.Top + gerakY
If lblAnimasi.Top < picPanel.ScaleTop Then
    gerakY = 20
ElseIf lblAnimasi.Top + lblAnimasi.Height > picPanel.ScaleHeight + picPanel.ScaleTop Then
    gerakY = -20
End If
  1. Teks zig zag
1
2
3
4
5
6
7
8
9
10
lblAnimasi.Move lblAnimasi.Left + zigZagX, lblAnimasi.Top + zigZagY
If lblAnimasi.Left < picPanel.ScaleLeft Then
    zigZagX = 20
ElseIf lblAnimasi.Left + lblAnimasi.Width > picPanel.ScaleWidth + picPanel.ScaleLeft Then
    zigZagX = -20
ElseIf lblAnimasi.Top < picPanel.ScaleTop Then
    zigZagY = 20
ElseIf lblAnimasi.Top + lblAnimasi.Height > picPanel.ScaleHeight + picPanel.ScaleTop Then
    zigZagY = -20
End If

Contoh source code bisa didownload disini. Selamat mencoba :)

visual basic

Tentang Penulis

Software developer yang fokus mengembangkan aplikasi di atas platform .NET (Desktop, ASP.NET MVC, Web Service) dan Android. Senang mempelajari teknologi baru terutama di bidang OOP, Design Pattern, ORM, Database dan Continuous Integration & Deployment.
Saat ini bekerja sebagai staf IT di salah satu PTS di Yogyakarta sebagai senior software developer. Di waktu luang insya Alloh akan terus berbagi pengalaman di blog ini :)

« Mudah dan cepat membentuk form sesuai keinginan Mengoptimalkan penggunaan fungsi Shell »

Comments