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.
Langganan:
Posting Komentar (Atom)
Popular Posts
-
Pada tutor ini, Anda akan membuat suatu aplikasi contoh pembuatan aplikasi animasi sederhana. dalam hal ini anda akan membuat bola yang berg...
Hidup adalah pilihan,
pilihlah dengan bijak dan jangan menyesali pilihan mu itu!
pilihlah dengan bijak dan jangan menyesali pilihan mu itu!
Blog Archive
-
▼
2011
(17)
-
▼
September
(17)
- ! Tutorial Membuat Animasi Bola Bergerak-Gerak Di ...
- ! Tutorial Membuat Efek Tampilan Teks 3D Pada Form
- ! Tutorial membuat berkedip pada TitleBar form vis...
- Hitman: Blood Money Game Guide #Requiem
- Hitman: Blood Money Game Guide #Amendment XXV
- Hitman: Blood Money Game Guide #Dance with the Devil
- Hitman: Blood Money Game Guide #The House of Cards
- Hitman: Blood Money Game Guide #Till Death Do Us Part
- Hitman: Blood Money Game Guide #Death of the Missi...
- Hitman: Blood Money Game Guide #You Better Watch Out
- Hitman: Blood Money Game Guide #The Murder of Crows
- Hitman: Blood Money Game Guide #A New Life
- Hitman: Blood Money Game Guide #Flatline
- Hitman: Blood Money Game Guide #Curtains Down
- Hitman: Blood Money Game Guide #A Vintage Year
- Hitman: Blood Money Game Guide #Death of a Showman
- ! Tutorial Membuat Password dengan Visual Basic 6
-
▼
September
(17)
0 komentar:
Posting Komentar