TUGAS LOGIKA dan ALGORITMA 2 (DELETE DATA)

4. PROCEDURE DELETE DATA

Merupakan procedure untuk menghapus data,di mulai dengan menghubungkan var FSISWA dengan file SISWA.PDB. Lalu masukkan NIS dari data yang ingin di hapus. setelah data yang di cari ditemukan muncul pertanyaan 'APAKAH DATA INI MAU DI HAPUS (Y/N)?' bila jwb='Y' maka akan mulai proses penghapusan dengan meletakan pointer penunjuk record pada posisi yang di inginkan melalui perintah SEEK, Lalu mulai memotong file dengan perintah TRUNCATE(FSISWA),maka dta telah terhapus. apabila data yang di cari tidak ditemukan maka munculkan pesan 'DATA DENGAN NIS TERSEBUT TIDAK ADA'. Ada juga perintah pengulangan untuk mengulang Procedure Delete data.

TUGAS LOGIKA dan ALGORITMA 2 (UPDATE DATA)

3. PROCEDURE UPDATE DATA

Proses perubahan (mengedit) data yang telah dimasukkan,pada umumnya sama dengan procedure list data, dimulai dengan menghubungkan var FSISWA dengan file SISWA.PDB. Lalu munculkan perintah untuk memasukkan nomor induk siswa yang akan dirubah. setelah data di temukan mulai lakukan pengeditan,mengganti data yang lama dengan data yang baru. Apabila NIS yang di cari tidak ditemukan maka munculkan pesan ('DATA DENGAN NIS TERSEBUT TIDAK ADA').
CTKS(02,22,'MASIH MAU MERUBAH DATA YANG LAIN (Y/T)?')
(munculkan tampilan 'MASIH MAU MERUBAH DATA YANG LAIN (Y/T)?')
UNTIL UPCASE (JWB)<>'Y'
(ulangi proses update data sampai JWB tidak sama dengan 'Y'
END;
(Selesai untuk UPDATE DATA)

TUGAS LOGIKA dan ALGORITMA 2 (LIST DATA)

2. PROCEDURE LIST DATA

BEGIN
(mulai)
REPEAT
(ulangi)
ASSIGN(FSISWA,'SISWA.PDB')
(hubungkan var FSISWA dengan file SISWA.PDB)
RESET
(membuka file)
OCON80(05,’MELIHAT DATA?)
(tampilkan pesan 'MELIHAT DATA?')
CP2480(‘KETIKAN NIS YANG AKAN AKAN DI LIHAT'
(tampilkan 'KETIKKAN NIS YANG AKAN DI LIHAT',Untuk menginputkan NIS yang akan di lihat)
if NIMC=”THEN
(jikan nis yang di cari 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 file sementara apabila belum dtemukan
dan apabila sudah ditemukan
maka mulai
dengan memunculkan
ctks(18,10,nm)
(cetak pada kolom 18 baris10 data dari var NM)
apabila data tidak ditemukan
CP2480('DATA DENGAN NIS TERSEBUT TIDAK DITEMUKAN')
(munculkan pesan 'DATA DENGAN NIS TERSEBUT TIDAK DITEMUKAN')
CTKS(02,22,'MASIH MAU MELIHAT DATA YANG LAIN(Y/T)?')
(munculkan pesan 'MASIH MAU MELIHAT DATA YANG LAIN (Y/T)?')
UNTIL UPCASE(JWB)<>'Y'
(ulangi procedure list data jika JWB='Y')
end;
(selesai untuk procedure LIST DATA)

TUGAS LOGIKA dan ALGORITMA 2 (ENTRY DATA)

1. PROSES ENTRY DATA (PROSES INPUT/PENAMBAHAN DATA)

BEGIN(mulai)
REPEAT(ulangi)
ASSIGN(FSISWA,'SISWA.PDB')
(Menghubungkan var FSISWA dengan file SISW.PDB)
if result<>0 then rewrite (FSISWA);
( jika hasil tidak kosong maka kosongkan FSISWA)

TAMPILAN;
(menampilkan)

OCON80(05,’MENAMBAH DATA)
(tampilkan pesan ,’ menambah data)
CP2480(‘KETIKKAN NOMOR INDUK SISWA YANG AKAN DITAMBAHKAN’)

(munculkan tampilan 'KETIKKAN NOMOR INDUK SISWA YANG AKAN DITAMBAHAKAN') untuk menginputkan NIS yang akan ditambahkan.

gotoxy(18.09);readln(NIMC)
(letakkan kursor pada kolom18 baris 9,ambil data dari var NIMC)
if NIMC=” THEN
(jika NIMC sudah dimasukkan , maka )
BEGIN
(mulai)
close(fsiswa);EXIT;
(tutup FSISWA sekaligus rekamkan data ke FSISWA,lalu keluar)
end;(selesai untuk penginputan NIMC)
assign(FADA,’siswa’pdb)
(hubungkan var FADA dengan file SISWA.PDB)
reset(fada)
(buka file SISWA.PDB yang sudah dihubungkan dengan var FADA)
swada=0
(jika data yang dicari tidak ada)
while
(lakukan pengulangan dengan mebuka file dan membacanya dan memindhakan ke file sementara bila belum ditemuakan)
if siswa NIMC=1
(jika siswa dengan nim sudah ditemukkan,maka)
begin
(mulai)
ctks(18,10,NM)
(cetak di kolom18 baris 10 data dari var NM)
ctks(18,12,JRS)
(cetak di kolom 18 baris 12 data dari var JRS)
dst sampai ctks(18,21 KET)
CP2480(‘KETIKKAN NAMA SISWA)
(munculkan tampilan 'KETIKKAN NAMA SISWA', untuk menginputkan nama siswa)
gotoxy(18,10);readln(nm)
(cetak di kolom 18 baris 10,masukkan data dari var NM)
dst sampai gotoxy(19,16);readln(NP)
end
(selesai penginputan data baru)
SEEK (FSISWA,BD);
(gerakkan pointer dari FSISWA ke banyaknya record yang sudah terekam ke FSISWA)
WRITE (FSISWA,RSISWA)
(rekamkan data dari var record RSISWA ke var file FSISWA)
end (selesai)
ctks(02,22,’ masih mau menambah data baru?)
(tampilkan pesan ,’ masih mau menambah data baru?')
jwb=readkey
cp2480(‘tunggu lagi proses')
(tampilkan di layar 'Tunggu Lagi Proses')
close(fsiswa)
(tutup FSISWA sekaligus rekamkan data yang ada)
until upcase(jwb=Y)
(ulangi lagi menambah data baru jika dijawab Y)
end
(selesai entry data baru)