Menangkap Citra dengan PictureBox
Untuk menangkap citra yang ada pada picture digunakan perintah point yang dikenakan pada objek.
Picture yaitu namaPicture.Point(x,y) perintah ini menangkap warna pada posisi (x,y) dan hasilknya
adalah nilai warna dalam 2 pangkat 24, warna yang terdiri dari RGB.
Untuk mengambil warna R,G, dan B dapat digunakan cara pembagian dengan 256 sbb:
warna = picture1.Point(i, j)
r = warna And RGB (255, 0, 0)
g = Int ((warna And RGB(0, 255, 0)) / 256)
b = Int (Int((warna And RGB(0, 0, 255)) /256) / 256)Contoh Menangkap Citra Dengan PictureBox VB:
- Buatlah project baru
- Isi properti name dengan FormCapture, caption: Menangkap Citra
- Tambahkan 2 buah PictureBox, PictureBox1 disebelah kiri dan PicturebBox2 disebelah kanan
- Tambahkan 2 buah label, label1 diatas PictureBox1, caption: Citra Asli, dan label2 diatas PictureBox2, caption: Hasil capture
- Tambahkan 2 buah CommandButton. Command Button1 di bawah PictureBox1, caption: CAPTURE CITRA.
CommandButton2 dibawah PictureBox2, caption: SELESAICode Program:
Double klik pada commondbutton1:
Private Sub Command1_Click()
For i = 1 to Picture1.Width Step 15
For j = 1 to Picture1.Height Step 15
warna = picture1.Point(i, j)
r = warna And RGB (255, 0, 0)
g = Int ((warna And RGB(0, 255, 0)) / 256)
b = Int (Int((warna And RGB(0, 0, 255)) /256) / 256)
Picture2.Pset (i, j), RGB(r, g, b)
Next j
Next i
End Sub###Selamat Mencoba###