Program Menghitung Gaji Karyawan dengan Bahasa Pemrograman VB.net

Assalamu’alaikum Wr Wb

Selamat datang di sibukngoding.com. Pada kesempatan kali ini saya akan memberikan contoh program menghitung gaji karyawan menggunakan bahasapemrograman VB.net. Program ini merupakan request dari pembaca setia sibukngoding.com. Dalam pembuatan programnnya, saya menggunakan Visual Studio 2010.

Untuk soal yang akan saya aplikasikan dalam program adalah sebagai berikut.

Jabatan	Gaji Pokok	Tunjangan Jabatan
Direktur	5.500.000	10% Gaji Pokok
Manajer	4.000.000	5% Gaji pokok
Karyawan	2.000.000	2% Gaji Pokok
OB	1.500.000	1% Gaji Pokok

*Tunjangan Nikah 5% dari Gaji Pokok

*Ppn 10 % dari gaji Kotor

*Gaji Bersih= Gaji Kotor-Ppn

Untuk form dari program menghitung gaji karyawan adalah sebagai berikut:

Untuk Propertisnya diatur sebagai berikut:

Tool Control	Propertis	Value
Form	Name	frmpenggajian
	Text	Form Hitung Gaji
TextBox1	Name	txtnama
	Text
TextBox2	Name	txtgapok
	Text
TextBox3	Name	txttjjabatan
	Text
TextBox4	Name	txttjnikah
	Text
TextBox5	Name	txttjgakot
	Text
TextBox6	Name	txtppn
	Text
TextBox7	Name	txtgaber
	Text	6
ComboBox1	Name	cbjabatan
RadioButton1	Name	rbmenikah
	Text	Menikah
RadioButton2	Name	rbblmmenikah
	Text	Belum Menikah
Button1	Name	bthitung
	Text	Hitung
Button2	Name	btinput
	Text	Input Lagi
Button3	Name	btkeluar
	Text	Keluar
GroupBox1	Name	GroupBox1
	Text	Status

Untuk Source Codenya sebagai berikut:

Sub Awal

> Program untuk membuat tampilan awal program.

Masuk ke view code, letakkan source code di bawahnya Public Class Frmpenggajian

    Sub awal()

        'Isi data pilihan dalam combo box

        cbjabatan.Items.Clear()

        cbjabatan.Items.Add("Direktur")

        cbjabatan.Items.Add("Manajer")

        cbjabatan.Items.Add("Karyawan")

        cbjabatan.Items.Add("OB")

        'mengosongkan isian

        txtnama.Text = ""

        txtgapok.Text = ""

        txttjjabatan.Text = ""

        txttjnikah.Text = ""

        txttjjabatan.Text = ""

        txtgakot.Text = ""

        txtppn.Text = ""

        txtgaber.Text = ""

        txtnama.Focus()

        'Mengosongkan pilihan radio button

        rbblmmenikah.Checked = False

        rbmenikah.Checked = False

    End Sub

Event Form_load 

Klik 2 kali pada formnya, lalu ketikkan source code dibawah ini:

awal()

Event SelectedIndexChanged pada cbjabatan

> Untuk menampilkan gaji pokok dan tunjangan berdasarkan jabatan yang akan dipilih pada combobox.

Klik 2 kali pada cbjabatan, lalu ketikkan source code berikut ini:

If cbjabatan.SelectedItem = "Direktur" Then

 txtgapok.Text = 5500000

 txttjjabatan.Text = (10 / 100) * 5500000 'Tunjangan Jabatan 10% dari gaji Pokok

ElseIf cbjabatan.SelectedItem = "Manajer" Then

 txtgapok.Text = 4000000

 txttjjabatan.Text = (5 / 100) * 4000000 'Tunjangan Jabatan 5% dari gaji Pokok

ElseIf cbjabatan.SelectedItem = "Karyawan" Then

 txtgapok.Text = 2000000

 txttjjabatan.Text = (2 / 100) * 2000000 'Tunjangan Jabatan 2% dari gaji Pokok

ElseIf cbjabatan.SelectedItem = "OB" Then

 txtgapok.Text = 1500000

 txttjjabatan.Text = (1 / 100) * 1500000 'Tunjangan Jabatan 1% dari gaji Pokok

End If

Event CheckedChanged pada rbmenikah

> Untuk menghitung tunjangan nikah jika sudah menikah.

Klik 2 kali pada rbmenikah, lalu ketikkan source code berikut ini:

If rbmenikah.Checked = True Then

    txttjnikah.Text = (5 / 100) * Val(txtgapok.Text)

End If

Event CheckedChanged pada rbblmmenikah

> Untuk Menghitung tunjangan nikah jika belum menikah

  Klik 2 kali pada rbblmmenikah, lalu ketikkan source code berikut ini:

If rbblmmenikah.Checked = True Then

   txttjnikah.Text = 0

End If

Event Click pada Tombol Proses

>Menghitung dan menampilkan gaji kotor, PPN dan gaji bersih ketika tombol diklik.

Klik 2 kali pada tombol btproses, lalu ketikkan source code berikut ini:

'Menghitung Gaji Kotor

txtgakot.Text = Val(txtgapok.Text)+Val(txttjjabatan.Text)+ Val(txttjnikah.Text)

'Hitung PPN 10 dari Gaji Kotor

txtppn.Text = (10 / 100) * Val(txtgakot.Text)

'Hitung Gaji Bersih

txtgaber.Text = Val(txtgakot.Text) - Val(txtppn.Text)

Even Click pada Tombol Input Lagi

> Untuk kembali ke tampilan awal form

Klik 2 kali pada btinput, lalu ketikkan source code berikut ini:

awal() 'memanggil sub awal

Even Click pada Tombol Keluar

> Untuk Keluar dari Program

Klik 2x pada btkeluar, lalu ketikkan source code berikut ini:

txtangka.Text = txtangka.Text & 1

Untuk source code keseluruhannya sebagai berikut:

Public Class Frmpenggajian

    Sub awal()

        'Isi data pilihan dalam combo box

        cbjabatan.Items.Clear()

        cbjabatan.Items.Add("Direktur")

        cbjabatan.Items.Add("Manajer")

        cbjabatan.Items.Add("Karyawan")

        cbjabatan.Items.Add("OB")

        'mengosongkan isian

        txtnama.Text = ""

        txtgapok.Text = ""

        txttjjabatan.Text = ""

        txttjnikah.Text = ""

        txttjjabatan.Text = ""

        txtgakot.Text = ""

        txtppn.Text = ""

        txtgaber.Text = ""

        txtnama.Focus()

        'Mengosongkan pilihan radio button

        rbblmmenikah.Checked = False

        rbmenikah.Checked = False

    End Sub

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

        awal()

    End Sub

    Private Sub cbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjabatan.SelectedIndexChanged

        If cbjabatan.SelectedItem = "Direktur" Then

            txtgapok.Text = 5500000

            txttjjabatan.Text = (10 / 100) * 5500000 'Tunjangan Jabatan 10% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "Manajer" Then

            txtgapok.Text = 4000000

            txttjjabatan.Text = (5 / 100) * 4000000 'Tunjangan Jabatan 5% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "Karyawan" Then

            txtgapok.Text = 2000000

            txttjjabatan.Text = (2 / 100) * 2000000 'Tunjangan Jabatan 2% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "OB" Then

            txtgapok.Text = 1500000

            txttjjabatan.Text = (1 / 100) * 1500000 'Tunjangan Jabatan 1% dari gaji Pokok

        End If

    End Sub

    Private Sub rbmenikah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbmenikah.CheckedChanged

        If rbmenikah.Checked = True Then

            txttjnikah.Text = (5 / 100) * Val(txtgapok.Text)

        End If

    End Sub

    Private Sub rbblmmenikah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbblmmenikah.CheckedChanged

        If rbblmmenikah.Checked = True Then

            txttjnikah.Text = 0

        End If

    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click

        'Menghitung Gaji Kotor

        txtgakot.Text = Val(txtgapok.Text) + Val(txttjjabatan.Text) + Val(txttjnikah.Text)

        'Hitung PPN 10 dari Gaji Kotor

        txtppn.Text = (10 / 100) * Val(txtgakot.Text)

        'Hitung Gaji Bersih

        txtgaber.Text = Val(txtgakot.Text) - Val(txtppn.Text)

    End Sub

    Private Sub btinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btinput.Click

        awal() 'memanggil sub awal

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click

        Close()

    End Sub

End Class

Untuk Tampilan setelah di run seperti berikut:

Silahkan coba diisi, Sebagai contoh saya isi seperti berikut:

Demikian tadi program menghitung gaji karyawan dengan menggunakan VB.net. Silahkan dipelajari lagi dan apabila ada pertanyaan bisa ditanyakan lewat kolom komentar. Jangan lupa untuk mengunjungi web sibukngoding.com untuk mendapatkan tutorial bahasa pemrograman lainnya.

Terimakasih atas perhatiannya, selamat belajar dan jangan mudah menyerah.

Wassalamu’alaikum Wr Wb