Menerima Pesanan
Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.
Promo Terkini
Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain. .
Promo Terbaru
Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.
Promo Saat Ini
Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.
Promo lagi
Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.
PROGRAM HITUNG GAJI DAN TUNJANGAN KARYAWAN DENGAN VISUAL BASIC 6.0
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 :
Kali ini saya mau berbagi tentang pembuatan program hitung gaji dan tunjangan karyawan
langsung saja ya......
Gambar Program :
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:
PROGRAM HITUNG PENJUALAN DALAM VISUAL BASIC
Selamat Malam, kali ini saya mau berbagi mengenai cara membuat program hitung Penjualan sederhana.
Gambar Design Programnya :
Tombol yang kita gunakan adalah :
Label = 12 buah
Combobox = 1 buah
texbox = 1 buah
command button = 3 buah
Sebelum memasukkan coding, Ubah terlebih dahulu pada caption dan name nya, caranya ada pada postingan sebelumnya.
Dan ini Codingnya:
Semoga Bermanfaat.
Gambar Design Programnya :
Tombol yang kita gunakan adalah :
Label = 12 buah
Combobox = 1 buah
texbox = 1 buah
command button = 3 buah
Sebelum memasukkan coding, Ubah terlebih dahulu pada caption dan name nya, caranya ada pada postingan sebelumnya.
Dan ini Codingnya:
Private Sub cbobarang_Click()
x = cbobarang
If x = "MN" Then
Lbnamabarang.Caption = "Monitor"
ElseIf x = "KY" Then
Lbnamabarang.Caption = "Kyboard"
ElseIf x = "MS" Then
Lbnamabarang.Caption = "Mouse"
Else
Lbnamabarang.Caption = "Cooling"
End If
a = cbobarang
If a = "MN" Then
lbhargasatuan.Caption = 800000
ElseIf a = "KY" Then
lbhargasatuan.Caption = 45000
ElseIf a = "MS" Then
lbhargasatuan.Caption = 40000
Else
lbhargasatuan.Caption = 35000
End If
End Sub
Private Sub Command1_Click()
lbtotalharga.Caption = txtjmlbeli.Text * lbhargasatuan
If Lbnamabarang.Caption = "Monitor" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 2 / 100
ElseIf Lbnamabarang.Caption = "Kyboard" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 1 / 100
Else
lbpotonganharga.Caption = lbtotalharga.Caption * 0
End If
lbtotalbayar.Caption = lbtotalharga.Caption - lbpotonganharga.Caption
End Sub
Private Sub Command2_Click()
With cbobarang
.Clear
.AddItem "MN"
.AddItem "KY"
.AddItem "MS"
.AddItem "CL"
End With
txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""
cbobarang.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
With cbobarang
.Clear
.AddItem "MN"
.AddItem "KY"
.AddItem "MS"
.AddItem "CL"
End With
txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""
End Sub
x = cbobarang
If x = "MN" Then
Lbnamabarang.Caption = "Monitor"
ElseIf x = "KY" Then
Lbnamabarang.Caption = "Kyboard"
ElseIf x = "MS" Then
Lbnamabarang.Caption = "Mouse"
Else
Lbnamabarang.Caption = "Cooling"
End If
a = cbobarang
If a = "MN" Then
lbhargasatuan.Caption = 800000
ElseIf a = "KY" Then
lbhargasatuan.Caption = 45000
ElseIf a = "MS" Then
lbhargasatuan.Caption = 40000
Else
lbhargasatuan.Caption = 35000
End If
End Sub
Private Sub Command1_Click()
lbtotalharga.Caption = txtjmlbeli.Text * lbhargasatuan
If Lbnamabarang.Caption = "Monitor" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 2 / 100
ElseIf Lbnamabarang.Caption = "Kyboard" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 1 / 100
Else
lbpotonganharga.Caption = lbtotalharga.Caption * 0
End If
lbtotalbayar.Caption = lbtotalharga.Caption - lbpotonganharga.Caption
End Sub
Private Sub Command2_Click()
With cbobarang
.Clear
.AddItem "MN"
.AddItem "KY"
.AddItem "MS"
.AddItem "CL"
End With
txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""
cbobarang.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
With cbobarang
.Clear
.AddItem "MN"
.AddItem "KY"
.AddItem "MS"
.AddItem "CL"
End With
txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""
End Sub
Semoga Bermanfaat.
