Membuat Aplikasi Pengolahan Citra Sharpening dengan VisualBasic 2010

Bahasan kali ini masih tentang pembuatan aplikasi pengolahan citra yaitu sharpening. sharpening yaitu proses untuk mempertajam atau memperjelas citra gambar. sharpen masuk metode untuk perbaikan kualitas gambar. proses sharpening menggunakan 2 pixel dalam sekali proses yaitu pixel(x,y) dan pixel (x+1, y+1). kemudian intensitas RGB pada masing pixel di proses dengan cara menambahkan RGB pixel(x,y) dengan setengah dari nilai pengurangan RGB pixel(x,y) dan RGB pixel(x+1 , y+1). dari uraian tersebut maka sharpen dapat dirumuskan :

S = RGB1 + 0.5 * (RGB1 - RGB2)

Ket  :
RGB1 = nilai intensitas RGB pixel (x,y)
RGB2 = nilai intensitas RGB pixel (x+1, y+1)
S = Hasil Sharpening



Sekarang kita coba buat aplikasi pemrosesan sharpening dengan Visual Basic :

Langkah 1 :

1. Buka Aplikasi Visual Basic 2010
2. Buat New Project -> Windows Forms Application
3. Buat Desain seperti ini :

Isi Form Dengan Tool sebagai berikut :

Toolbox	Properties
PictureBox1	Size Mode : StretchImage BackColor : ButtonShadow
PictureBox2	Size Mode : StretchImage BackColor : ControlLight
Button1	Text : Open File
Button2	Text : Save
Button3	Text : Sharpening
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 (Sharpening), Masukan Skrip Berikut :

ProgressBar1.Value = 0
Dim r1, g1, b1 As Integer 'menampung intesitas warna RGB pixel(x,y)'
Dim r2, g2, b2 As Integer 'menampung intesitas warna RGB pixel(x+1,y+1)'
Dim r3, g3, b3 As Integer 'menampung nilai Sharpening'

Dim gambar As New Bitmap(PictureBox1.Image)
PictureBox2.Image = gambar

Dim x, y As Integer

For x = 0 To gambar.Width - 2
       For y = 0 To gambar.Height - 2

              r1 = gambar.GetPixel(x, y).R 'mengambil nilai R pixel(x,y) pada gambar'
              g1 = gambar.GetPixel(x, y).G 'mengambil nilai G pixel(x,y) pada gambar'
              b1 = gambar.GetPixel(x, y).B 'mengambil nilai B pixel(x,y) pada gambar'

              r2 = gambar.GetPixel(x + 1, y + 1).R 'mengambil nilai R pixel(x+1,y+1) pada gambar'
              g2 = gambar.GetPixel(x + 1, y + 1).G 'mengambil nilai G pixel(x+1,y+1) pada gambar'
              b2 = gambar.GetPixel(x + 1, y + 1).B 'mengambil nilai B pixel(x+1,y+1) pada gambar'

              r3 = r1 + 0.5 * (r1 - r2) 'mencari nilai sharpen wana R dengan rumus '
              g3 = g1 + 0.5 * (g1 - g2) 'mencari nilai sharpen wana G dengan rumus '
              b3 = b1 + 0.5 * (b1 - b2) 'mencari nilai sharpen wana B dengan rumus '

             'normalisai batas atas'
             If r3 > 255 Then r3 = 255
             If g3 > 255 Then g3 = 255
             If b3 > 255 Then b3 = 255
             'normalisai batas bawah'
             If r3 < 0 Then r3 = 0
             If g3 < 0 Then g3 = 0
             If b3 < 0 Then b3 = 0

            gambar.SetPixel(x, y, Color.FromArgb(r3, g3, b3)) 'menaruh nilai sharpen pada gambar'

        Next
        ProgressBar1.Increment(1)
Next
PictureBox2.Refresh()

Untuk Hasil Dari Aplikasi Tersebut akan sepeti ini :

Aplikasi sudah selesai dibuat, silakan di coba. jika ingin langsung mendownload aplikasi sharpen dengan visual basic silahkan klik disini[TusFiles]
Sekian pembahasan ini di buat semoga bermanfaat. Terima kasih dan Salam Sukses

Tweet