Belajar Pemrograman

Software pengolah grafik berbasis vektor, banyak menggunakan fungsi trigonometri ini untuk menghasilkan bentuk geometris lingkaran atau kurva tertentu. Tip kali ini adalah melihat model
grafik dari fungsi trigonometri untuk menghasilkan bentuk- bentuk geometris.

Langkah-langkah untuk membuatnya adalah:

1. Buat sebuah form baru dengan sebuah picture box yang bernama graph. Lalu, tambahkan tiga buah slider. Slider pertama untuk mengatur Amplitudo, bernama sldamp. Slider kedua untuk mengatur Frekuensi bernama sldfrq. Slider ketiga untuk mengatur Radius bernama sldradius. Tambahkan juga sebuah timer bernama timerstart dengan interval sebesar 100.

Properti yang perlu di- atur untuk sldamp adalah: LargeChange=1, Max=50, Min=-50, SelStart=-10. Untuk sldfrq: LargeCha- nge=1, Max=20, Min=0, SelStart=3. Untuk sldra-
dius: LargeChange=50, Max=3, Min=1, Selstart=2, Small- Change=50.

2. Jika komponen slider tidak ada, maka kita perlu menambahkan melalui menu Project >> Components.
Tandai komponen Microsoft Windows Common Controls 6.0 (SP6).

3. Berikutnya adalah melakukan inisialisasi, dan menuliskan modul yang diperlukan. Modul yang diperlukan adalah sub drawgraph yang berfungsi untuk menggambar grafik fungsinya, dan GraphCls untuk membersihkan bidang gambar grafik:

Dim th As Double
Dim radius As Integer
Dim scal As Double
Dim op1 As Integer
Dim op2 As Integer
Dim amp As Double
Dim frq As Double
Dim x As Double
Dim y As Double
Dim step As Double
Dim txtamp As Double
Dim txtfrq As Double

Private Sub drawgraph()
GraphCls
For th = -3.2 To 3.2 Step step
scal = radius - sldamp.Value * Sin(th *
sldfrq.Value)
x = scal * Sin(th)
y = scal * Cos(th)
SetPixel graph.hdc, 200 + x, 200 - y,
RGB(0, 0, 0)
Next th
graph.Refresh
End Sub

Public Sub
GraphCls()
graph.Cls
graph.Line
(200, 0)-(200,
400), RGB(255,
0, 0)
graph.Line (0,
200)-(400, 200),
RGB(255, 0, 0)
End Sub4. Pencegatan event-event-nya adalah sebagai berikut:

Private Sub form_load()
GraphCls
step = 0.001
radius = 100
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub sldamp_Scroll()
txtamp = sldamp.Value
drawgraph
End Sub

Private Sub sldfrq_Scroll()
txtfrq = sldfrq.Value
drawgraph
End Sub

Private Sub sldradius_scroll()
radius = sldradius.Value * 50
drawgraph
End Sub

Private Sub Timerstart_Timer()
drawgraph
Timerstart.
Enabled
False

End Sub
5. Simpan, dan jalankanprogram. Tampilan yang didapatkan adalah sebagai berikut