Kumpulan Tugas Pelajar: Juli 2019

LAPORAN AKHIR

MEMBUAT PROGRAM APLIKASI PERHITUNGAN GAJI PEGAWAI

MENGGUNAKAN APLIKASI VISUAL BASIC 6.0

Nama : Sarah Nur Arafah

Kelas : 1EB16

NPM : 26218528

UNIVERSITAS GUNADARMA

2019

Cara Membuat Program Aplikasi Perhitungan Gaji Pegawai dengan ketentuan soal berikut:

Anda diminta membuat Program Perhitungan Gaji Pegawai secara Sederhana,dengan ketentuan dan tampilan sebagai berikut:

1. Jika Pegawai adalah:

a. golongan 1, maka gaji pokoknya adalah Rp 300.000

b. golongan 2, maka gaji pokoknya adalah Rp 400.000

c. golongan 3, maka gaji pokoknya adalah Rp 1.200.000

2. Jika pegawai lembur, lama lembur maksimal adalah 20 jam,dengan ketentuan:

a. golongan 1, maka honor lembur per jam adalah Rp 30.000

b. golongan 2, maka honor lembur per jam adalah Rp 40.000

c. golongan 3 honor lembur tidak dihitung

3. Tunjangan pegawai Rp 150.000 untuk semua golongan.

4. Jika pegawai:

a. Belum menikah: tunjangan pegawai ditambahkan Rp 20.000

b. Menikah belum punya anak: tunjangan pegawai ditambahkan Rp 25.000

c. Menikah dan punya anak 1: tunjangan pegawai ditambahkan Rp 45.000

d. Menikah dan punya anak 2: tunjangan pegawai ditambahkan Rp 55.000

e. Menikah dan punya anak lebih dari 2: tunjangan pegawai ditambahkan Rp 60.000

5. Jika pegawai sudah menikah, mendapatkan tunjangan beras sebesar 25.000

6. Jika pegawai tidak masuk lebih dari 3 hari,maka total gaji dipotong 2 persen (2%)

7. Total Gaji/THP (take home pay) =

Gaji pokok + Honor Lembur +Tunjangan Pegawai +Tunjangan Beras

Hitung total gaji untuk setiap pegawai berikut:

1. Bapak Andi : Golongan 1,Lembur 15 Jam,Menikah anak 4,Tidak Masuk 6 hari

2. Bapak Budi : Golongan 2,Lembur 1 Jam,Bujangan,Tidak Masuk 0 hari

3. Ibu Susi : Golongan 3,Lembur 21 Jam,Menikah anak 3, Tidak Masuk 3 hari

Cara Membuat Program Aplikasi Perhitungan Gaji di Visual Basic 6.0

1. Buka Aplikasi Visual Basic 6.0 maka akan muncul tampilan seperti ini

2. Pilih Standard EXE klik Open maka akan muncul form1 kemudian buatlah program perhitungan gaji pegawai diform dengan 8 Label dan 8 TextBox serta 1 Command Button

Cara untuk mengisi Label, TextBox dan Command Button di Properties

Label1: (Name) : label1

Caption : Nama Pegawai

Label2: (Name) : label2

Caption : Golongan

Label3: (Name) : label3

Caption : Lembur

Label4: (Name) : label4

Caption : Tidak Masuk Kerja

Label5: (Name) : label5

Caption : Menikah

Label6: (Name) : label6

Caption : Jumlah Anak

Label7: (Name) : label7

Caption : Tunjangan Beras

Label8: (Name) : label8

Caption : Total Gaji Adalah

TextBox1: (Name) : txtNamaPegawai

Text : Text1 dihapus/dikosongkan

TextBox2: (Name) : txtGolongan

Text : Text2 dihapus/dikosongkan

TextBox3: (Name) : txtLembur

Text : Text3 dihapus/dikosongkan

TextBox4: (Name) : txtTidakMasukKerja

Text : Text4 dihapus/dikosongkan

TextBox5: (Name) :txtMenikah

Text : Text5 dihapus/dikosongkan

TextBox6: (Name) : txtJumlahAnak

Text : Text6 dihapus/dikosongkan

TextBox7: (Name) : txtTunjanganBeras

Text : Text7 dihapus/dikosongkan

TextBox8: (Name) :txtTotalGaji

Text : Text8 dihapus/dikosongkan

Command1: (Name) :CmdHitungGaji

Caption : Hitung Gaji

3.Selanjutnya untuk mengetik codingan diform dengan cara mengklik Command Button Hitung Gaji sebanyak 2 kali.Ketik codingan program yang akan dibuat.

Penjelasan Codingan Program Aplikasi PerhitunganGaji Pegawai

Dim untuk mendeklarasikan nama variabel

Double untuk bilangan real

Val(txtGolongan.Text)

Val(txtLembur.Text)

Val(txtTidakmasukKerja.Text)

Val(txtMenikah.Text)

Val (txtJumlahAnak.Text)

Val(txtTunjanganBeras.Text)

Val(txtTotalGaji.Text)

codingan ini untuk nilai Value dan mengisi nilai di form yang ada di TextBox (Text)

Const Tunjangan Pegawai

codingan ini untuk menetapkan nilai yang tetap dan tidak berubah untuk semua golongan

Rumus If

untuk menghitung,membuat pernyataan dan memasukkan rumus If...Then...Else

End If

diperlukan untuk mengakhiri blok pernyataan If...Then..Else

Operator Aritmatika yang digunakan

* perkalian

+ penjumlaham

/ pembagian

Jika menghitung persen diubah ke bentuk desimal terlebih dahulu

contoh: 2% menjadi 0.02

Operator Pembanding yang digunakan

= sama dengan

> lebih besar

Private Sub CmdHitungGaji_Click()

End Sub

digunakan untuk procedure static waktu hidup variabel selama aplikasi berlangsung dan jika procedure dimatikan maka nilai akhirnya itu telah tersimpan dalam program tersebut

txtTotalGaji.Text = TotalGaji

txtTunjanganBeras.Text = Tunjangan Beras

untuk memunculkan nilai secara otomatis ketika commandbutton diklik

Untuk Menghitung Gaji dan menjalankan program secara otomatis dengan mengklik Run pilih start

Jika sudah selesai menghitung klik End untuk mengakhiri.