Program Pembayaran Gaji Pegawai
Programnya.....
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NamaPeg.Items.Add("Lidia Sunarti")
NamaPeg.Items.Add("Maria Naomi")
NamaPeg.Items.Add("Agnes Jessi")
GolPeg.Items.Add("A")
GolPeg.Items.Add("B")
GolPeg.Items.Add("c")
StaPeg.Items.Add("Menikah")
StaPeg.Items.Add("Tidak Menikah")
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnProses.Click
Pajak.Text = 0.1 * GaPo.Text
TG.Text = GaPo.Text - Pajak.Text +
TK.Text
End Sub
Private Sub GolPeg_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GolPeg.SelectedIndexChanged
Select Case GolPeg.Text
Case
"A"
GaPo.Text = "2500000"
Case
"B"
GaPo.Text = "3500000"
Case
"C"
GaPo.Text = "4500000"
End Select
End Sub
Private Sub StaPeg_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
StaPeg.SelectedIndexChanged
Select Case StaPeg.Text
Case
"Menikah"
TK.Text = 0.05 * GaPo.Text
Case
"Tidak Menikah"
TK.Text = GaPo.Text
End Sub
End Class
Hasil Outputnya..