Tutorial Membuat Animasi Bola Bergerak-Gerak Di Visual Basic 6.0

Tutorial Membuat Animasi Bola Bergerak-Gerak Di Visual Basic 6.0

DIPOSKAN OLEH KACAMATA IT DI 02:54 RABU, 28 SEPTEMBER 2011

Pada tutor ini, Anda akan membuat suatu aplikasi contoh pembuatan aplikasi animasi sederhana. dalam hal ini anda akan membuat bola yang bergerak-gerak baik itu ke atas, ke samping atau ke bawah. Untuk lebih jelasnya, ikuti langkah-langkah pembuatannya sebagai berikut:

1. Buatlah aplikasi baru kemudian desain form tersebut dengan menambahkan dua buah CommandButton,
    sebuah Timer dan lima buah Image.

2. Sempurkan desain form dengan menambahkan gambar pada kelima kontrol image tersebut, misalnya
    gambar bola basket yg terdapat pada direktori anda. jika pada direktori anda sama sekali tidak ada
    gambar
    yg menyerupai bola, anda dapat membuatnya terlebih dahulu dengan menggunakan MSPaint milik
    Windows.
    Berikut adalah hasil akhir desain form tersebut.

3. Ketikkan listing programnya bro seperti ini :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
Form1.BackColor = vbWhite
Command1.Caption = "Start"
Command2.Caption = "Stop"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
    Image1.Visible = False
    Image2.Visible = True
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image2.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = True
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image3.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = True
    Image5.Visible = False
ElseIf Image4.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = True
ElseIf Image5.Visible = True Then
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
End If
End Sub






4. Jalankan aplikasi tersebut dan klik pada tombol Start dan lihat hasilnya. untuk proses pengembalian
    aplikasi tersebut, cukup klik  Stop.