Seputar laptop - Source Code Stok Barang dalam Pascal

Source Code Stok Barang dalam Pascal - Software house kali ini membahas ihwal 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 memakai 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 arahan 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 arahan 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 arahan 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 arahan 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 dipakai 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 dipakai 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 dipakai 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 yaitu 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  sanggup bermanfaat dan');  gotoxy(2,14); write('menjadi ibadat yang diridhoi oleh Tuhan 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 ihwal Source Code Stok Barang dalam Pascal, semoga bermanfaat.

Sumber http://www.materi-it.com/