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.

Program Thresholding

Program Thresholding

Thresholding digunakan untuk mengatur jumlah derajat keabuan yang ada pada citra. Default yang ada pada Visual Basic adalah 256 atau 2⁸.

Dengan menggunakan Thresholding maka derajat keabuan bisa dirubah sesuai keinginan. Proses Thresholding ini adalah proses pengubahan kuantisasi pada citra, sehingga untuk melakukan thresholding keabuan a dapat digunakan rumus:

x = b.int(w/b)

Dimana:

w = nilai derajat keabuan sebelum thresholding

x = nilai derajat keabuan setelah thresholding

x = b.int (256/a)

Untuk Membuat program Thresholding caranya adalah sbb:

1. Buat project baru

· Tambahkan 2 buah PictureBox, PictureBox 1 isi dengan gambar asli, PictureBox 2 untuk menmpilkan hasil thresholding

· Tambahkan label dibawah PictureBox1,

· Tambahkan textbox disamping label1

· Tambahkan commandbuttom dibawah PictureBox2

2. Isikan properti pada setiap object dan form sbb:

Objek	Property	Nilai
Form	Name Caption	Thresholding Proses Thresholding
Picture1	Picture Autoredraw Appereance	Nama file gambar Thrue Flat
Label1	Caption	Thresholding Derajat Keabuan
Text1	Text	16
Picture2	Appereance	Flat
Command1	Caption	Thresholding

3. Klik pada Command1, isikan program berikut

Private Sub Command1_Click()

th=val(Text.text)

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

’Melakukan Thresholding

a=int(256/th)

x=a*int(x/a)

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

Next j

Next i

End Sub

Keterangan:

Pada program diatas, keliahatannya gambar berwarna langsung di Thresholding padahal sebenarnya tidak, gambar berwarna dirubah menjadi Gray scale kemudian baru di thresholding.

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