Source Code Stok Barang dalam Pascal

Source Code Stok Barang dalam Pascal - Software house kali ini membahas tentang Aplikasi Stok Barang DVD dan Game PC yang sudah ada CRUD.

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. 

Sekian atikel tentang Source Code Stok Barang dalam Pascal, semoga bermanfaat.