Konversi Ke Citra Biner

Citra biner (hitam-putih) merupakan citra yang banyak dimanfaatkan untuk keperluan pattern recognition yang sederhana seperti pengenalan angka atau pengenalan huruf. Untuk mengubah suatu citra gray scale menjadi citra biner, sebetulnya prosesnya sama dengan threshold yaitu mengubah kuantisasi citra. Untuk citra dengan derajat keabuan 256, maka nilai tengahnya adalah 128 sehingga untuk mengubah menjadi citra biner dapat dituliskan:

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

Adapun contoh praktikum sebagai berikut :



Listing program diatas sebagai berikut :

Private Sub Command3_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)
x11 = (R + G + B) / 3
If x11 < 128 Then x11 = 0 Else x11 = 255
Picture2.PSet (i, j), RGB(x11, x11, x11)
Next j
Next i
End Sub