Program VB Net Untuk Pengaturan RGB Citra

RGB merupakan singkatan dari Red Green Blue, merupakan warna dasar representasi dari semua warna.
Pencamburan dari RGB akan menghasilkan warna baru dengan kombinasi 16581375 warna. Wahh banyak banget yah. hemmm dari mana datangnya?

Nilai RGB itu terdiri atas R = 0..255, G = 0..255 dan B = 0..255, jadi kalau di kombinasikan RGB akan menghasilkan 16581375 warna. Begitu lah kira kira :D wkwkwkw

Pada postingan sekarang saya akan memberikan contoh program untuk mengakses nilai Green saja, sehingga suatu citra kita bisa memanipulasi hijaunya di tambahin atau dikurangin.

Design program Pengaturan RGB Citra seperti dibawah ini :

Listing program Pengaturan RGB Citra

Public Class Form1

    Private Sub btnHijauT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHijauT.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(PictureBox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G + 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox2.Image = PictureBox1.Image
    End Sub

    Private Sub btnHijauK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHijauK.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(PictureBox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G - 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub
End Class

Hasil program saat dijalankan awal