Membuat Aplikasi Pengolahan Citra Invert Gambar dengan VisualBasic 2010

Pada bahasan kali ini kita akan mencoba untuk membuat aplikasi untuk memproses citra gambar menjadi invert. Invert adalah salah satu metode pengolahan citra. Proses invert membuat citra gambar menjadi tampak negative pada susunan warna RGB, namun berbeda dengan proses gambar negative. Invert dihasilkan dari nilai maximum dr RGB (255,255,255) dikurang nilai intensitas warna RGB pada gambar. Sehingga dapat di rumuskan seperti berikut :

NR = 255 - R
NG = 255 - G
NB = 255- B
I = NR  + NG + NB

Ket : 
NR = Nilai Negativ Merah, R = Nilai Intensitas Warna Merah pada Gambar
NG = Nilai Negativ Hijau, G = Nilai Intensitas Warna Hijau pada Gambar
NB = Nilai Negativ Biru, B = Nilai IntensitasWarna Biru pada Gambar

Sekarang kita akan mencoba membuat aplikasi untuk proses invert dengan VisualBasic 2010 :

Langkah 1 :

1. Buka Aplikasi Visual Basic 2010
2. Buat New Project -> Windows Form Application
3. Buat Design Form setidaknya seperti ini :

Isi Form Dengan Tool sebagai berikut :

Toolbox	Properties
PictureBox1	Size Mode : StretchImage BackColor : ControlDark
PictureBox2	Size Mode : StretchImage BackColor : ControlLight
Button1	Text : Open File
Button2	Text : Save
Button3	Text : Invert
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 (Invert), 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, Hijau, Biru As Integer 'Menampung intensitas warna RGB'
Dim mnegatif, hnegatif, bnegatif As Integer 'Menampung intensitas warna Negativ RGB'

For baris = 0 To gambar.Width - 1
       For kolom = 0 To gambar.Height - 1

             Merah = gambar.GetPixel(baris, kolom).R 'Memasukan Nilai Intensitas Warna Merah Gambar'
             Hijau = gambar.GetPixel(baris, kolom).G 'Memasukan Nilai Intensitas Warna Hijau Gambar'
             Biru = gambar.GetPixel(baris, kolom).B 'Memasukan Nilai Intensitas Warna Biru Gambar'

             mnegatif = 255 - Merah 'Menghitung Negativ Merah'
             hnegatif = 255 - Hijau 'Menghitung Negativ Merah'
             bnegatif = 255 - Biru 'Menghitung Negativ Merah'

            'Mengeset Gambar Dengan Nilai Negative RGB :'
            gambar.SetPixel(baris, kolom, Color.FromArgb(mnegatif, hnegatif, bnegatif))
      Next
      ProgressBar1.Increment(1)
Next
PictureBox2.Refresh()

Untuk Hasil Dari Aplikasi Tersebut akan sepeti ini :

Sekarang kita coba invert contoh gambar ilustrasi  :

Aplikasi Invert sudah jadi, silahkan dicoba. jika ingin mendownload langsung aplikasi silahkan klik disini[TusFiles]
Sekian dari saya kurang lebihnya mohon maaf dan Semoga bermanfaat. Salam Sukses

Tweet