tugas RPL

1. Judul "PROGRAM APLIKASI PENGOLAHAN DATA PEMINJAMAN DAN PENGEMBALIAN BUKU PERPUSTAKAAN"

2. FLOWMAP PEMINJAMAN

tugas

1. PROCEDURE CREATE DATA

Procedure createdata;
(Langkah membuat data/proeses menulis data)
Begin;
(Mulai)
assign (fsiswa,’siswa dbf’)
(hubungkan dengan file siswa yang telah ada/buka file siswa yang telah disimpan)
if result =0 then;
(jika file yang dicari tidak ada, maka)
begin
(mulai)
OCON80(09,’perhatian…!);
(Muncul pesan di tengah” ‘perhatian’)
OCON80(11,’file sudah ada/berisi record)
(mucul pesan,’file yang dicari tidak ada/ file sudah di isi)
OCON80(12,’mau dikosongkan (Y/T)?)
(muncu pesan ‘mau dikosongkan?)
JWB=READKEY
(menjawab dengan membaca ketikkan (Y/T)
if upcase(JWB)=’Y’ then
(jika pilihan jawab dijawab Y, maka)
begin
(mulai)
rewrite (fsiswa);
(tulis baru file siswa/koosngkan file yang telah ada)
OCON80(14,’file data dikosongkan…tekan sembarang tombol..!)
(muncul pesan’file data dikosongkan)
end else
(akhiri pengecualian)
close
(keluar dari file siswa dan rekam ke dat buffor)
rewrite(fsiswa)
(menulis data baru)
OCON80(11,’file data baru sudah dibuar dan siap untuk diisi)
(muncul pesan ,’file data baru siap diisi)
end
(selesai menulis file data baru)








2. PROCEDURE ENTRYDATA

procedure entrydata;
(proses mengisi / menambah data )
begin
(mulai)
repeat
(ulangi)
assign(fsiswa)
(hubungkan dengan file siswa)
reset(fsiswa)
(membuka file siswa)
if result=0 then
(jika hasil yang dicari tidak ada, maka)
tampilan
(menmapilkan)
OCON80(05,’MENAMBAH DATA)
(muncul pesan ,’ menambah data)
CP2480(‘KETIKKAN NOMOR INDUK SISWA YANG AKAN DITAMBAHKAN’)
(inputkan dan ketikkan NIS yang akan ditambahkan)
gotoxy(18.09);readln(NIMC)
(mulai melakukan pengetikan/pemasukkan NIS)
if NIMC=” THEN
(jika NIS sudah diisi , maka )
begin
(mulai)
close(fsiswa)
(rekam ke file siswa)
assign(fada,’siswa’pdb)
(hubungkan dengan file siswa yang ada)
reset(fada)
(membuka file yang sudah ada)
swada=0
(jika data yang dicari tidak ada)
while
(ulangi lagi)
dengan mebuka file dan membacanya dan memindhakan ke file sementara bila belum ditemuakan)
if siswa NIMC=1
(jika sisw adengan nim sudah ditemukkan,maka)
begin
(mulai)
ctks(18,10,NM)
(cetak di kolom18 baris 10 nama siswa)
ctks(18,12,JRS)
(cetak di kolom 18 baris 12 jurusan)
dst sampai ctks(18,21 KET)
CP2480(‘KETIKAN NAMA SISWA)
(inputkan nama siswa)
gotoxy(readln(nm)
(tulisakn nama siswa)
dst sampai gotoxy(readln(NP)
end
(selesai menulis dat baru)
ctks(02,22,’ masi mau menambha dat baru?)
muncul pesan ,’ masuh mau menambah dta baru?)
jwb=readkey
cp2480(‘tunggu lagi prpses)
close(fsiswa)
(keluar dan rekam file siswa)
until upcase(jwb=Y)
(ulangi lagi menambah data baru jIka dijawab Y)
end
(selesai menulis data baru)

3. PROCEDURE LIST DATA

BEGIN
(mulai)
repeate
(ulangi)
assign(fsiswa)
(hubungkan dengan file siswa yang ada)
reset
(membuka data)
OCON80(05,’MELIHAT DATA?)
(muncul pesan melihat data)
CP2480(‘KETIKAN NIS YANG AKAN DI PILIH)
(inputkan nis siswa yang aakn dilihat)
if NIMC=”THEN
(jika nis ada, maka)
begin close(fsiswa)
(mulai keluar dari file dan merekam data)
jika data yang dicari tidak ada
maka lihat lagi file siswa dan simpan ke sile smentara apabila belum dtemukan
dan apabila sufah ditemukan
maka mulai
dengan memunculkan
ctks(18,10 nm)
cetka nama sampai ket
masih mau melihat data yang lain
apabila dijawab y
maka ulangi lagi pencrian data dari awal sampai ditemukan data yang dicari



4. PROCEDURE DELETEDATA


Proses mengapus data
Mulai dan ulangi
Hubungkan dengan file siswa
Muncul pesan “menghapus data”
Ketikkan NIS yang akan diahpus dan inputkan
Jika sudah ada/ditemukan maka
Munculkan data yang ada/dicari
Dari nama siswa sampai ket
Muncul pesan “data ini mau dihapus?
Apabila dijawab y
Maka mulia menghapus data
Tapi apabila dta yan dicari tidak ditemukan
Silahkan menginputkan data yang benar
Selesai

Aku...

hIdup ini kadang tak selalu sejalan dengan apa yang Q_ta harapkan N Q_ta inginkan. kAdang apa yang Q_ta harapkan ga jadi kenyataan,,tapi apa yang ga Q_ta harapkan adalah kenyataan hidup yang sedang Q-ta jalani..

sEperti aku ini.....
sEbenarnya aku tuch ga suka N ga minat belajar tentang komputer,,,tapi ko aku bisa masuk N kuliah di sekolah komputer,,,??? padahal yang aku inginkan adalah bisa kuliah di sekolah hukum.

walaupun demikian aku akan berusaha untuk bisa menyukai N menyenangi haL itu. aKu akan belajar sampai aku bisa N tau tentang komPuter..