Pengolahan Citra Digital Grayscale pada VB 2008

Grayscale merupakan suatu seni gambar keabu-abuan, perpaduan kombinasi warna hitam dan putih.
kali ini ingin membagikan bagaimana cara mengolah Citra Digital menjadi Grayscale. pada Vb 2008

Pertama tam pasti harus mempunyai VB . net 2008

Lalu Desain seperti ini :

Untuk membuka dan save gambar sudah dituliskan semalam
sekarang tinggal koding grayscalenya saja...

klik Manipulasi Citra lalu Double Klik Grayscale....
dan tuliskan koding dibawah ini...

Dim Gambar as Bitmap
Dim Pb, Pc As Integer
        Dim vM, vH, vB, Rt As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    Rt = (vM + vH + vB) / 3
                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
                Next
                Pic2.Image = gambar
           Next
End With

Pengertian dari script diatas :

Dim Gambar as Bitmap

Mendeklarasikan Gambar sebagai bitmap (Citra)

Dim Pb, Pc As Integer

Pb itu kependekan dari Pixel baris
Pc itu kependekan dari Pixel colom
Citra kan gambar dua dimensi yang terdiri baris dan kolom pixelnya.
Jadi pada script diatas bermaksud Mendeklarasikan Pb dan Pc sebagai Nilai Integer (Nilai Bilangan Bulat)

        Dim vM, vH, vB,Rt As Double

vM kependekan dari Value Merah
vH kependekan dari Value Hijau
vB kependekan dari Value Biru
Rt kependekan dari Rata-rata
pixel merupakan picture elemen yang mempresentasikan cahaya warna yang mana warna ini terdiri dari perpaduan RGB yang memiliki kedalaman warna.
Jadi arti script diatas Mendeklarasikan vM, vH, vB, Rt sebagai Double (Bilangan Pecahan)

With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    Rt = (vM + vH + vB) / 3
                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
                Next
                Pic2.Image = gambar
           Next
End With

Mengulang Pixel Baris 0 sampai Tingginya selesai

Mengulang Pixel Kolom 0 sampai Lebarnya selesai

lalu value merah merupakan Mengambil Satu Pixel Colom dan Baris dari Citra Digital Red
lalu value hijau merupakan Mengambil Satu Pixel Colom dan Baris dari Citra DigitalGreen
lalu value biru merupakan Mengambil Satu Pixel Colom dan Baris dari Citra Digital Blue
lalu rata-rata = (value merah + value hijau + value biru) / 3
value merah bernilai 8 Bit
value hijau bernilai 8 Bit
Value biru bernilai 8 Bit
dibagi tiga karena grayscale kedalaman warnanya 8 bit memiliki 256 kombinasi warna

Kemudian Citra diset Pixel warna RGB Kolom Barisnya berdasarkan rata-rata sebagai warna red, rata-rata juga sebagai warna hijau, rata-rata sebagai warna biru
lanjutkan Pixel Colom

menampilkan pada Pic2 yang mana citra tersebut sudah diolah menjadi grayscale barisnya
lanjutkan pixel Baris
dia akan melanjutkan terus menerus sampai baris dan kolomnya selesai semua pada gambar


nah sekarang lihat tampilannya seperti dibawah ini :

 


















Indah Bukan Seni Grayscale ini Selamat Mencoba :)