Nilai Mahasiswa

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("menikah")
        status.Items.Add("belum menikah")

        ja.Items.Add("0")
        ja.Items.Add("1")
        ja.Items.Add("2")
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM010"
                nama.Text = "Dinil Haq Gustia"
            Case "PS111"
                nama.Text = "Bryan"
            Case "KU101"
                nama.Text = "Oblak"
            Case "GD100"
                nama.Text = "Samsul"
        End Select
        Dim z As String
        z = Microsoft.VisualBasic.Left(nik.Text, 2)
        If z = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf z = "PS" Then
            bagian.Text = "Personalia"
        ElseIf z = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf z = "GD" Then
            bagian.Text = "Gudang"
        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Suvervisor"
                gp.Text = "5000000"
            Case "Staff"
                gp.Text = "2000000"
            Case Else
                gp.Text = "3500000"
        End Select
        pajak.Text = gp.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"
                tk.Text = gp.Text * 0.05
            Case "belum menikah"
                ja.Text = ""
                tk.Text = 0
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        tg.Text = ""
        ja.Text = ""
        gp.Text = ""
        pajak.Text = ""
        status.Text = ""
        ta.Text = ""
        bagian.Text = ""
        ta.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

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        tg.Text = (gp.Text) + Val(ta.Text) + Val(tk.Text) - pajak.Text
        tg.Enabled = False
    End Sub

    Private Sub ja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ja.SelectedIndexChanged
        Select Case "ja.text"
            Case "0"
                ta.Text = 0
            Case "1"
                ta.Text = gp.Text * 0.05
            Case "2"
                ta.Text = gp.Text * 0.1
            Case Else
                ta.Text = gp.Text * 0.5

        End Select
    End Sub
End Class