Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

1.Penggajian di PT.telkom

http://mesran.net/quiz.html 

Public Class Form1

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

        Gol.Items.Add("IIIA")

        Gol.Items.Add("IIIB")

        Gol.Items.Add("IIIC")

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged

        Select Case Gol.Text

            Case "IIIA" : Gaji.Text = 1500000

            Case "IIIB" : Gaji.Text = 2500000

            Case "IIIC" : Gaji.Text = 3500000

        End Select

        Pajak.Text = 0.15 * Gaji.Text

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Gajiber.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Gajiber.Text)

    End Sub

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

        Me.Close()

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class

 

 

  Demikian Postingan saya

Nama : Nita wardani

NPM : 1111802