MENAMPILKAN OUTPUT GAJI PEGAWAI PT.TELKOM

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net BAGIAN-2 

MENAMPILKAN OUTPUT GAJI 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

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

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

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        NP.Text = ""

        Gol.Text = ""

        Gaji.Text = ""

        Pajak.Text = ""

        GB.Text = ""

        Pinjaman.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

 

hasil program :