Kasus Pembayaran Gaji Pegawai
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("No", 50, HorizontalAlignment.Center)
LV.Columns.Add("NIK", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama Pegawai", 200, HorizontalAlignment.Left)
LV.Columns.Add("Golongan", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 120, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 120, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Bersih", 120, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
NIK.Items.Add("1")
NIK.Items.Add("2")
NIK.Items.Add("3")
Gol.Items.Add("1")
Gol.Items.Add("2")
Gol.Items.Add("3")
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "1" : NIK.Text = "1" : NamaPegawai.Text = "HENDRO"
Case "2" : NIK.Text = "2" : NamaPegawai.Text = "DIAN"
Case "3" : NIK.Text = "3" : NamaPegawai.Text = "JHONI"
Case Else
End Select
End Sub
Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
Select Case Gol.Text
Case "1" : Gol.Text = "1" : GajiPokok.Text = "1500000"
Case "2" : Gol.Text = "2" : GajiPokok.Text = "2500000"
Case "3" : Gol.Text = "3" : GajiPokok.Text = "3500000"
Case Else
End Select
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Pajak.Text = 0.05 * GajiPokok.Text
GajiBersih.Text = GajiPokok.Text - Pajak.Text
End Sub
Sub Hapus()
No.Text = ""
NIK.Text = ""
NamaPegawai.Text = ""
Gol.Text = ""
GajiPokok.Text = ""
Pajak.Text = ""
GajiBersih.Text = ""
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
Dim lst As New ListViewItem
lst.Text = No.Text
lst.SubItems.Add(NIK.Text)
lst.SubItems.Add(NamaPegawai.Text)
lst.SubItems.Add(Gol.Text)
lst.SubItems.Add(GajiPokok.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(GajiBersih.Text)
LV.Items.Add(lst)
End Sub
Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
Hapus()
End Sub
Private Sub BtnHapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusList.Click
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Demikilahlah postingan saya Nama : RUDI SIDABUTAR NPM : 14110054
Selamat Belajar Pemrograman VB NET