Membuat Animasi Bintang Dengan Visual Basic 6.0
Buat
sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2
sbb :
Label1 dst... --> backstyle = 0-transparant
Caption
= *
Font
= arial black (size =48)
Disini
saya menggunakan 12 label
Timer1 --> interval = 300
Timer1 --> interval = 300

Tampilan
setelah kita jalankan
Berikut Listing Yang Kita Gunakan
Klik
dua kali pada timer lalu masukkan listing dibawah ini:
Private
Sub Timer1_Timer()
Label1.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label3.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label4.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label5.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label6.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label7.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label8.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label9.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label10.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label11.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label12.ForeColor
= RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End
Sub
Program
ini dibuat oleh Heri Afrizal di bireuen
Komentar
Posting Komentar
Tulis komentar anda disini.....