Membuat Aplikasi Pengolahan Citra Grayscale Dengan VisualBasic 2010

Setelah postingan sebelumnya membuat aplikasi pengolahan citra RGB, kali ini penulis akan berbagi cara membuat aplikasi pengolahan citra gray-scale menggunakan Visual Basic 2010.

Proses awal yang banyak dilakukan dalam pengolahan citra adalah mengubah citra berwarna menjadi citra gray-scale, hal ini digunakan untuk menyedarhanakan model citra. Seperti telah di jelaskan pada postingan sebelumnya, citra warna terdiri dari 3 layer yaitu R,G,B. Sehingga untuk melakukan proses selanjutnya tetap diperhatikan 3 layer tersebut. Bila setiap proses perhitungan dilakukan menggunakan tiga layer, berarti dilakukan perhitungan yang sama. Sehingga konsep itu diubah dari 3 layer menjadi 1 layer matrik Gray-Scale dan hasilnya adalah citra Gray-Scale

Untuk mengubah citra berwarna yang mempunyai nilai matrik masing-masing R, G, B menjadi citra Gray Scale dengan nilai GS, maka konversi dapat dilakukan dengan mengambil rata-rata dari nilai R,G,B sehingga dapat dituliskan menjadi :

GS = (R+G+B) / 3

Untuk mencoba konversi citra grayscale dapat dibuat aplikasi sebagai berikut :

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 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 : Gray Scale
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 (Gray Scale), 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 abu2 As Integer 'Menampung intensitas warna Gray Scale'

For baris = 0 To gambar.Width - 1
       For kolom = 0 To gambar.Height - 1
             Merah = gambar.GetPixel(baris, kolom).R
             Hijau = gambar.GetPixel(baris, kolom).G
             Biru = gambar.GetPixel(baris, kolom).B

             abu2 = Int((Merah + Hijau + Biru) / 3) 'rumus GS=(R+G+B)/3'
             gambar.SetPixel(baris, kolom, Color.FromArgb(abu2, abu2, abu2))
      Next
      ProgressBar1.Increment(1)
Next
PictureBox2.Refresh()

Untuk Hasil Dari Aplikasi Teresbut akan sepeti ini :

Gimana keren kan ? hehehe. untuk download aplikasi dan kodingnya jika agan males memulai dari awal bisa di download disini[TusFiles]
Semoga artikel ini bermanfaat, atas kunjungannya terimakasih. SALAM SUKSES

Tweet