Membuat Animasi Gelembung Air Dengan kode VB6 (Visual Basic 6.0)

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.