Program Absensi Karyawan Menggunakan Turbo Pascal

Oleh peistar

Tuesday, 19 December 2017

Bagikan :

Tweet

Absensi sangat diperlukan untuk mengetahui kehadiran seseorang, pada suatu perusahaan absensi juga berpengaruh pada gaji yang akan diperoleh oleh karyawan selain itu pihak perusahaan juga dapat mengontrol kedisiplinan para karyawannya, pada kesempatan kali ini saya akan memberikan contoh aplikasi sederhana yang dapat saudara implementasikan dalam pembuatan absensi. Adapun contoh program absensi karyawan dengan menggunakan Turbo Pascal sebagai berikut :

Baca juga link berikut ini :

1. Contoh Program Sederhana Menggunakan Bahasa Pemrograman Pascal
2. Program Pembelian Barang Menggunakan Pascal
3. Penggunaan Fungsi Gotoxy Pada Pascal
4. Perulangan Menggunakan Fo.. To.. Do Pada Pascal
5. Cara Membuat Fungsi If Pada Pascal Dengan Mudah
6. Cara Instalasi Pemograman Pascal Windows 7

Tampilan Output Absensi Karyawan :

Coding Program :

Uses crt;

Var nik:String;

tgl:String;

jam:String;

begin

clrscr;

gotoxy(35,2); Writeln('CV. PeiIndostar.Com');

gotoxy(30,3); Writeln('Jl. Rambutan No. 199 - Pekanbaru');

gotoxy(20,5); Writeln('-------------------------------------------------------');

Writeln;

gotoxy(35,4); Writeln('ABSENSI KARYAWAN');

Writeln;

gotoxy(20,7); Writeln('NIK           :');

gotoxy(20,8); Writeln('Tanggal Masuk :');

gotoxy(20,9); Writeln('Jam Masuk     :');

gotoxy(20,11); Writeln('|---------------------------------------------------------------|');

gotoxy(20,12); Writeln('| Nama Karyawan  |  Tanggal Masuk     |  Keterangan  |');

gotoxy(20,13); Writeln('|---------------------------------------------------------------|');

gotoxy(20,14); Writeln('|                                 |                                  |                         |');

gotoxy(20,15); Writeln('|---------------------------------------------------------------|');

gotoxy(38,17); Write('Pekanbaru   : 12/06/2016');

gotoxy(38,18); Write('Pimpinan    : PeiIndostar');

gotoxy(38,19); write('-------------------------');

gotoxy(36,7); Readln(nik);

gotoxy(36,8); Readln(tgl);

gotoxy(36,9); Readln(jam);

gotoxy(23,14); If nik='0001' then

begin

Writeln('PeiStar');

gotoxy(40,14); Writeln('',jam);

gotoxy(60,14); Writeln('Masuk');

end;gotoxy(23,14); If nik='0002' then

begin

Writeln('M. Aziz');

gotoxy(40,14); Writeln('',jam);

gotoxy(60,14); Writeln('Masuk');

end;

gotoxy(23,14); If nik='0003' then

begin

Writeln('Rusdi Rustam');

gotoxy(40,14); Writeln('',jam);

gotoxy(60,14); Writeln('Masuk');

end;

gotoxy(23,14); If nik='0004' then

begin

Writeln('Fahdini Sasmita');

gotoxy(40,14); Writeln('',jam);

gotoxy(60,14); Writeln('Masuk');

end;

gotoxy(23,14); If nik='0005' then

begin

Writeln('Regi Rahman');

gotoxy(40,14); Writeln('',jam);

gotoxy(60,14); Writeln('Masuk');

end;

readkey;

end.

GotoXY merupakan perintah untuk meletakan koordinat data yang akan ditampilakn X merupakan kolom dan Y merupakan baris, dengan menggunakan fungsi gotoxy ini kita mempercantik tampilan output.

Ringkasan :

Program ini merupakan contoh program sederhana menggunakan turbo pascal, dengan menggunakan fungsi tabel, gotoxy, dan fungsi if untuk menentukan suatu kondisi yang dapat kita intruksi, selanjutnya saudara dapat mengembangkan program ini menjadi lebih baik dan bermanfaat. Terimakasih banyak atas kunjungan saudara, selamat mencoba. Wasalam...!!!

Tag : Pemrograman Pascal