Aq punya program kecil2an ne,ya ne program lum pake database SQL atau access,tpi gk ada salahnya aq postingkan di Blogku,,mana tau berguna bagi Programer Pemula seperti aq....
langsung aja deh, ne program cm mengandalkan logika if, oke ada yang masih ingat ma TB (Turbo Basic), masa dah lupa, kan smster I,di TB kan ada statman if.
karena VB memakai Bahasa Pemerograman TB,,,
Jadi, intinya proses dan penyimpanan nama karyawan ada pada coding-nya itu sendiri...
Pertama-tama qita jalankan dulu program vb6 bagi yang dah terinstal
, lw belum cari masternya dan instalkan dulu,,,
Terus kita pilih Standar EXE aja.
setelah itu buat form1 dengan tampilan seperti gambar di atas:
Label1 diganti Caption denagan Data Karyawan
Label2 diganti Caption dengan NIK
Label3 diganti Caption dengan Nama
Label4 diganti Caption dengan Golongan
Label5 diganti Caption dengan Gaji Pokok
Label6 diganti Caption dengan Jumlah Hari
Label7 diganti Caption dengan Tunjangan Jabatan
Label8 diganti Caption dengan Tunjangan Istri
Label9 diganti Caption dengan Jumlah Anak
Label10 diganti Caption dengan Tunjangan Anak
Label11 diganti Caption dengan Total Gaji
catatan Caption terdapat di Properties
setelah itu tambahkan
CommandButton1 diganti Caption dengan Hitung
CommandButton2 diganti Caption dengan Bersih
CommandButton3 diganti Caption dengan Keluar
dan tambahkan:
ComboBox1 diganti name dengan ComboNik dan Text di kosongkan (Tulisan Text di hapus) untuk NIK
ComboBox2 diganti name dengan ComboGol dan Text di kosongkan (Tulisan Text di hapus) untuk Golongan
ComboBox3 diganti name dengan ComboHk dan Text di kosongkan (Tulisan Text di hapus) untuk Jumlah Hari
catatan: name pada Properties
Tambahkan juga:
Text1 diganti name dengan Txtnama dan Text pada Properties di Kosongkan untuk di sebelah Label Nama
Text2 diganti name dengan TxtGaji dan Text pada Properties di Kosongkan untuk di sebelah Label Gaji Pokok
Text3 diganti name dengan TxtJabatan dan Text pada Properties di Kosongkan untuk di sebelah Label Tunjangan Jabatan
Text3 diganti name dengan TxtIstri dan Text pada Properties di Kosongkan untuk di sebelah Label Tunjangan Istri
Text4 diganti name dengan TxtTunjAnak dan Text pada Properties di Kosongkan untuk di sebelah Label Tunjangan Anak
Text4 diganti name dengan TxtTotal dan Text pada Properties di Kosongkan untuk di sebelah Label Total Gaji
Warning: jangan salah ketik karena berpengaruh terhadap Syntak-nya
jangan sampai ada pesan Syntak Error atau Debug....
oke,,, saatnya Coding,,,,,
Klik Pada View code pada Project di sebelah kanan..
Ketik Kode berikut
Private Sub Bersih_Click()
'Proses Pembersihan
ComboHk.Text = Clear
TxtNama.Text = Clear
ComboGol.Text = Clear
ComboAnak.Text = Clear
ComboNik.Text = Clear
TxtGaji.Text = Clear
TxtJabatan.Text = Clear
TxtIstri.Text = Clear
TxtTotal.Text = "0"
TxtTunjAnak.Text = Clear
End Sub
Private Sub ComboGol_Click()
'Pengisian Tunjangan Jabatan Dan Tunjangan Istri
If ComboGol.Text = "Gol I" Then
TxtJabatan.Text = 0.02 * 1500000
TxtIstri.Text = 0.1 * 1500000
ElseIf ComboGol.Text = "Gol II" Then
TxtJabatan.Text = 0.02 * 1650000
TxtIstri.Text = 0.1 * 1650000
ElseIf ComboGol.Text = "Gol III" Then
TxtJabatan.Text = 0.02 * 1750000
TxtIstri.Text = 0.1 * 1750000
ElseIf ComboGol.Text = "Gol IV" Then
TxtJabatan.Text = 0.02 * 1850000
TxtIstri.Text = 0.1 * 1850000
End If
End Sub
Private Sub ComboNik_Click()
'Proses Penampilan Kariawan
If ComboNik.Text = "11010091" Then
TxtNama.Text = "Herry Purwanto"
ElseIf ComboNik.Text = "11010092" Then
TxtNama.Text = "Riono Handriko"
ElseIf ComboNik.Text = "11010093" Then
TxtNama.Text = "Ronal Stiawan"
ElseIf ComboNik.Text = "11010094" Then
TxtNama.Text = "Bagus Alvince Dianato"
End If
End Sub
Private Sub Form_Load()
'Proses Penambahan Data Pada ComboGolongan
ComboGol.AddItem ("Gol I")
ComboGol.AddItem ("Gol II")
ComboGol.AddItem ("Gol III")
ComboGol.AddItem ("Gol IV")
'Penambahan Data Pada NIK
ComboNik.AddItem ("11010091")
ComboNik.AddItem ("11010092")
ComboNik.AddItem ("11010093")
ComboNik.AddItem ("11010094")
'Penambahana Data Pada Jummlah Anak
ComboAnak.AddItem ("1")
ComboAnak.AddItem ("2")
ComboAnak.AddItem ("3")
ComboAnak.AddItem ("4")
'Penamabahan Data Pada Harian Kerja
ComboHk.AddItem ("1 Hari")
ComboHk.AddItem ("2 Hari")
ComboHk.AddItem ("3 Hari")
ComboHk.AddItem ("4 Hari")
ComboHk.AddItem ("5 Hari")
ComboHk.AddItem ("6 Hari")
ComboHk.AddItem ("7 Hari")
ComboHk.AddItem ("8 Hari")
ComboHk.AddItem ("9 Hari")
ComboHk.AddItem ("10 Hari")
ComboHk.AddItem ("11 Hari")
ComboHk.AddItem ("12 Hari")
ComboHk.AddItem ("13 Hari")
ComboHk.AddItem ("14 Hari")
ComboHk.AddItem ("15 Hari")
ComboHk.AddItem ("16 Hari")
ComboHk.AddItem ("17 Hari")
ComboHk.AddItem ("18 Hari")
ComboHk.AddItem ("19 Hari")
ComboHk.AddItem ("20 Hari")
ComboHk.AddItem ("21 Hari")
ComboHk.AddItem ("22 Hari")
ComboHk.AddItem ("23 Hari")
ComboHk.AddItem ("24 Hari")
ComboHk.AddItem ("25 Hari")
ComboHk.AddItem ("26 Hari")
ComboHk.AddItem ("27 Hari")
ComboHk.AddItem ("28 Hari")
ComboHk.AddItem ("29 Hari")
ComboHk.AddItem ("30 Hari")
ComboHk.AddItem ("31 Hari")
End Sub
Private Sub ComboAnak_Click()
'Peroses Tunjangan Anak
If ComboAnak.Text = "1" Then
TxtTunjAnak.Text = (0.05 * Val(TxtGaji.Text)) + 150000
ElseIf ComboAnak.Text = "2" Then
TxtTunjAnak.Text = (0.1 * Val(TxtGaji.Text)) + 175000
ElseIf ComboAnak.Text = "3" Then
TxtTunjAnak.Text = (0.15 * Val(TxtGaji.Text)) + 185000
ElseIf ComboAnak.Text = "4" Then
TxtTunjAnak.Text = (0.2 * Val(TxtGaji.Text)) + 190000
End If
End Sub
Private Sub ComboHk_Click()
'Proses Penghitungan Gaji Pokok Dari Harian Kerja
If ComboHk.Text = "1 Hari" Then
TxtGaji.Text = Val(1 * 47000)
ElseIf ComboHk.Text = "2 Hari" Then
TxtGaji.Text = Val(2 * 47000)
ElseIf ComboHk.Text = "3 Hari" Then
TxtGaji.Text = Val(3 * 47000)
ElseIf ComboHk.Text = "4 Hari" Then
TxtGaji.Text = Val(4 * 47000)
ElseIf ComboHk.Text = "5 Hari" Then
TxtGaji.Text = Val(5 * 47000)
ElseIf ComboHk.Text = "6 Hari" Then
TxtGaji.Text = Val(6 * 47000)
ElseIf ComboHk.Text = "7 Hari" Then
TxtGaji.Text = Val(7 * 47000)
ElseIf ComboHk.Text = "8 Hari" Then
TxtGaji.Text = Val(8 * 47000)
ElseIf ComboHk.Text = "9 Hari" Then
TxtGaji.Text = Val(9 * 47000)
ElseIf ComboHk.Text = "10 Hari" Then
TxtGaji.Text = Val(10 * 47000)
ElseIf ComboHk.Text = "11 Hari" Then
TxtGaji.Text = Val(11 * 47000)
ElseIf ComboHk.Text = "12 Hari" Then
TxtGaji.Text = Val(12 * 47000)
ElseIf ComboHk.Text = "13 Hari" Then
TxtGaji.Text = Val(13 * 47000)
ElseIf ComboHk.Text = "14 Hari" Then
TxtGaji.Text = Val(14 * 47000)
ElseIf ComboHk.Text = "15 Hari" Then
TxtGaji.Text = Val(15 * 47000)
ElseIf ComboHk.Text = "16 Hari" Then
TxtGaji.Text = Val(16 * 47000)
ElseIf ComboHk.Text = "17 Hari" Then
TxtGaji.Text = Val(17 * 47000)
ElseIf ComboHk.Text = "18 Hari" Then
TxtGaji.Text = Val(18 * 47000)
ElseIf ComboHk.Text = "19 Hari" Then
TxtGaji.Text = Val(19 * 47000)
ElseIf ComboHk.Text = "20 Hari" Then
TxtGaji.Text = Val(20 * 47000)
ElseIf ComboHk.Text = "21 Hari" Then
TxtGaji.Text = Val(21 * 47000)
ElseIf ComboHk.Text = "22 Hari" Then
TxtGaji.Text = Val(22 * 47000)
ElseIf ComboHk.Text = "23 Hari" Then
TxtGaji.Text = Val(23 * 47000)
ElseIf ComboHk.Text = "24 Hari" Then
TxtGaji.Text = Val(24 * 47000)
ElseIf ComboHk.Text = "25 Hari" Then
TxtGaji.Text = Val(25 * 47000)
ElseIf ComboHk.Text = "26 Hari" Then
TxtGaji.Text = Val(26 * 47000)
ElseIf ComboHk.Text = "27 Hari" Then
TxtGaji.Text = Val(27 * 47000)
ElseIf ComboHk.Text = "28 Hari" Then
TxtGaji.Text = Val(28 * 47000)
ElseIf ComboHk.Text = "29 Hari" Then
TxtGaji.Text = Val(29 * 47000)
ElseIf ComboHk.Text = "30 Hari" Then
TxtGaji.Text = Val(30 * 47000)
ElseIf ComboHk.Text = "31 Hari" Then
TxtGaji.Text = Val(31 * 47000)
End If
End Sub
Private Sub CmdHitung_Click()
'Proses Penghitungan Akhir atau Total
TxtTotal.Text = Val(TxtGaji.Text) + Val(TxtJabatan.Text) + Val(TxtIstri.Text) + Val(TxtTunjAnak.Text)
End Sub
Private Sub Keluar_Click()
'Proses Keluar
End
End Sub
NB: ini jangan di masukan pada View Code di VB6
Di kodingnya sudah ada keterangannya fungsi dari setiap Statman jika ada kata2 yang menerangkan yang di awali tanda petik satu ( ' ) itu berarti komentar yaitu sesuatu yang di inputkan ke view code namun di abaikan oleh VB
contoh:
'Pengisian Tunjangan Jabatan Dan Tunjangan Istri
0 komentar:
Posting Komentar