Membuat Aplikasi Mengubah Citra Warna Foto menjadi RGB dengan Visual Basic 2010

Langkah 1 : 

1. Buka Aplikasi Visual Basic 2010
2. Buat New Project -> Windows Forms Application
3. Buat Design Aplikasi, Setidaknya seperti berikut :

Isi Form dengan tool berikut :

Toolbox	Properties
PictureBox1	Size Mode : StretchImage BackColor : ControlDark
PictureBox2	Size Mode : StretchImage BackColor : ControlLight
Button1	Text : Open File
Button2	Text : Save
Button3	Text : Merah
Button4	Text : Hijau
Button5	Text : Biru
ProgressBar1	-
OpenFileDialog1	-
SaveFileDialog1	-

Langkah 2 :

• Double Klik Button1 (Open File), Masukan Skrip Berikut 

OpenFileDialog1.Filter = "Images|*.bmp;*.jpg;*.png"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
      PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
      PictureBox1.Width = Convert.ToInt32(PictureBox1.Height * PictureBox1.Image.Width / PictureBox1.Image.Height)
      Me.Text = OpenFileDialog1.FileName & "_" & PictureBox1.Image.Width & " X " & PictureBox1.Image.Height
      ProgressBar1.Minimum = 0 
      ProgressBar1.Maximum = PictureBox1.Image.Width 
End If

• Double Klik Button2 (Save File), Masukan Skrip Berikut 

SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
     PictureBox2.Image.Save(SaveFileDialog1.FileName + ".jpg")
End If

• Double Klik Button3 (Merah), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Merah As Integer 'Menampung intensitas warna R'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Merah = gambar.GetPixel(baris, kolom).R
              gambar.SetPixel(baris, kolom, Color.FromArgb(Merah, 0, 0))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

• Double Klik Button4 (Hijau), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Hijau As Integer 'Menampung intensitas warna G'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Hijau = gambar.GetPixel(baris, kolom).G
              gambar.SetPixel(baris, kolom, Color.FromArgb(0, Hijau, 0))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

• Double Klik Button5 (Biru), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Biru As Integer 'Menampung intensitas warna B'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Biru = gambar.GetPixel(baris, kolom).B
              gambar.SetPixel(baris, kolom, Color.FromArgb(0, 0, Biru))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

Terima kasih & semoga bermanfaat.

sumber : http://www.amuja.com/2015/01/membuat-aplikasi-mengubah-citra-warna.html