Grafik Trigonometri

Hi, guys.

Posting kali ini, saya ingin menunjukan bagaimana caranya membuat grafik trigonometri dasar (sinus, cosines, tangent, secant, cosecant, dan cotangent) dengan menggunakan Visual Basic 6.0. memang tutorial ini pemula banget, tapi daripada menjadi penghuni setia Harddisk computer, akan lebih baik jika diposting, mungkin saja dapat bermanfaat bagi orang lain.

Bagi yang belum mengerti mengenai pemograman Visual Basic 6.0, silahkan mempelajarinya melalui buku-buku pemograman yang ada di toko-toko buku atau buku elektronik yang banyak bertebaran di dunia maya.

Ok, pertama siapkan sebuah project Standard EXE yang baru. Tambahkan Sebuah PictureBox yang akan dijadikan sebagai kanvas, Sebuah Command Button, dan 6 buah Option Button. Susunlah komponen-komponen tersebut seperti gambar berikut:


Gambar 1. Susunan Komponen Project.

Copy – Paste kode berikut di lembar kerja Form.

Option Explicit
Private Sub Form_Load()
‘Mengatur skala picturebox
Picture1.Scale (-5, 3)-(730, -3)
‘mengatur garis koordinat serta tebal garis
Picture1.DrawWidth = 2
Picture1.Line (0, 0)-(720, 0), vbGreen
Picture1.Line (0, 3)-(0, -3), vbGreen
End Sub

Private Sub Command1_Click()
Dim x, y As Double
Picture1.Cls
Form_Load
'mengambar grafik sinus
If Option1 = True Then
For x = 1 To 720
y = Sin(x * (22 / 7) / 180)
Picture1.PSet (x, y), vbRed
Next
‘mengambar grafik cosinus
ElseIf Option2 = True Then
For x = 1 To 720
y = Cos(x * (22 / 7) / 180)
Picture1.PSet (x, y), vbRed
Next
‘menggambar grafik tangent
ElseIf Option3 = True Then
For x = 1 To 720
y = Tan(x * (22 / 7) / 180)
Picture1.PSet (x, y), vbRed
Next
‘menggambar grafik Cosecant
ElseIf Option4 = True Then
For x = 1 To 720
y = Sin(x * (22 / 7) / 180)
If y <> 0 Then
Picture1.PSet (x, 1 / y), vbRed
End If
Next
‘menggambar grafik secant
ElseIf Option5 = True Then
For x = 1 To 720
y = Cos(x * (22 / 7) / 180)
If y <> 0 Then
Picture1.PSet (x, 1 / y), vbRed
End If
Next
‘menggambar grafik cotangent
ElseIf Option6 = True Then
For x = 1 To 720
y = Tan(x * (22 / 7) / 180)
If y <> 0 Then
Picture1.PSet (x, 1 / y), vbRed
End If
Next
End If
End Sub

Hasil running kode program diatas adalah seperti berikut:


Gambar 2. Hasil Running Program

Project sederhana ini sebenarnya dibuat dengan tujuan mensimulasikan Fungsi Gelombang yang memang rumit (bagi saya pribadi). Bagi yang berminat, cobalah untuk membuat program yang sama namun dapat digunakan untuk menggambar interferensi gelombang atau dapat mensimulasikan gelombang.

Klik di Sini untuk mendownload program ini.

See u next posting !!!