Konversi ke Citra Biner

Konversi ke Citra Biner

Citra Biner (hitam putih) merupakan citra yang banyak dimanfaatkan untuk keperluan pattern recognition yang sederhana seperti mengenal angka atau pengenalan huruf.

Untuk mengubah suatu citra gray scale menjadi citra biner, sebetulnya prosesnya sama dengan Thresholding yaitu mengubah kuantisasi citra.

Untuk Citra dengan derajat keabuan 256 maka tengahnya adalah 128 sehingga mengubah menjadi citra biner dapat dituliskan:

Jika x<128 maka x=0, jika tidak maka x=255

Untuk membuat program Konversi ke citra biner, langkahnya adalah sbb:

1. Buat project baru

Tambahkan 2 PictureBox bersebelahan

PictureBox1 untuk menampung gambar asli, PictureBox2 menampung hasil

Tambahkan CommandButtom1 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
Command1	Caption	Konversi Ke Citra Biner

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)

’Memindahkan ke Gray scale

x=(r + g + b)/3

’konversi ke citra biner

If x<128 Then x=0 Else x=255

Picture2.Pset (i, j), RGB(x, x, x)

Next j

Next i

End Sub

Keterangan:

Hasil dari program diatas tampak kurang sempurna. Hal ini disebabkan distribusi nilai derajat keabuan tidak simetri antara yang dibawah 128 dan yang diatas 128. Jika ingin mendapatkan citra biner yang lebih baik maka harus dihitung dulu nilai rata-rata derajat keabuan dan kemudian ditentukan Thresholdingnya.