vespa sprint 77

Cara Membuat Pengolahan Citra Didalam Menu Dengan Menggunakan Visual Basic.Net 2008

              # Keterangan :

1)      Form 1 (Form Login)

2)      Form 2 (Form Menu)

3)      Form 3 (Form Pengolahan Citra)

Baiklah Sobat Saya Sekalian Langsung Saja Kita Membuat Form Login  Dengan Mendisain Form Seperti Gambar Di Bawah Ini :

# Listing Program :

1). Klik  Double Bebas Pada Form Dan Isikan Printah

Public Class Form1

    Private Sub Form2_Load(Byval Sender As System.Object, Byval E As System.Eventargs) Handles Mybase.Load

        Password.Passwordchar = "*"

    End Sub

 2) Klik Double Pada Button Ok Dan Isikan Printah

Private Sub Button2_Click(Byval Sender As System.Object, Byval E As System.Eventargs) Handles Button2.Click

        If User.Text = "" Or Password.Text = "" Then

            Msgbox("Maaf, Username Dan Password Belum Di Input!!")

            User.Focus()

        Elseif User.Text = "irwan" And Password.Text = "12345" Then

            Msgbox("Welcome To Menu Utama :-)")

            Form2.Show()

            Me.Hide()

        Else

            Msgbox("Maaf, Username Dan Password Salah!")

            User.Text = ""

            Password.Text = ""

            User.Focus()

        End If

    End Sub

3)Klik Double Pada Textbox Password Untuk Menggunakan Keypress

Caranya Dengan Mengubah Textchanged Menjadi Keypress,Dan Isikan Printah

Private Sub Password_Keypress(Byval Sender As Object, Byval E As System.Windows.Forms.Keypresseventargs) Handles Password.Keypress

        If Asc(E.Keychar) = 13 Then

            If User.Text = "irwan" And Password.Text = "12345" Then

                Msgbox("Welcome :-)")

                Form3.Show()

                Me.Hide()

            Else

                Msgbox("Sorry :-( Password And Username No Valid Tryagain!!")

                User.Text = ""

                Password.Text = ""

            End If

        End If

    End Sub

1)  Klik Double Pada Button Keluar Isikan Printah

Private Sub Button1_Click(Byval Sender As System.Object, Byval E As System.Eventargs) Handles Button1.Click

        Me.Close()

    End Sub

End Class

 Selanjutnya Sobat Membuat Form Menu Dengan Gambar Di Bawah Ini :

# Listing Program :

1). Membuat Menu File Kita Harus Menambahkan Menustrip Pada Kotak Toolbox

Dan Isikan Kolom

1)      File

2)      Pegolahan Citra

3)      Keluar

Lebih Jelas Lihat Gambar Di Bawah Ini :

2) Selanjutnya Klik Double Menu Pencitraan Dan Isikan Printah

Public Class Form2

    Private Sub Pencitraantoolstripmenuitem_Click(Byval Sender As System.Object, Byval E As System.Eventargs) Handles Pencitraantoolstripmenuitem.Click

        Form3.Mdiparent = Me

        Form3.Show()

    End Sub

1)      Selanjutnya Klik Double Menu Keluar Dan Isikan Printah

Private Sub Keluartoolstripmenuitem_Click(Byval Sender As System.Object, Byval E As System.Eventargs) Handles Keluartoolstripmenuitem.Click

        End

    End Sub

End Class

Setelah Selesai Mendisain Kedua Form Tersebut Dan Yang Terahir Kita Membuat Form Pengolahan Citra Seperti Gambar Di Bawah Ini :

http://mandairwansyahblogspot.com

penggajian pegawai

tampilan awal

Program vb net:

Public Class Form1

  

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

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")

        jabatan.Items.Add("STAFF")

        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        jumlah_anak.Items.Add("0")

        jumlah_anak.Items.Add("1")

        jumlah_anak.Items.Add("2")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "PM010"

                nama.Text = "irwansyah"

            Case "PS111"

                nama.Text = "awal"

            Case "KU101"

                nama.Text = "Ria Hartati"

            Case "GD100"

                nama.Text = "fitri ariska"

            Case Else

                nama.Text = "Selamat Bangun"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Left(nik.Text, 2)

        If j = "PM" Then

            bagian.Text = "Pemasaran"

        ElseIf j = "PS" Then

            bagian.Text = "Personalia"

        ElseIf j = "KU" Then

            bagian.Text = "Keuangan"

        ElseIf j = "GD" Then

            bagian.Text = "Gudang"

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "KEPALA DIVISI"

                gaji.Text = "5000000"

            Case "STAFF"

                gaji.Text = "2000000"

            Case Else

                gaji.Text = "3500000"

        End Select

        pajak.Text = gaji.Text * 0.1

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah"

                tunjangan_keluarga.Text = gaji.Text * 0.15

            Case "Tidak Menikah"

                jumlah_anak.Text = ""

                tunjangan_keluarga.Text = 0

        End Select

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Select Case jumlah_anak.Text

                Case "0"

                    tunjangan_anak.Text = 0

                Case "1"

                    tunjangan_anak.Text = gaji.Text * 0.05

                Case "2"

                    tunjangan_anak.Text = gaji.Text * 0.1

                Case Else

                    tunjangan_anak.Text = gaji.Text * 0.5

            End Select

        End If

        total.Text = (gaji.Text) + Val(tunjangan_anak.Text) + Val(tunjangan_keluarga.Text) - pajak.Text

        total.Enabled = False

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

       

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        nama.Text = ""

        nik.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        tunjangan_anak.Text = ""

        tunjangan_keluarga.Text = ""

        pajak.Text = ""

        status.Text = ""

        gaji.Text = ""

        total.Text = ""

        jumlah_anak.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim tanya As String

        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)

        If tanya = vbCancel Then

            Me.Close()

        ElseIf tanya = vbNo Then

            Me.Focus()

        ElseIf tanya = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

Tampilan akhir:

mandairwansyah.bloghspot.com