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 Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.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 Sub SaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCitraToolStripMenuItem.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 Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim Rt, vM, vH, vB As Double

        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 Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.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 Sub BrigtnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigtnessToolStripMenuItem.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 Then vB = 255

                    If vH > 255 Then vH = 255

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

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

        gambar = New Bitmap(Pic1.Image)

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim rata, vM, vH, vB As Double

        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 Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.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 To 0 Step -1

                For Pc = .Width - 1 To 0 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

Langganan: Entri (Atom)

Google+ Badge

Share It

Powered by Translate

Cantika Al Fitrah Sianturi

Read More

GAJI PEGAWAI PT. TELKOM

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        golongan.Items.Add("III A")

        golongan.Items.Add("III B")

        golongan.Items.Add("III C")

    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "III A" Then

            gaji.Text = "1500000"

        ElseIf golongan.Text = "III B" Then

            gaji.Text = "2500000"

        Else

            gaji.Text = "3500000"

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        pajak.Text = 0.015 * gaji.Text

        gajibersih.Text = gaji.Text - pinjaman.Text - pajak.Text

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        nama.Text = ""

        golongan.Text = ""

        gaji.Text = ""

        pajak.Text = ""

        pinjaman.Text = ""

        gajibersih.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Nama : Kardi Hartono NPM : ( 1111408 )

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Public Class Form1

    Private Sub Kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.TextChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 3)

        If x = "PAB" Then

            Tipe.Text = "Pabrik"

        ElseIf x = "SWA" Then

            Tipe.Text = "Swalayan"

        ElseIf x = "TOK" Then

            Tipe.Text = "Toko"

        ElseIf x = "SWA" Then

            Tipe.Text = "Swalayan"

        ElseIf x = "RUM" Then

            Tipe.Text = "Rumah"

        End If

        Dim x2 As String

        x2 = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)

        If x2 = "MED" Then

            Daerah.Text = "Medan"

        ElseIf x2 = "MAR" Then

            Daerah.Text = "Marelan"

        ElseIf x2 = "BEL" Then

            Daerah.Text = "Belawan"

        ElseIf x2 = "BIN" Then

            Daerah.Text = "Binjai"

        ElseIf x2 = "PAK" Then

            Daerah.Text = "Lubuk Pakam"

        ElseIf x2 = "TEM" Then

            Daerah.Text = "Aksara"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(Kode.Text, 3)

    End Sub

    Private Sub Tipe_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.TextChanged

        If Tipe.Text = "Toko" Then

            Biayabeban.Text = 150000

            Hargaperkw.Text = 500

        ElseIf Tipe.Text = "Rumah" Then

            Biayabeban.Text = 50000

            Hargaperkw.Text = 200

        ElseIf Tipe.Text = "Swalayan" Then

            Biayabeban.Text = 400000

            Hargaperkw.Text = 1500

        Else

            Biayabeban.Text = 1000000

            Hargaperkw.Text = 10000

        End If

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        Selisih.Text = Val(Bulansekarang.Text) - Val(Bulanlalu.Text)

        Total.Text = Val(Biayabeban.Text) + Val(Hargaperkw.Text * Selisih.Text)

        Pajak.Text = Val(Total.Text * 0.015)

        Totalyangdibayar.Text = Val(Total.Text) + Val(Pajak.Text)

       

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnhapusdataygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdataygdipilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

     Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Kode.Text = ""

        Tipe.Text = ""

        Daerah.Text = ""

        nourut.Text = ""

        Biayabeban.Text = ""

        Hargaperkw.Text = ""

        Bulanlalu.Text = ""

        Bulansekarang.Text = ""

        Selisih.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Totalyangdibayar.Text = ""

    End Sub

    Sub buattable()

        LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Tipe", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)

        LV.Columns.Add("No Urut", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Harga/Kw", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Bulan Lalu", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Bulan Sekarang", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Selisih", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Yang Dibayar", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(nourut.Text)

        lst.SubItems.Add(Biayabeban.Text)

        lst.SubItems.Add(Hargaperkw.Text)

        lst.SubItems.Add(Bulanlalu.Text)

        lst.SubItems.Add(Bulansekarang.Text)

        lst.SubItems.Add(Selisih.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(Totalyangdibayar.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattable()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitable()

        Kode.Text = ""

        Tipe.Text = ""

        Daerah.Text = ""

        nourut.Text = ""

        Biayabeban.Text = ""

        Hargaperkw.Text = ""

        Bulanlalu.Text = ""

        Bulansekarang.Text = ""

        Selisih.Text = ""

        Total.Text = ""

        Pajak.Text = ""

        Totalyangdibayar.Text = ""

    End Sub

End Class

 Nama : Kardi Hartono NPM ( 1111408 )

Read More