RSS

Grafik Trigonometri dengan Visual Basic 6.0

Fungsi trigonometri telah diajarkan sejak di bangku SMP kelas 3. Fungsi yang umum adalah fungsi Sin, Cos, dan Tangen. Bagi mahasiswa teknik, fungsi ini seringkali digunakan untuk
memodelkan suatu permasalahan sehingga bisa diplot grafik- nya dengan bantuan komputer.


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 Sub
4. 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

Ohya, baca juga artikel: Nissan X-trail Mobil SUV Tangguh dan Sporty Terbaik

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

3 komentar:

bayu mengatakan...

nice post gan :)

klo bisa mohon kunjungi balik ya

di www.study-it.tk

Unknown mengatakan...

makasi ya da mau berbagi lagi sor nya ni belajar pemrog :)

Unknown mengatakan...

terima kasih tutorialnya.

Posting Komentar