Tuesday, July 24, 2012
Tutorial Membuat Animasi pada VB 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 :
- Membuat Label yang berubah warna secara otomatis
- Membuat caption/judul form yang bergerak.
- 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
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
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.
Subscribe to:
Post Comments (Atom)
Thank's All
Blog Archive
- 2013 (1)
-
2012
(28)
- November(1)
- October(2)
- September(9)
- August(4)
-
July(12)
- Tutorial Membuat Email Lengkap, Mengirim Email, Me...
- Dasar dasar Macromedia Flash
- Tutorial Membuat Website HTML
- Tutorial Membuat Server Local pada Laptop atau PC
- Tutorial Membuat Animasi Burung Terbang (Flash)
- Edit Foto Effect Blur Di Adobe Photoshop CS3
- Tutorial Membuat Teks Berjalan pada VB 6.0
- Tutorial Membuat Animasi pada VB 6.0
- Perintah Shell di VB 6
- Coding Startup (VB 6.0)
- Membuat Undangan Pernikahan Sederhana (CorelDraw)
- Sistem Pembelian Pulsa Melalui Internet
- 2011 (25)
- 2010 (6)
2 komentar:
ohh begitu toh caranya makasih ya gan
ok smaaaa
Post a Comment