BAB II

PEMBAHASAN

A.    FLOW CHART

Rancangan pembuatan coding MENU DALAM PENJUALAN adalah sebagai berikut

·         Pertama pastinya menjalankan program MENU DALAM PENJUALAN

·         Tampil menu penjualan yang kita kehendaki misal ada 7 sub menu

·         Memilih salah satu menu yang kita kehendaki

          percabangan yang kita buat

·         Ketika terpilih salah satu sub menu akan ada sub menu ukuran

·         Ukuran menampilkan L/M/S

·         Di anjurkan untuk memilih salah satu sub menu L/M/S

·         Ketika memilih L akan ditampilkan Harga barang tersebut pada ukuran L

·         Ketika memilih M akan ditampilkan Harga barang tersebut pada ukuran M

·         Ketika memilih S akan ditampilkan Harga barang tersebut dalam ukuran S

·         Harga yang telah terpilih akan di kalikan ke banyak beli yang akan di tampilkan ke Harga pembelian

·         setelah itu akan ada imputan Bayar di kurangi Harga pembelian yang menampilkan kembalian.

·         Setelah proses diatas selesai akan tampil menanyakan transaksi lain [ y/t ] ketika memilih tombol ’ y ’ akan di tampilkan kembali program seperti awal dalam coding goto Balik (MENU DALAM PENJUALAN). Dan ketika memilih tombol ’ t ’ akan langsung keluar dari program.

B.     CODING PROGRAM

 program penjualan;

uses wincrt;

const Nmaks=100;

         type barang=record

          kode:string[10];

          nama:string[35];

          quantity:integer;

          harsat:integer;

          subtotal:integer;

     end;

procedure utama;

begin

          write('==============TOKO TIKTOK===========');

          writeln('===================================');

          writeln('===Jalan Raya Singaparna No. 123===');

end;

procedure member;

var

kd_member:string;

nm_member:string;

alamat:string;

no_hp:string;

begin

writeln('----------------------------DATA MEMBER--------------------------------');

writeln;

write('Kode member                      :'); readln(kd_member);

if kd_member = 'M1' then

   begin

   nm_member := 'Vania Larissa';

   alamat    := 'Pontianak';

   no_hp     := '08921234567';

   end;

if kd_member = 'M2' then

     begin

     nm_member := 'Megan Young';

     alamat    := 'Piliphines';

     no_hp     := '0876543123';

     end

     else

   begin

   nm_member := 'Tidak ditemukan';

   alamat     := '-';

   no_hp      := '-';

   end;

writeln('Nama Member    :', nm_member);

writeln('Alamat         :', Alamat);

writeln('No Hp          :', no_hp);

end;

procedure garis;

begin

write('===========================================================');

end;

procedure petugas;

var

kd_petugas:string;

nm_petugas:string;

no_hpp:string;

alamatp:string;

begin

writeln('----Petugas Kasir------------------------------');

writeln('Kode Petugas          : P1-P2');read(kd_petugas);

if kd_petugas = 'P1' then

   begin

   nm_petugas := 'Soleh';

   alamatp     := 'Jl. Wawan';

   no_hpp      := '08765454398';

   end;      

  

   if kd_petugas = 'P2' then

   begin

   nm_petugas := 'Mahfud';

   alamatp     := 'Jl. Duren';

   no_hpp      := '087643212398';

   end;

writeln('Nama Petugas           :', nm_petugas);

writeln('Alamat                 :', alamatp);

writeln('No Hp                  :', no_hpp);

end;

    type nilai=array[1..Nmaks] of barang;

    var

   M:nilai;

  N:integer;

   i:integer;

   total,disc,bayar,hrg,kembali:real;

   y:string;

   lagi:char;

     begin

      clrscr;  

     utama;

     petugas;

     garis;

     lagi := 'y';

     while lagi = 'y' do

     begin

     for i:=1 to Nmaks do

     begin

      M[i].kode:=' ';

      M[i].nama:=' ';

      M[i].quantity:=0;

      M[i].harsat:=0;

      M[i].subtotal:=0;

     end;

     write('Banyaknya Barang : '); readln(N);

     for i:=1 to N do

     begin

          writeln('Barang Ke-',i,' dari ',N);

          write('Kode Barang : '); readln(M[i].kode);

          if M[i].kode = 'B1' then

             begin

             M[i].nama := 'Pensil';

             M[i].harsat := 1200;

             end;

          if M[i].kode = 'B2' then

             begin

             M[i].nama := 'Penghapus';

             M[i].harsat := 2000;

             end;

          write('Nama Barang : ',M[i].nama);

          write('Quantity : '); readln(M[i].quantity);

          write('Harga Satuan : ',M[i].harsat);

          M[i].subtotal:=M[i].quantity*M[i].harsat;

          total:=total+M[i].subtotal;

          writeln('Subtotal : ',M[i].subtotal);

          writeln('Ada transaksi lagi ?'); readln(lagi);

      if lagi = 't' then

      end;

      end;

       clrscr;

      begin

     

     writeln('----------------------DATA PENJUALAN BARANG--------------------');

      writeln('===============================================================');

      writeln('No | Kode | Nama Barang | jumlah | Harga Satuan | Subtotal');

      writeln('===============================================================');

      for i:=1 to N do

      begin

      writeln(i,'    ',M[i].kode,'      ',M[i].nama,'        ',M[i].quantity,'         ',M[i].harsat,'        ',M[i].subtotal);

      end;

      writeln('========================================================================');

      writeln('Total Bayar : ',total:3:2);

      writeln('Discount Untuk member sebesar 20%');

      writeln('Ada Member? Jika ada masukan Kode'); readln(y);

     

      if y = 'ada' then

      begin

      member;

      disc:=total*0.2;

      hrg:=total-disc;

      end

      else

      disc:=total*0;

      hrg:=total-disc;

      writeln('Harga Total :' ,hrg:3:2);

      writeln('Bayar       : ');read(bayar);

      Kembali:= bayar-hrg;

      writeln('Kembali     : ',kembali:3:2);

      end;

end.

TAMPILAN DALAM PASCAL :

BAB III

PENUTUP

   Demikian makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan yang terjadi pada program dan makalah yang kami buat ini.

A.    KESIMPULAN

Setelah dibuatnya program penjualan dengan menggunakan program Turbo Pascal dapat membantu proses transaksi pada sebuah toko dengan menggunakan prosedure dan if, karena lebih simpel dalam penggunannya. Ketika pembuatan program ini tidak sesulit pembuatan program yang lain.

B.     SARAN

Kami terima jika ada kritik dan saran dari pembaca, karena semua program tidak luput dari sebuah kesalahan. Untuk menjadikan kami agar bisa membuat program yang lebih baik lagi.