Home » » PROGRAM HITUNG GAJI DAN TUNJANGAN KARYAWAN DENGAN VISUAL BASIC 6.0

PROGRAM HITUNG GAJI DAN TUNJANGAN KARYAWAN DENGAN VISUAL BASIC 6.0

By  9:52 AM  
 Assalamualaikum
Kali ini saya mau berbagi tentang pembuatan program hitung gaji dan tunjangan karyawan
langsung saja ya......

Gambar Program :
Jangan Lupa Ubah Terlebih dahulu Pada Name dan Propertiesnya seperti pada program agar tidak terjadi errot..........
Dengan Ketentuan Sebagai berikut :

NIK
KK-001,KS-002, AS-001,AS-002, SK-001, dan SS-001

NAMA tingal di liat aja dalam coding, Saya rasa itu mudah dalam pengisian nama jadi tidak saya cantumkan disini

BAGIAN :
jika Kode pada NIK "K" = Kabag dan JIka Kode"S"=Staf

JABATAN:
jika Kode pada NIK "K"= Keuangan, "S"= Scurity, dan "A"=Administrasi

GAJI Adalah :
Jika jabatan KABAG dan bagian  KEUANGAN maka gaji 4000000
Jika jabatan  STAF dan bagian  KEUANGANmaka gaji 2000000
Jika jabatan KABAG dan bagian  SCURITYmaka gaji 3000000
Jika jabatan KABAG dan bagian  ADMINISTRASImaka gaji 2500000
Jika jabatan STAF dan bagian  SCURITYmaka gaji 1700000


STATUS 
terdapat dua kemungkinan MENIKAH atau BELUM MENIKAH

JUMLAHN ANAK
terdapat 5 kemungkinan: 1 S/d 5

 TUNJANGAN ANAK dengan ketentuan jika karyawan menikah dan mempunyai anak maka tunjangan 0.02% jika tidak maka Tunjangan  0

TUNJANGAN ISTRI dengan ketentuan jika karyawan menikah maka tunjangan 0.15 % jika tidak maka Tunjangan  0

TOTAL GAJI
Yaitu GAJI + TUNJANGAN ANAK + TUNJANGAN ISTRI

NIH Codingnya Yang Pasti di tunggu - tunggu ...


Form Codingnya, untuk mengisi Combo Box pada NIK, STATUS dan JUMLAH ANAK dan untuk menghilangkan tulisan pada label ketika program berjalan

Private Sub Form_Load()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    
End Sub

Coding pada comboNIK  dan pada prosedure CLICK masukkan :

Private Sub CboNIK_Click()

A = Mid(CboNIK, 2, 1)
If A = "S" Then
    Lbjabatan.Caption = "STAF"
Else
    Lbjabatan.Caption = "KABAG"
End If
If CboNIK = "KK-001" Then
lbNAMA.Caption = "PAIJO"
ElseIf CboNIK = "KS-002" Then
lbNAMA.Caption = "MARWOTO"
    ElseIf CboNIK = "AS-001" Then
    lbNAMA.Caption = "MISWANTO"
        ElseIf CboNIK = "AS-002" Then
        lbNAMA.Caption = "KARJIO"
            ElseIf CboNIK = "SK-001" Then
            lbNAMA.Caption = "DARTO "
                Else
                lbNAMA.Caption = "SUGENG"
    End If

b = Left(CboNIK, 1)
If b = "K" Then
lbBagian.Caption = "KEUANGAN"
    ElseIf b = "S" Then
    lbBagian.Caption = "SCURITY"
        Else
        lbBagian.Caption = "ADMINISTRASI"
End If

If Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 4000000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 2000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 3000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "ADMINISTRASI" Then
lbGaji.Caption = 2500000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 1700000
Else
lbGaji.Caption = 1900000
End If

End Sub

Penjelasan:
coding ini merupakan coding untuk mengisi label nama, jabatan, bagian dan gaji,
ketika combo NIK di isi maka akan secara otomatis Nama, Jabatan, Bagian dan Gaji akan terisi.

Pada Tombol Proses Masukan Coding

Private Sub CmdProses_Click()

If CboStatus.Text = "Menikah" Then
LbTunjIstri = 0.15 * lbGaji
Else
LbTunjIstri = 0
End If

If CboJmlAnak >= 3 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.5
ElseIf CboJmlAnak >= 1 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.02 * lbGaji
Else
lbTunjAnak = 0
End If

lbTotalGaji = Val(lbGaji.Caption) + Val(lbTunjAnak.Caption) + Val(LbTunjIstri.Caption)

End Sub

Keterangan:
Coding untuk mengisi tunjangan anak, istri dan total gaji.

pada Tombol Hapus masukkan coding


Private Sub CmdHapus_Click()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    CboNIK.SetFocus

Pada Tombol Keluar Masukkan Coding

Private Sub CmdKeluar_Click()
End
End Sub

Hasilnya 


Nah Bagaimana Mudah Bukan, Sekian Postingan kali ini semoga bermanfaat.. aamiin..
Untuk Coding Secara keseluruhan saya berikan disini

Private Sub CboNIK_Click()

A = Mid(CboNIK, 2, 1)
If A = "S" Then
    Lbjabatan.Caption = "STAF"
Else
    Lbjabatan.Caption = "KABAG"
End If
If CboNIK = "KK-001" Then
lbNAMA.Caption = "PAIJO"
ElseIf CboNIK = "KS-002" Then
lbNAMA.Caption = "MARWOTO"
    ElseIf CboNIK = "AS-001" Then
    lbNAMA.Caption = "MISWANTO"
        ElseIf CboNIK = "AS-002" Then
        lbNAMA.Caption = "KARJIO"
            ElseIf CboNIK = "SK-001" Then
            lbNAMA.Caption = "DARTO "
                Else
                lbNAMA.Caption = "SUGENG"
    End If

b = Left(CboNIK, 1)
If b = "K" Then
lbBagian.Caption = "KEUANGAN"
    ElseIf b = "S" Then
    lbBagian.Caption = "SCURITY"
        Else
        lbBagian.Caption = "ADMINISTRASI"
End If

If Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 4000000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 2000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 3000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "ADMINISTRASI" Then
lbGaji.Caption = 2500000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 1700000
Else
lbGaji.Caption = 1900000
End If

End Sub


Private Sub CmdHapus_Click()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    CboNIK.SetFocus
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdProses_Click()

If CboStatus.Text = "Menikah" Then
LbTunjIstri = 0.15 * lbGaji
Else
LbTunjIstri = 0
End If

If CboJmlAnak >= 3 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0
ElseIf CboJmlAnak >= 1 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.02 * lbGaji
Else
lbTunjAnak = 0
End If

lbTotalGaji = Val(lbGaji.Caption) + Val(lbTunjAnak.Caption) + Val(LbTunjIstri.Caption)

End Sub

Private Sub Form_Load()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    
End Sub




Bagi yang mau Melihat File Contohnya dan ingin merubahnya sesuai dengan yang di mau,
boleh DONLOAD SAJA ini melalui Google Drive: