Tugas Quis Online Pak Mesran Visual Studio

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("1")
        NIK.Items.Add("2")
        NIK.Items.Add("3")

        Golongan.Items.Add("1")
        Golongan.Items.Add("2")
        Golongan.Items.Add("3")
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        If Golongan.Text = "1" Then
            NamaPegawai.Text = "Hendro"
            GajiPokok.Text = "1500000"
        ElseIf Golongan.Text = "2" Then
            NamaPegawai.Text = "Dian"
            GajiPokok.Text = "2500000"
        ElseIf Golongan.Text = "3" Then
            NamaPegawai.Text = "Jhoni"
            GajiPokok.Text = "3500000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Pajak.Text = Val(0.05) * Val(GajiPokok.Text)
        GajiBersih.Text = Val(GajiPokok.Text) - Val(Pajak.Text)
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NIK.Text = ""
        NamaPegawai.Text = ""
        Golongan.Text = ""
        GajiPokok.Text = ""
        Pajak.Text = ""
        GajiBersih.Text = ""
    End Sub
End Class