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

PUISI BUAT IBU TERCINTA

Ibu

Kau kuat menanggung beban kandunganmu

Selama Sembilan bulan….

Ibu

Kau selalu sabar membiarkanku berada disana

Hingga proses kelahiran diriku….

Ibu

Kau saksi betapa sakitnya persalinanmu

Batas tipis hidup mati yang kau pertaruhkan hanya untukku….

Ibu

Saat tangis mungilku terdendangkan

Berderai tangis harumu yang beriringin dengan senyum kebahagiaan….

Ibu

Bayi itu kau selimutin dengan kasih saying

Dengan perasaan tulus dan tak terbantahkan…..

Ibu

Kau saksi pertama aku berceloteh mungil

Saksi pertama langkah-langkah kecil ku…..

Ibu

Caramu indah dalam membesarkan ku

Meski harus menempuh lika-liku kehidupan…..

Ibu

Saat aku dewasa nanti

Tak ingin diriku menjadi saksi beribu-ribu pilumu….

Ibu

Aku ingin kau senantiasa bahagia

Meski dalam sahaja….

Bersama suami tercinta mu

Yang biasa kusapa ayah…

Ibu

Aku sangat saying kepadamu ibu

Aku ucapakan untukmu

‘Selamat Hari Ibu’

 "I LOVE YOU IBU"

BY;MANDA IRWANSYAH 

manda.1rwansyah@yahoo.com