Kali ini Admin akan berbagi sebuah kode animasi rasi bintang, animasi ini ketika di load dilayar akan membuat titik dimana satu titik ke titik lainya akan di hubungkan dengan sebuah garis yang membentuk rasi bintang.
Untuk lebih jelasnya seperti apa animasi rasi bintang tersebut, putar vidio dibawah ini :
Untuk membuat animasi rasi bintang seperti pada vidio diatas silahkan ikuti langkah-langkah berukut :
1. Buka Form VB6 Anda
2. Pada Form1 tanamkan 1 buah Control Timer dengan Interval 500 dan 1 buah PictureBox
3. Ketikan kode dibawah ini :
Dim stars() As StarPoint ' Array untuk menyimpan koordinat bintang
Dim starCount As Integer ' Jumlah bintang
Dim currentStar As Integer ' Indeks bintang yang sedang dianimasikan
Private Type StarPoint
X As Single
Y As Single
End Type
Private Sub Form_Load()
Picture1.BackColor = vbBlack
' Atur properti awal
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
' Inisialisasi koordinat rasi bintang (misal: Orion)
starCount = 10
ReDim stars(1 To starCount)
' Tentukan koordinat bintang (sesuaikan dengan kebutuhan)
stars(1).X = 100: stars(1).Y = 150 ' Bintang 1
stars(2).X = 150: stars(2).Y = 100 ' Bintang 2
stars(3).X = 200: stars(3).Y = 150 ' Bintang 3
stars(4).X = 250: stars(4).Y = 200 ' Bintang 4
stars(5).X = 300: stars(5).Y = 250 ' Bintang 5
stars(6).X = 350: stars(6).Y = 200 ' Bintang 6
stars(7).X = 400: stars(7).Y = 150 ' Bintang 7
stars(8).X = 450: stars(8).Y = 100 ' Bintang 7
stars(9).X = 450: stars(9).Y = 150 ' Bintang 7
stars(10).X = 100: stars(10).Y = 150 ' Bintang 1
' Reset animasi
currentStar = 1
Timer1.Enabled = True ' Mulai animasi
End Sub
Private Sub Timer1_Timer()
' Periksa apakah animasi selesai
If currentStar > starCount Then
Timer1.Enabled = False ' Hentikan timer
' Reset animasi
currentStar = 1
Picture1.Cls ' Bersihkan kanvas
Timer1.Enabled = True ' Mulai animasi lagi
Exit Sub
End If
' Gambar bintang saat ini
With stars(currentStar)
Picture1.Circle (.X, .Y), 5, vbRed ' Gambar lingkaran kecil sebagai bintang
End With
' Hubungkan garis ke bintang sebelumnya (jika ada)
If currentStar > 1 Then
Picture1.Line (stars(currentStar - 1).X, stars(currentStar - 1).Y)-(stars(currentStar).X, stars(currentStar).Y), vbWhite
End If
' Lanjutkan ke bintang berikutnya
currentStar = currentStar + 1
End Sub
Setelah kode diketikan seperti diatas jalankan project anda, dan lihat hasilnya apakah hasilnya sama dengan vidio diatas?
Demikianlah artikel singkat untuk hari ini tentang Animasi Rasi Bintang dengan Visual Basic 6 .0
Semoga artikel ini bermanfaat buat kita semua, Amin.
Selamat mencoba semoga berhasil
No comments:
Post a Comment