CITRA RGB HISTOGRAM

Mengambil Grafik HISTOGRAM dari CITRA WARNA

Dengan Visual Basic 6.0

    Pengolahan Citra

Buat Form seperti dia atas (Form1.frm)

    Masukkan :

PictureBox               (4x)    (dengan Name : Picture1, Picture2,Picture3,Picture4)
CommandButton     (2x)    (dengan Name : CommandButton1, CommandButton2)
Commondialog         (1x)    (dengan Name : CommonDialog1 )
[ditambahkan dari Components : "Microsoft Common Dialog Control 6.0" ]
        


BUKA Jendela "View Code"

Masukkan Code berikut :

Private Sub Command1_Click() 'Load/browse picture

CommonDialog1.ShowOpen

Picture1.Picture = LoadPicture(CommonDialog1.FileName)

End Sub

 

Private Sub Command2_Click() 'Histogrsm Button

Dim hr(256) As Integer, hg(256) As Integer, hb(256) As Integer

Dim ht2 As Long

Dim xp As Integer, i As Integer, j As Integer

Dim r As Integer, g As Integer, b As Integer

Dim warna As Long, x As Long, a As Long

 

Picture2.Cls

Picture3.Cls

Picture4.Cls

 

Me.MousePointer = vbHourglass

 

For i = 1 To 256

hr(i) = 0

hg(i) = 0

hb(i) = 0

Next

 

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)

 

'If r > 255 Then r = 255

'If g > 255 Then g = 255

'If b > 255 Then b = 255

 

hr(r) = hr(r) + 1

hg(g) = hg(g) + 1

hb(b) = hb(b) + 1

Next j

Next i

 

ht2 = Picture2.Height

 

For i = 1 To 256

xp = 15 * (i - 1) + 1

Picture2.Line (xp, ht2 - hr(i))-(xp, ht2), RGB(255, 0, 0)

Picture3.Line (xp, ht2 - hg(i))-(xp, ht2), RGB(0, 255, 0)

Picture4.Line (xp, ht2 - hb(i))-(xp, ht2), RGB(0, 0, 255)

Next i

 

Me.MousePointer = vbNormal

 

End Sub

SELESAI AND START RUN!!

KLIK "OPEN FILE GAMBAR" –pilih gambarnya- Klik "HISTOGRAM" =



THIS IS IT!

                        Ala Chief X -BDUR