Membuat Animasi Spectrum Dengan Visual Basic 6.0

Pada artikel kali Admin akan berbagi sebuah kode yang sangat unik dan menarik yaitu bagaimana cara membuat sebuah animiasi spectrum dengan menggunakan vb6.

Spectrum merupakan sebuah pergerakan yang menggambarkan sebuah gelombang yang berjalan secara merambat.

Contoh dari gelombang spectrum ini sering kita temui pada sebuah aplikasi pemutar musik yang menandai kekuatan suara.

Berikut dubawah ini adalah contoh gambar dari hasil spectrum yang dibuat dengan menggunakan visual basic 6.0 :

Animasi Spectrum

Untuk membuat animasi spectrum seperti diatas adalah sebagai berikut

Pada Form tanamkan 2 buah Control yaitu PictureBox dan Timer, kemudian ketikan kode dibawah ini :

Dim spektrumData(0 To 49) As Integer

Dim barWidth As Integer

Private Sub Form_Load()

Picture1.BackColor = vbBlack

barWidth = Picture1.ScaleWidth / UBound(spektrumData)

Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim i As Integer

For i = 0 To UBound(spektrumData)

spektrumData(i) = Int(Rnd * Picture1.ScaleHeight)

Next i

Call DrawSpectrum

End Sub

Private Sub DrawSpectrum()

Dim i As Integer

Picture1.Cls

For i = 0 To UBound(spektrumData)

Picture1.Line (i * barWidth, Picture1.ScaleHeight)-((i + 1) * barWidth, Picture1.ScaleHeight - spektrumData(i)), QBColor(2), BF

Next i

End Sub

Setelah mengetikan kode diatas jalankan Project anda dengan menekan tombol RUN/F5 maka Anda akan melihat pergerakan spectrum bergelombang.

Demikianlah artikel singkat hari ini tentang cara membuat animasi spectrum dengan kode vb6.

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: Animasi