Program Hitung Gaji
By Surya R. Labetubun - January 15, 2011
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
- 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
********************************
****************************
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.
0 comments