Emely.Net Banner Exchange
Home, Forum diskusi, Chatting, Download

Latihan 2

Judul : Memahami properti dan metoda serta event pada picturebox

1. 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

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

3. (Memahami metoda Refresh ) Tambahkan sebuah tombol refresh, dan lakukan koding sebagai berikut :

Private Sub cmdRefresh_Click()
MyPicture.Refresh
End Sub

4. Jalankan kembali program, dan klik pada command Grafik, dan klik pada command Refresh, dan perhatikan hal yang terjadi.

5. (Memahami properti AutoRedraw) Lakukan perbaikan terhadap koding cmdGrafik sehingga menjadi sebagai berikut :

Private Sub cmdGrafik_Click()
MyPicture.ScaleMode = 0
MyPicture.ScaleWidth = 720
MyPicture.ScaleHeight = 6
MyPicture.ScaleLeft = 0
MyPicture.ScaleTop = -3
MyPicture.AutoRedraw = True                'Ini yang ditambahkan
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
MyPicture.AutoRedraw = False               'Ini yang ditambahkan
End Sub

6. Jalankan kembali program, dan klik pada command Grafik, dan klik pada command Refresh, dan perhatikan hal yang terjadi. Apa perbedaannya dengan yang sebelumnya.

7. (Memanfaatkan properti image) Tambahkan sebuah command Save pada project anda, dan lakukan koding jika tombol tersebut di klik, maka akan menyimpan grafik dalam picturebox ke file "Grafik.bmp"

Private Sub cmdSave_Click()
SavePicture MyPicture.Image, "Grafik.bmp"
End Sub

8. (Memahami event Paint) Tanamkan pada Form anda suatu Picturebox berukuran 1550 Twips x 1550 Twips, kemudian lakukan koding berikut pada Event Paint, dan jalankan project tersebut, dan perhatikan picturebox anda.

Private Sub MyPicture_Paint()
MyPic.Circle (775, 775), 500
MyPic.Circle (550, 650), 50
MyPic.Circle (1000, 650), 50
MyPic.Circle (775, 700), 400, , 4, 5.6
End Sub