Program Kartu_Perpustakaan;
Uses WinCrt;
Type
Mahasiswa = Record
NIM : Word;
Nama : String[15];
JK : Char;
Jenis_Kelamin : String[10];
TTL : String[30];
Alamat : String[25];
Jur : Char;
Jurusan : String[22];
End;
Var
FileMhs : File of Mahasiswa;
Data : Mahasiswa;
Pil,Pilihan,Ul : Char;
Procedure Menu_Utama;
Begin
Screensize.X := 168;
Screensize.Y := 45;
Clrscr;
Gotoxy(36,4) ;Write('======================================================================================================');
Gotoxy(59,5) ;Write('APLIKASI DATA PERPUSTAKAAN KAMPUS STMIK PALANGKARAYA ');
Gotoxy(36,6) ;Write('======================================================================================================');
Gotoxy(36,8) ;Write('MENU DATA ANGGOTA');
Gotoxy(36,9) ;Write('=========================');
Gotoxy(36,11);Write('A. Tambah Data Anggota');
Gotoxy(36,13);Write('B. Edit Data Anggota');
Gotoxy(36,15);Write('C. Hapus Data Anggota');
Gotoxy(36,17);Write('D. Tampilkan Data Anggota');
Gotoxy(36,19);Write('E. Pencarian ');
Gotoxy(76,8) ;Write('MENU DATA BUKU');
Gotoxy(76,9) ;Write('======================');
Gotoxy(76,11);Write('F. Tambah Data Buku');
Gotoxy(76,13);Write('G. Edit Data Buku');
Gotoxy(76,15);Write('H. Hapus Data Buku');
Gotoxy(76,17);Write('I. Tampilkan Data Buku');
Gotoxy(111,8) ;Write('MENU DATA PEMBELIAN BUKU ');
Gotoxy(111,9) ;Write('========================');
Gotoxy(111,11);Write('J. Tambah Data Transaksi');
Gotoxy(111,13);Write('K. Edit Data Transaksi');
Gotoxy(111,15);Write('L. Hapus Data Transaksi');
Gotoxy(111,17);Write('M. Tampilkan Data Transaksi');
Gotoxy(36,21);Write('======================================================================================================');
Gotoxy(50,23);Write('MENU DATA PEMINJAMAN BUKU ');
Gotoxy(50,24);Write('============================');
Gotoxy(50,26);Write('N. Tambah Data Peminjaman');
Gotoxy(50,28);Write('O. Edit Data Peminjaman');
Gotoxy(50,30);Write('P. Hapus Data Peminjaman');
Gotoxy(50,32);Write('Q. Tampilkan Data Peminjaman');
Gotoxy(98,23);Write('MENU DATA PENGEMBALIAN BUKU ');
Gotoxy(98,24);Write('==============================');
Gotoxy(98,26);Write('R. Tambah Data Pengembalian');
Gotoxy(98,28);Write('S. Edit Data Pengembalian');
Gotoxy(98,30);Write('T. Hapus Data Pengembalian');
Gotoxy(98,32);Write('U. Tampilkan Data Pengembalian');
Gotoxy(36,35);Write('======================================================================================================');
Gotoxy(81,36);Write('W. Bantuan (?) ');
Gotoxy(75,38);Write('Y. Tentang Aplikasi Ini (i) ');
Gotoxy(80,40);Write('X. Keluar (Exit)');
Gotoxy(36,41);Write('======================================================================================================');
Gotoxy(75,43);Write('Masukkan Pilihan Anda [A..X]: ');Pil:=Readkey;
End;
{Procedure Untuk Menangani Data Anggota Perpustakaan}
Procedure BukaFile;
Begin
Assign(FileMhs,'Mhs.Dat');
{$I-};
Reset(FileMhs);
{$I+};
End;
Procedure Tambah_Data_Anggota;
Var
Lagi : Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFile;
If IOResult<>0 Then
Rewrite(FileMhs);
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(55,4);Write('TAMBAH DATA ANGGOTA');
Gotoxy(55,5);Write('===================');
Gotoxy(53,7);Write('NIM : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileMhs)) Do
Begin
Seek(FileMhs,i);
Read(FileMhs,Data);
If Data.NIM=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(49,15);Write('NIM Anggota "',NOCR,'" Ini Sudah Ada!');
End
Else
Begin
Seek(FileMhs,Filesize(FileMhs));
Data.NIM:=NOCR;
Gotoxy(53,9);Write('Nama Anggota : ');Readln(Data.Nama);
Gotoxy(53,11);Write('Jenis Kelamin (L:Laki-laki dan P : Perempuan):');Readln(Data.JK);
If (Data.JK = 'L') or (Data.JK='l') then
Data.Jenis_Kelamin:='Laki-laki'
Else
If (Data.JK='P') or (Data.JK='p') then
Data.Jenis_Kelamin:='Perempuan'
Else
Data.Jenis_Kelamin:='Tidak Ada';
Gotoxy(53,13) ;Write('Jenis Kelamin Anda : ', Data.Jenis_Kelamin);
Gotoxy(53,15);Write('TTL : ');Readln(Data.TTL);
Gotoxy(53,17);Write('Alamat : ');Readln(Data.Alamat);
Gotoxy(53,19);Write('Jurusan : ');Readln(Data.Jur);
If(Data.Jur='M')or(Data.Jur='m') then
Data.Jurusan:='Manajemen Informartika'
Else
If(Data.Jur='S')or(Data.Jur='s')then
Data.Jurusan:='Sistem Informasi'
Else
If(Data.Jur='T')or(Data.Jur='t')then
Data.Jurusan:='Teknik Informatika'
Else
Data.Jurusan:='Tidak Ada';
Gotoxy(53,21);Write('Jurusan Anda:',Data.Jurusan);
Write(FileMhs,Data);
End;
Gotoxy(20,26);Write('Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(FileMhs);
End;
Procedure Edit_Data_Anggota;
Var
Lagi : Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFile;
If IOResult<>0 Then
Write('Data Masih Kosong....!!')
Else
Begin
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(55,4);Write('EDIT DATA ANGGOTA');
Gotoxy(55,5);Write('=================');
Gotoxy(55,7);Write('NIM : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileMhs)) Do
Begin
Seek(FileMhs,i);
Read(FileMhs,Data);
If Data.NIM=NOCR Then
Begin
Ada:=True;
Gotoxy(55,9) ;Write('Nama Anggota : ',Data.Nama);
Gotoxy(55,11);Write('Jenis Kelamin : ',Data.Jenis_Kelamin);
Gotoxy(55,13);Write('TTL : ',Data.TTL);
Gotoxy(55,15);Write('Alamat : ',Data.Alamat);
Gotoxy(55,17);Write('Jurusan : ',Data.Jurusan);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Data.NIM:=NOCR;
Gotoxy(55,23);Write('Nama Anggota : ');Readln(Data.Nama);
Gotoxy(55,25);Write('Jenis Kelamin (L:Laki-laki dan P : Perempuan):');Readln(Data.JK);
If (Data.JK = 'L') or (Data.JK='l') then
Data.Jenis_Kelamin:='Laki-laki'
Else
If (Data.JK='P') or (Data.JK='p') then
Data.Jenis_Kelamin:='Perempuan'
Else
Data.Jenis_Kelamin:='Tidak Ada';
Gotoxy(55,27);Write('Jenis Kelamin Anda : ', Data.Jenis_Kelamin);
Gotoxy(55,29);Write('TTL : ');Readln(Data.TTL);
Gotoxy(55,31);Write('Alamat : ');Readln(Data.Alamat);
Gotoxy(55,35);Write('Jurusan : ');Readln(Data.Jur);
If(Data.Jur='M')or(Data.JK='m') then
Data.Jurusan:='Manajemen Informartika'
Else
If(Data.Jur='S')or(Data.Jur='s')then
Data.Jurusan:='Sistem Informasi'
Else
If(Data.Jur='T')or(Data.Jur='t')then
Data.Jurusan:='Teknik Informatika'
Else
Data.Jurusan:='Tidak Ada';
Gotoxy(55,36);Write('Jurusan Anda : ', Data.Jurusan);
Seek(FileMhs,i);
Write(FileMhs,Data);
End
Else
Begin
Gotoxy(55,15);Write('NIM Anggota "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(55,38);Write('Mau Edit Data Lagi ? [Y/T] : ');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(Filemhs);
End;
Procedure Hapus_Data_Anggota;
Var
FileTmp : File of Mahasiswa;
Lagi,Hapus: Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFile;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Clrscr;
Assign(FileTmp,'mhs.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
Gotoxy(55,4);Write('HAPUS DATA ANGGOTA');
Gotoxy(55,5);Write('==================');
Gotoxy(52,7);Write('NIM : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileMhs)) Do
Begin
Seek(FileMhs,i);
Read(FileMhs,Data);
If Data.NIM=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(52,9) ;Write('Nama Anggota : ',Data.Nama);
Gotoxy(52,11);Write('Jenis Kelamin : ',Data.Jenis_Kelamin);
Gotoxy(52,13);Write('TTL : ',Data.TTL);
Gotoxy(52,15);Write('Alamat : ',Data.Alamat);
Gotoxy(52,19);Write('Jurusan : ',Data.Jurusan);
Gotoxy(52,22);Write('Data Ini Mau Di Hapus ? [Y/T] : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(FileMhs) Do
Begin
Seek(FileMhs,i-1);
Read(FileMhs,Data);
If Data.NIM<>NOCR Then
Write(FileTmp,Data);
End;
Close(FileMhs);
Assign(FileMhs,'MHS.Dat');
Erase(FileMhs);
Assign(FileTmp,'Mhs.tmp');
Rename(FileTmp,'Mhs.Dat');
Gotoxy(52,24);Write('NIM "',NOCR,'" Sudah Di Hapus!');
End;
End
Else
Begin
Gotoxy(52,19);Write('NIM "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(52,26);Write('Mau Hapus Data Lagi [Y/T] : ');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;
Procedure Tampil_Data_Anggota;
Var
i:Integer;
Begin
Ul:='Y';
BukaFile;
If IoResult<>0 Then
Write('Maaf Data Masih Kosong !')
Else
Begin
Clrscr;
Writeln;
Writeln;
Writeln(' =========================');
Writeln(' DATA ANGGOTA PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln(' =========================');
Writeln;
Writeln(' Masa Berlaku s/d : 2020');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO NIM NAMA JENIS TEMPAT/ ALAMAT JURUSAN');
Writeln(' ANGGOTA KELAMIN TANGGAL LAHIR ANGGOTA ');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FileMhs) Do
Begin
Inc(i);
Read(FileMhs,Data);
Writeln(i:2,Data.NIM:7,Data.Nama:15,Data.Jenis_Kelamin:17,Data.TTL:26,Data.Alamat:22,Data.Jurusan:25);
End;
Writeln('==================================================================================================================');
Close(FileMhs);
End;
Writeln;
Writeln;
Write('Tekan Tombol Apa Saja Untuk Keluar');Readkey;
End;
{Procedure Untuk Menangani Data Pencarian Nama Anggota}
Procedure Cari_Nama_Anggota;
Var
i : Integer;
NA : String[10];
Lagi : Char;
Begin
Ul:='Y';
Lagi:='Y';
Repeat
Clrscr;
Writeln;
Writeln;
Write(' Cari Nama Anggota : ');Readln(NA);
BukaFile;
If IoResult <> 0 Then
Write('Maaf Data Masih Kosong ! ')
Else
Begin
Clrscr;
Writeln;
Writeln;
Writeln(' =========================');
Writeln(' DATA ANGGOTA PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln(' =========================');
Writeln;
Writeln(' Masa Berlaku s/d : 2020');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO NIM NAMA JENIS TEMPAT/ ALAMAT JURUSAN');
Writeln(' ANGGOTA KELAMIN TANGGAL LAHIR ANGGOTA ');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FileMhs) Do
Begin
Read(FileMhs,Data);
If Data.Nama=NA Then
Begin
Inc(i);
Writeln(i:2,Data.NIM:7,Data.Nama:15,Data.Jenis_Kelamin:17,Data.TTL:26,Data.Alamat:22,Data.Jurusan:25);
End;
End;
Writeln('==================================================================================================================');
Close(FileMhs);
End;
Writeln;
Write('Mau Lihat Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
{Procedure Untuk Menangani Data Buku Perpustakaan}
Type
Buku = Record
ID : Word;
JudulBk : String [30];
Pengarang : String [30];
Penerbit : String [30];
End;
Var
FileBk : File Of Buku;
DataBk : Buku;
Pilih,Pilihannya,Ulang : Char;
Procedure BukaFileBk;
Begin
Assign(FileBk,'Bk.Dat');
{$I-};
Reset(FileBk);
{$I+};
End;
Procedure Tambah_Data_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileBk;
If IOResult<>0 Then
Rewrite(FileBk);
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,5);Write('TAMBAH DATA BUKU');
Gotoxy(30,6);Write('=====================');
Gotoxy(20,9);Write('ID : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBk)) Do
Begin
Seek(FileBk,i);
Read(FileBk,DataBk);
If DataBk.ID=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,13);Write('ID "',NOCR,'" Ini Sudah Ada!');
End
Else
Begin
Seek(FileBk,Filesize(FileBk));
DataBk.ID:=NOCR;
Gotoxy(20,11); Write('Judul Buku : ');Readln(DataBk.JudulBk);
Gotoxy(20,13);Write('Pengarang : ');Readln(DataBk.Pengarang);
Gotoxy(20,15);Write('Penerbit : ');Readln(DataBk.Penerbit);
Write(FileBk,DataBk);
End;
Gotoxy(20,19);Write('Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(FileBk);
End;
Procedure Edit_Data_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,5);Write('EDIT DATA BUKU');
Gotoxy(30,6);Write('=====================');
Gotoxy(20,9);Write('ID : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBk)) Do
Begin
Seek(FileBk,i);
Read(FileBk,DataBk);
If DataBk.ID=NOCR Then
Begin
Ada:=True;
Gotoxy(20,11); Write('Judul Buku : ',DataBk.JudulBk);
Gotoxy(20,13);Write('Pengarang : ',DataBk.Pengarang);
Gotoxy(20,15);Write('Penerbit : ',DataBk.Penerbit);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
DataBk.ID:=NOCR;
Gotoxy(20,18);Write('Judul Buku : ');Readln(DataBk.JudulBk);
Gotoxy(20,20);Write('Pengarang : ');Readln(DataBk.Pengarang);
Gotoxy(20,22);Write('Penerbit : ');Readln(DataBk.Penerbit);
Seek(FileBk,i);
Write(FileBk,DataBk);
End
Else
Begin
Gotoxy(20,17);Write('ID "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,25);Write('Mau Edit Data Lagi[Y/T:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(FileBk);
End;
Procedure Hapus_Data_Buku;
Var
FileTmp : File of Buku;
Lagi,Hapus: Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFileBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Clrscr;
Assign(FileTmp,'bk.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
Gotoxy(30,5);Write('HAPUS DATA BUKU');
Gotoxy(30,6);Write('=====================');
Gotoxy(20,9);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBk)) Do
Begin
Seek(FileBk,i);
Read(FileBk,DataBk);
If DataBk.ID=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,11);Write('Judul Buku : ',DataBk.JudulBk);
Gotoxy(20,13);Write('Pengarang : ',DataBk.Pengarang);
Gotoxy(20,15);Write('Penerbit : ',DataBk.Penerbit);
Gotoxy(20,17);Write('Data Ini Mau Di Hapus ? [Y/T] : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(FileBk) Do
Begin
Seek(FileBk,i-1);
Read(FileBk,DataBk);
If DataBk.ID<>NOCR Then
Write(FileTmp,DataBk);
End;
Close(FileBk);
Assign(FileBk,'bk.dat');
Erase(FileBk);
Assign(FileTmp,'bk.tmp');
Rename(FileTmp,'bk.Dat');
Gotoxy(20,20);Write('ID "',NOCR,'" Sudah Di Hapus!');
End;
End
Else
Begin
Gotoxy(20,21);Write('ID "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,22);Write('Mau Hapus Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;
Procedure Tampil_Data_Buku;
Var
i:Integer;
Begin
Ul:='Y';
BukaFileBk;
If IoResult<>0 Then
Write('Maaf Data Masih Kosong !')
Else
Begin
Clrscr;
Writeln;
Writeln(' DATA BUKU PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO. ID JUDUL NAMA NAMA');
Writeln(' BUKU BUKU PENGARANG PENERBIT');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FileBk) Do
Begin
Inc(i);
Read(FileBk,DataBk);
Writeln(i:2,DataBk.ID:8,DataBk.JudulBk:37,DataBk.Pengarang:32,DataBk.Penerbit:35);
End;
Writeln('==================================================================================================================');
Close(FileBk);
End;
Writeln;
Writeln;
Write('Tekan Tombol Apa Saja Untuk Keluar');Readkey;
End;
{Procedure Untuk Menangani Data Transaksi Peminjaman Buku Pada Perpustakaan}
Type
PinjBk = Record
KBk : Word;
NPjm : String [30];
JuBkSatu : String [30];
JuBkDua : String [30];
JuBkTiga : String [30];
End;
Var
FilePinjBk : File Of PinjBk;
DataPinjBk : PinjBk;
PilihAndaLagi,PilihanAndaLagi,UlangiLagi : Char;
Procedure BukaFilePinjBk;
Begin
Assign(FilePinjBk,'PinjBk.Dat');
{$I-};
Reset(FilePinjBk);
{$I+};
End;
Procedure Tambah_Data_Peminjaman_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFilePinjBk;
If IOResult<>0 Then
Rewrite(FilePinjBk);
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('TAMBAH DATA PEMINJAMAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FilePinjBk)) Do
Begin
Seek(FilePinjBk,i);
Read(FilePinjBk,DataPinjBk);
If DataPinjBk.KBk=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,15);Write('KBk "',NOCR,'" Ini Sudah Ada!');
End
Else
Begin
Seek(FilePinjBk,Filesize(FilePinjBk));
DataPinjBk.KBk:=NOCR;
Gotoxy(20,8) ;Write('Nama Peminjam : ');Readln(DataPinjBk.NPjm);
Gotoxy(20,11);Write('Jumlah buku yang boleh dipinjam maksimal hanya boleh 3 (Tiga) Buah Saja !!.');
Gotoxy(20,13);Write('Berikan tanda (-) apabila tidak ada buku yang dipinjam.');
Gotoxy(20,16);Write('Judul Buku 1 : ');Readln(DataPinjBk.JuBkSatu);
Gotoxy(20,18);Write('Judul Buku 2 : ');Readln(DataPinjBk.JuBkDua);
Gotoxy(20,20);Write('Judul Buku 3 : ');Readln(DataPinjBk.JuBkTiga);
Gotoxy(20,23);Write('TERIMA KASIH TELAH BERKUNJUNG DI PERPUSTAKAAN INI');
Gotoxy(20,25);Write('HARAP BUKU YANG TELAH DIPINJAM DAPAT DIKEMBALIKAN SECARA TEPAT WAKTU');
Write(FilePinjBk,DataPinjBk);
End;
Gotoxy(20,28);Write('Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(FilePinjBk);
End;
Procedure Edit_Data_Peminjaman_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFilePinjBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('EDIT DATA PEMINJAMAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FilePinjBk)) Do
Begin
Seek(FilePinjBk,i);
Read(FilePinjBk,DataPinjBk);
If DataPinjBk.KBk=NOCR Then
Begin
Ada:=True;
Gotoxy(20,8) ;Write('Nama Peminjam : ',DataPinjBk.NPjm);
Gotoxy(20,10);Write('Judul Buku 1 : ',DataPinjBk.JuBkSatu);
Gotoxy(20,12);Write('Judul Buku 2 : ',DataPinjBk.JuBkDua);
Gotoxy(20,14);Write('Judul Buku 3 : ',DataPinjBk.JuBkTiga);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
DataPinjBk.KBk:=NOCR;
Gotoxy(20,18) ;Write('Nama Peminjam : ');Readln(DataPinjBk.NPjm);
Gotoxy(20,20) ;Write('Judul Buku 1 : ');Readln(DataPinjBk.JuBkSatu);
Gotoxy(20,22) ;Write('Judul Buku 2 : ');Readln(DataPinjBk.JuBkDua);
Gotoxy(20,24) ;Write('Judul Buku 3 : ');Readln(DataPinjBk.JuBkTiga);
Seek(FilePinjBk,i);
Write(FilePinjBk,DataPinjBk);
End
Else
Begin
Gotoxy(20,26);Write('KBk "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,28);Write('Mau Edit Data Lagi[Y/T:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(FilePinjBk);
End;
Procedure Hapus_Data_Peminjaman_Buku;
Var
FileTmp : File of PinjBk;
Lagi,Hapus: Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFilePinjBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Clrscr;
Assign(FileTmp,'pinjbk.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
Gotoxy(30,1);Write('HAPUS DATA PEMINJAMAN BUKU');
Gotoxy(30,2);Write('=====================');
Gotoxy(20,4);Write('Kode Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FilePinjBk)) Do
Begin
Seek(FilePinjBk,i);
Read(FilePinjBk,DataPinjBk);
If DataPinjBk.KBk=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,13) ;Write('Nama Peminjam : ',DataPinjBk.NPjm);
Gotoxy(20,15) ;Write('Judul Buku 1 : ',DataPinjBk.JuBkSatu);
Gotoxy(20,17) ;Write('Judul Buku 2 : ',DataPinjBk.JuBkDua);
Gotoxy(20,19) ;Write('Judul Buku 3 : ',DataPinjBk.JuBkTiga);
Gotoxy(20,22);Write('Apakah Data Ini Mau Di Hapus ? [Y/T] : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(FilePinjBk) Do
Begin
Seek(FilePinjBk,i-1);
Read(FilePinjBk,DataPinjBk);
If DataPinjBk.KBk<>NOCR Then
Write(FileTmp,DataPinjBk);
End;
Close(FilePinjBk);
Assign(FilePinjBk,'pinjbk.dat');
Erase(FilePinjBk);
Assign(FileTmp,'pinjbk.tmp');
Rename(FileTmp,'pinjbk.dat');
Gotoxy(20,24);Write('KBk "',NOCR,'" Sudah Di Hapus!');
End;
End
Else
Begin
Gotoxy(20,15);Write('KBk "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,16);Write('Mau Hapus Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;
Procedure Tampil_Data_Peminjaman_Buku;
Var
i:Integer;
Begin
Ul:='Y';
BukaFilePinjBk;
If IOResult<>0 Then
Write('Maaf Data Masih Kosong !!')
Else
Begin
Clrscr;
Writeln;
Writeln(' DATA TRANSAKSI PEMINJAMAN BUKU PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO. ID NAMA JUDUL BUKU JUDUL BUKU JUDUL BUKU');
Writeln(' PEMINJAM PEMINJAM PERTAMA KEDUA KETIGA');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FilePinjBk) Do
Begin
Inc(i);
Read(FilePinjBk,DataPinjBk);
Writeln(i:3,DataPinjBk.KBk:5,DataPinjBk.NPjm:21,DataPinjBk.JuBkSatu:26,DataPinjBk.JuBkDua:32,DataPinjBk.JuBkTiga:27);
End;
Writeln('==================================================================================================================');
Close(FilePinjBk);
End;
Writeln;
Writeln;
Write('Tekan Tombol Apa Saja Untuk Keluar');Readkey;
End;
{Procedure Untuk Menangani Data Transaksi Pengembalian Buku Pada Perpustakaan}
Type
KembaliBk = Record
KBkB : Word;
NPjmB : String [30];
JuBkSatuB : String [30];
JuBkDuaB : String [30];
JuBkTigaB : String [30];
End;
Var
FileKembaliBk : File Of KembaliBk;
DataKembaliBk : KembaliBk;
PilihAndaLagiB,PilihanAndaLagiB,UlangiLagiB : Char;
Procedure BukaFileKembaliBk;
Begin
Assign(FileKembaliBk,'KembaliBk.Dat');
{$I-};
Reset(FileKembaliBk);
{$I+};
End;
Procedure Tambah_Data_Pengembalian_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileKembaliBk;
If IOResult<>0 Then
Rewrite(FileKembaliBk);
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('TAMBAH DATA PENGEMBALIAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileKembaliBk)) Do
Begin
Seek(FileKembaliBk,i);
Read(FileKembaliBk,DataKembaliBk);
If DataKembaliBk.KBkB=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,15);Write('KBk "',NOCR,'" Ini Sudah Ada!');
End
Else
Begin
Seek(FileKembaliBk,Filesize(FileKembaliBk));
DataKembaliBk.KBkB:=NOCR;
Gotoxy(20,10);Write('Nama Peminjam : ');Readln(DataKembaliBk.NPjmB);
Gotoxy(20,12);Write('Judul Buku 1 : ');Readln(DataKembaliBk.JuBkSatuB);
Gotoxy(20,14);Write('Judul Buku 2 : ');Readln(DataKembaliBk.JuBkDuaB);
Gotoxy(20,16);Write('Judul Buku 3 : ');Readln(DataKembaliBk.JuBkTigaB);
Gotoxy(20,23);Write('TERIMA KASIH TELAH BERKUNJUNG DI PERPUSTAKAAN INI');
Gotoxy(20,25);Write('KAMI BERHARAP ANDA DAPAT BERKUNJUNG KETEMPAT INI LAGI');
Write(FileKembaliBk,DataKembaliBk);
End;
Gotoxy(20,28);Write('Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(FileKembaliBk);
End;
Procedure Edit_Data_Pengembalian_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileKembaliBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('EDIT DATA PENGEMBALIAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileKembaliBk)) Do
Begin
Seek(FileKembaliBk,i);
Read(FileKembaliBk,DataKembaliBk);
If DataKembaliBk.KBkB=NOCR Then
Begin
Ada:=True;
Gotoxy(20,8) ;Write('Nama Peminjam : ',DataKembaliBk.NPjmB);
Gotoxy(20,10);Write('Judul Buku 1 : ',DataKembaliBk.JuBkSatuB);
Gotoxy(20,12);Write('Judul Buku 2 : ',DataKembaliBk.JuBkDuaB);
Gotoxy(20,14);Write('Judul Buku 3 : ',DataKembaliBk.JuBkTigaB);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
DataKembaliBk.KBkB:=NOCR;
Gotoxy(20,18) ;Write('Nama Peminjam : ');Readln(DataKembaliBk.NPjmB);
Gotoxy(20,20) ;Write('Judul Buku 1 : ');Readln(DataKembaliBk.JuBkSatuB);
Gotoxy(20,22) ;Write('Judul Buku 2 : ');Readln(DataKembaliBk.JuBkDuaB);
Gotoxy(20,24) ;Write('Judul Buku 3 : ');Readln(DataKembaliBk.JuBkTigaB);
Seek(FileKembaliBk,i);
Write(FileKembaliBk,DataKembaliBk);
End
Else
Begin
Gotoxy(20,26);Write('KBk "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,28);Write('Mau Edit Data Lagi[Y/T:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(FileKembaliBk);
End;
Procedure Hapus_Data_Pengembalian_Buku;
Var
FileTmp : File of KembaliBk;
Lagi,Hapus: Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFileKembaliBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Clrscr;
Assign(FileTmp,'kembalibk.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
Gotoxy(30,1);Write('HAPUS DATA PENGEMBALIAN BUKU');
Gotoxy(30,2);Write('=====================');
Gotoxy(20,4);Write('Kode Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileKembaliBk)) Do
Begin
Seek(FileKembaliBk,i);
Read(FileKembaliBk,DataKembaliBk);
If DataKembaliBk.KBkB=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,13) ;Write('Nama Peminjam : ',DataKembaliBk.NPjmB);
Gotoxy(20,15) ;Write('Judul Buku 1 : ',DataKembaliBk.JuBkSatuB);
Gotoxy(20,17) ;Write('Judul Buku 2 : ',DataKembaliBk.JuBkDuaB);
Gotoxy(20,19) ;Write('Judul Buku 3 : ',DataKembaliBk.JuBkTigaB);
Gotoxy(20,22);Write('Apakah Data Ini Mau Di Hapus ? [Y/T] : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(FileKembaliBk) Do
Begin
Seek(FileKembaliBk,i-1);
Read(FileKembaliBk,DataKembaliBk);
If DataKembaliBk.KBkB<>NOCR Then
Write(FileTmp,DataKembaliBk);
End;
Close(FileKembaliBk);
Assign(FileKembaliBk,'kembalibk.Dat');
Erase(FileKembaliBk);
Assign(FileTmp,'kembalibk.tmp');
Rename(FileTmp,'kembalibk.Dat');
Gotoxy(20,24);Write('KBkB "',NOCR,'" Sudah Di Hapus!');
End;
End
Else
Begin
Gotoxy(20,15);Write('KBkB "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,16);Write('Mau Hapus Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;
Procedure Tampil_Data_Pengembalian_Buku;
Var
i:Integer;
Begin
Ul:='Y';
BukaFileKembaliBk;
If IOResult<>0 Then
Write('Maaf Data Masih Kosong !!')
Else
Begin
Clrscr;
Writeln;
Writeln(' DATA TRANSAKSI PENGEMBALIAN BUKU PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO. ID NAMA JUDUL BUKU JUDUL BUKU JUDUL BUKU');
Writeln(' PEMINJAM PEMINJAM PERTAMA KEDUA KETIGA');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FileKembaliBk) Do
Begin
Inc(i);
Read(FileKembaliBk,DataKembaliBk);
Writeln(i:3,DataKembaliBk.KBkB:5,DataKembaliBk.NPjmB:21,DataKembaliBk.JuBkSatuB:26,DataKembaliBk.JuBkDuaB:32,
DataKembaliBk.JuBkTigaB:27);
End;
Writeln('==================================================================================================================');
Close(FileKembaliBk);
End;
Writeln;
Writeln;
Write('Tekan Tombol Apa Saja Untuk Keluar');Readkey;
End;
{Procedure Untuk Menangani Data Transaksi Pembelian Buku Pada Perpustakaan}
Type
BelBk = Record
IDBk : Word;
JuBk : String [30];
Karangan : String [30];
Terbitan : String [30];
HargaBk : Real;
End;
Var
FileBelBk : File Of BelBk;
DataBelBk : BelBk;
PilihAnda,PilihanAnda,Ulangi : Char;
Procedure BukaFileBelBk;
Begin
Assign(FileBelBk,'BelBk.Dat');
{$I-};
Reset(FileBelBk);
{$I+};
End;
Procedure Tambah_Data_Pembelian_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileBelBk;
If IOResult<>0 Then
Rewrite(FileBelBk);
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('TAMBAH DATA PEMBELIAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBelBk)) Do
Begin
Seek(FileBelBk,i);
Read(FileBelBk,DataBelBk);
If DataBelBk.IDBk=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,15);Write('IDBk "',NOCR,'" Ini Sudah Ada!');
End
Else
Begin
Seek(FileBelBk,Filesize(FileBelBk));
DataBelBk.IDBk:=NOCR;
Gotoxy(20,8);Write('Judul Buku : ');Readln(DataBelBk.JuBk);
Gotoxy(20,10);Write('Pengarang : ');Readln(DataBelBk.Karangan);
Gotoxy(20,12);Write('Penerbit : ');Readln(DataBelBk.Terbitan);
Gotoxy(20,14);Write('Harga : ');Readln(DataBelBk.HargaBk);
Write(FileBelBk,DataBelBk);
End;
Gotoxy(20,17);Write('Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(FileBelBk);
End;
Procedure Edit_Data_Pembelian_Buku;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
BukaFileBelBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Repeat
Clrscr;
Ada:=False;
i:=0;
Gotoxy(30,2);Write('EDIT DATA PEMBELIAN BUKU');
Gotoxy(30,3);Write('=====================');
Gotoxy(20,6);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBelBk)) Do
Begin
Seek(FileBelBk,i);
Read(FileBelBk,DataBelBk);
If DataBelBk.IDBk=NOCR Then
Begin
Ada:=True;
Gotoxy(20,8);Write('Judul Buku : ',DataBelBk.JuBk);
Gotoxy(20,10);Write('Pengarang : ',DataBelBk.Karangan);
Gotoxy(20,12);Write('Penerbit : ',DataBelBk.Terbitan);
Gotoxy(20,14);Write('Harga : ',DataBelBk.HargaBk:0:0);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
DataBelBk.IDBk:=NOCR;
Gotoxy(20,17);Write('Judul Buku : ');Readln(DataBelBk.JuBk);
Gotoxy(20,19);Write('Pengarang : ');Readln(DataBelBk.Karangan);
Gotoxy(20,21);Write('Penerbit : ');Readln(DataBelBk.Terbitan);
Gotoxy(20,23);Write('Harga : ');Readln(DataBelBk.HargaBk);
Seek(FileBelBk,i);
Write(FileBelBk,DataBelBk);
End
Else
Begin
Gotoxy(20,20);Write('IDBk "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,24);Write('Mau Edit Data Lagi[Y/T:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(FileBelBk);
End;
Procedure Hapus_Data_Pembelian_Buku;
Var
FileTmp : File of BelBk;
Lagi,Hapus: Char;
Ada : Boolean;
i : Integer;
NOCR : Word;
Begin
Ul:='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFileBelBk;
If IOResult<>0 Then
Write('Data Masih Kosong....!')
Else
Begin
Clrscr;
Assign(FileTmp,'belbk.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
Gotoxy(30,4);Write('HAPUS DATA PEMBELIAN BUKU');
Gotoxy(30,6);Write('=====================');
Gotoxy(20,8);Write('ID Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(FileBelBk)) Do
Begin
Seek(FileBelBk,i);
Read(FileBelBk,DataBelBk);
If DataBelBk.IDBk=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(20,11);Write('Judul Buku : ',DataBelBk.JuBk);
Gotoxy(20,13);Write('Pengarang : ',DataBelBk.Karangan);
Gotoxy(20,15);Write('Penerbit : ',DataBelBk.Terbitan);
Gotoxy(20,17);Write('Harga : ',DataBelBk.HargaBk);
Gotoxy(20,20);Write('Data Ini Mau Di Hapus ? [Y/T] : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(FileBelBk) Do
Begin
Seek(FileBelBk,i-1);
Read(FileBelBk,DataBelBk);
If DataBelBk.IDBk<>NOCR Then
Write(FileTmp,DataBelBk);
End;
Close(FileBelBk);
Assign(FileBelBk,'belbk.Dat');
Erase(FileBelBk);
Assign(FileTmp,'belbk.tmp');
Rename(FileTmp,'belbk.Dat');
Gotoxy(20,23);Write('IDBk "',NOCR,'" Sudah Di Hapus!');
End;
End
Else
Begin
Gotoxy(20,24);Write('IDBk "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(20,25);Write('Mau Hapus Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;
Procedure Tampil_Data_Pembelian_Buku;
Var
i:Integer;
Begin
Ul:='Y';
BukaFileBelBk;
If IOResult<>0 Then
Write('Maaf Data Masih Kosong !')
Else
Begin
Clrscr;
Writeln;
Writeln(' DATA TRANSAKSI PEMBELIAN BUKU PERPUSTAKAAN ');
Writeln(' KAMPUS STMIK PALANGKARAYA ');
Writeln;
Writeln('==================================================================================================================');
Writeln(' NO. ID JUDUL NAMA NAMA HARGA');
Writeln(' BUKU BUKU PENGARANG PENERBIT BUKU');
Writeln('==================================================================================================================');
i:=0;
While Not EoF(FileBelBk) Do
Begin
Inc(i);
Read(FileBelBk,DataBelBk);
Writeln(i:2,DataBelBk.IDBk:8,DataBelBk.JuBk:25,DataBelBk.Karangan:27,DataBelBk.Terbitan:29,DataBelBk.HargaBk:23:0);
End;
Writeln('==================================================================================================================');
Close(FileBelBk);
End;
Writeln;
Writeln;
Write('Tekan Tombol Apa Saja Untuk Keluar');Readkey;
End;
Procedure Help;
Begin
Ul:='Y';
Clrscr;
GotoXY(42,4) ; Write('===================================================');
GotoXY(50,5) ; Write('TUTORIAL PENGGUNAAAN APLIKASI INI : ');
GotoXY(42,6) ; Write('===================================================');
GotoXY(32,8) ; Write('1. Saat pertama kali menjalankan aplikasi ini, anda akan masuk pada menu utama.');
GotoXY(32,10); Write('2. Pilihlah salah satu menu program yang ingin anda buka, ');
GotoXY(32,11); Write(' yaitu dengan menekan huruf besar tertentu, (sesuai dengan kode program yang ada)');
GotoXY(32,12); Write(' Contohnya : tekan huruf D (besar) untuk melihat menudaftar data mahasiswa.');
GotoXY(32,14); Write('3. Apabila anda tekan huruf tertentu diluar kode yang ada, maka aplikasi ini');
GotoXY(32,15); Write(' tidak akan merespon, bahkan bisa keluar sendiri, atau tetap pada keadaan semula.');
GotoXY(32,17); Write('4. Pakailah aplikasi ini sebagaimana - mestinya dan secara bijaksana');
GotoXY(32,19); Write('5. Saya mohon maaf apabila menurut anda aplikasi ini masih jauh dari kata sempurna.');
GotoXY(32,20); Write(' Segala komentar, kritik serta saran siap saya terima mengenai aplikasi ini,');
GotoXY(32,21); Write(' agar saya dapat mengembangkan aplikasi ini jauh lebih baik lagi dari sekarang ini.');
GotoXY(42,26); Writeln('===================================================');
GotoXY(57,27); Write('SEKIAN DAN TERIMA KASIH.');
GotoXY(42,28); Writeln('===================================================');
GotoXY(53,31); Write('Tekan Apa Saja Untuk Kembali !!');Readkey
End;
Procedure About;
Begin
Ul:='Y';
Clrscr;
GotoXY(42,4) ; Write('===================================================');
GotoXY(51,5) ; Write('PROGRAM INI TELAH DIBUAT OLEH : ');
GotoXY(42,6) ; Write('===================================================');
GotoXY(49,9) ; Write('Nama : Gamaliel');
GotoXY(49,11); Write('NIM : C1457201006');
GotoXY(49,13); Write('Mata Kuliah : Algoritma & Pemrograman I');
GotoXY(49,15); Write('Jurusan : Sistem Informasi Kelas A');
GotoXY(49,17); Write('Dosen Pengampu : Arliyana S.Kom');
GotoXY(42,22); Writeln('=================================================');
GotoXY(42,23); Write('SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER');
GotoXY(57,24); Write('STMIK PALANGKARAYA');
GotoXY(61,25); Write('TAHUN 2014');
GotoXY(42,26); Writeln('=================================================');
GotoXY(50,30); Write('Tekan Apa Saja Untuk Kembali !!');Readkey
End;
Begin
Repeat
Menu_Utama;
Case Pil Of
'A' : Tambah_Data_Anggota;
'B' : Edit_Data_Anggota;
'C' : Hapus_Data_Anggota;
'D' : Tampil_Data_Anggota;
'E' : Cari_Nama_Anggota;
'F' : Tambah_Data_Buku;
'G' : Edit_Data_Buku;
'H' : Hapus_Data_Buku;
'I' : Tampil_Data_Buku;
'J' : Tambah_Data_Pembelian_Buku;
'K' : Edit_Data_Pembelian_Buku;
'L' : Hapus_Data_Pembelian_Buku;
'M' : Tampil_Data_Pembelian_Buku;
'N' : Tambah_Data_Peminjaman_Buku;
'O' : Edit_Data_Peminjaman_Buku;
'P' : Hapus_Data_Peminjaman_Buku;
'Q' : Tampil_Data_Peminjaman_Buku;
'R' : Tambah_Data_Pengembalian_Buku;
'S' : Edit_Data_Pengembalian_Buku;
'T' : Hapus_Data_Pengembalian_Buku;
'U' : Tampil_Data_Pengembalian_Buku;
'W' : Help;
'Y' : About;
End;
Until (Ul<>'Y') Or (Pil='X');
DoneWinCrt;
End.
skip to main |
skip to sidebar
STMIK Palangka Raya
Postingan Populer
-
MAKALAH ILMU BUDAYA DASAR DALAM SENI RUPA from defrisiswanto
-
Uses Wincrt; Type Siswa = Record Nm : String[15]; Ni : String[14]; TTL : String[25]; Jsk : String [10]; Alm : String [25]; JK :...
-
uses wincrt; var bil1,bil2,b,c,d : integer; e : real; begin writeln; write('Masukkan Angka Pertama: ...
-
Program deret_huruf; uses wincrt; var i,batas:char; Begin write('Masukkan huruf a sampai dengan z : '); readln(batas); ...
-
Program Animasi; Uses wincrt; var delay: longint; i: integer; begin begin Gotoxy (8,5);writeln('Nama : Deff Booyy'); Gotox...
-
Program Kartu_Perpustakaan; Uses WinCrt; Type Mahasiswa = Record NIM : Word; Nama : String[15]; ...
Label
Arsip Blog
Translate
Copyright © 2012 Turbo Pascal 1.5
Powered by Blogger | Supported by: W3Schools and Technology Tower
Blog Title: Turbo Pascal 1.5 |
Template: X-Gen Blue CSS | Template Designer Andi Techno | Technology Tower
0 komentar:
Posting Komentar