Minggu, 08 Desember 2013

Pembuatan Gaji Pegawai Telkom




Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        id.Items.Add("1761")
        id.Items.Add("1762")
        id.Items.Add("1763")
        id.Items.Add("1764")
        id.Items.Add("1765")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
    End Sub

    Private Sub id_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles id.SelectedIndexChanged
        Select Case id.Text
            Case "1761"
                nama.Text = "Rina Purnama"
            Case "1762"
                nama.Text = "Chandra Pancari"
            Case "1763"
                nama.Text = "Britney Spears"
            Case "1764"
                nama.Text = "Selena Gomez"
            Case "1765"
                nama.Text = "Kristen Stewart"

        End Select
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        Select Case gol.Text
            Case "IIIA"
                gaji.Text = "1500000"
            Case "IIIB"
                gaji.Text = "2500000"
            Case "IIIC"
                gaji.Text = "3500000"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        pajak.Text = 0.15 * gaji.Text
        gaber.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(pajak.Text)
    End Sub
End Class

Tidak ada komentar:

Posting Komentar