VB HitungGajiBersih

 Module HitungGajiBersih

    'Buka HitungGajiBersih.vbproj

    Sub Main()

        Const cnTJ1 = 1000 : Const cnTJ2 = 750

        Const cnTJ3 = 500 : Const cnTJ4 = 250

        Const cnTM1 = 500 : Const cnTM2 = 200

        Const cnTM3 = 100 : Const cnTM4 = 0

        Dim tingkat As Integer, basic As Single, tjn As Single, gross As Single, pajak As Single, net As Single

        tingkat = InputBox("Masuk Tingkat Jbtn: ")

        basic = InputBox("Masukkan Gaji pokok: ")

        Select Case (tingkat)

            Case 1

                tjn = cnTJ1 + cnTM1

            Case 2

                tjn = cnTJ2 + cnTM2

            Case 3

                tjn = cnTJ3 + cnTM3

            Case 4

                tjn = cnTJ4 + cnTM4

            Case Else

                MsgBox("Tidak ada tingkat jabatan yang dipilih", vbCritical, "Pesan")

                Debug.Print("Rincian tidak tersedia utk tingkat: " & tingkat) : GoTo Akhir

        End Select

        gross = basic + tjn

        If (gross <= 2000) Then

            pajak = 0

        ElseIf (gross <= 4000) Then

            pajak = gross * 0.03

        ElseIf (gross <= 5000) Then

            pajak = gross * 0.05

        Else

            pajak = gross * 0.08

        End If

        net = gross - pajak

        Debug.Print("Tingkat Jabatan: " & tingkat)

        Debug.Print("Jumlah Tunjungan terima: " & tjn)

        Debug.Print("Gaji pokok: " & basic)

        Debug.Print("Pajak dikenakan: " & pajak)

        Debug.Print("Gaji bersih sesudah pajak: " & net)

Akhir:

    End Sub

End Module