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.