soal nomo 2 ppemograman penggajian karyawan pt. telkom

Public Class Form1

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

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        Nip.Text = ""
        Nama.Text = ""
        Golongan.Text = ""
        Gaji(pokok.Text = "")
        pinjaman = ""
        Gaji(bersih = "")


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nip.Items.Add("1111071")
        Nip.Items.Add("1111072")
        Nip.Items.Add("1111073")
        Nip.Items.Add("1111074")

        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IVB")
        Golongan.Items.Add("IIB")
        Golongan.Items.Add("IVA")

    End Sub

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged
        Select Nip.Text
            Case "1111071" : Nama.Text = "Zamroni hidayat"
            Case "1111072" : Nama.Text = "Tenny astina"
            Case "1111073" : Nama.Text = "Ika meldina"
            Case "1111074" : Nama.Text = "Mirzalena"
            Case Else
                Nama.Text = ""
        End Select

    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        Select Case Golongan.Text
            Case "IIIA" : Gaji.Text = 150000
            Case "IVB" : Gaji.Text = 175000
            Case "IIB" : Gaji.Text = 190000
            Case "IVA" : Gaji.Text = 250000
            Case Else
                Gaji.Text = 0

        End Select
    End Sub
End Class