Pengolahan Citra Digital kurangi Warna pada VB 2008

Pengolahan citra Kurangin warna menjadi :
1. Redup Merah
2. redup Hijau
3. Redup Biru

Sekarang kita bahas dulu nih apa sih itu Citra Digital...
Citra Digital merupakan gambar Dua Dimensi terdiri baris dan kolom yang ditampilkan pada layar monitor komputer sebagai himpunan berhingga (diskrit)yang mempunyai nilai digital yang disebut pixel...


Apa itu Pixel ????
Pixel kependekan dari Picture elemen yang berarti elemen gambar yang mempresentasikan/menampilkan cahaya warna, yang mana warna ini terdiri dari RGB (Red Green Blue) yang berkombinasi, yang mana kedalaman warna ini terdiri dari :
1. 8 Bit = 256 warna (Grayscale)
2. 24 Bit = 16.777.216 warna

coba liat gambar dibawah ini

Citra Digital akan terlihat pixel nya apabila Citra tersebut di perbesar lihat gambar kupu2 disamping kanan akan terlihat kotak2 bukan... satu kotak itu dinamakan Pixel...

oke sudah cukup pendahuluannya ya...
langsung ke judul saja...

 

Desaign Form VB anda seperti diatas...

 Lalu Klik File dan Double Klik Open Citra lalu ketikkan Script dibawah ini...

OFD.Filter = "BMP|*.bmp|JPG|*.Jpg|PNG|*.png"

        OFD.ShowDialog()

        If OFD.FileName = "" Then Exit Sub
        Pic1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(Pic1.Image)
        Me.Text = "ukuran : " & gambar.Height & " * " & gambar.Width & "Pixel"

Lalu kembali kedesign. kemudian klik File kemudian double klik Save Citra....
dan ketikkan koding seperti dibawah ini....

SFD.Filter = "JPG|*.Jpg|BMP|*.bmp"
        SFD.ShowDialog()
        If SFD.FileName = "" Then Exit Sub
        If SFD.FilterIndex = 1 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
        If SFD.FilterIndex = 2 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
        End If
        If SFD.FilterIndex = 3 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Png)
        End If

dan kembali kedesign klik file dan double klik di di keluar ketikan end

Lalu klik Manipulasi Citra lalu double Klik + Red dan ketikkan dibawah lagi.

Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R -10
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B

                    If vM < 0 Then vM =0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

Lalu klik Manipulasi Citra lalu double Klik + Green dan ketikkan dibawah lagi.

Dim Pb, Pc As Integer
        Dim vM, vH, vB 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 - 10
                    vB = .GetPixel(Pc, Pb).B

                    If vM < 0 Then vM =0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

Lalu klik Manipulasi Citra lalu double Klik + Blue dan ketikkan dibawah lagi.

Dim Pb, Pc As Integer
        Dim vM, vH, vB 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 - 10

                    If vM < 0 Then vM =0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

dan setelah Public Class pada View Code maka harus diketikkan seperti ini :

Dim gambar as Bitmap

Cukup Sekian Selamat Mencoba.... :)