Animasi Jaring Laba-Laba Dengan Visual Basic 6.0

Kali ini saya kan berbagi sebuah kode yang menghasilkan sebuah animasi yaitu proses pembentukan jaring laba-laba yang dibuat dengan kode vb6.Untuk lebih jelasnya mengenai animasi ini tonton sejenak vidio youtube dibawah ini :

 

Untuk membuat animasi jaring laba-laba dengan visual basic 6.0 seperti vidio diatas adalah sebagai berikut:

1. Buka Form VB6 Anda dengan Standar Exe

2. Pada Form tambahkan 1 Timer dengan interval 100

3. Kemudian copy paste kode dibawah ini :

Private angleStep As Double

Private radiusStep As Single

Private currentRadius As Single

Private maxRadius As Single

Private Sub Form_Load()

    ' Inisialisasi variabel untuk animasi

    angleStep = 15 ' Langkah sudut dalam derajat

    radiusStep = 5 ' Langkah radius per frame

    currentRadius = 0

    maxRadius = Me.ScaleWidth / 2 ' Radius maksimal berdasarkan ukuran form

    ' Atur properti form dan timer

    Me.AutoRedraw = True ' Pastikan gambar tetap terlihat

    Timer1.Interval = 50 ' Interval timer

    Timer1.Enabled = True

    Form1.BackColor = vbBlack

    

End Sub

Private Sub Timer1_Timer()

    Dim angle As Double

    Dim centerX As Single, centerY As Single

    Dim x1 As Single, y1 As Single

    Dim x2 As Single, y2 As Single

    ' Koordinat pusat jaring

    centerX = Me.ScaleWidth / 2

    centerY = Me.ScaleHeight / 2

    ' Tambahkan radius untuk animasi

    currentRadius = currentRadius + radiusStep

    If currentRadius > maxRadius Then

        currentRadius = 0 ' Reset radius jika mencapai batas

        Me.Cls ' Bersihkan form

    End If

    ' Gambar lingkaran konsentris

    Me.Circle (centerX, centerY), currentRadius, &HE0E0E0

    ' Gambar garis radial

    For angle = 0 To 360 Step angleStep

        ' Hitung koordinat ujung garis pada radius saat ini

        x1 = centerX + currentRadius * Cos(angle * 3.14159 / 180)

        y1 = centerY + currentRadius * Sin(angle * 3.14159 / 180)

        ' Hitung koordinat ujung garis pada radius maksimum

        x2 = centerX + maxRadius * Cos(angle * 3.14159 / 180)

        y2 = centerY + maxRadius * Sin(angle * 3.14159 / 180)

        ' Gambar garis radial

        Me.Line (centerX, centerY)-(x1, y1), vbBlack

        Me.Line (x1, y1)-(x2, y2), vbWhite

    Next angle

End Sub

Simpan dan jalankan Project Anda, majka jika tidak ada error hasilnya akan tampak pada vidio diatas.

Related Post: Animasi