histogram adalah tampilan grafis dari tabulasi frekuensi yang digambarkan dengan grafis batangan sebagai manifestasi data binning. Tiap tampilan batang menunjukkan proporsi frekuensi pada masing-masing deret kategori yang berdampingan dengan interval yang tidak tumpang tindih.
equalization histogram adalah suatu proses perataan histogram, dimana distribusi nilai derajat keabuan pada suatu citra dibuat rata. Untuk dapat melakukan histogram equalization ini diperlukan suatu fungsi distribusi kumulatif yang merupakan kumulatif dari histogram.
Algoritma
For j = 1 To Picture4.Height Step 15
warna = Picture4.Point(i, j)
m = warna And RGB(255, 0, 0)
h = Int((warna And RGB(0, 255, 0)) / 256)
b = Int(Int((warna And RGB(0, 0, 255)) / 256) / 256)
If m > 255 Then m = 255
If h > 255 Then h = 255
If b > 255 Then b = 255
hm(m) = hm(m) + 1
hh(h) = hh(h) + 1
hb(b) = hb(b) + 1
Next j
Next i
ht2 = Picture1.Height
For i = 1 To 256
xp = 15 * (i – 1) + 1
Picture1.Line (xp, ht2 – hm(i))-(xp, ht2), RGB(255, 0, 0)
Picture2.Line (xp, ht2 – hh(i))-(xp, ht2), RGB(0, 255, 0)
Picture3.Line (xp, ht2 – hb(i))-(xp, ht2), RGB(0, 0, 255)
Next i
Me.MousePointer = vbNormal
End Sub
habis baca jgn lupa di like y…hehehe