Membuat Animasi Pantulan Bola dengan VB6 - Animasi dalah gambar bergerak berbentuk dari sekumpulan objek (gambar) yang di susun secara beraturan mengikuti alur yang sudah di tentukan pada setiap pertambahan hitungan waktu yang terjadi. Adapun gambar (objek) yang dimaksud bisa berupa gambar manusia, gambar hewan ataupun lingkaran (shape).
Pada pertemuan kali ini Saya ingin membagikan trik bagaimana membuat sebuah animasi bergerak dengan menggunakan VB6. Animasi yang Saya buat kali ini adalah Animasi pantulan bola yang memantul dari kiri ke kanan layaknya pergerakan bola yang di pantulkan ke sebuah tembok dan berbalik arah ke arah kita. Untuk membuatnya sangat mudah dan simpel,berikut bahan-bahan yang dibutuhkan: Form VB6, 1 Timer (Interval=100), 1 Shape Lingkaran dan 2 Commandbutton, kemudian desainlah form seperti gambar ibawah ini:
 |
| Desain Form Animasi |
Setelah Desain form selesai ketik kode dibawah ini:
Dim t As Integer
Private Sub command1_Click()
Timer1.Enabled = True
End Sub
Private Sub command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
t = t + 1
x = 500 * Cos(50 * t)
Shape1.Move Shape1.Left + x
End Sub
Setelah selesai mengetik kodenya simpan dan jalankan program,tekan Tombol "Star" kemudian perhatikan apa yang terjadi.
Sekian trik Membuat Animasi Pantulan Bola dengan VB6 malam ini semoga bermanfaat dan menambah wawasan Anda.Selamat mencoba, semoga berhasil.
No comments:
Post a Comment