Animasi Pada 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.


dan atau ini

Const txt = Form1
Dim p As Long
Dim warna As Long

Private Sub Timer1_Timer()
p = p + 1
warna = warna + 5000
If p = 5 Then
Shape2.Visible = False
Shape1.Visible = False
ElseIf p = 8 Then
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
Form1.Caption = Left(txt, p)
Label7.ForeColor = warna

End Sub

dan atau ini

Dim warna As Long
Dim p As Long
Private Sub Timer1_Timer()
p = p + 1
warna = warna + 5000
If p = 20 Then p = 0

Label7.ForeColor = warna

End Sub
Ingat samakan dengan properties labelnya disini namenya Label7, dan jangan lupa masukan timer1nya.Dan masukan interval waktunya, contohnya 100, terserah yang penting diisi.Setelah kamu masukan object timernya (gambarnya jam) double klik dan masukan coding diatas. OKE selamat mencoba ya !!!!!!