Pengolahan Citra Pada Vb.net 2008

Posted by Sabtu, 29 Juni 2013


1. From Login





 Listing Program From Login :


Public Class Form1
  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UserName.Text = ""
        Password.Text = ""
        Password.PasswordChar = "*"
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If UserName.Text = "Syahril" And Password.Text = "123" Then
            MsgBox("Selamat Datang !")
            Me.Hide()
            MenuUtama.Show()
        Else
            MsgBox("Maaf! Username / Password Salah!")
            UserName.Text = ""
            Password.Text = ""
        End If



    End Sub

    Private Sub BtnKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKELUAR.Click
        End
    End Sub
End Class



2. Menu Utama



 




Listing Program Menu Utama :


Public Class MenuUtama


   
    Private Sub MenuUtamaToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuUtamaToolStripMenuItem3.Click
        Gambar.MdiParent = Me
        Gambar.Show()
    End Sub

    Private Sub GambarToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GambarToolStripMenuItem4.Click
        End
    End Sub
End Class



3. Pengolahan Citra

 





 Listing Program Pengolahan Citra :


Public Class Gambar
    Private Sub BtnGrayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGrayscale.Click
        Dim rt, pc, pb As Integer
        Dim vm, vh, vB As Integer
        Dim gambar2 As Bitmap
        Picturebox2.Image = picturebox1.Image
        gambar2 = New Bitmap(Picturebox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vB = gambar2.GetPixel(pc, pb).B
                rt = (vm + vh + vB) / 3
                gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))
            Next
        Next
        Picturebox2.Image = gambar2
        Picturebox2.Refresh()

    End Sub
End Class





Berikut Hasilnya : 




 













 

Kriptografi Caesar pada Vb.net 2008

Posted by




 

NB : untuk mencari karekter Enkripsi ketikan di kolom Plainteks
        untuk mencari karekter Deskripsi ketikan di kolom  Chiperteks


Listing Programnya :
 

Public Class Form1

    Private Sub BtEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click
        Dim jumlah As Double = Len(Plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim bil As Integer
        Dim i As Double
        For i = 1 To jumlah
            x = Mid(Plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Chiperteks.Text = ""
        Plainteks.Text = ""
    End Sub

    Private Sub BtnDiskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDiskripsi.Click
        Dim jumlah As Double = Len(Chiperteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim bil As Integer
        Dim i As Double
        For i = 1 To jumlah
            x = Mid(Chiperteks.Text, i, 1)
            bil = Asc(x) - 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        Plainteks.Text = xkalimat
    End Sub
End Class


Berikut Hasilnya :


 Hasil Gambar untuk Enkripsi


 




 Hasil Gambar untuk Deskripsi



 

Daftar Gaji Pegawai Pada Vb.net 2008

Posted by







 Listing Programnya :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("K1001")
        Nik.Items.Add("K2003")
        Nik.Items.Add("S1001")
        Nik.Items.Add("S2002")
        Nik.Items.Add("S3003")
        Nik.Items.Add("A1001")
        Nik.Items.Add("A2002")
        Nik.Items.Add("A3003")
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Nik.Text, 1)
        Select Case X
            Case "K"
                Bagian.Text = "Keuangan"
                Nama.Text = "Muhammad Syahril"

            Case "A"
                Bagian.Text = "Administrasi"
                Nama.Text = "Rina Miranda"

            Case "S"
                Bagian.Text = "Pengamanan"
                Nama.Text = "Soni sugiarto"
        End Select
        X = Microsoft.VisualBasic.Mid(Nik.Text, 2, 1)
        Select Case X
            Case "1"
                Jabatan.Text = "bedahara"
            Case "2"
                Jabatan.Text = "Serkertaris"
            Case "3"
                Jabatan.Text = "Security"
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Golongan.Text, 4)
        Select Case X
            Case "IIIA"
                Gaji.Text = "2500000"
            Case "IIIB"
                Gaji.Text = "3000000"
            Case "IIIC"
                Gaji.Text = "3500000"
        End Select
    End Sub
End Class


Berikut Hasilnya :