QUIZ ONLINEPROGRAM VISUAL STUDIO 2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NAMAPEGAWAI.Items.Add("DENI IRAWAN")

        GOL.Items.Add("IIIA")

        GOL.Items.Add("IIIB")

        GOL.Items.Add("IIIC")

        PINJAMAN.Text = "0"

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        Select Case GOL.Text

            Case "IIIA"

                GAJI.Text = "1500000"

                PAJAK.Text = 0.15 * GAJI.Text

                GAJIBERSIH.Text = Val(GAJI.Text) - Val(PAJAK.Text) - Val(PINJAMAN.Text)

        End Select

        If PINJAMAN.Text = "" Then

        End If

       

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NAMAPEGAWAI.Text = ""

        GOL.Text = ""

        PINJAMAN.Text = ""

        PAJAK.Text = ""

        GAJI.Text = ""

        GAJIBERSIH.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub PINJAMAN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PINJAMAN.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NAMAPEGAWAI.Items.Add("DENI IRAWAN")

        GOL.Items.Add("IIIA")

        GOL.Items.Add("IIIB")

        GOL.Items.Add("IIIC")

        PINJAMAN.Text = "0"

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        Select Case GOL.Text

            Case "IIIA"

                GAJI.Text = "1500000"

                PAJAK.Text = 0.15 * GAJI.Text

                GAJIBERSIH.Text = Val(GAJI.Text) - Val(PAJAK.Text) - Val(PINJAMAN.Text)

        End Select

        If PINJAMAN.Text = "" Then

        End If

       

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NAMAPEGAWAI.Text = ""

        GOL.Text = ""

        PINJAMAN.Text = ""

        PAJAK.Text = ""

        GAJI.Text = ""

        GAJIBERSIH.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub PINJAMAN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PINJAMAN.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class