Mengubah citra berwarna menjadi gray-scale

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***