Animasi Tulisan Berpindah Dengan Visual Basic 6.0
Artikel
kali ini membahas mengenai cara membuat program animasi teks berjalan dengan
menggunakan Visual Basic 6. Ketika program dieksekusi maka yang akan
tampil adalah tuliasn "HERI AFRIZAL" bergerak dari atas ke
bawah seolah - olah seperti sebuah animasi. Tampila programnya adalah seperti
gambar berikut :
Tulisan "HERI AFRIZAL" akan terus berjalan selama program dijalankan.
Komponen yang dibutuhkan untuk membuat program tersebut adalah 7 buah label dan sebuah timer. Berisaja nama label1, label2, label3 s.d. label7, susunlah berjajar dari atas ke bawah secara berurutan dengan label1 berada di paling atas dan label7 berada di paling bawah. Letakkan timer di mana saja di dalam program tersebut.
Setelah itu tuliskan kode program berikut :
Private Sub Form_Load()
Label1.Caption = "HERI AFRIZAL"
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Label1.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = "HERI AFRIZAL"
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
ElseIf Label2.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = "HERI AFRIZAL"
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
ElseIf Label3.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = "HERI AFRIZAL"
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
ElseIf Label4.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = "HERI AFRIZAL.com"
Label6.Caption = ""
Label7.Caption = ""
ElseIf Label5.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = "HERI AFRIZAL"
Label7.Caption = ""
ElseIf Label6.Caption = "HERI AFRIZAL" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = "HERI AFRIZAL"
ElseIf Label7.Caption = "HERI AFRIZAL" Then
Label1.Caption = "HERI AFRIZAL"
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
End If
End Sub
Program
ini dibuat oleh Heri Afrizal di bireuen
to complicated.
BalasHapus