|
Assalamualaikum Wr. Wb.
Saya disini membuat
modul sederhana dengan judul “Program penghitungan gaji kariyawan dengan Array”
berharap modul ini dapat bermanfaat dan bisa di jadikan referensi untuk
pembuatan Aplikasi, saya disini masih menggunakan Aplikasi Delphi, lanjut saja
mari kita mulai membuat alplikasi nya, langkah – langkahnya sebagai berikut:
1. Kita buka menu
delphi dengan klik kanan lalu pilih run as administrator
2. Lalu klik
file—new—other dan klik console application
(i)
(ii)
Selanjutnya
menuliskan rumus rumus yang dibutuhkan pada kolom seperti di bawah ini :
Setelah
ini baru tuliskan rumus
program Project2;
{$APPTYPE CONSOLE}
uses
Windows;
procedure Clearscr;
var
hStdOut: HWND;
ScreenBufInfo: TConsoleScreenBufferInfo;
Coord1: TCoord;
z: Integer;
begin
hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(hStdOut,
ScreenBufInfo);
for z := 1 to ScreenBufInfo.dwSize.Y do
WriteLn;
Coord1.X := 0;
Coord1.Y := 0;
SetConsoleCursorPosition(hStdOut,
Coord1);
end;
var
nip,nama,jabatan,ket:array[1..100] of
String[30];
janak,status:array[1..100] of integer;
tistri,tanak,a,gpokok,gbersih:array
[1..100] of real;
i,n,pil:integer;
tkeluar:real;
begin
repeat
Clearscr;
writeln('==== Pilihan Menu Program ====');
writeln('==============================');
writeln('=> 1. Masukan Banyaknya Data');
writeln('=> 2. Input Data Pegawai');
writeln('=> 3. Menampilkan Hasil Input');
writeln('=> 4. Menampilkan Total Pengeluaran Gaji');
writeln('=> 5. Keluar dari Program');
writeln('==============================');
write('=> Masukan Pilihan Menu : ');readln(pil);
if (pil=1) then begin
write('Masukan Banyaknya Data Pegawai :');readln(n);
end
else if (pil=2) then begin
for i:=1 to n do
begin
write('=> Masukan NIP : ');readln(nip[i]);
write('=> Masukan Nama Pegawai :');readln(nama[i]);
write('=> Masukan Jabatan : ');readln
(jabatan[i]);
write('=> Masukan Gaji Pokok : ');readln
(gpokok[i]);
write('=> Pilih Status 1. Menikah 2. Belum Menikah : ');
readln(status[i]);
if (status[i]=1) then begin
tistri[i]:=(20/100)*gpokok[i];
write('=> Masukan Jumlah Anak : ');readln
(janak[i]);
tanak[i]:=janak[i]*(10/100)*gpokok[i];
gbersih[i]:=gpokok[i]+tistri[i]+tanak[i];
ket[i]:='Menikah';
end
else if (status[i]=2) then begin
gbersih[i]:=gpokok[i];
ket[i]:='Belum Menikah';
tistri[i]:=0;
tanak[i]:=0;
end;
end;
end
else if (pil=3) then begin
for i:=1 to n do
begin
writeln('=> NIP : ',nip[i]);
writeln('=> Nama Pegawai : ',nama[i]);
writeln('=> Jabatan : ',jabatan[i]);
writeln('=> Gaji Pokok : ',gpokok[i]:0:2);
writeln('=> Status : ',ket[i]);
writeln('=> Tunjangan Istri : ',tistri [i]:0:2);
writeln('=> Jumlah Anak : ',janak[i]);
writeln('=> Tunjangan Anak : ',tanak
[i]:0:2);
writeln('===========================');
end;
write('Tekan Enter untuk kembali ke Menu');readln;
end
else if(pil=4) then begin
tkeluar:=0;
for i:=1 to n do
begin
tkeluar:=tkeluar+gbersih[i];
end;
for i:= 1 to n do
begin
writeln('=> Gaji Bersih atas Nama : ',nama
[i],' = ',gbersih[i]:0:2);
end;
writeln('================================================');
writeln('=> Total Pengeluaran Gaji =',tkeluar:0:2);
readln;
end
else if (pil=5) then begin
writeln('=> Terima Kasih telah menggunakan Program
ini.');
end
else begin
writeln('=> Maaf, Anada Memasukan Pilihan Menu yang
salah');
write('=> Tekan Enter untuk kembali ke Menu');
readln;
end;
until(pil=5);
readln;
end.
Setelah
rumus rumus itu sudah selesai di tuliskan dalam kolom project mka di run / f9
Lalu
selanjutnya pilih menu pada pilihan menu dengan menuliskan angka 1 sampai 4,
jika ingin memulai dari awal maka pilih 1 dan mengetikan jumlah data yang akan
di entry.
Selanjutnya
di enter maka akan ditunjukan untuk memlih menu lagi banyak data pegawai dan
kemudian isi kan 2 (hanya sebagai contoh) dan kemudian enter, setelah itu pilih
menu ke 3 dan isikan data dari nim hingga status dan jumlah anak jika sudah
menikah
Setelah
data di isi maka di enter kembali dan ketikan pilihan menu nomor 3 maka ketikan
3 untuk melihat data yang sudah di input.
Setelah
itu klik enter dan kembali kemenu awal dan klik atau ketik angka 4 untu k
menampilkan total pengeluaran gaji.
Setelah
muncul tampilan total pengeluaran gaji, jika ingin mengakhiri program maka klik
enter dan pilih nomer 5 maka akan keluar dan tampil.
Langkah
terakhir klik enterl kembali maka keluarlar dari program.
Maka
berakhirlah makalah dari saya, saya berharap makalah saya dapat bermanfaat dan
dapat membantu dalam perkembangan ilmu pendidikan.
Sekian
dari saya, bila ada kata kata yang kurang berkenan dan jika ada kesalahan
penulisan saya mohon maaf. Terima kasih..
Wassalamualaikum Wr. Wb
0 komentar:
Posting Komentar