Pada pertemuan kali ini Admin akan berbagi sebuah kode yang dapat membuat sebuah animasi seperti gelembung air yang bergerak secara perlahan-lahan naik dari bawah permukaan ke permukaan atas atas.
Untuk lebih jelasnya perhatikan screenshoot dibawah ini:
 |
| Output |
Untuk membuat Animasi tersebut kita cukup menanamkan 1 buah Control Timer dan PictureBox kedalam Form, setelah itu ketik kode dibawah ini:
Dim bubbles() As bubble
Dim numBubbles As Integer
Dim maxBubbles As Integer
Private Type bubble
X As Single
Y As Single
Radius As Single
Speed As Single
Color As Long
End Type
Private Sub Form_Load()
' Inisialisasi variabel
maxBubbles = 100
ReDim bubbles(maxBubbles - 1)
Dim i As Integer
For i = 0 To maxBubbles - 1
InitializeBubble bubbles(i)
Next i
' Mulai Timer
Timer1.Interval = 1
Timer1.Enabled = True
Picture1.BackColor = vbbalck
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
' Perbarui posisi gelembung
For i = 0 To maxBubbles - 1
bubbles(i).Y = bubbles(i).Y - bubbles(i).Speed
' Jika gelembung keluar dari atas, reset ke bawah
If bubbles(i).Y + bubbles(i).Radius < 0 Then
InitializeBubble bubbles(i)
End If
Next i
' Gambar ulang gelembung
Call DrawBubbles
End Sub
Private Sub InitializeBubble(ByRef bubble As bubble)
bubble.X = Rnd * Picture1.ScaleWidth
bubble.Y = Picture1.ScaleHeight + Rnd * 100
bubble.Radius = 10 + Rnd * 20
bubble.Speed = 1 + Rnd * 3
bubble.Color = QBColor(Int(Rnd * 15))
End Sub
Private Sub DrawBubbles()
Dim i As Integer
' Bersihkan gambar sebelumnya
Picture1.Cls
' Gambar gelembung
For i = 0 To maxBubbles - 1
Picture1.Circle (bubbles(i).X, bubbles(i).Y), bubbles(i).Radius, bubbles(i).Color
Next i
End Sub
Setelah mengetik kode seperti diatas kemudian jalankan Projeck Anda dengan menekan RUN/F5, maka pada Form akan muncul sebuah Animasi Gelembung seperti air dengan warna-warni.
Demikian postingan kali tentang membuat animasi gelembung air dengan menggunakan vb6.
Semoga artikel ini bermanfaat buat kita semua,Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment