Selasa, 03 Desember 2013

Grayscale dengan VB.Net

Peningkatan kualitas citra dapat dilakukan melalui tranformasi intensitas citra, yaitu besar intensitas setiap pixel pada citra diubah tetapi posisi pixel tetap. Transformasi ini dapat dilakukan dengan sebuah fungsi transformasi skala keabuan grayscale tranformation function (GST)

RGB 2 Grayscale

Citra Warna Dapat diubah menjadi citra grayscale dengan cara menghitung rata-rata elemen warna:

contoh:


 contoh program menggunakan vb.net

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, Green As Integer, Blue As Integer, Grey As Integer
        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)
                    Green = CInt(.GetPixel(Y, X).G) 'ambil nilai warna hijau (Green) pada pixel(Y,X)
                    Blue = CInt(.GetPixel(Y, X).B) 'ambil nilai warna biru (Blue) pada pixel(Y,X)
                    Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey
                    bmap.SetPixel(Y, X, Color.FromArgb(Grey, Grey, Grey)) 'simpan warna baru pada pixel(Y,X)
                Next
                Next
        End With
       

Entri yang Diunggulkan

Publikasi, Penelitan, Pengabdian, Buku dan Penghargaan

Berikut Ini Adalah Karya Saya Selama 5 Tahun Terakhir  Publikasi Artikel Ilmiah Dalam Jur nal Dan P rosiding   No Jud...