Mengubah citra berwarna menjadi gray-scale
Proses awal yang banyak dilakukan dalam image processing adalah mengubah citra berwarna menjadi gray-scale. Hal ini digunakan untuk menyederhanakan model.
Citra berwarna terdiri dari 3 layer matrik yaitu R-layer, G-layer, dan B-layer sehingga untuk melakukan proses selanjutnya tetap diperhatikan tiga layer tadi. Dalam citra ini tidak ada lagi warna yang ada hanya derajat keabuan.
Untuk mengubah citra berwana menjadi Gray-scale digunakan rumus sbb:
x = (r + g + b) /3
Untuk membuat program citra warna menjadi gray-scale, lakukan langkah berikut:
1. Buat project baru
Tambahkan 2 buah PictureBox bersebelahan
PictureBox1 untuk menampung gambar asli, PictureBox2 menampung hasil
Tambahkan 2 buah Label
CommandButtom1 diatas pictureBox1, Command2 diatas PictureBox2
Tambahkan 2 buah CommondButton
CommandButtom1 dibawah pictureBox1, Command2 dibawah PictureBox2
2. Isikan property sbb:
Objek | Property | Nilai |
Form | Name Caption | CitraBiner Konversi Ke Citra Biner |
Picture1 | Picture Appereance | Nama file gambar Flat |
Picture2 | Appereance | Flat |
Label1 | Caption | Gambar Asli |
Label2 | Caption | Hasil RGB Ke GRAY |
Command1 | Caption | Capture Gambar |
Command2 | Caption | Selesai |
3. Klik Command1, isikan program berikut:
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)
’Mengubah citra berwarna ke Gray scale
x=(r + g + b)/3
Picture2.Pset (i, j), RGB(x, x, x)
Next j
Next i
End Sub
4. Klik Command2, isikan program berikut:
Private Sub Command2_Click()
Unload Me
End Sub
***Selamat Mencoba***