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

Kasus Pengajian Pegawai Telkom

desain awal :

 

syntax programnya :

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 Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        Pajak.Text = 0.015 * Val(Gaji.Text)

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

    End Sub

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

        If Gol.Text = "IIIA" Then

            Gaji.Text = 1500000

        ElseIf Gol.Text = "IIIB" Then

            Gaji.Text = 2500000

        Else

            Gaji.Text = 3500000

        End If

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        NamaPegawai.Text = ""

        Gol.Text = ""

        Gaji.Text = ""

        Pajak.Text = ""

        GajiBersih.Text = ""

        Pinjaman.Text = ""

    End Sub

End Class  

desain hasil pembuktian :