Kali ini saya akan buat program Visual Basic untuk menghitung gaji karyawan mengunakan Select Case, tapi saya juga akan menggunakan ListView untuk menyimpan data yang telah di input.
Ini dia designaya. :)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("001")
nik.Items.Add("002")
nik.Items.Add("003")
jabat.Items.Add("mandor")
jabat.Items.Add("kepala bagian")
jabat.Items.Add("staf")
status.Items.Add("menikah")
status.Items.Add("beluum menikah")
rancangtabel()
End Sub
Sub rancangtabel()
With lView
.Columns.Add("NIK", 50)
.Columns.Add("Nama", 200)
.Columns.Add("Jabatan", 50)
.Columns.Add("Gaji", 100)
.Columns.Add("Status", 200)
.Columns.Add("Tunjangan Keluarga", 100)
.Columns.Add("Pajak", 100)
.Columns.Add("Total Gaji", 100)
lView.View = View.Details
lView.GridLines = True
lView.FullRowSelect = True
End With
End Sub
Sub isi_tabel()
Dim x As New ListViewItem
With x
.Text = (nik.Text)
.SubItems.Add(nama.Text)
.SubItems.Add(jabat.Text)
.SubItems.Add(gaji.Text)
.SubItems.Add(status.Text)
.SubItems.Add(tkeluarga.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(tgaji.Text)
End With
lView.Items.Add(x)
End Sub
Sub TombolEdit()
btnBaru.Enabled = False
btnSimpan.Enabled = False
btnEdit.Enabled = True
Btnbaru.Enabled = True
btnKeluar.Enabled = False
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Select nik.Text
Case "001" : nama.Text = "oncom"
Case "002" : nama.Text = "udin"
Case "003" : nama.Text = "ujang"
End Select
End Sub
Private Sub jabat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabat.SelectedIndexChanged
Select Case jabat.Text
Case "mandor" : gaji.Text = 1750000
Case "kepala bagian" : gaji.Text = 250000
Case "staf" : gaji.Text = 1250000
End Select
pajak.Text = 0.15 * gaji.Text
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "menikah" : tkeluarga.Text = 0.15 * gaji.Text
Case "belum menikah" : tkeluarga.Text = 0
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
tgaji.Text = Val(gaji.Text) + Val(tkeluarga.Text) - Val(pajak.Text)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isi_tabel()
End Sub
Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
nik.Text = ""
nama.Text = ""
gaji.Text = ""
status.Text = ""
tkeluarga.Text = ""
pajak.Text = ""
tgaji.Text = ""
End Sub
Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click
Call Btnbaru_Click(sender, e)
End Sub
End Class
Maka akan Muncul seperti ini
