Program mengubah citra warna ke citra biner menggunakan metode treshold {pengolahan citra)

Pada pertemuan kali ini saya akan membahas tentang Citra Biner lebih kerennya disebut Citra Hitam Putih atau black and white (BW). cita biner tejadi atas konversi 3 citra yaitu :

1. citra warna
2. citra grayscale
3. citra biner

citra biner menggunakan metode treshold ( ambang batas ), meberikan ambang batas warna dari pixel 0-255 sebagaimana dibahas pada artikel Treshold sebelumnya yang membagikan batas warna dengan mengabil nilai tengah 128. Apabila warna dibawah 128 dianggap hitam dan apabila warna melewati 128 dianggap putih.


**adapun langkah lang membuat program ikuti langkah-langkah berikut:

1. Buat project baru dengan membuat form seperti gambar berikut ini

 

2.Mengisi Property pada name pada form dengan FormRGB2Gray, mengubah property caption dengan konversi RGB ke GrayScale

 

3. masukkan listing program

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)
x = (0.42 * r + 0.32 * g + 0.28 * b)
y = Text1
a = Int(256 / y)
x = a * Int(x / a)
Picture2.PSet (i, j), RGB(x, x, x)
Next j
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

baca juga artikel penjelasan tentang treshold