Cara Membuat Program Penggajian dengan Visual Basic 6.0

Cara Membuat Program Penggajian dengan Visual Basic 6.0 - Selamat siang dan selamat bersantap makan siang untuk untuk sobat semua, kali ini Saya akan membuat program penggajian sederhana, untuk sementara tanpa menggunakan Database.

Untuk memudahkan proses pembayaran gaji karyawan diperlukan suatu program yang dapat menginput proses pembayaran gaji. Biasanya perusahaan besar sampai menengah sudah mempunyai program tersebut, baik itu yang dibuat oleh sang programer atau dengan yang berbayar. Dengan adanya program penggajian akan lebih mudah untuk menghitung gaji, dari pada harus menghitung manual yang tentu saja sangat merepotkan.Bayangkan seandainya jumlah karyawannya sangat banyak tentu ini sangat merugikan perusahaan

Ok langsung saja kita ceritakan dulu jalannya program ini :

1. Operator akan memilih NIP karyawan pada Combobox maka secara otomatis nama, jabatan, gaji pokok, tunjangan Transport, tunjangan jabatan dan tunjangan makan terisi otomatis ketika operator      mimilih NIP Karyawan
2. Tunjangan jabatan diberikan apabila jabatannya Manager dan Direktur selain itu karyawan tidak diberikan  alias nol (0)

3  Lalu kursor akan berpindah ke kolom Absen: Alpa, Sakit dan izin. Apabila ada Alpa maka, tunjangan traspot dan makan akan di kurangi sebanyak alpanya

4. Setelah mengisi absen kursor akan berpindah ke jumlah lembur, ketika diisi jumlah lembur maka gaji lembur akan otomatis terisi

5. Dan kursor akan fokus potongan isi jumlah potongan bila ada, jika ada potongan maka akan di kurangi .Tekan tombol Hitung maka Gaji Bersih akan munculItulah sekilas jalanya program yang kita akan buat nanti.Bagi Anda yang penasaran bagaimana cara membuatnya mari kita simak baik-baik langkah-langkah berikut dibawah ini

Ok, sekarang kita fokus ke cara membuatnya

1.Sekarang buatlah form persis seperti Gambar di bawah ini kalau tidak seperti gambar dibawah ini program tidak akan jalan normal. Tanamkan di dalam form yang terdiri dari COMBOBOX , TEXBOXT, FRAME, COMMANDBUTTON dan LABEL. Susunlah persis seperti gambar dibawah ini (maaf susunan textbox berantakan ikuti ajah)

2. Kalu sudah  sama seperti Gambar diatas Copy kode dibawah ini di jendela kode di bagian General dan Declaration :

Dim gator As Double
Dim gaber As Double

Private Sub Combo1_Click()
'input nama karyawan berdasarkan no.NIP

If Combo1 = "101" Then
Text2.Text = "Nurrohman"
Text3.Text = "Karyawan"
End If
If Combo1 = "102" Then
Text2.Text = "Bejo"
Text3.Text = "Karyawan"
End If
If Combo1 = "103" Then
Text2.Text = "Aang Nurjaman"
Text3.Text = "Manager"
End If
If Combo1 = "104" Then
Text2.Text = "Agus Septiadi"
Text3.Text = "Direktur"
End If

'input gaji pokok berdasarkan jabatan
If Text3.Text = "Karyawan" Then
Text5.Text = 1500000
End If

If Text3.Text = "Direktur" Then
Text5.Text = 3000000
End If

If Text3.Text = "Manager" Then
Text5.Text = 2000000
End If

'input tunjangan jabatan berdasarkan jabatan
If Text3.Text = "Karyawan" Then
Text8.Text = 0
End If

If Text3.Text = "Manager" Then
Text8.Text = 200000

End If
If Text3.Text = "Direktur" Then
Text8.Text = 500000
End If

'input tunjangan trasport dan makan masin-masing 70% dan 30% dari gaji pokok
Text6.Text = Val(Text5.Text) * 70 / 100
Text7.Text = Val(Text5.Text) * 30 / 100
Text4.SetFocus
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
'input nama karyawan berdasarkan no.NIP
If KeyAscii = 13 Then
If Combo1 = "101" Then
Text2.Text = "Nurrohman"
Text3.Text = "Karyawan"
End If
If Combo1 = "102" Then
Text2.Text = "Bejo"
Text3.Text = "Karyawan"
End If
If Combo1 = "103" Then
Text2.Text = "Aang Nurjaman"
Text3.Text = "Manager"
End If
If Combo1 = "104" Then
Text2.Text = "Agus Septiadi"
Text3.Text = "Direktur"
End If

'input gaji pokok berdasarkan jabatan
If Text3.Text = "Karyawan" Then
Text5.Text = 1500000
End If

If Text3.Text = "Direktur" Then
Text5.Text = 3000000
End If

If Text3.Text = "Manager" Then
Text5.Text = 2000000
End If

'input tunjangan jabatan berdasarkan jabatan
If Text3.Text = "Karyawan" Then
Text8.Text = 0
End If

If Text3.Text = "Manager" Then
Text8.Text = 200000

End If
If Text3.Text = "Direktur" Then
Text8.Text = 500000
End If

'input tunjangan trasport dan makan masin-masing 70% dan 30% dari gaji pokok
Text6.Text = Val(Text5.Text) * 70 / 100
Text7.Text = Val(Text5.Text) * 30 / 100
Text4.SetFocus
Else
End If


End Sub


Private Sub Command1_Click()
If Text1.Text = "" Or Text1.Text = 0 Then
gator = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text10.Text) - Val(Text11.Text)
Text12.Text = Format(gator, "Rp ###,###,###")
Else
Dim tunjangantransportD As Double
Dim tunjanganmakanD As Double
Dim tunjangantransportM As Double
Dim tunjanganmakanM As Double
Dim tunjangantransportK As Double
Dim tunjanganmakanK As Double
If Text3.Text = "Direktur" Then
tunjangantransportD = Val(Text6.Text) - Val(Text1.Text * 100000)
tunjanganmakanD = Val(Text7.Text) - Val(Text1.Text * 100000)
Text6.Text = tunjangantransportD
Text7.Text = tunjanganmakanD
Text15.Text = Val(Text1.Text) * 200000
End If
If Text3.Text = "Manager" Then
tunjangantransportM = Val(Text6.Text) - Val(Text1.Text * 90000)
tunjanganmakanM = Val(Text7.Text) - Val(Text1.Text * 90000)
Text6.Text = tunjangantransportM
Text7.Text = tunjanganmakanM
Text15.Text = Val(Text1.Text) * 180000
End If
If Text3.Text = "Karyawan" Then
tunjangantransportK = Val(Text6.Text) - Val(Text1.Text * 75000)
tunjanganmakanK = Val(Text7.Text) - Val(Text1.Text * 75000)
Text6.Text = tunjangantransportK
Text7.Text = tunjanganmakanK
Text15.Text = Val(Text1.Text) * 150000
End If
gator = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text10.Text) - Val(Text11.Text)
End If
Label17.Caption = "Potongan Alpa " + Text1.Text + " Hari"
Text12.Text = Format(gator, "Rp ###,###,###")
Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub

Private Sub Command2_Click()
'membersihkan transaksi

Text1.Text = 0
Text2.Text = ""
Text3.Text = ""
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text7.Text = 0
Text8.Text = 0
Text9.Text = 0
Text10.Text = 0
Text11.Text = 0
Text12.Text = ""
Text13.Text = 0
Text14.Text = 0
Text15.Text = 0
Combo1.SetFocus
Command2.Enabled = False
End Sub

Private Sub Form_Activate()
'saat diload kursor berada di combobox
Command1.Enabled = False
Command2.Enabled = False
Combo1.SetFocus
End Sub

Private Sub Form_Load()
'menambah item NIP
Combo1.AddItem "101"
Combo1.AddItem "102"
Combo1.AddItem "103"
Combo1.AddItem "104"

'mengosongkan textbox
Text1.Text = 0
Text2.Text = ""
Text3.Text = ""
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text7.Text = 0
Text8.Text = 0
Text9.Text = 0
Text10.Text = 0
Text11.Text = 0
Text12.Text = ""
Text13.Text = 0
Text14.Text = 0
Text15.Text = 0
End Sub

Private Sub Text1_Click()
Text1.Locked = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text = "" And Text3.Text = "" Then
MsgBox "Data belum di input", vbOKOnly, "Perhatian"
Combo1.SetFocus
Text1.Text = 0
Text2.Text = ""
Text3.Text = ""
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text7.Text = 0
Text8.Text = 0
Text9.Text = 0
Text10.Text = 0
Text11.Text = 0
Text12.Text = ""
Text13.Text = 0
Text14.Text = 0
Text15.Text = 0
Else

Command1.Enabled = True
Command1.SetFocus
End If
End If

End Sub

Private Sub Text13_Click()
Text13.Locked = False
End Sub

Private Sub Text14_Click()
Text4.Locked = False

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

Private Sub Text9_Change()
'gaji lembur perjam berdasarkan jabatan di kali jumlah jem lembur
If Text3.Text = "Direktur" Then
Text10.Text = Val(Text9.Text) * 30000
End If
If Text3.Text = "Manager" Then
Text10.Text = Val(Text9.Text) * 25000
End If
If Text3.Text = "Karyawan" Then
Text10.Text = Val(Text9.Text) * 20000
End If
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text = "" And Text3.Text = "" Then
MsgBox "Data belum di input", vbOKOnly, "Perhatian"
Else
Text11.SetFocus
End If
End If
End Sub

3.Simpan hasil pekerjaan Anda dan jalankan program dengan F5.

Sekarang coba Anda isi sesuai dengan jalannya program tadi yang sudah di ilustrasikan.SEkali lagi program ini tidak menggunakan Database jadi jangan harap Anda bisa menyimpannya di database Anda, kecuali memang Anda membuatnya dengan koneksi database.
Program ini di tujukan hanya untuk sekedar gambaran bagaimana nanti program ini bisa dibuat dengan menggunakan Database.

Nanti kita lanjutkan bagai menghubungkannya ke database tapi sebelumnya Anda harus mempelajari bagaimana membuat Database dan tabel silahkan pelajari cara membuat tabel dan Database kemudian kita akan relasikan antar tabel tersebut.

Demikina tip cara Cara Membuat Program Penggajian dengan Visual Basic 6.0. Semoga bermanfaat,selamat mencoba semog bisa.

Related Post: Aplikasi sederhana