Senin, 29 Desember 2014

APLIKASI PENGHITUNGAN GAJI KARYAWAN - ARRAY - DELPHI7


NAMA            : AGUS SAEFUDIN ZUHRI
NIM                : 11140345
PRODI            : SISTEM INFORMASI






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

Read More ->>

Sample text

Links

Comments

Featured Post 5

Blogger templates

Featured Post 6

Sponsors

Notice

Text

- See more at: http://kuc0pas.blogspot.com/2012/09/cara-membuat-kursor-mouse-di-ikuti-teks.html#sthash.Zczh07Ao.dpuf
Diberdayakan oleh Blogger.

Followers

About Me

Followers

Tentang Saya

Jam & Callender