Membuat Animasi di Visual Basic 6.0

Untuk membuah Animasi di Visual Basic di Visual Basic 6.0 yang harus anda perhatikan adalah beberapa coding yang bersangkutan dengan  Animasi yang anda buat. Adapun animasi yang akan saya buat pada kesempatan kali ini adalah sebagai Berikut :

1. Membuat Label yang berubah warna secara otomatis
2. Membuat caption/judul form yang bergerak.
3. Membuat Animasi menggunakan Shape.

Untuk point yang pertama adalah menggunakan coding sebagai berikut :

• masukan coding dibawah ini pada General pada penulisan coding Visual Basic 6.0

Const txt = “Belajar Animasi”

Dim p As Long // Pengenalan variabel untuk animasi  yang menggunakan timer

Dim warna As Long // Pengenalan variable untuk animasi label berwarna
yang dimaksud dari  “Const txt = “Belajar Animasi”” adalah coding yang menggunakan Const yaitu konstanta yang digunakan untuk caption form.

Setelah membuat coding diatas yang harus dilakukan adalah menulis coding yang  berikut ini :
Private Sub Timer1_Timer()

p = p + 1 // pengulangan nilai

warna = warna + 5000  // pengulangan

If p = 5 Then  // Kondisi jika nilai p = 5

Shape2.Visible = False // menghilangkan Shape

Shape1.Visible = False

ElseIf p = 8 Then  // kondisi jika nilai p=8

Shape3.Visible = False

Shape4.Visible = False

ElseIf p = 12 Then

Shape2.Visible = True

Shape1.Visible = True

ElseIf p = 20 Then


Shape3.Visible = True

Shape4.Visible = True

End If

If p = 20 Then p = 0  // kondisi jika nilai p 20 maka nilai p kembali pada nilai 0

Form1.Caption = Left(txt, p)  // membuat animasi pergerakan caption form dari sebelah kiri, bisa diganti dengan right (dari kanan).

Label7.ForeColor = warna  // Pemberian warna pada label 7

End Sub
Coding ini diletakan pada element Timer yang memberi nilai/value waktu pada animasi yang anda buat.
Sekian Artike dari saya semoga dapat berguna untuk memajukan pendidikan indonesia, Khususnya dibidah IT.
SELAMAT MENCOBA.