Dalam artikel kali ini Saya akan berbagi trik sebuah Source Code untuk membuat sebuah animasi pantulan bola dengan Code vb6.
Animasi boal pantulan ini berupa sebuah lingkaran kecil (circle) berwarna merah yang memulai mantul dari sudut kanan atas kebawah layar memantul secara perlahan lahan dan apabila mentok disisi Form maka bola akan memantul kembali keatas dan seterus begitu.
 |
| Animasi bola pantul |
Untuk pembuatan pantulan bola ini sangat mudah Anda cukup menambahkan 1 buah Control Timer pada Form kemudian ketikan kode dibawah ini :
Option Explicit
Dim xPos As Single
Dim yPos As Single
Dim xSpeed As Single
Dim ySpeed As Single
Dim radius As Single
Private Sub Form_Load()
Timer1.Interval = 1
xPos = 100
yPos = 100
xSpeed = 15
ySpeed = 15
radius = 100
Me.BackColor = vbBlack
End Sub
Private Sub Timer1_Timer()
Me.Cls
xPos = xPos + xSpeed
yPos = yPos + ySpeed
If xPos - radius <= 0 Or xPos + radius >= Me.ScaleWidth Then
xSpeed = -xSpeed
End If
If yPos - radius <= 0 Or yPos + radius >= Me.ScaleHeight Then
ySpeed = -ySpeed
End If
Me.Circle (xPos, yPos), radius, vbRed
End Sub
Dengan kode diatas anda sudah bisa membuat pantulan bola sederhana dan menjalankannya dengan menekan tombol RUN/F5.
Demikianlah artikel singakat tentang Animasi Pantulan Bola dengan Code VB6, semoga artikel ini bermanfaat buat kita semua,Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment