buat form seperti ini
- setiap textbox, combobox, button, listview, harus di beri nama, kecuali label
- double klik pada form, maka akan muncul tampilan seperti ini :
private sub form1
For i = 1 To 4
Janak.Items.Add(i)
Next i
For i = 1 To 10
Jlembur.Items.Add(i)
Next i
Nik.Items.Add("001")
Nik.Items.Add("002")
Nik.Items.Add("003")
jabatan.Items.Add("MANDOR")
jabatan.Items.Add("KEPALA BAGIAN")
jabatan.Items.Add("STAFF")
status.Items.Add("MENIKAH")
status.Items.Add("TIDAK MENIKAH")
buattabel()
fungsi scrip di atas untuk mengisi combobox dan listview(buattabel())
untuk pemberian nama secara automatis jika di pilih NIK nya...
- double klik pada combobox NIK, dan isikan script di bawah ini :
Select Case Nik.Text
Case "001" : nama.Text = "JOKO"
Case "002" : nama.Text = "JONO"
Case "003" : nama.Text = "LONO"
End Select
untuk penentuan gaji dan pajak, double klik pada combobox jabatan :
Select Case jabatan.Text
Case "MANDOR" : gaji.Text = 1750000
Case "KEPALA BAGIAN" : gaji.Text = 2500000
Case "STAFF" : gaji.Text = 1250000
End Select
pajak.Text = 0.15 * gaji.Text
untuk menentukan status menikah dan tidak menikah :
double klik pada combobox status...
lalu isikan script di bawah ini
Select Case status.Text
Case "MENIKAH" : Tistri.Text = 0.09 * gaji.Text
Case "TIDAK MENIKAH" : Tistri.Text = 0
End Select
untuk button "proses data anda",
double klik pada button "PROSES DATA ANDA"
isikan script di bawah ini :
If jabatan.Text = "MANDOR" Then
Hlembur.Text = 7500
ElseIf jabatan.Text = "KEPALA BAGIAN" Then
Hlembur.Text = 10000
ElseIf jabatan.Text = "STAFF" Then
Hlembur.Text = 5000
Else
Hlembur.Text = 0
End If
Total.Text = Val(Hlembur.Text) + Val(gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) - Val(pajak.Text)
untuk penentuan tunjangan anak
double klik combobox jumlah anak
lalu tuliskan script di bawah ini :
If Janak.Text >= 2 And status.Text = "MENIKAH" Then
Tanak.Text = 0.07 * gaji.Text
ElseIf Janak.Text = 1 And status.Text = "MENIKAH" Then
Tanak.Text = 0.03 * gaji.Text
Else
Tanak.Text = 0
End If
untuk membuat table di listview :
double klik pada button simpan ke lisview, dan isikan
isitabel()
Nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
Tistri.Text = ""
Janak.Text = ""
Tanak.Text = ""
Jlembur.Text = ""
Hlembur.Text = ""
pajak.Text = ""
Total.Text = ""
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = Nik.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gaji.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(Tistri.Text)
lst.SubItems.Add(Janak.Text)
lst.SubItems.Add(Tanak.Text)
lst.SubItems.Add(Jlembur.Text)
lst.SubItems.Add(Hlembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(Total.Text)
Lv.Items.Add(lst)
End Sub
Sub buattabel()
Lv.Columns.Add("NIK", 40, HorizontalAlignment.Center)
Lv.Columns.Add("NAMA", 100, HorizontalAlignment.Center)
Lv.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
Lv.Columns.Add("GAJI", 80, HorizontalAlignment.Center)
Lv.Columns.Add("STATUS", 70, HorizontalAlignment.Center)
Lv.Columns.Add("Tunj ISTRI", 80, HorizontalAlignment.Center)
Lv.Columns.Add("JUMLAH ANAK", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Tunj ANAK", 80, HorizontalAlignment.Center)
Lv.Columns.Add("JAM LEMBUR", 100, HorizontalAlignment.Center)
Lv.Columns.Add("HONOR LEMBUR", 100, HorizontalAlignment.Center)
Lv.Columns.Add("PAJAK", 75, HorizontalAlignment.Center)
Lv.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
End Sub
sub buattabel()untuk membuat nama dari masing-masing tabel...
untuk button menghapus semua data yg di iput ke listView
double klik pada button "Hapus Semua Data ListView"
isi kan script di bawah ini
Lv.Items.Clear()
untuk menghapus salah satu dari data di list view
double klik pada button "Hapus Data ListView Yang Di Pilih"
isi kan script di bawah ini :
Lv.Items.Remove(Lv.SelectedItems(0))
Lv adalah name dari ListView
untuk membersihkan tulisan di penginputan data
double klik button "BARU"
lalu isikan script di bawah ini
Nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
Tistri.Text = ""
Janak.Text = ""
Tanak.Text = ""
Jlembur.Text = ""
Hlembur.Text = ""
pajak.Text = ""
Total.Text = ""
setelah selesai semua, tekan F5, jika tidak ada masalah...maka program tersebut akan muncul
cika tidak muncul, coba lihat lagi, kemungkinan ada penama an dari masing-masing propertis yang tidak sesuai dengan script
2. pengoprasian
isi dan pilih kolom-kolom dan combobox,
contoh :
lalu klik tombol "PROSES DATA ANDA"
maka kolom "HONOR LEMBUR" dan "TOTAL GAJI" akan terisi seperti gambar di bawah ini
setelah semua kolom terisi, maka kita klik tombol "Simpan Ke ListView"
maka akan muncul tampilan seperti ini :
selnjutnya, inputkan lebih banyak data ke LISTVIEW
jika ingin mengkapus dalah satu data, klik table NIK, lalu klik tombol "Hapus Data ListView Yang Di Pilih"
untuk penghapusan data harus di klik isi table dari nik..karena primary nya adalah NIK
untuk penghapusan semua data di list view, klik tombol "Hapus Semua Data ListView"
maka semua data di list view akan terhapus :
kurang lebih mohon maaf....
:D
untuk membantu anda dalam memahami nya...ini saya sertakan program nya yg sudah jadi.
untuk membuka nya,,pembaca harus punya software visual studio 2008 agar program bisa di edit ulang.
syarat dan ketentuan berlaku, jika sakit berlanjut....kunjungi mesran.net
0 comments:
Posting Komentar