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 ->>

Minggu, 09 November 2014

Contoh Lembar Pengesahan



LEMBAR PENGESAHAN


NAMA                              : AGUS SAEFUDIN ZUHRI
NISN                                 : .........................................
Kompetensi Keahlian      : Teknik Komputer Jaringan


                                                                        Ditetapkan di : ......................
Pada Tanggal :    November 2012
Koordinator Prakerin                                    Guru Pembimbing                                      


                                                                        (di isi dengan nama pembimbing)
                                                                        
                                                                                   


Mengetahui
Kepala SMK Negeri 1
Tanjung Jabung Timur

 (Nama Kepala Sekolah)
NIP. ................................




Semoga Dapat Membantu

Read More ->>

Cover Laporan (PKL)



LAPORAN
PRAKTEK KERJA INDUSTRI



DI

...............................
JAMBI


OLEH

AGUS SAEFUDIN ZUHRI
NISN.........................




 LOGO






SEKOLAH MENENGAH KEJURUAN NEGERI 1
TANJUNG JABUNG TIMUR
MUARA SABAK
2012
Read More ->>

Rabu, 05 November 2014

CINTA ?




Apa si itu Cinta???

Berikut ini adalah alasan kenapa saya memberi judul "Apa si itu Cinta???"
Kata Cinta sering sekali disebut-sebut dari anak SD, SMP, SMA,  Mahasiswa dan Remaja. Namun banyak yang salah mengartikan "Cinta", seolah-olah "Cinta" selalu salah.
"Cinta" sebenarnya tidak salah, namun orang lah yang salah mengatasnamakan "Cinta".
Misalkan si cowok mengatakan "Aku Cinta kamu beb, sampai kapan pun aku cinta kamu". Namun pada akhirnya setelah putus mereka bermusuhan, dan si cewek bilang "Bussyit dengan Cinta, Cinta itu bohong".

Nah, ini lah salah satu contoh kecil yang menyalahkan "Cinta", Jika dia memang tulus mencintai anda walaupun anda putus dia tidak akan pernah membenci anda, dan dia harus sadar bahwa bukan cinta yang memisahkan anda akan tetapi anda tidak berjodoh.

Cinta yang tulus tidak akan pernah hilang, seperti halnya rasa Cinta kita kepada ke 2 orang tua kita, akan selalu menyayangi mereka dan mereka pun akan selalu menyayangi kita.

Pesan Penulis.
Jangan pernah menyalahkan cinta, karna Cinta tidak pernah bersalah.


ttd: agus saefudin zuhri


Read More ->>

KUNCI KECIL DARI SUKSES



"Sukses nya anda bukan orang lain yang menentukan, kesuksesan beriasal dari diri sendiri melalui orang lain."
Maksudnya, anda bisa sukses dengan kemampuan dan kerja keras anda, namun tidak semua orang sukses dengan sendirinya. banyak orang sukses melalui perantara orang lain.
Contohnya Dorongan penyemangat, pengalaman orang lain (Sukses) dan ajaran orang lain.

Pada umum nya manusia hidup itu selalu membutuhkan, tidak ada orang yang langsung bisa/sukses tanpa belaja. Salah satu orang yang mengajari anda adalah guru, dan kemungkinan besar anda juga bisa sukses dengan cara meminta pendapat para pakar bisnis.

Raihlah impian anda, tanamkan dalam diri anda bahwa anda pasti bisa. Yakin lah bahwa kesuksesan mu sudah menunggu anda dan anda harus menjemputnya.

"Lakukan hal sekecil apapun yang kita bisa"
"Tidak ada kata tidak bisa, kecuali anda mau berusaha dan terus berusaha"
"Kesuksesan tidak akan pernah menjemput anda, Anda lah yang menjemput Kesuksesan tersebut".
Read More ->>

NASEHAT


Dunia tidak sesempit yang anda kira, salah satunya adalah berkreasi.
Kreasikan bakat mu, dan capailah suatu perubahan yang tidak pernah di bayangkan sebelumnya melalui kreasi anda.

Langkah pertama yang perlu di perhatikan ialah, cari tahu apa kemampuan / bakat anda.
Lakukan kegiatan yang anda sukai. Contoh : Anda suka mendesain, namun anda belum mahir mendesain. Langkah selanjutnya ialah dengan cara menekuni Desain, insya Allah anda akan menjadi Desainer yang Hebat.

Setelah anda sukses, jangan pernah merasa sombong karna itu merupakan suatu ujian yg harus dilewati. Jika anda merasa sombong lambat laun anda akan merasakan dampaknya.
Ingatlah, anda dulu siapa ketika belum sukses, anda dulu bagaimana sebelum sukses. Terimalah nasehat dari orang lain dan berbagi ilmulah dengan yang membutuhkan ilmu anda dan pengalaman anda.

"Di Dunia ini tidak ada yang abadi, karna semua yang ada di dunia ini hanyalah titipan".

Read More ->>

Pengertian Servis (Perbaikan)




Pengertian Servis (Perbaikan)
Servis sering juga disebut dengan istilah perbaikan(jasa). Pengertian dari perbaikan itu sendiri adalah usaha untuk mengembalikan kondisi dan fungsi dari suatu benda atau alat yang rusak akibat pemakaian alat tersebut pada kondisi semula . Proses perbaikan tidak menuntut penyamaan sesuai kondisi awal, yang diutamakan adalah alat tersebut bisa berfungsi normal kembali. Perbaikan memungkinkan untuk terjadinya pergantian bagian alat/spare part. Terkadang dari beberapa produk yang ada dipasaran tidak menyediakan spare part untuk penggantian saat dilakukan perbaikan, meskipun ada, harga spare part tersebut hampir mendekati harga baru satu unit produk tersebut. Hal ini yang memaksa user/pelanggan untuk membeli baru produk yang sama. 

Tidak setiap perbaikan dapat diselesaikan dengan mudah, tergantung tingkat kesulitan dan kerumitanassembling/perakitan alat tersebut, mulai dari tingkatan jenis bahan hingga tingkat kecanggihan fungsi alat tersebut. Tingkat kesulitan tersebutlah yang menumbuhkan perbedaan jenis perbaikan, mulai jenis perbaikan ringan, perbaikan sedang dan perbaikan yang sering dinamakan servis berat. Dari jenis servis diatas ditentukan biaya perbaikan sesuai tingkat kesulitannya.

Service merupakan satu hal yang sangat penting dalam dunia bisnis karena service merupakan salah satu bentuk penghargaan kepada pelanggan. Service juga menjadi salah satu pertimbangan seseorang untuk memutuskan membeli produk atau menggunakan jasa dari sebua perusahaan. Service yang buruk bisa membuat pelanggan lari dan beralih ke perusahaan pesaing. Mengingat begitu pentingnya service bagi kelangsungan usaha kita, sudah selayaknya bila kita selalu menjaga service kita kepada pelanggan.



Berikut ini adalah pengertian dan definisi service:

# AHMAN SUTARDI & ENDANG BUDIASIH
Service adalah setiap kegiatan yang diperuntukkan atau ditujukan untuk memberikan kepuasan melalui pelayanan yang diberikan seseorang secara memuaskan

# HERMAWAN KERTAJAYA
Service merupakan sebuah paradigma dari orang - orang dalam sebuah perusahaan, tidak peduli apakah sebuah perusahaan yang menhasilkan product atau service untuk selalu memberikan best value pada pelanggannya

Service adalah "value enhancer" produk dan perusahaan anda

Service merupakan sebuah rangkaian proses, dan sebagai proses ia berkaitan dengan input - output.

# LOVELOCK & WIRTZ, 2004
Meskipun service sering kali memasukkan komponen tangibles yang penting, komponen ini bersama - sama dengan personel yang ahli menjadi kombinasi yang dominan dalam rangkaian value creation untuk penciptaan kinerja jasa

# MOHD ROZANI PAWAN CHEK
Service adalah merupakan gabungan dari selling (menjual), emphasis (menenkankan), return (timbal balik), Visit (mengunjungi), Increase (menambah atau meningkatkan), commitment (mengikatkan diri), dan earn (penghasilan)

# LAURENSIUS MANURUNG
Service merupakan aktivitas perusahaan dalam memberikan layanan pelanggan meliputi penanganan pelanggan dan keluhan pelanggan

# HOLY ICUN Y & MARTINUS GETTY
Service merupakan komponen tambahan seperti garansi jasa, garansi spare part, asuransi, dll

# IMELDA SAPUTRA
service adalah salah satu nilai tambah yang perlu kita miliki jika kita ingin tetap eksis di tengah - tengah persaingan yang semakin ketat seperti sekarang ini


 




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