Membuat Program Aplikasi Penggajian Karyawan


   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("BM010")
        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 = "BM" Then
                nama.Text = "Anril Tasa Siregar"
                bagian.Text = "Entry Data Prossecing"
            End If
        ElseIf nik.Text = "PS111" Then
            If x = "PS" Then
                nama.Text = "Rahmat"
                bagian.Text = "Personalia"
            End If
        ElseIf nik.Text = "KU101" Then
            If x = "KU" Then
                nama.Text = "Budi"
                bagian.Text = "Keuangan"
            End If
        ElseIf nik.Text = "GD100" Then
            If x = "GD" Then
                nama.Text = "Ucok"
                bagian.Text = "Gudang"
            End If
        Else
            If x = "PM" Then
                nama.Text = "Tasya"
                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

loading...

Komentar

Posting Komentar

Postingan populer dari blog ini

Membuat program sederhana Kriptografi menggunakan Visual Basic

Gambar
Berikut listing program dan Form dari program sederhana Kriptografi Public Class Kriptografi    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click         Form2.MdiParent = Me         Form2.Show()     End Sub     Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click         Form3.MdiParent = Me         Form3.Show()     End Sub     Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronslendToolStripMenuItem.Click         Form4.MdiParent = Me         Form4.Show()     ...
Baca selengkapnya

Budidaya Bekicot

Gambar
.Bekicot adalah utk sebagian orang adalah hewan yg menjijikan.utk budidaya ini banyak ditemui di daerah Jawa Timur & daerah lain yg menjadi sentra budidaya bekicot. Melalui blog ini, Ayo kita belajar bersama-sama utk membudidayakan hewan bekicot. 1. SEJARAH SINGKAT BEKICOT Bekicot berasal dr Afrika Timur, tersebar keseluruh dunia dlm waktu relatif singkat, karena berkembang biak dgn cepat. Bekicot tersebar ke arah Timur sampai di kepulauan Mauritius, India, Malaysia, akhirnya ke Indonesia. Bekicot sejak tahun 1933 telah ada disekitar Jakarta, sumber lain menyatakan bahwa bekicot jenis Achatina fulica masuk ke Indonesia pada tahun 1942 (masa pendudukan Jepang). Sampai saat ini, bekicot jenis Achanita fulica banyak terdapat di Pulau Jawa. 2. SENTRA PERIKANAN BEKICOT Sentra peternakan bekicot banyak ditemukan di masyarakat pedesaan Jawa Timur, Bogor (Jawa Barat), Sumatera Utara & Bali. 3. JENIS BEKICOT Bekicot diternakkan umumnya jenis Achatina fulica yg ban...
Baca selengkapnya