Visual Sinusoidal Visual Basic 2008

Tips kali ini kita akan membuat visual Sinusoidal dengan menggunakan Visual Basic 2008. Ikuti langkah-langkah di bawah ini, hasil programnya seperti gambar di bawah ini.

ToolBox yang digunakan sebagai berikut:

Rancanglah ToolBox di bawah ini seperti gambar di bawah ini:

Ketiklah source program di bawah ini, dengan mengarahkan kursor pada design, mengklik kanan lalu pilih View Code.

Source Program:

Public Class Form1

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

Dim ix As Integer = PictureBox1.Width

Dim iy As Integer = PictureBox1.Height

’ membuat nilai dari sinus

Dim Values(ix) As Double

For i As Integer = 0 To Values.GetUpperBound(0)

Values(i) = Math.Sin(i * 25)

Next

REM memplot nilai dari sinus

Dim OldPoint = New Point(0, iy ’ 2)

For i As Integer = 1 To Values.GetUpperBound(0)

Dim y As Integer = iy ’ 2 + CInt(Values(i) * (iy ’ 3))

Dim NewPoint = New Point(i, y)

e.Graphics.DrawLine(Pens.Yellow, OldPoint, NewPoint)

OldPoint = NewPoint

Next

REM membuat grid

For x As Integer = 25 To ix Step 25

e.Graphics.DrawLine(Pens.Green, x, 0, x, iy)

Next

For y As Integer = iy - 25 To 0 Step -25

e.Graphics.DrawLine(Pens.Green, 0, y, ix, y)

Next

End Sub

End Class

Setelah Anda selesai mengetikkan source program di atas, eksekusi program dengan menekan F5. Tampilan program akan seperti gambar di atas.

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian