Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
golongan.Items.Add("A")
golongan.Items.Add("B")
golongan.Items.Add("C")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
Select Case golongan.Text
Case
"A"
nama.Text = "Muhammad Wahyu"
Case
"B"
nama.Text = "Enda Mahdi"
Case
"C"
nama.Text = "Nesya Amanda"
End Select
Select Case golongan.Text
Case
"A"
gaji.Text = "2500000"
Case
"B"
gaji.Text = "3500000"
Case
"C"
gaji.Text = "4500000"
End Select
pajak.Text = gaji.Text * 0.1
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 = gaji.Text *
0.5
Case
"Tidak Menikah"
tkeluarga.Text = 0
End Select
End Sub
Private Sub btnperses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnperses.Click
tgaji.Text = (gaji.Text) -
Val(tkeluarga.Text) + pajak.Text
tgaji.Enabled = False
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
nama.Text = ""
golongan.Text = ""
gaji.Text = ""
pajak.Text = ""
status.Text = ""
tkeluarga.Text = ""
tgaji.Text = ""
End Sub
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 ingin Keluar?", MsgBoxStyle.YesNo)
If
tanya = vbCancel Then
Me.Close()
ElseIf
tanya = vbNo Then
Me.Focus()
ElseIf
tanya = vbYes Then
Me.Close()
End If
End Sub
End ClassPenyelesaian
Posting Komentar