Contoh Pemograman Visual Basic Gaji Karyawan

Langkah-langkahnya :

1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Combobox, Button
 Tampilan Form :

6. Listing Program

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text()

            Case "PM010"

                Nama.Text = "Bister"

            Case "PS111"

                Nama.Text = "Tri"

            Case "KU101"

                Nama.Text = "Sandora"

            Case "GD100"

                Nama.Text = "Novella"

            Case "PM011"

                Nama.Text = "Mindo"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

    End Sub

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Divisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        JumlahAnak.Items.Add("1 Anak")

        JumlahAnak.Items.Add("2 Anak")

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text

            Case "Kepala Divisi"

                GajiPokok.Text = "5000000"

            Case "Staff"

                GajiPokok.Text = "2000000"

            Case "Wakil Kepala"

                GajiPokok.Text = "3500000"

        End Select

        Pajak.Text = GajiPokok.Text * 0.1

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        Select Case Status.Text

            Case "Menikah"

                TunjanganKeluarga.Text = 0.15 * GajiPokok.Text

            Case "Tidak Menikah"

                TunjanganKeluarga.Text = 0

                TunjanganAnak.Text = 0

                TotalGaji.Text = Val(GajiPokok.Text) - Val(Pajak.Text)

                JumlahAnak.Text = 0

        End Select

    End Sub

    Private Sub JumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged

        Dim x As String

        x = JumlahAnak.Text

        If x = "1 Anak" Then

            TunjanganAnak.Text = 0.5 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        ElseIf x = "2 Anak" Then

            TunjanganAnak.Text = 0.1 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        End If

    End Sub

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

        NIK.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        JumlahAnak.Text = ""

        TunjanganAnak.Text = ""

        TunjanganKeluarga.Text = ""

        TotalGaji.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

7. Tampilan Form setelah dijalankan