Sunday, May 3, 2009

Inversi Citra

Inversi citra adalah proses negatif pada citra, misalkan pada photo, dimana setiap nilai citra dibalik dengan acuan threshold yang diberikan. Proses ini banyak digunakan pada citra-citra medis seperti USG dan X-Ray. Untuk citra dengan derajat keabuan 256, proses inversi citra didefinisikan dengan:



Adapun contoh praktikum sbb :



Listing program praktikum inversi sbb :

Private Sub Command4_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)
x10 = (R + G + B) / 3
xn = 255 - x10
Picture2.PSet (i, j), RGB(xn, xn, xn)
Next j
Next i
End Sub

No comments: