Membuat Program Aplikasi Gaji Pegawai dengan VB.Net

  Pada kali ini saya akan berbagi kepada teman-teman Programer, yaitu "Membuat Program Aplikasi Gaji Pegawai dengan VB.Net ".  Aplikasi ini merupakan aplikasi dasar dari Aplikasi VB.Net, dan merupakan pembelejaran buat Programer dasar,, yagh seperti saya ini lagh,,,,,,,

Program Aplikasi Gaji Pegawai mungkin bisa menambah ilmu anda dab ilmu saya..... 

   Berikut ini adalah Gambar Aplikasi dan Listing Program "Membuat Program Aplikasi Gaji Pegawai dengan VB.Net" :

Public Class Gaji_Pegawai

    Private Sub Gaji_Pegawai_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 Devisi")

        jabatan.Items.Add("Staf Devisi")

        jabatan.Items.Add("Wakil Kepala Devisi")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        Dim i As Integer

        For i = 1 To 3

            jmlanak.Items.Add(i)

        Next i

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Dim x = Microsoft.VisualBasic.Left(nik.Text, 2)

        If nik.Text = "PM010" Then

            If x = "PM" Then

                nama.Text = "Chanif Arvani"

                bagian.Text = "Pemasaran"

            End If

        ElseIf nik.Text = "PS111" Then

            If x = "PS" Then

                nama.Text = "Jailamm Igaps S"

                bagian.Text = "Personalia"

            End If

        ElseIf nik.Text = "KU101" Then

            If x = "KU" Then

                nama.Text = "Reza Ariyansah"

                bagian.Text = "Keuangan"

            End If

        ElseIf nik.Text = "GD100" Then

            If x = "GD" Then

                nama.Text = "Agus Setiawan"

                bagian.Text = "Gudang"

            End If

        Else

            If x = "PM" Then

                nama.Text = "Lia Syahfitri"

                bagian.Text = "Pemasaran"

            End If

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        If jabatan.Text = "Kepala Devisi" Then

            gapok.Text = 5000000

            pajak.Text = 0.1 * gapok.Text

        ElseIf jabatan.Text = "Staf Devisi" Then

            gapok.Text = 2000000

            pajak.Text = 0.1 * gapok.Text

        Else

            gapok.Text = 3500000

            pajak.Text = 0.1 * gapok.Text

        End If

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Menikah" Then

            tujkel.Text = 1.5 * gapok.Text

            jmlanak.Enabled = True

        Else

            tujkel.Text = 0

            jmlanak.Enabled = False

        End If

        totalgaji.Text = Val(gapok.Text) + Val(tujkel.Text) + Val(tujanak.Text) - Val(pajak.Text)

    End Sub

    Private Sub jmlanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.SelectedIndexChanged

        If jmlanak.Text = "1" Then

            tujanak.Text = 0.05 * gapok.Text

        ElseIf jmlanak.Text = "2" Then

            tujanak.Text = 0.1 * gapok.Text

        Else

            tujanak.Text = 0

        End If

        totalgaji.Text = Val(gapok.Text) + Val(tujkel.Text) + Val(tujanak.Text) - Val(pajak.Text)

    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 = ""

        gapok.Text = ""

        pajak.Text = ""

        status.Text = ""

        jmlanak.Text = ""

        tujanak.Text = ""

        tujkel.Text = ""

        totalgaji.Text = ""

        jmlanak.Enabled = True

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

Demikianlah Artikel dari saya Semoga Artikel "Membuat Program Aplikasi Gaji Pegawai dengan VB.Net " dapat bermanfaat bagi anda ... Trims,,,,,,