Penggajian Karyawan Dengan Visual Basic 2010

Visual Basic - Assalamualaikum agan2 semua, okey gan kali ni ane mau post tentang Penggajian Karyawan dengan VB 2010. langsung aja gan Ke Je Dot :D

Oke gan langsung aja ke step by step nya
1. Desain form sperti berikut

 2. Saya anggap agan semua uda ngerti yang dibutuhin n yang ada di Form hehe
     Sekarang kita tuliskan Script di bawah ini

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 = "Awal"
            Case "PS111"
                nama.Text = "Satria"
            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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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

    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 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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

End Class

3. Dan Hasilnya Sbb :

Oke gan segitu aja dulu hehe
maap kalo ada salah atau error, karna saya juga newbie hehe