FORM PENGGAJIAN

Public Class Form1
    Sub bersih()
        nip.Text = ""
        nama.Text = ""
        gol.Text = ""
        status.Text = ""
        jlh_anak.Text = ""
        gapok.Text = ""
        tunj_kel.Text = ""
        tunj_anak.Text = ""
        total.Text = ""
    End Sub
    Sub addnip()
        nip.Items.Add("11111034")

        nip.Items.Add("1011038")
        nip.Items.Add("1011070")
        nip.Items.Add("1011015")
    End Sub
    Sub addgol()
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IVA")
        gol.Items.Add("IVB")
    End Sub
    Sub addstatus()
        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
    End Sub
    Sub addanak()
        jlh_anak.Items.Add("0")
        jlh_anak.Items.Add("1")
        jlh_anak.Items.Add("2")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call bersih()
        Call addnip()
        Call addgol()
        Call addstatus()
        Call addanak()
    End Sub
    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "11111034" Then
            nama.Text = "fitri girsang"
        ElseIf nip.Text = "1011038" Then
            nama.Text = "Rahmie Suwarny"
        ElseIf nip.Text = "1011070" Then
            nama.Text = "Bahriani Meiwa"
        Else
            nama.Text = "Dicky Candra"
        End If
    End Sub
    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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
        Else
            gapok.Text = 3000000
        End If
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tunj_kel.Text = 0.2 * gapok.Text
            total.Text = Val(gapok.Text) + Val(tunj_anak.Text) + Val(tunj_kel.Text)
            jlh_anak.Items.Clear()
            jlh_anak.Text = ""
            Dim i As Integer = 0
            For i = 0 To 9
                jlh_anak.Items.Add(i)
            Next
        ElseIf status.Text = "Tidak Menikah" Then
            tunj_kel.Text = 0
            tunj_anak.Text = 0
            total.Text = gapok.Text
            jlh_anak.Items.Clear()
            jlh_anak.Text = 0
        End If
    End Sub
    Private Sub jlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.SelectedIndexChanged
        If jlh_anak.Text = "0" Then
            tunj_anak.Text = 0
        ElseIf jlh_anak.Text = "<=2" Then
            tunj_anak.Text = 150000 * jlh_anak.Text
            total.Text = Val(tunj_anak.Text) + Val(total.Text)
        Else
            tunj_anak.Text = 150000 * 2
            total.Text = Val(tunj_anak.Text) + Val(total.Text)
        End If
    End Sub
    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        Call bersih()
    End Sub
    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub
End Class

Author : Unknown

Share this

Related Posts