FLOWCHART QUIZ PEMROGRAMAN http://mesran.blogspot.com

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("0110")
        nip.Items.Add("0111")
        nip.Items.Add("0112")
        golongan.items.add("111A")
        golongan.items.add("111B")
        golongan.Items.Add("111C")
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        inputdata.Items.Add("Y")
        inputdata.Items.Add("T")


    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "0110" Then
            nama.Text = "Aldyan"
        ElseIf nip.Text = "0111" Then
            nama.Text = "Eko"
        ElseIf nip.Text = "0112" Then
            nama.Text = "Andri"
        End If
     
    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "111A" Then
            gaji.Text = 2500000
        ElseIf golongan.Text = "111B" Then
            gaji.Text = 3500000
        ElseIf golongan.Text = "111C" Then
            gaji.Text = 4500000
        End If
        pajak.Text = 0.1 * gaji.Text


    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Menikah" Then
            tk.Text = 0.05 * gaji.Text
        ElseIf status.Text = "Belum Menikah" Then
            tk.Text = 0

        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tg.Text = gaji.Text - pajak.Text + tk.Text

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nip.Text = " "
        nama.Text = " "
        gaji.Text = " "
        pajak.Text = " "
        status.Text = " "
        tk.Text = " "
        tg.Text = " "
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
End Class