1. buat tampilan seperti ini
2. beri nama pada tiap-tiap textbox, combobox, button, dan list view nya
pada tahap ini
double klik button "simpan ke list view" fungsinnya untuk menginputkan data yang di inputkan ke LISTVIEW
inputkan skrip di bawah ini
script :
isitabel()
Nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
tunjkeluarga.Text = ""
Total.Text = ""
double klik button "bersihkan" fungsinya untuk menghapus penginputan data
script :
Nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
tunjkeluarga.Text = ""
Total.Text = ""
pajak.Text = ""
double klik button "proses data" fungsinya untuk menghitung gaji karyawan
Total.Text = Val(gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)
untuk pembuatan table list view, gunakan jarak yang sesuai...
di sarankan ikuti script di bawah ini
double klik ListView nya
Lv.Columns.Add("Nik", 85, HorizontalAlignment.Left)
Lv.Columns.Add("Nama", 85, HorizontalAlignment.Left)
Lv.Columns.Add("Jabatan", 95, HorizontalAlignment.Left)
Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Status", 70, HorizontalAlignment.Center)
Lv.Columns.Add("Tunjangan keluarga", 165, HorizontalAlignment.Left)
Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
double klik button "hapus semua data listview" fungsinya untuk menghapus semua data di list view yang sudah di input
script :
Lv.Items.Clear()
double klik button "hapus data list view yang di pilih" fungsinya untuk menghapus satu persatu data pada list view
script :
Lv.Items.Remove(Lv.SelectedItems(0))
double clik pada button "keluar" fungsinya untuk keluar atau exit dari form tersebut
script :
end
untuk penganbilan nama, disini saya menggunakan fungsi CASE , karena pengambilan nya di tentukan dari combobox nik di atas
double clik combobox "NIK"
script :
Select Case Nik.Text
Case "001" : nama.Text = "oncom"
Case "002" : nama.Text = "udin"
Case "003" : nama.Text = "ujang"
End Select
dan untuk penentuan gaji menggunakan ketentuan case dari jabatan
double clik combobox "jabatan"
script :
Select Case jabatan.Text
Case "mandor" : gaji.Text = 1750000
Case "kepala bagian" : gaji.Text = 2500000
Case "staf" : gaji.Text = 1250000
End Select
pajak.Text = 0.15 * gaji.Text
untuk status
double click combobox "status"
script:
Select Case status.Text
Case "menikah" : tunjkeluarga.Text = 0.15 * gaji.Text
Case "tidak menikah" : tunjkeluarga.Text = 0
End Select
tekan F5
jika tidak ada masalah..maka akan muncul seperti gambar di atas tadi
lalu isi semua data di kolom "masukan data anda"
dan selanjutnya tekan button "proses data"
maka akan muncul tampilan seperti ini
dan klik button "simpan ke listview"
maka akan muncul tampilan seperti ini :
NB : jangan lupa untuk pemberian nama pada tiap-tiap properties nya ya....
selamat mencoba
Temulawak
Kencur
Bunga Mawar
