2210205025(Memahami properti dan metoda serta event pada picturebox Dalam Visual Basic)

 Buatlah grafik  2 Sin x (warna hijau), Cos x (warna biru), dan 2 Sin x + Cos x (warna

 merah), dengan sumbu Y dari -3 s/d 3, dan Sumbu X dari 0 sampai 720 derajat.

Solusi :

1. Atur ScaleMode Picturebox ke 0 - User

  MyPicture.ScaleMode = 0

2. Atur ScaleWidth (panjang Sumbu X) Picturebox ke 720 ( 0 s/d 720 derajat)

  MyPicture.ScaleWidth = 720

3. Atur ScaleHeight (panjang Sumbu Y) Picturebox ke 6  (-3 s/d 3)

  MyPicture.ScaleHeight = 6

4. Atur ScaleLeft (koordinat paling kiri Sumbu X) Picturebox ke 0

  MyPicture.ScaleLeft = 0

5. Atur ScaleTop (koordinat paling atas Sumbu Y) Picturebox ke -3 (Harus disadari bahwa   perbedaan antara koordinat sumbu Y dimatematika dengan koordinat sumbu di PictureBox)

MyPicture.ScaleTop = -3

6. Gambarkan sumbu Y, dengan metode Line, mulai dari koordinat 0,0 s/d 720,0

  MyPicture.Line (0, 0)-(720, 0)

7. Lakukan looping mulai dari 0 s/d 720 untuk menggambarkan titik-titik 2 Sin x, Cos x, dan

   2 Sin x + Cos x.

  For i = 0 To 720

MyPicture.ForeColor = vbGreen                    'Warna Hijau

MyPicture.PSet (i, -2 * Sin(i * 3.14 / 180))

MyPicture.ForeColor = vbBlue                     'Warna Biru

MyPicture.PSet (i, -Cos(i * 3.14 / 180))

MyPicture.ForeColor = vbRed                      'Warna Merah

MyPicture.PSet (i, -2 * Sin(i * 3.14 / 180) - Cos(i * 3.14 / 180))

  Next i

Sehingga menjadi seperti berikut ini :

Private Sub cmdGrafik_Click()

MyPicture.ScaleMode = 0

MyPicture.ScaleWidth = 720

MyPicture.ScaleHeight = 6

MyPicture.ScaleLeft = 0

MyPicture.ScaleTop = -3

MyPicture.Line (0, 0)-(720, 0)

For i = 0 To 720

MyPicture.ForeColor = vbGreen

MyPicture.PSet (i, -2 * Sin(i * 3.14 / 180))

MyPicture.ForeColor = vbBlue MyPicture.PSet (i, -Cos(i * 3.14 / 180)) MyPicture.ForeColor = vbRed

MyPicture.PSet (i, -2 * Sin(i * 3.14 / 180) - Cos(i * 3.14 / 180)) Next i

End Sub

Jalankan program dan klik pada command Grafik, dan perhatikan hasilnya.