Membuat Aplikasi Penggajian Sederhana dengan VBNet

Hari ini kita akan membuat aplikasi penggajian sederhana dengan menggunakan VBNet.
Aplikasi ini sederhana karena tidak menggunakan database.Penginputan data secara manual langsung dituliskan di dalam code editor VBNet.
Ini merupakan latihan yang diberikan dosen kepada kami didalam kelas dan saya berhasil membuatnya.

Pertama kali desain form seperti ini


Kemudian setelah anda mendesain formnya,berikan masing-masing name pada semua objek yang ada pada form dibagian propertiesnya.

Sampailah kita pada bagian pengkodingan form diatas agar bisa berfungsi sebagaimana mestinya.
Masukkan semua code dibawah ini kedalam aplikasi kita.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cbnik.Items.Add("PM010")
        cbnik.Items.Add("PS111")
        cbnik.Items.Add("KU101")
        cbnik.Items.Add("GO100")
        cbnik.Items.Add("PM011")

        cbjabatan.Items.Add("Kepala Divisi")
        cbjabatan.Items.Add("Staf")
        cbjabatan.Items.Add("Wakil Kepala")

        cbstatus.Items.Add("Menikah")
        cbstatus.Items.Add("Tidak Menikah")

        For i = 0 To 2
            cbanak.Items.Add(i)
        Next

    End Sub

    Private Sub cbnik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbnik.SelectedIndexChanged
        Select Case cbnik.Text
            Case "PM010"
                tbnama.Text = "Budi Hartono"
            Case "PS111"
                tbnama.Text = "Bambang Hermansyah"
            Case "KU101"
                tbnama.Text = "Vivi Mawariah"
            Case "GO100"
                tbnama.Text = "Hermayanto"
            Case "PM011"
                tbnama.Text = "Kencanawati"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(cbnik.Text, 2)
        If x = "PM" Then
            tbagian.Text = "Pemasaran"
        ElseIf x = "PS" Then
            tbagian.Text = "Personalia"
        ElseIf x = "KU" Then
            tbagian.Text = "Keuangan"
        ElseIf x = "GO" Then
            tbagian.Text = "Gudang"
        End If
    End Sub

    Private Sub cbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjabatan.SelectedIndexChanged
        If cbjabatan.Text = "Kepala Divisi" Then
            tbgapok.Text = 5000000
        ElseIf cbjabatan.Text = "Staf" Then
            tbgapok.Text = 2000000
        ElseIf cbjabatan.Text = "Wakil Kepala" Then
            tbgapok.Text = 3500000
        End If

        tbpajak.Text = tbgapok.Text * 0.1
    End Sub

    Private Sub cbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstatus.SelectedIndexChanged
        If cbstatus.Text = "Menikah" Then
            tbtunjangankeluarga.Text = tbgapok.Text * 0.15
            cbanak.Enabled = True
        ElseIf cbstatus.Text = "Tidak Menikah" Then
            tbtunjangankeluarga.Text = 0
            cbanak.Enabled = False
            cbanak.Text = 0
        End If
    End Sub

    Private Sub cbanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbanak.SelectedIndexChanged
        If cbanak.Text = 1 Then
            tbtunjangananak.Text = tbgapok.Text * 0.5
        ElseIf cbanak.Text = 2 Then
            tbtunjangananak.Text = tbgapok.Text * 0.1
        Else
            tbtunjangananak.Text = 0
        End If

        tbtotalgaji.Text = Val(tbgapok.Text) + Val(tbtunjangananak.Text) + Val(tbtunjangankeluarga.Text) - tbpajak.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        cbnik.Text = ""
        tbnama.Text = ""
        tbagian.Text = ""
        cbjabatan.Text = ""
        tbgapok.Text = ""
        tbpajak.Text = ""
        cbstatus.Text = ""
        cbanak.Enabled = True
        cbanak.Text = ""
        tbtunjangankeluarga.Text = ""
        tbtunjangananak.Text = ""
        tbtotalgaji.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class
*Penting : name setiap objek sesuaikan dengan name yang anda buat ,jika tidak anda akan menemui kesalahan/error.
Jika ada yang ingin ditanyakan silahkan berikan komentar anda.


Penjelasan Program :
  1. Ketika user memilih NIK, maka Nama dan Bagian akan muncul
  2. Ketika user memilih Jabatan, maka Gaji Pokok dan Pajak akan muncul .
    Operasi perhitungannya diletakkan dibawah setelah membuat keputusan untuk menentukan Gaji Pokok sesuai dengan Jabatan,sehingga akan kita dapatkan hasil Pajak = Gaji Pokok - 10%.
  3. Ketika user memilih
    Status Menikah : user dapat memilih jumlah anak.
    Status Tidak Menikah : user tidak dapat memilih jumlah anak dan hasilnya 0.
    Setelah user memilih Status maka akan didapatkan hasil Tunjangan Keluarga,Tunjangan Anak,dan Total Gaji.
  4. Kita disini tidak membutuhkan button proses karena sudah diproses didalam jumlah anak pada saat user memilih jumlah anak.

This entry was posted in . Bookmark the permalink.

Leave a Reply

Tanggapan Anda