Histogram dengan VB 2008

Assalamualaikum sahabat say yang cerdas, sudah lama tidak meng-Update blog ini, alhamdulillah hari ini saya kembali lagi untuk berbagi hal yang sederhana, setelah dijelaskan pada kesempatan sebelumnya mengenai Histogram kini saya tinggal memberikan codingnya sesuai dengan logika yang terdapat pada Histogram dengan vb.net 2008.

langkah-langkahnya:
1 buat form dengan isi:
         a. picturebox yang saya beri nama picAwal dan set ja langsung image yang akan di proses
         b. AxMSChart1(cari ja di om google cara buat grafik atau chart)
         c. button
2. coding
       
        Dim bmap As Bitmap 'deklarasi gambar/image dengan tipe Bitmap
        bmap = New Bitmap(picAwal.Image) 'Gambar asli dijadikan gambar Bitmap
        picAwal.Image = bmap
        Dim tempbmp As New Bitmap(picAwal.Image) 'deklarasi gambar Bitmap dari gambar asli untuk diproses

         Dim Red As Integer, histo(255) As Integer 'saya hanya menampilkan histogram yang red-nya saja
        Dim X, Y As Integer
       
        With tempbmp
            For X = 0 To .Height - 1
                For Y = 0 To .Width - 1
                    Red = CInt(.GetPixel(Y, X).R) 'ambil nilai warna merah (Red) pada pixel(Y,X)
                    histo(Red) += 1 'untuk menghitung frekwensi kemunculan setiap intensitas pixel, setiap pixel yang sama muncul maka nilai akan + 1
                Next
            Next
            

         End With
        AxMSChart1.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
        AxMSChart1.RowCount = 256 'Menentukan jumlah baris adalah 256
        AxMSChart1.ColumnCount = 1 'Menentukan jumlah grafik adalah 1

         
        Dim jml As Integer
        jml = (tempbmp.Width * tempbmp.Height) ' digunakan untuk membagi nilai kemunculan.. contoh pixel dengan intensitas 1 muncul 100 kali pada citra 1000 pixel maka frekwensinya adalah 0.1
        
            For X = 1 To 256 ' perulangan untuk menampilkan frekwensi 0 sampai 255 intensitas pixel (dengan jumlah 256) pada grafik

             'set baris ke - X diawal adalah 1 sebelum looping
            AxMSChart1.Row = X

             'Setting label pada baris chart ke-X dengan x-1(artinya pada baris pertama diberi label 0 karena pixel dimuali dari 0)
            AxMSChart1.RowLabel = X - 1

             AxMSChart1.Column = 1
            AxMSChart1.Data = histo(X - 1) / jml 'tampilkan grafik histogram ke X-1 (sebelum looping nilai x-1 adalah 0)
        Next
Selesai dan semoga bermanfaat ya... jika masih bingung silahkan komentar dan lampirkan email anda biar saya kirim programnya melalui email.. 

Komentar

Posting Komentar

Postingan populer dari blog ini

THRESHOLDING

Gambar
            Assalamualaikum sahabat blogger, dihari jumat yang mudah-mudahan penuh berkah buat kita semua, ditengah kesibukan mengajar, disela-sela waktu saya menyempatkan diri menulis, bukan ilmu yang baru, mungkin hanya sekedar refrensi buat mahasiswa yang sedang belajar pengolahan citra. kali ini saya membahas tentang thresholding atau bahasa bataknya operasi ambang batas, atau memetakan pixel yang memenuhi syarat ambang batas dipetakan ke satu nilai pixel yang dihendaki, rumusnya sebagai berikut bro. Keterangan: f 0 (x,y)    : adalah citra hasil threshold T           : Nilai Pemetaan Pixel dimisalkan T1 =50,T2=100 T3=150, maka dapat dipetakan seluruh nilia yang berada daro 0-50 akan diganti dengan nilai 50, yang berada antar 50 sampai 100 diganti dengan nilai 100, yang berada antara 100 sampai 150 diganti dengan nilai 150, begitu seterusnya sesuai dengan pemetaan yang dibuat, dan pembentukan peta harus sesuai ...
Baca selengkapnya

Hitung Manual Gabor Filter

Gambar
—      Filter Gabor bekerja sebagai filter bandpass untuk distribusi frekuensi spasial lokal, mencapai resolusi optimal dalam domain baik spasial dan frekuensi. 2D filter Gabor dapat direpresentasikan sebagai sinyal sinusoidal kompleks dimodulasi oleh fungsi kernel Gaussian sebagai berikut (Amina Khatun, 2011). rumusnya sbb: Langkah-Langkah Filter Gabor Langkah pertama : menetapkan ukuran filter, contoh yang digunakan adalah ukuran 3 x 3 seperti terlihat pada gambar. —Langkah kedua : menetapkan variable filter Gabor Ø=0, zigma=8, gamma=0.25 dan fx=3 (sesuai dengan kebutuhan anda) —Langkah ketiga : menghitung filter Gabor sesuai dengan rumus sebelumnya, rumus diatas dapat dijabarkan menjadi: setelah didapatkan nilai zigma-x,zigma-y, zigma 2 -x,zigma 2 -y lalu dapat dihitung dengan rumus berikut: Hasil filter gabor 3 x 3 berdasarkan variable yang telah ditentukan diatas menjadi: selanjutnya akan dijelaskan bagai mama konvolusi ...
Baca selengkapnya

Histogram

Gambar
Grafik yang menunjukan frekwensi kemunculan setiap kemunculan gradasi warna disebut histogram Gambar 1.1 Pamandangan (kiri), histogram dari gambar (kanan) kurva histogram didapatkan dari jumlah intensitas pixel yang sama, penarikan grafik nilai pixel dengan jumlah kemunculan tiap nilai pixel (frekwensi) akan membentuk sebuah histogram. seperti terlihat pada gambar berikut: gambar diatas menunjukan citra grayscale dengan kedalaman warna 3 bit, atau nilai intensitas pixel bernilai 0 sampai 7, nilai kemunculan tiap pixel dapat dilihat pada tabel yang berwarna merah, dan dari hasil tersebut dibuat histogramnya seperti terlihat pada grafik disamping. Manfaat dari Histogram 1.Sebagai indikasi visual untuk menentukan skala keabuan yang tepat sehingga diperoleh kualitas citra yang diinginkan 2.Untuk pemilihan batas ambang(theshold)
Baca selengkapnya