Latihan Visual Basic 11

Rancangan Form
Komponent dan Propertinya
Coding
 

1. Rancangan Form
Rancanglah sebuah form seperti berikut :

1. Komponen dan Properti Rancangan Form
Komponen dan properti yang digunakan dalam rancangan tersebut adalah sebagai berikut :


component	name
textbox1	nip
textbox2	nama_karyawan
combobox1	jabatan_karyawan
combobox2	status_karyawan
textbox3	gaji_pokok
textbox4	tunjangan_keluarga
textbox5	tunjangan_keluarga
textbox6	pph
textbox7	gaji_kotor
textbox8	gaji_bersih
button1	simpan
datagridview	gridme
textbox9	total_gaji

2. Ketentuan operasi proram ;

* Isilah kolom kolom gaji

-Jika jabatan Kabag gaji = 500000

-Jika jabatan Staff gaji = 400000

-Jika jabatan Adm gaji = 250000

* Isilah kolom tunjangan keluarga = jika menikah 15% x gaji pokok

* Isilah kolom PPh = 2,5% x gaji pokok

* Isilah kolom gaji kotor = gaji pokok + tunjangan keluarga

* Isilah kolom gaji bersih = gaji kotor - pph

3. Codingnya :

Public Class latihanexcell11 Sub total() Dim HitungHarga As Integer = 0 For I As Integer = 0 To gridme.Rows.Count - 1 HitungHarga = HitungHarga + Val(gridme.Rows(I).Cells(8).Value) total_gaji.Text = HitungHarga Next End Sub Private Sub jabatan_karyawan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan_karyawan.SelectedIndexChanged If jabatan_karyawan.Text = "Kabag" Then gaji_pokok.Text = 500000 ElseIf jabatan_karyawan.Text = "Staff" Then gaji_pokok.Text = 400000 ElseIf jabatan_karyawan.Text = "Adm" Then gaji_pokok.Text = 250000 Else MsgBox("Nama Jabatan Salah !") End If End Sub Private Sub status_karyawan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status_karyawan.SelectedIndexChanged If status_karyawan.Text = "Nikah" Then tunjangan_keluarga.Text = (15 / 100) * Val(gaji_pokok.Text) Else tunjangan_keluarga.Text = 0 End If End Sub Private Sub gaji_pokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_pokok.TextChanged pph.Text = (2.5 / 100) * Val(gaji_pokok.Text) End Sub Private Sub tunjangan_keluarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan_keluarga.TextChanged gaji_kotor.Text = Val(gaji_pokok.Text) + Val(tunjangan_keluarga.Text) End Sub Private Sub gaji_kotor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_kotor.TextChanged gaji_bersih.Text = Val(gaji_kotor.Text) + Val(pph.Text) End Sub Private Sub no_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load jabatan_karyawan.Items.Add("Staff") jabatan_karyawan.Items.Add("Kabag") jabatan_karyawan.Items.Add("Adm") status_karyawan.Items.Add("Nikah") status_karyawan.Items.Add("Belum Menikah") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click gridme.Rows.Add(1) gridme.Rows(gridme.RowCount - 2).Cells(0).Value = NIP.Text gridme.Rows(gridme.RowCount - 2).Cells(1).Value = nama_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(2).Value = jabatan_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(3).Value = status_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(4).Value = gaji_pokok.Text gridme.Rows(gridme.RowCount - 2).Cells(5).Value = tunjangan_keluarga.Text gridme.Rows(gridme.RowCount - 2).Cells(6).Value = pph.Text gridme.Rows(gridme.RowCount - 2).Cells(7).Value = gaji_kotor.Text gridme.Rows(gridme.RowCount - 2).Cells(8).Value = gaji_bersih.Text gridme.Update() Call total() End Sub End Class