Aplikasi Gambar Pengolahan Citra Menggunakan VB Net

Berikut contoh program aplikasi untuk melakukan pengolahan citra :

1. Citra Grayscale
2. Citra Negatif
3. Citra Brigthness
4. Citra Biner
5. Citra Rotate 180 Derajat

Dilengkapi dengan menu Open dan Save citra yang akan dan telah di olah. 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)

OpenFileDialog = name dirubah menjadi OFD

SaveFileDialog = name dirubah menjadi SFD

Listing Program

Public Class Form1
    Dim gambar As Bitmap

    Private Sub OFD_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 SFD_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 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

    Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.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 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 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 DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
    End Sub
End Class

Hasil Program

• Citra Grayscale

• Citra Negatif

• Citra Brigthness

• Citra Biner

• Citra Rotate 180 Derajat

Data Asli Klik Disini

By : Cut Iswahyuni

Sifat/Kepribadian Lewat Bentuk Bibir

Bibir tak sekedar penanda sensualitas. Apa kata bibir tentang kepribadian Anda?

Bibir tak sekedar penanda sensualitas. Di baliknya bentuknya yang seksi, bibir ternyata dapat berbicara banyak tentang karakter pemiliknya. Ingin tahu apa yang bentuk bibir Anda katakan?

1. Bibir penuh

Anda yang memiliki bentuk bibir penuh lekuk dan seksi seperti Angelina Jolie dan Scarlett Johanson memiliki sifat yang berani dan percaya diri. Keindahan Anda terlihat dari bentuk bibir yang simentris. Hal ini membuat Anda percaya diri dan selalu merasa cantik.

Untuk dapat memamerkan kecantikannya, pastikan bibir Anda lembab dengan selalu menggunakan lip balm. Karena bibir Anda penuh, jangan terlalu banyak menggunakan lipstik. Berilah sedikit warna sehingga tidak berlebihan.

2. Bibir lebar

Anda memiliki bibir lebar seperti Julia Roberts dan Anne Hathaway. Anda adalah orang yang berbahagia dan memiliki banyak teman dengan berbagai minat yang berbeda. Sebagai seorang yang perfeksionis, Anda sangat sukses dan berbakat, serta mandiri dalam menentukan nasib hidup Anda.

Untuk menjaga keindahannya, gunakan pensil bibir dan tarik garis alami bibir dari tengah bibir ke ujung, lalu gunakan lip balm dan lipstik warna netral yang tidak mengkilap.

3. Bibir bulat

Wanita dengan bibir bulat seperti Rachel Bilson dan Drew Barrymore tertarik untuk lebih mengeksplorasi sesuatu, pemberontak, dan genit. Orang-orang akan sangat mudah tertarik pada Anda karena padu padan pesona dari kelincahan dan daya tarik seksual Anda.

Tetap jaga daya tarik seksual Anda dari keindahan bibir. Selalu jaga bibir untuk selalu mengkilap dnegan menggunakan lip gloss. Jika Anda ingin memperpanjang bentuk alami bibir Anda, gunakan pensil bibir pada sudut luar bibir Anda.

4. Bibir tipis

Wanita dengan bibir tipis seperti Gwyneth Paltrow dan Kate Hudson cenderung memiliki sifat intuitif, sensitif dan detail oriented. Anda memiliki hati yang baik, tetapi pemalu dan pendiam. Anda harus tetap menjaga kilap pada bibir Anda untuk menonjolkan apa yang Anda miliki dan untuk mengimbangi wajah Anda. Gunakan lip gloss agar bibir terlihat lebih gemuk.

5. Bibir berbentuk hati

Anda yang memiliki bibir berbentuk hati seperti Hayden Panettiere dan Reese Witherspoon adalah orang yang independen, menggoda dan ekspresif. Ini menunjukkan bahwa Anda tidak takut untuk mengambil resiko dalam hidup dan menikmati hal yang Anda lakukan. Anda tetap terlihat elegan, dan tidak takut untuk berbicara apa yang ada di pikiran Anda, serta bertanggung jawab atas nasib Anda sendiri.

Anda bisa menggunakan warna lipstik apapun, dari nuansa lembut hingga warna-warna berani. Oleskan lip gloss untuk melengkapi penampilan Anda.

6. Bibir bawah lebih berisi

Wanita dengan bibir bawah berbentuk seperti Renee Zellweger dan Natalie Portman adalah pribadi yang independen dan misterius. Orang-orang melihat Anda sebagai ornag yang eksotis dan cerdas. Secara natural Anda sangat menarik, tetapi Anda juga orang yang memilih.

Warna netral adalah warna terbaik untuk bibir Anda. Gunakan pensil bibir warna netral untuk mengisi keseluruhan bibir, lalu gunakan lipstik sheer di atasnya untuk riasan yang brilian.

Sumber : http://pemulihanjiwa.com/baca-kepribadian-lewat-bentuk-bibir.html

By : Cut Iswahyuni

Contoh Soal Beserta Jawaban Metode Eliminasi Gauss 3 Dan 4 Variabel

20 Contoh soal dan beserta jawaban tentang Metode Eliminsi Gauss



Klik Disini Untuk Mendapatkan link contoh soal beserta jawabannya :')) dan kirim pesan ke facebook tersebut :D
By : Cut Iswahyuni

Contoh Soal Beserta Jawaban Metode Segitiga LU 3 Variabel

20 Contoh dari Metode Segitiga LU



Klik Disini Untuk Mendapatkan link contoh soal beserta jawabannya :')) dan kirim pesan ke facebook tersebut :D
By : Cut Iswahyuni

Contoh Membuat Database Produksi Menggunakan Mysql

• Langkah - langkah sebagai berikut:
• Lihat gambar dibawah ini!!!

Seelamat Belajar :))

By : Cut Iswahyuni

Program Input Harga Photo Copy Menggunakan Vb.net

Soal :
PROGRAM INPUT HARGA FOTO COPY
___________________________________
Jumlah Lembar    : 999
Harga per lembar: 999
Total Harga    : 999999    
Discount   : 9999999
Pembayaran : 9999999

Proses    

Jika Jumlah lembar >= 200  HpL = 90 atau HpL = 100
Total Harga = HPL * Jumlah
Jika total harga >500000 discount 15%
Pembayaran = total harga - discount

HpL = Harga per Lembar

PENYELESAIAN

• Desain Form

• Listing Program

Public Class Form2

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

        If JlhLembar.Text >= 200 Then

            HPL.Text = 90

        Else

            HPL.Text = 100

        End If

        Totalharga.Text = hpl.Text * jlhlembar.Text

        If Totalharga.Text > 500000 Then

            Diskon.Text = 0.15 * Totalharga.Text

        Else

            Diskon.Text = 0

        End If

        Pembayaran.Text = Totalharga.Text - Diskon.Text

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        JlhLembar.Text = ""

        HPL.Text = ""

        Totalharga.Text = ""

        Diskon.Text = ""

        Pembayaran.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

• Masukkan Jumlah Lembar 999, Maka hasilnya seperti gambar dibawah ini!!!

By : Cut Iswahyuni

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

Selesaikanlah Kasus Berikut ini : JUDUL SOAL ANDA DAN DI LINK KE POSTINGAN SOAL

Berikut jawabannya terlihat seperti dibawah ini: 

Public Class Form1

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

        isitabel()

        No.Text = ""

        Kode.Text = ""

        Nama.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = No.Text

        lst.SubItems.Add(Kode.Text)

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(Merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jumlah.Text)

        lst.SubItems.Add(Total.Text)

        LV.Items.Add(lst)

    End Sub

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

        BuatTabel()

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Sub BuatTabel()

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

        LV.Columns.Add("Kode Barang", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)

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

        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String

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

        Select Case x

            Case "TS" : Merk.Text = "Toshiba"

            Case "VG" : Merk.Text = "V-Gen"

        End Select

        Dim x2 As String

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

        If x = "TS" And x2 = "001" Then

            Harga.Text = "105000"

        ElseIf x = "TS" And x2 = "002" Then

            Harga.Text = "75000"

        ElseIf x = "VG" And x2 = "001" Then

            Harga.Text = "90000"

        ElseIf x = "VG" And x2 = "002" Then

            Harga.Text = "60000"

        End If

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

        Select Case x

            Case "001" : Nama.Text = "Flashdisk 4 GB"

            Case "002" : Nama.Text = "Flashdisk 2 GB"

        End Select

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Total.Text = Harga.Text * Jumlah.Text

            Total.Enabled = False

            Total.BackColor = Color.Cyan

        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        No.Text = ""

        Kode.Text = ""

        Nama.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusDataPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataPilih.Click

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

    End Sub

End Class

Hasil Program

Demikianlah postingan saya Nama : Iswahyuni NPM : 1111706

Selamat Belajar Pemrograman VB Net