Program VB Net Untuk Pengaturan RGB Citra

Written By Mesran

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

Ok program sebelumnya kita sudah membahas citra Grayscale (lihat di salah satu postingan ini menggunakan form login pada VB Net) hehehe, memang postingannya nggak nyambung, tapi isinya nyambung kok :)

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



Pengaturan Green yang di tambah


Pengaturan Green yang di kurang


Selamat belajar di Tutorial VB Net