Fakta-Unik

CARA MEMBUAT10 ANGKAT A IMASI MENGGUNAKAN VISUAL BASIC 6,0 BERSAMA RAHMAD (20)

Masih dengan Visual Basic 6, kali ini saya akan mencoba membahas program yang lebih unik dari sebelumnya, yaitu program animasi sepuluh angka. Animasi di sini sebenarnya hanyalah angka - angka yang bergerak dengan aturan dan kecepatan tertentu saja.

Untuk lebih jelasnya, tampilan programnya adalah sebagai berikut :

Sebelum saya membahas bagaimana cara membuat programnya, saya akan menerangkan bagaimana program itu berjalan. Program semula diam dengan angka "0" di tengah program. Dan ketika user menekan tombol START, maka program akan berjalan seperti animasi, mulai dari angka 0 - 10, dan kembali lagi ke 0, kemudian mengulang lagi sampai angka 10. Demikian seterusnya selama tidak ditekan tombol STOP. Hitungan angka akan berhenti dan kembali menjadi 0 setelah user menekan tombol STOP. Tampilan program ketika dijalankan adalah sebagai berikut :




Untuk membuat program tersebut, kita hanya membutuhkan 3 elemen, yaitu label, commond button dan timer. Susunlah sedemikian hingga seperti gambar di atas.

Adapun listing programnya adalah sebagai berikut :

Private Sub Command1_Click()
If Command1.Caption = "START" Then
Command1.Caption = "STOP"
Timer1.Enabled = True


Else
Command1.Caption = "START"
Label1.Caption = 0
Timer1.Enabled = False
End If

End Sub

Private Sub Form_Load()
Command1.Caption = "START"
Label1.Caption = 0
Timer1.Interval = 300
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Label1.Caption = 0 Then
Label1.Caption = 1
ElseIf Label1.Caption = 1 Then
Label1.Caption = 2
ElseIf Label1.Caption = 2 Then
Label1.Caption = 3
ElseIf Label1.Caption = 3 Then
Label1.Caption = 4
ElseIf Label1.Caption = 4 Then
Label1.Caption = 5
ElseIf Label1.Caption = 5 Then
Label1.Caption = 6
ElseIf Label1.Caption = 6 Then
Label1.Caption = 7
ElseIf Label1.Caption = 7 Then
Label1.Caption = 8
ElseIf Label1.Caption = 8 Then
Label1.Caption = 9
ElseIf Label1.Caption = 9 Then
Label1.Caption = 10
ElseIf Label1.Caption = 10 Then
Label1.Caption = 0
End If
End Sub

Share this

Unknown