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

Dasar dari image processing mengetahui komposisi warna RGB(Red, Green, Blue). Penelitian memperlihatkan bahwa kombinasi warna yang memberikan rentang paling lebar adalah Merah(R), Geen(G), Blue(B). Ketiga warna tersebut merupakan warna pokok yang biasa disebut RGB. Warna lain dapat diperoleh dengan mencampurkan ketiga warna pokok tersebut dengan perbandingan tertentu. Setiap warna pokok memiliki intensitas sendiri dengan nilai maksimum 255(8-bit).

Begitulah sedikit cerita dari RGB, pada postingan kali ini penulis akan menunjukan bagaimana cara membuat aplikasi mengubah citra warna sebuah foto/gambar menjadi merah (R), hijau(G), atau biru(B).

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()

Untuk Hasil Pengolahan Citra akan menjadi seperti berikut :
 

Untuk mendownload contoh aplikasi beserta kodingnya download disini[180upload]  atau disini[TusFiles]
Semoga artikel ini bermanfaat dan terimakasih atas kunjungannya. SALAM SUKSES

Tweet