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

http://mesran.net/quiz.html

Penggajian pegawai PT.Telkom

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

 Hasil Programnya

Demikian postingan saya
Nama : Tita arianti
NPM :  1111059