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 :
Memuat foto



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

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Cara Membuat Form PHP menggunakan Adobe Dreamweaver CS5

Cara Membuat Halaman Statis di Blog Blogspot