Form Penggajian

Tampilan awal Form penggajian

 

Tampilan setelah diproses

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        golongan.Items.Add("IIIA")
        golongan.Items.Add("IIIB")
        golongan.Items.Add("IIIC")

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text)
    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
        Select Case golongan.Text
            Case "IIIA" : gaji.Text = 1500000
            Case "IIIB" : gaji.Text = 2000000
            Case "IIIC" : gaji.Text = 3500000
        End Select
        pajak.Text = 0.015 * gaji.Text
    End Sub
End Class

By : suheri rizki