Program Hitung Gaji

Jika anda sedang berupaya membuat sebuah aplikasi untuk menghitung total gaji seorang pegawai silahkan coba menggunakan di bawah ini. Namun contoh kasus dibatasi dengan ketentuan sebagai berikut:

- Gaji pokok yang diberikan disesuaikan dengan golongannya
- Tunjangan jabatan diberikan berdasarkan golongannya
- Tunjangan anak diberikan sesuai dengan jumlah anak yang dimilikinya, dimana masing-masing  anak menerima Rp. 100.000

Berikut ini urutan gaji pokok dan tunjangan jabatan berdasarkan golongan pegawai:

Golongan 2A, gaji pokok = Rp.800000 dan tunjangan jabatan = Rp. 100.000
Golongan 2B, gaji pokok = Rp.825000 dan tunjangan jabatan = Rp. 125.000
Golongan 2C, gaji pokok = Rp.850000 dan tunjangan jabatan = Rp. 150.000
Golongan 2D, gaji pokok = Rp.900000 dan tunjangan jabatan = Rp. 200.000
Golongan 3A, gaji pokok = Rp.1000000 dan tunjangan jabatan = Rp. 250.000
Golongan 3B, gaji pokok = Rp.1050000 dan tunjangan jabatan = Rp. 275.000
Golongan 3C, gaji pokok = Rp.1100000 dan tunjangan jabatan = Rp. 300.000
Golongan 3D, gaji pokok = Rp.1150000 dan tunjangan jabatan = Rp. 325.000
Golongan 4A, gaji pokok = Rp.1500000 dan tunjangan jabatan = Rp. 500.000
Golongan 4B, gaji pokok = Rp.1600000 dan tunjangan jabatan = Rp. 525.000
Golongan 4C, gaji pokok = Rp.1700000 dan tunjangan jabatan = Rp. 550.000
Golongan 4D, gaji pokok = Rp.1800000 dan tunjangan jabatan = Rp. 600.000

Berikut ini adalah source code-nya.
****************************

Private Sub Form_Load()
    Combo1.AddItem "2A"
    Combo1.AddItem "2B"
    Combo1.AddItem "2C"
    Combo1.AddItem "2D"
    Combo1.AddItem "3A"
    Combo1.AddItem "3B"
    Combo1.AddItem "3C"
    Combo1.AddItem "3D"
    Combo1.AddItem "4A"
    Combo1.AddItem "4B"
    Combo1.AddItem "4C"
    Combo1.AddItem "4D"
   
    Combo2.AddItem "Belum Menikah"
    Combo2.AddItem "Menikah"
    Combo2.AddItem "Duda"
    Combo2.AddItem "Janda"
End Sub

Private Sub Command1_Click()
    Text1.Text = Clear
    Text2.Text = Clear
    Combo1.ListIndex = -1
    Text3.Text = Clear
    Text4.Text = Clear
    Combo2.ListIndex = -1
    Text5.Text = Clear
    Text6.Text = Clear
    Text7.Text = Clear
    Text1.SetFocus
End Sub

Private Sub Combo1_Click()
    If Combo1.ListIndex = -1 Then
        Text3.Text = 800000
        Text4.Text = 100000
    ElseIf Combo1.ListIndex = 0 Then
        Text3.Text = 825000
        Text4.Text = 125000
    ElseIf Combo1.ListIndex = 1 Then
        Text3.Text = 850000
        Text4.Text = 150000
    ElseIf Combo1.ListIndex = 2 Then
        Text3.Text = 900000
        Text4.Text = 200000
    ElseIf Combo1.ListIndex = 3 Then
        Text3.Text = 1000000
        Text4.Text = 250000
    ElseIf Combo1.ListIndex = 4 Then
        Text3.Text = 1050000
        Text4.Text = 275000
    ElseIf Combo1.ListIndex = 5 Then
        Text3.Text = 1100000
        Text4.Text = 300000
    ElseIf Combo1.ListIndex = 6 Then
        Text3.Text = 1150000
        Text4.Text = 325000
    ElseIf Combo1.ListIndex = 7 Then
        Text3.Text = 1500000
        Text4.Text = 500000
    ElseIf Combo1.ListIndex = 8 Then
        Text3.Text = 1600000
        Text4.Text = 525000
    ElseIf Combo1.ListIndex = 9 Then
        Text3.Text = 1700000
        Text4.Text = 550000
    Else: Combo1.ListIndex = 10
        Text3.Text = 1800000
        Text4.Text = 600000
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Text5_Change()
    Text6.Text = Val(Text5.Text) * 100000
    Text7.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text6.Text)
End Sub

********************************

Inilah hasil rancangan aplikasi tersebut.

You Might Also Like

0 komentar