Membuat sebuah program console application di Microsoft Visual Studio untuk menghitung dan menampilkan dan menampilkan daftar pegawai beserta total gaji yang diterimanya. Data pegawai diinput melalui keyboard dengan n sebagai banyaknya pegawai.
Data yang diinput :
- NIP
- Nama
- Alamat
- Status
- Jumlah Anak
- Golongan
- Jam Lembur
- Jika menikah dan memilii anak >=2 orang, maka tunjangan anak Rp. 100.000/per anak. Maksimal 3 anak.
- Jika tidak menikah maka tidak mendapatkan tunjangan anak.
- Jumlah_lembur = honor_lembur * jam_lembur
- Total_gaji = Gapok + Jumlah_lembur + tunjangan_anak
- Ketentuan Gaji
- Golongan A Gaji Pokok Rp 5.000.000 Honor Lembur / Jam Rp. 75.000
- Golongan B Gaji Pokok Rp 3.500.000 Honor Lembur / Jam Rp. 50.000
- Golongan C Gaji Pokok Rp 1.650.000 Honor Lembur / Jam Rp. 30.000
Structure pegawai
Dim nip, nama, alamat, status, status_pegawai, golongan, gapok As String
Dim jumlah_anak, tunjangan_anak As Integer
Dim jumlah_lembur, honor_lembur, jam_lembur As Integer
Dim total_gaji As Integer
End Structure
Sub Main()
Dim pgw() As pegawai
Dim n As Integer
Console.Write("Masukkan Jumlah Pegawai : ")
n = Console.ReadLine
Console.WriteLine(StrDup(50, "="))
ReDim pgw(n - 1)
For i = 0 To pgw.GetUpperBound(0)
Console.Write("Masukkan NIP Pegawai : ")
pgw(i).nip = Console.ReadLine
Console.Write("Masukkan Nama Pegawai : ")
pgw(i).nama = Console.ReadLine
Console.Write("Masukkan Alamat Pegawai : ")
pgw(i).alamat = Console.ReadLine
Console.Write("Masukkan Status Pegawai : ")
pgw(i).status = Console.ReadLine
Console.Write("Masukkan Jumlah Anak : ")
pgw(i).jumlah_anak = Console.ReadLine
Console.Write("Masukkan Golongan : ")
pgw(i).golongan = Console.ReadLine
Console.Write("Masukkan Jam Lembur : ")
pgw(i).jam_lembur = Console.ReadLine
pgw(i).jumlah_lembur = pgw(i).honor_lembur * pgw(i).jam_lembur
pgw(i).total_gaji = pgw(i).gapok + pgw(i).jumlah_lembur + pgw(i).tunjangan_anak
If pgw(i).status = "1" Then
pgw(i).status_pegawai = "Menikah"
Else
pgw(i).status_pegawai = "Tidak Menikah"
End If
If pgw(i).golongan = "A" Then
pgw(i).gapok = "5.000.000"
pgw(i).honor_lembur = "75.000"
ElseIf pgw(i).golongan = "B" Then
pgw(i).gapok = "3.500.000"
pgw(i).honor_lembur = "50.000"
Else
pgw(i).gapok = "1.650.000"
pgw(i).honor_lembur = "30.000"
End If
If pgw(i).status = "Menikah" And pgw(i).jumlah_anak = 2 Then
pgw(i).tunjangan_anak = "200.000"
ElseIf pgw(i).status = "Menikah" And pgw(i).jumlah_anak >= 3 Then
pgw(i).tunjangan_anak = "300.000"
ElseIf pgw(i).status = "Menikah" And pgw(i).jumlah_anak = 1 Then
pgw(i).tunjangan_anak = "0"
Else
pgw(i).tunjangan_anak = "0"
End If
Console.WriteLine(StrDup(50, "="))
Console.WriteLine()
Next
Console.WriteLine("NIP" & Space(3) & "NAMA" & Space(7) & "Alamat" & Space(7) & "Status" & Space(13) & "Jumlah Anak" & Space(2) & "Golongan" & Space(2) & "Jam Lembur" & Space(2) & "Jumlah Lembur" & Space(7) & "Total Gaji" & Space(7))
Console.WriteLine(StrDup(65, "="))
For i = 0 To n - 1
Console.WriteLine(pgw(i).nip & Space(5 - Len(pgw(i).nip)) & pgw(i).nama & Space(7 - Len(pgw(i).nama)) & pgw(i).alamat & Space(7 - Len(pgw(i).alamat)) & pgw(i).status_pegawai & Space(10 - Len(pgw(i).status_pegawai)) & pgw(i).jumlah_anak & Space(3 - Len(pgw(i).jumlah_anak)) & pgw(i).golongan & Space(3 - Len(pgw(i).golongan)) & pgw(i).gapok & Space(10 - Len(pgw(i).gapok)) & pgw(i).jam_lembur & Space(4 - Len(pgw(i).jam_lembur)) & pgw(i).jumlah_lembur & Space(7 - Len(pgw(i).jumlah_lembur)) & pgw(i).tunjangan_anak & Space(7 - Len(pgw(i).tunjangan_anak)) & pgw(i).total_gaji & Space(7 - Len(pgw(i).total_gaji)))
Next
Console.WriteLine(StrDup(65, "="))
Console.ReadKey()
End Sub
Silahkan copy rumus diatas. Terima kasih atas kunjungannya !!
