Kemudian double klik di sembarang tempat, dan tuliskan perintahnya seperti dibawah ini:
Public Class Gaji_pegawai
Private Sub Gaji_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("PM011")
nik.Items.Add("PM010")
nik.Items.Add("PS111")
nik.Items.Add("KU101")
nik.Items.Add("GD100")
jabatan.Items.Add("Kepala Devisi")
jabatan.Items.Add("Staff")
jabatan.Items.Add("Wakil Kepala")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
Dim h As Integer
For h = 1 To 4
JA.Items.Add(h)
Next h
End Sub
Kemudian Double klik pada combobox Nik lalu isikan perintah seperti dibawah ini:
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Select Case nik.Text
Case "PM011"
nama.Text = "Nuri Monika"
Case "PS111"
nama.Text = "Rahmad Lubis"
Case "KU101"
nama.Text = "Arimbi"
Case "GD100"
nama.Text = "Mentari Helen Sebrina"
Case Else
nama.Text = "Reza Muhammad"
End Select
Dim j As String
j = Microsoft.VisualBasic.Left(nik.Text, 2)
If j = "PM" Then
bagian.Text = "Pemasaran"
ElseIf j = "PS" Then
bagian.Text = "Personalia"
ElseIf j = "KU" Then
bagian.Text = "Keuangan"
ElseIf j = "GD" Then
bagian.Text = "Gudang"
End If
End Sub
Kemudian Double klik pada combobox jabatan, lalu isikan perintah di bawah ini:
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Select Case jabatan.Text
Case "Kepala Devisi"
GP.Text = "5000000"
pajak.Text = 0.1 * gpokok.Text
Case "Staff"
GP.Text = "2000000"
pajak.Text = 0.1 * gpokok.Text
Case "Wakil Kepala"
GP.Text = "3500000"
pajak.Text = 0.1 * gpokok.Text
End Select
End Sub
kemudian double klik pada combobox status, lalu isikan perintah seperti di bawah ini:
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "Menikah"
TK.Text = 0.15 * gpokok.Text
Case "Belum Menikah"
TK.Text = 0 * gpokok.Text
End Select
End Sub
Kemudian double klik combobox Jumlah anak, lalu isikan perintah seperti ini:
Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged
If JA.Text = "1" Then
TA.Text = 0.05 * gpokok.Text
ElseIf JA.Text = "2" Then
TA.Text = 0.1 * gpokok.Text
Else
TA.Text = 0
End If
TG.Text = Val(GP.Text) + Val(TK.Text) + Val(TA.Text) - Val(pajak.Text)
End Sub
Kemudian double klik pada button Hapus, lalu isikan perintah seperti ini:
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nik.Text = ""
nama.Text = ""
bagian.Text = ""
jabatan.Text = ""
GP.Text = ""
pajak.Text = ""
status.Text = ""
JA.Text = ""
TK.Text = ""
TA.Text = ""
TG.Text = ""
End Sub
Kemudian double klik pada button keluar, lalu isikan perintah seperti di bawah ini:
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub
End Class
Hasilnya seperti ini :
