Create Visualization VB.Net

Pada kesempatan ini saya akan membahas tentang bagaimana cara membuat visualization di VB.Net ..
visualization adalah grafik visual yang berubah-ubah (arti sempitnya saja) yang biasanya tersedia pada software-software media player.

Contoh gambarnya kurang lebih seperti di atas

bagaimana membuatnya di VB.Net ??

Public Class Form1

Dim g As Graphics
Dim p As New Pen(Color.DarkGreen, 5)
Dim r As Random = New Random()

Sub Change()
Dim x As Integer = 0
For x = 0 To 25
Select Case r.Next(0, 10)
Case x
p = New Pen(Color.DarkGreen, 5)
End Select
Next
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

g = PictureBox1.CreateGraphics()
Change()
Dim i, a, o As Integer
For x As Integer = 0 To 100
g.DrawLine(p, i, Me.Height, i, r.Next(o, Me.Height * a))
Change()
i = i + 5
a = a + 1
o = o * 3
Next

System.Threading.Thread.Sleep(200)
g.Clear(Color.Black)

End Sub

End Class

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...