Contoh Program Gaji

Contoh Source Code:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CMBNOPEG.Items.Add("001")
        CMBNOPEG.Items.Add("002")
        CMBNOPEG.Items.Add("003")
        CMBNOPEG.Items.Add("004")
        CMBNOPEG.Items.Add("005")
        CMBPEKERJAAN.Items.Add("Analyst")
        CMBPEKERJAAN.Items.Add("Designer")
        CMBPEKERJAAN.Items.Add("Admin")
        CMBPEKERJAAN.Items.Add("Manager")
        RTETAP.Checked = True
        CBASURANSI.Checked = False
        CBTUNJANGAN.Checked = False
        TBNAMA.Enabled = False
        CMBPEKERJAAN.Enabled = False
        TBGAJI.Enabled = False
        TBTOTALGAJI.Enabled = False
    End Sub

    Private Sub CMBNOPEG_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMBNOPEG.SelectedIndexChanged
        If CMBNOPEG.Text = "001" Then
            TBNAMA.Text = "Sri"
            CMBPEKERJAAN.Text = "Designer"
            TBGAJI.Text = "3000000"
        ElseIf CMBNOPEG.Text = "002" Then
            TBNAMA.Text = "May"
            CMBPEKERJAAN.Text = "Analyst"
            TBGAJI.Text = "3500000"
        ElseIf CMBNOPEG.Text = "003" Then
            TBNAMA.Text = "Rog"
            CMBPEKERJAAN.Text = "Admin"
            TBGAJI.Text = "4000000"
        ElseIf CMBNOPEG.Text = "004" Then
            TBNAMA.Text = "Jayne"
            CMBPEKERJAAN.Text = "Admin"
            TBGAJI.Text = "4000000"
        ElseIf CMBNOPEG.Text = "005" Then
            TBNAMA.Text = "Bob"
            CMBPEKERJAAN.Text = "Manager"
            TBGAJI.Text = "5000000"
        End If
    End Sub

    Private Sub BTNPRINT_Click(sender As Object, e As EventArgs) Handles BTNPRINT.Click
        LBSLIPGAJI.Items.Clear()
        Dim gaji, biaya As Integer
        gaji = Convert.ToInt32(TBGAJI.Text)
        If RTETAP.Checked Then
            gaji = gaji + (gaji * 10 / 100)
        Else
            gaji = gaji
        End If
        If CBTUNJANGAN.Checked = True Then
            biaya = gaji * 5 / 100
            gaji = gaji + biaya
        End If
        If CBASURANSI.Checked = True Then
            biaya = gaji * 10 / 100
            If biaya >= 400000 Then
                biaya = 400000
            End If
            gaji = gaji - biaya
        End If
        TBTOTALGAJI.Text = Convert.ToString(gaji)
        LBSLIPGAJI.Items.Add("Nama : " + TBNAMA.Text)
        LBSLIPGAJI.Items.Add("Total Gaji : " + TBTOTALGAJI.Text)
    End Sub


    Private Sub BTNEXIT_Click(sender As Object, e As EventArgs) Handles BTNEXIT.Click
        Close()
    End Sub
End Class