Latihan Penggajian Pegawai....

     
  Listing Programnya:

Public Class penggajian_pegawai

    Private Sub penggajian_pegawai_Load(...)

        nip.Items.Add("01467")
        nip.Items.Add("01245")

        nip.Items.Add("01356")

        nip.Items.Add("01578")

        nip.Items.Add("01689")

        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IVA")
        gol.Items.Add("IVB")
        status.Items.Add("MENIKAH")
        status.Items.Add("TIDAK MENIKAH")
        jlh_anak.Items.Add("0")
        jlh_anak.Items.Add("1")
        jlh_anak.Items.Add("2")
        jlh_anak.Items.Add("3")
        jlh_anak.Items.Add("4")
    End Sub
Private Sub nip_SelectedIndexChanged(...)
        If nip.Text = "01245" Then
            nama.Text = "Ramayana"
        ElseIf nip.Text = "01356" Then
            nama.Text = "Ramadhani"
        ElseIf nip.Text = "01467" Then
            nama.Text = "Ramasheila"
        ElseIf nip.Text = "01578" Then
            nama.Text = "Ramasyla"
        ElseIf nip.Text = "01689" Then
            nama.Text = "Ramayahya"
        End If
    End Sub
Private Sub gol_SelectedIndexChanged(...)
        If gol.Text = "IIIA" Then
            gapok.Text = 1500000
        ElseIf gol.Text = "IIIB" Then
            gapok.Text = 1750000
        ElseIf gol.Text = "IVA" Then
            gapok.Text = 2500000
        ElseIf gol.Text = "IVB" Then
            gapok.Text = 3000000
        End If
    End Sub
 Private Sub status_SelectedIndexChanged(....)
        tunjkeluarga.Text = 0
        tunjanak.Text = 0
        If status.Text = "MENIKAH" Then
            jlh_anak.Items.Add("0")
            jlh_anak.Items.Add("1")
            jlh_anak.Items.Add("2")
            jlh_anak.Items.Add("3")
            jlh_anak.Items.Add("4")
            tunjkeluarga.Text = "0.2" * gapok.Text
ElseIf status.Text = "TIDAK MENIKAH" Then
            jlh_anak.Items.Add("-")
            tunjanak.Text = 0
            tunjkeluarga.Text = 0
            jlh_anak.Items.Clear()
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
Private Sub Bthapus_Click(....)
        nip.Text = ""
        nama.Text = ""
        gol.Text = ""
        status.Text = ""
        jlh_anak.Text = ""
        gapok.Text = ""
        tunjkeluarga.Text = ""
        tunjanak.Text = ""
        total_gaji.Text = ""
    End Sub
 Private Sub Btkeluar_Click(...)
        End
    End Sub
Private Sub jlh_anak_SelectedIndexChanged(....)
        If jlh_anak.Text = 0 Then
            tunjanak.Text = 0
        ElseIf jlh_anak.Text <= 2 Then
            tunjanak.Text = 150000 * jlh_anak.Text
        ElseIf jlh_anak.Text > 2 Then
            tunjanak.Text = 150000 * 2
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
 Private Sub Btme_Click(.....)
        aku.Show()
    End Sub
End Class