Penyimpanan data dalam file "brg.dat" dan menerapkan konsep Procedure dalam membagi path tiap program.
Berikut ini source code stok barang menggunakan compiler dev-pascal :
Program PersediaanBarang;
uses crt;
type
brg = record
nama_games: string[12];
kode_games: string[5];
satuan: string[6];
byk_brg: byte;
tam_brg: integer;
kur_brg: integer;
h_beli: real;
h_jual: real;
tot_beli: real;
tot_jual: real;
end;
var
fb: file of brg;
rb: brg;
lagi,ya: char;
pilih,i: byte;
nourut,jml: integer;
kodecari: string[3];
ketemu: boolean;
Procedure Tampil;
begin
for i:= 1 to 23 do
begin
delay(120);
gotoxy(29,i); write (' ASSALAMMUALAIKUM');
gotoxy(29,i-1); write (' ');
end;
begin
for i:= 23 downto 2 do
begin
delay(120);
gotoxy(33,i); write (' MATERI IT');
gotoxy(22,i+1); write (' ');
end;
gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(24,6); write('PROGRAM APLIKASI PERSEDIAAN BARANG');
gotoxy(35,10); write('DVD GAMES PC');
gotoxy(28,14); write('PRINCE GAMES DAN COMPUTER');
gotoxy(39,18); write('****');
writeln;
readln;
end;
end;
Procedure InputDataAwal;
begin
assign(fb,'brg.dat');
rewrite(fb);
lagi:='y';
while upcase(lagi)='Y' do
begin
clrscr;
with rb do
begin
gotoxy(28,2); write('o_o PROGRAM INPUT DATA o_o');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ');
gotoxy(23,8); write('Nama Games : ');
gotoxy(23,10); write('Banyak Barang : ');
gotoxy(23,12); write('Satuan Barang : ');
gotoxy(23,14); write('Harga Beli / Satuan : ');
gotoxy(23,16); write('Harga Jual / Satuan : ');
gotoxy(23,18); write('Total Harga Beli : ');
gotoxy(23,20); write('Total Harga Jual : ');
gotoxy(49,6); readln(kode_games);
gotoxy(49,8); readln(nama_games);
gotoxy(49,10); readln(byk_brg);
gotoxy(49,12); readln(satuan);
gotoxy(49,14); readln(h_beli);
gotoxy(49,16); readln(h_jual);
tot_beli:= h_beli*byk_brg;
tot_jual:= h_jual*byk_brg;
gotoxy(49,18); writeln(tot_beli:2:0);
gotoxy(49,20); writeln(tot_jual:2:0);
end;
write(fb,rb);
gotoxy(23,23); write('Masukan data lagi [Y/T] ? ');
readln(lagi);
end;
close(fb);
end;
Procedure TambahData;
begin
assign(fb,'brg.dat');
{$I-}
reset(fb);
{$I+};
if ioresult<>0 then rewrite(fb);
seek(fb,filesize(fb));
lagi:='y';
while upcase(lagi)='Y' do
begin
clrscr;
with rb do
begin
gotoxy(26,2); write('o_o PROGRAM TAMBAH DATA o_o');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ');
gotoxy(23,8); write('Nama Games : ');
gotoxy(23,10); write('Banyak Barang : ');
gotoxy(23,12); write('Satuan Barang : ');
gotoxy(23,14); write('Harga Beli / Satuan : ');
gotoxy(23,16); write('Harga Jual / Satuan : ');
gotoxy(23,18); write('Total Harga Beli : ');
gotoxy(23,20); write('Total Harga Jual : ');
gotoxy(49,6); readln(kode_games);
gotoxy(49,8); readln(nama_games);
gotoxy(49,10); readln(byk_brg);
gotoxy(49,12); readln(satuan);
gotoxy(49,14); readln(h_beli);
gotoxy(49,16); readln(h_jual);
tot_beli:= h_beli*byk_brg;
tot_jual:= h_jual*byk_brg;
gotoxy(49,18); writeln(tot_beli:2:0);
gotoxy(49,20); writeln(tot_jual:2:0);
end;
write(fb,rb);
gotoxy(23,23) ;write('Masukan data lagi [Y/T] ? ');
readln(lagi);
end;
close(fb);
end;
Procedure LihatSemuaData;
begin
assign(fb,'brg.dat');
reset(fb);
clrscr;
gotoxy(28,2); write('o_o PROGRAM LIHAT DATA o_o');
gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
writeln;
writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³Kode ³ Nama ³Banyak³Satuan³ H.Beli/ ³ H.Jual/ ³ Total ³ Total ³');
writeln('³Games³ Games ³Barang³Barang³ Satuan ³ Satuan ³ H.Beli ³ H.Jual ³');
writeln('ÃÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´');
while not eof (fb) do
begin
read(fb,rb);
with rb do
writeln('³',kode_games:5,'³':1,nama_games:12,'³':2,byk_brg:4,'³':3,satuan:5,
'³':2,'Rp.':1,h_beli:6:0,'³':1,'Rp.':1,h_jual:6:0,
'³':1,'Rp.':1,tot_beli:8:0,'³':1,'Rp.':1,tot_jual:8:0,'³':1);
end;
writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
writeln;
writeln('Keterangan :');
writeln;
writeln('A : Adventure');
writeln('C : Colection');
writeln('S : Sport');
close(fb);
readln;
end;
Procedure LihatDataTertentu;
begin
assign(fb,'brg.dat');
reset(fb);
jml:= filesize(fb);
lagi:='y';
while upcase(lagi)='Y' do
begin
clrscr;
gotoxy(30,2); write('o_o PROGRAM CARI DATA o_o');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
ketemu:= false;
gotoxy(23,6); write('Masukan kode games yang akan dicari : ');
readln(kodecari);
writeln;
for i:= 1 to jml do
begin
seek(fb,i-1);
read(fb,rb);
if rb.kode_games = kodecari then
begin
ketemu:= true;
clrscr;
gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ',rb.kode_games);
gotoxy(23,8); write('Nama Games : ',rb.nama_games);
gotoxy(23,10); write('Banyak Barang : ',rb.byk_brg);
gotoxy(23,12); write('Satuan Barang : ',rb.satuan);
gotoxy(23,14); write('Harga Beli / Satuan : ',rb.h_beli:2:0);
gotoxy(23,16); write('Harga Jual / Satuan : ',rb.h_jual:2:0);
gotoxy(23,18); write('Total Harga Beli : ',rb.tot_beli:2:0);
gotoxy(23,20); write('Total Harga Jual : ',rb.tot_jual:2:0);
gotoxy(23,23); write('Cari data lagi [Y/T] ? ');
readln(lagi);
end;
end;
if not ketemu then
begin
gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
gotoxy(23,10); write('Cari data lagi [Y/T] ? ');
readln(lagi);
end;
end;
close(fb);
end;
Procedure PenambahanBarang;
begin
assign(fb,'brg.dat');
reset(fb);
jml:= filesize(fb);
lagi:= 'y';
while upcase(lagi)='Y' do
begin
clrscr;
gotoxy(24,2); write('o_o PROGRAM EDIT PENAMBAHAN BARANG o_o');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
ketemu:= false;
gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
readln(kodecari);
writeln;
for i:= 1 to jml do
begin
seek(fb,i-1);
read(fb,rb);
if rb.kode_games = kodecari then
with rb do
begin
clrscr;
ketemu:= true;
clrscr;
gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ',rb.kode_games);
gotoxy(23,8); write('Nama Games : ',rb.nama_games);
gotoxy(23,10); write('Banyak Barang Awal : ',rb.byk_brg);
gotoxy(23,14); write('Satuan Barang : ',rb.satuan);
gotoxy(23,16); write('Harga Beli / Satuan : ',rb.h_beli:2:0);
gotoxy(23,18); write('Harga Jual / Satuan : ',rb.h_jual:2:0);
gotoxy(23,20); write('Total Harga Beli : ',rb.tot_beli:2:0);
gotoxy(23,22); write('Total Harga Jual : ',rb.tot_jual:2:0);
gotoxy(23,12); write('Penambahan Barang : '); readln(rb.tam_brg);
byk_brg:= byk_brg+tam_brg;
tot_beli:= h_beli*byk_brg;
tot_jual:= h_jual*byk_brg;
gotoxy(49,20); writeln(tot_beli:2:0);
gotoxy(49,22); writeln(tot_jual:2:0);
gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
readln(lagi);
end;
seek(fb,i-1);
write(fb,rb);
end;
if not ketemu then
begin
gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
writeln;
gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
readln(lagi);
end;
end;
close(fb);
end;
Procedure PenguranganBarang;
begin
assign(fb,'brg.dat');
reset(fb);
jml:= filesize(fb);
lagi:= 'y';
while upcase(lagi)='Y' do
begin
clrscr;
gotoxy(24,2); write('o_o PROGRAM EDIT PENGURANGAN BARANG o_o');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
ketemu:= false;
gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
readln(kodecari);
writeln;
for i:= 1 to jml do
begin
seek(fb,i-1);
read(fb,rb);
if rb.kode_games = kodecari then
with rb do
begin
clrscr;
ketemu:= true;
clrscr;
gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ',rb.kode_games);
gotoxy(23,8); write('Nama Games : ',rb.nama_games);
gotoxy(23,10); write('Banyak Barang Awal : ',rb.byk_brg);
gotoxy(23,14); write('Satuan Barang : ',rb.satuan);
gotoxy(23,16); write('Harga Beli / Satuan : ',rb.h_beli:2:0);
gotoxy(23,18); write('Harga Jual / Satuan : ',rb.h_jual:2:0);
gotoxy(23,20); write('Total Harga Beli : ',rb.tot_beli:2:0);
gotoxy(23,22); write('Total Harga Jual : ',rb.tot_jual:2:0);
gotoxy(23,12); write('Pengurangan Barang : '); readln(rb.kur_brg);
byk_brg:= byk_brg-kur_brg;
tot_beli:= h_beli*byk_brg;
tot_jual:= h_jual*byk_brg;
gotoxy(49,20); writeln(tot_beli:2:0);
gotoxy(49,22); writeln(tot_jual:2:0);
gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
readln(lagi);
end;
seek(fb,i-1);
write(fb,rb);
end;
if not ketemu then
begin
gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
writeln;
gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
readln(lagi);
end;
end;
close(fb);
end;
Procedure EditDataBarang;
begin
assign(fb,'brg.dat');
reset(fb);
jml:= filesize(fb);
lagi:= 'y';
while upcase(lagi)='Y' do
begin
clrscr;
gotoxy(26,2); write('o_o PROGRAM EDIT DATA BARANG o_o');
gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
ketemu:= false;
gotoxy(20,6); write('Masukan kode barang yang akan di edit : ');
readln(kodecari);
writeln;
for i:= 1 to jml do
begin
seek(fb,i-1);
read(fb,rb);
if rb.kode_games = kodecari then
with rb do
begin
clrscr;
ketemu:= true;
clrscr;
gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
gotoxy(11,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(11,6); write('Kode Games : ',rb.kode_games);
gotoxy(11,8); write('Nama Games : ',rb.nama_games);
gotoxy(11,10); write('Banyak Barang : ',rb.byk_brg);
gotoxy(11,12); write('Satuan Barang : ',rb.satuan);
gotoxy(11,14); write('Harga Beli / Satuan : ',rb.h_beli:2:0);
gotoxy(11,16); write('Harga Jual / Satuan : ',rb.h_jual:2:0);
gotoxy(11,18); write('Total Harga Beli : ',rb.tot_beli:2:0);
gotoxy(11,20); write('Total Harga Jual : ',rb.tot_jual:2:0);
gotoxy(54,6); write('==> Edit : '); readln(kode_games);
gotoxy(54,8); write('==> Edit : '); readln(nama_games);
gotoxy(54,10); write('==> Edit : '); readln(byk_brg);
gotoxy(54,12); write('==> Edit : '); readln(satuan);
gotoxy(54,14); write('==> Edit : '); readln(h_beli);
gotoxy(54,16); write('==> Edit : '); readln(h_jual);
tot_beli:= h_beli*byk_brg;
tot_jual:= h_jual*byk_brg;
gotoxy(54,18); write('==> Edit : '); writeln(tot_beli:2:0);
gotoxy(54,20); write('==> Edit : '); writeln(tot_jual:2:0);
gotoxy(11,23); write('Edit data yang lain [Y/T] ? ');
readln(lagi);
end;
seek(fb,i-1);
write(fb,rb);
end;
if not ketemu then
begin
gotoxy(20,8); writeln('Games tersebut tidak ada!!!');
writeln;
gotoxy(20,10); write('Edit data yang lain [Y/T] ? ');
readln(lagi);
end;
end;
close(fb);
end;
Procedure HapusData;
begin
assign(fb,'brg.dat');
reset(fb);
lagi:= 'y';
while upcase(lagi)='Y' do
begin
clrscr;
gotoxy(24,2); write('o_o PROGRAM HAPUS DATA BARANG o_o');
gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
jml:= filesize(fb);
gotoxy(20,6); write('Nomor record yang dihapus (1 -',jml:3,') ? ');
readln(nourut);
writeln;
if (nourut < 1) or (nourut > jml) then
begin
gotoxy(20,8); writeln('No. Record ini tidak ada dalam daftar!!!');
gotoxy(20,10); write('Ada lagi yang akan dicari [Y/T] ? ');
readln(lagi);
end
else
begin
for i:= nourut to jml do
begin
seek(fb,i-1);
read(fb,rb);
with rb do
begin
clrscr;
gotoxy(29,2); write('@_@ DATA DITEMUKAN @_@');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(23,6); write('Kode Games : ',rb.kode_games);
gotoxy(23,8); write('Nama Games : ',rb.nama_games);
gotoxy(23,10); write('Banyak Barang : ',rb.byk_brg);
gotoxy(23,12); write('Satuan Barang : ',rb.satuan);
gotoxy(23,14); write('Harga Beli / Satuan : ',rb.h_beli:2:0);
gotoxy(23,16); write('Harga Jual / Satuan : ',rb.h_jual:2:0);
gotoxy(23,18); write('Total Harga Beli : ',rb.tot_beli:2:0);
gotoxy(23,20); write('Total Harga Jual : ',rb.tot_jual:2:0);
end;
end;
gotoxy(23,23); write('Yakin data ini akan dihapus [Y/T] ? ');
readln(ya);
if upcase(ya) = 'Y' then
begin
seek(fb,nourut-1);
truncate(fb);
end;
gotoxy(23,25); write('Ada lagi yang akan dicari [Y/T] ? ');
readln(lagi);
end;
end;
close(fb);
end;
Procedure PetunjukInputData;
begin
clrscr;
gotoxy(33,2); write('o_o INPUT DATA o_o');
gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('1. Input Data Awal digunakan untuk memasukan sejumlah data barang dimana data');
gotoxy(5,8); write('yang telah tersimpan dalam file akan dihapus dan diganti dengan data yang');
gotoxy(5,10); write('baru.');
gotoxy(2,12); write('2. Tambah Data Baru digunakan untuk memasukan sejumlah data barang tetapi data');
gotoxy(5,14); write('baru yang dimasukan tidak akan menghapus data yang telah tersimpan dalam');
gotoxy(5,16); write('file.');
readln;
end;
Procedure PetunjukOutputData;
begin
clrscr;
gotoxy(32,2); write('o_o OUTPUT DATA o_o');
gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('1. Lihat Semua Data digunakan untuk menampilkan semua data barang yang');
gotoxy(5,8); write('tersimpan dalam file.');
gotoxy(2,10); write('2. Lihat Data Tertentu digunakan untuk menampilkan salah satu data yang');
gotoxy(5,12); write('tersimpan dalam file.');
readln;
end;
Procedure PetunjukEditData;
begin
clrscr;
gotoxy(33,2); write('o_o _''EDIT DATA o_o');
gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('1. Edit Data Jumlah Barang digunakan untuk mengedit salah satu data yang');
gotoxy(5,8); write('tersimpan dalam file baik data penambahan barang maupun data pengurangan');
gotoxy(5,10); write('barang.');
gotoxy(2,12); write('2. Edit Data Barang digunakan untuk mengedit semua data barang yang tersimpan');
gotoxy(5,14); write('dalam file.');
readln;
end;
Procedure PetunjukHapusData;
begin
clrscr;
gotoxy(33,2); write('o_o HAPUS DATA o_o');
gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('1. Hapus Data digunakan untuk menghapus salah satu, sejumlah maupun semua');
gotoxy(5,8); write('data barang yang tersimpan dalam file.');
readln;
end;
Procedure TujuanPembuatan;
begin
clrscr;
gotoxy(21,2); write('o_o TUJUAN PEMBUATAN PROGRAM APLIKASI o_o');
gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('Tujuan Pembuatan Program aplikasi ini adalah untuk memenuhi salah satu tugas');
gotoxy(2,8); write('akhir Semester II Mata Kuliah Bahasa Pemrograman Lanjutan Satu(PASCAL).');
gotoxy(2,10); write('Meskipun dalam pembuatan Program Aplikasi ini banyak memiliki kekurangan ');
gotoxy(2,12); write('tetapi kami tetap berharap mudah-mudahan semua ini dapat bermanfaat dan');
gotoxy(2,14); write('menjadi ibadat yang diridhoi oleh Allah SWT.');
readln;
end;
Procedure PembuatProgramAplikasi;
begin
clrscr;
gotoxy(25,2); write('o_o PROGRAM INI DIBUAT OLEH o_o');
gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(20,6); write('Kelompok : II (Dua)');
gotoxy(20,8); write('Ketua : ');
gotoxy(35,8); write('Topan Setiawan');
gotoxy(20,10); write('Anggota : ');
gotoxy(35,10); write('- Helda Oktavia');
gotoxy(35,12); write('- Susi Sulawati');
gotoxy(35,14); write('- Yudi Nugraha');
gotoxy(35,16); write('- Yuliana Dwi Eftiana');
gotoxy(20,18); write('Kelas : Manajemen Informatika/A');
gotoxy(20,20); write('Semester : II (Dua)');
gotoxy(21,23); write('Akademi Manajemen Informatika dan Komputer');
readln;
end;
Procedure Pesan;
begin
clrscr;
gotoxy(35,2); write('o_o PESAN o_o');
gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(2,6); write('Yakinlah bahwa dibalik kesulitan itu terdapat kemudahan dan jadikanlah');
gotoxy(2,8); write('kesulitan itu sebagai ladang amal dan ujian, agar kita selalu mendekatkan');
gotoxy(2,10); write('diri, meminta pertolongan dan perlindungan kepada Allah SWT.');
readln;
end;
begin
TextBackground(LightCyan);
TextColor(Yellow);
clrscr;
Tampil;
while true do
begin
TextBackground(LightMagenta);
TextColor(LightCyan);
clrscr;
gotoxy(34,2); write('^_^ MENU UTAMA ^_^');
gotoxy(26,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Input Data');
gotoxy(5,8); write('2. Output Data');
gotoxy(5,10); write('3. Edit Data');
gotoxy(5,12); write('4. Hapus Data');
gotoxy(5,14); write('5. Help');
gotoxy(5,16); write('6. Exit');
pilih := 0;
while (pilih < 1) or (pilih > 6 ) do
begin
gotoxy(5,18); write('Masukan pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 6) then
write(^G);
gotoxy(5,20); write('Pilihan salah silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightRed);
TextColor(White);
clrscr;
gotoxy(28,2); write('^_^ SUBMENU INPUT DATA ^_^');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Input Data Awal');
gotoxy(5,8); write('2. Tambah Data');
gotoxy(5,10); write('3. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 3) do
begin
gotoxy(5,12); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 3) then
write (^G);
gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
InputDataAwal;
end
else
if pilih = 2 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
TambahData;
end
else
if pilih = 3 then
exit;
end;
end
else
if pilih = 2 then
begin
TextBackground(LightRed);
TextColor(White);
clrscr;
gotoxy(30,2); write('^_^ SUBMENU OUTPUT DATA ^_^');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Lihat Semua Data');
gotoxy(5,8); write('2. Lihat Data Tertentu');
gotoxy(5,10); write('3. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 3) do
begin
gotoxy(5,12); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 3) then
write (^G);
gotoxy(5,14); write('Pilihan salah silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
LihatSemuaData;
end
else
if pilih = 2 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
LihatDataTertentu;
end
else
if pilih = 3 then
exit;
end;
end
else
if pilih = 3 then
begin
TextBackground(LightRed);
TextColor(White);
clrscr;
gotoxy(31,2); write('^_^ SUBMENU EDIT DATA ^_^');
gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Edit Data Jumlah Barang');
gotoxy(5,8); write('2. Edit Data Barang');
gotoxy(5,10); write('3. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 3) do
begin
gotoxy(5,12); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 3) then
write (^G);
gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
clrscr;
gotoxy(24,2); write('^_^ SUBMENU EDIT JUMLAH BARANG ^_^');
gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Penambahan Barang');
gotoxy(5,8); write('2. Pengurangan Barang');
gotoxy(5,10); write('3. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 3) do
begin
gotoxy(5,12); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 3) then
write (^G);
gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightMagenta);
TextColor(LightCyan);
PenambahanBarang;
end
else
if pilih = 2 then
begin
TextBackground(LightMagenta);
TextColor(LightCyan);
PenguranganBarang;
end
else
if pilih = 3 then
exit;
end;
end
else
if pilih = 2 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
EditDataBarang;
end
else
if pilih = 3 then
exit;
end;
end
else
if pilih = 4 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
HapusData;
end
else
if pilih = 5 then
begin
TextBackground(LightRed);
TextColor(White);
clrscr;
gotoxy(32,2); write('^_^ SUBMENU HELP ^_^');
gotoxy(25,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Petunjuk Penggunaan');
gotoxy(5,8); write('2. Tujuan Pembuatan Program Aplikasi');
gotoxy(5,10); write('3. Pembuat Program Aplikasi');
gotoxy(5,12); write('4. Pesan');
gotoxy(5,14); write('5. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 5) do
begin
gotoxy(5,16); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 5) then
gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
clrscr;
gotoxy(24,2); write('^_^ SUBMENU PETUNJUK PENGGUNAAN ^_^');
gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
gotoxy(5,6); write('1. Input Data');
gotoxy(5,8); write('2. OutPut Data');
gotoxy(5,10); write('3. Edit Data');
gotoxy(5,12); write('4. Hapus Data');
gotoxy(5,14); write('5. Keluar');
pilih:= 0;
while (pilih < 1) or (pilih > 5) do
begin
gotoxy(5,16); write('Masukan Pilihan : ');
readln(pilih);
if (pilih < 1) or (pilih > 5) then
write (^G);
gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
if pilih = 1 then
begin
TextBackground(LightGreen);
TextColor(White);
PetunjukInputData;
end
else
if pilih = 2 then
begin
TextBackground(LightGreen);
TextColor(White);
PetunjukOutputData;
end
else
if pilih = 3 then
begin
TextBackground(LightGreen);
TextColor(White);
PetunjukEditData;
end
else
if pilih = 4 then
begin
TextBackground(LightGreen);
TextColor(White);
PetunjukHapusData;
end
else
if pilih = 5 then
exit;
end;
end
else
if pilih = 2 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
TujuanPembuatan;
end
else
if pilih = 3 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
PembuatProgramAplikasi;
end
else
if pilih = 4 then
begin
TextBackground(LightBlue);
TextColor(Yellow);
Pesan;
end
else
if pilih = 5 then
exit;
end;
end
else
if pilih = 6 then
exit;
end;
end;
end.
