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
Thresholding digunakan untuk mengatur jumlah derajat keabuan yang ada pada citra. Default yang ada pada Visual Basic adalah 256 atau 28.
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
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
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:
Code 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
