Pengolahan Citra

PENGOLAHAN CITRA

Berikut design aplikasi sederhana pengolahan citra menggunakan VB Net

Tambahkan komponen menustrip (pada toolbox Menus & Toolbar), OpenFileDialog ( pada toolbox Dialog) dan SaveFileDialog (pada toolbox Dialog)

 name dirubah menjadi OFDàOpenFileDialog
 name dirubah menjadi SFDàSaveFileDialog

Isi menu

Listing program pengolahan citra menggunakan VB Net

Public Class Form1

    Dim gambar As Bitmap

    Private SubOpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesOpenCitraToolStripMenuItem.Click

        OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"

        OFD.ShowDialog()

        If OFD.FileName = ""Then Exit Sub

        PIC1.Image = Image.FromFile(OFD.FileName)

        gambar = New Bitmap(PIC1.Image)

    End Sub

    Private SubSaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesSaveCitraToolStripMenuItem.Click

        SFD.Filter = "JPG|*.Jpg|BMP|*.bmp"

        SFD.ShowDialog()

        If SFD.FileName = ""Then Exit Sub

        If SFD.FilterIndex = 1 Then

            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

        End If

        If SFD.FilterIndex = 2 Then

            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

        End If

    End Sub

    Private SubGrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesGrayscaleToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim Rt, vM, vH, vB AsDouble

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R

                    vH = .GetPixel(Pc, Pb).G

                    vB = .GetPixel(Pc, Pb).B

                    Rt = (vM + vH + vB) / 3

                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub

    Private SubNegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesNegatifToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = 255 - .GetPixel(Pc, Pb).R

                    vH = 255 - .GetPixel(Pc, Pb).G

                    vB = 255 - .GetPixel(Pc, Pb).B

                    If vM <= 0 Then vM = 0

                    If vB <= 0 Then vB = 0

                    If vH <= 0 Then vH = 0

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub

    Private SubBrigtnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesBrigtnessToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R + 5

                    vH = .GetPixel(Pc, Pb).G + 5

                    vB = .GetPixel(Pc, Pb).B + 5

                    If vM > 255 Then vM = 255

                    If vB > 255 ThenvB = 255

                    If vH > 255 ThenvH = 255

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub

    Private SubToolStripMenuItem2_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesToolStripMenuItem2.Click

        gambar = New Bitmap(Pic1.Image)

    End Sub

    Private SubKeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesKeluarToolStripMenuItem.Click

        End

    End Sub

    Private SubBinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesBinerToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim rata, vM, vH, vB AsDouble

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R

                    vH = .GetPixel(Pc, Pb).G

                    vB = .GetPixel(Pc, Pb).B

                    rata = (vM + vH + vB) / 3

                    If (rata < 128) Then

                        vM = 0

                        vH = 0

                        vB = 0

                    Else

                        vM = 255

                        vH = 255

                        vB = 255

                    End If

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub

    Private SubRotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesRotateToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim vM, vH, vB As Double

        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)

        With gambar

            For Pb = .Height - 1 To0 Step -1

                For Pc = .Width - 1 To0 Step -1

                    vM = .GetPixel(Pc, Pb).R

                    vH = .GetPixel(Pc, Pb).G

                    vB = .GetPixel(Pc, Pb).B

                    gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar3

                Pic2.Refresh()

            Next

        End With

        gambar = gambar3

    End Sub

End Class

Citra Biner

Citra Negatif
Citra Rotate 180 derajat