Tutorial Membuat Program Kasir Sederhana

Hal yang paling penting dalam suatu usaha penjualan barang dan jasa adalah kualitas pelayanan yang diberikan, konsumen akan merasa puas jika pelayanan yang diberikan sangat baik. Oleh karena itu, keberhasilan suatu produk juga sangat ditentukan dari baik atau tidaknya pelayanan yang diberikan perusahaan dalam memasarkan produknya, baik itu pelayanan sewaktu memberikan penawaran produk, pelayanan keramahan dalam wiraniaga pelayanan kasir, pelayanan terhadap pengaturan parkir, hingga pelayanan terhadap kondisi produk pasca pembelian.

Salah satu usaha meningkatkatkan pelayanan dalam berniaga adalah adanya suatu program yang dapat mempermudah kasir dalam menginput transaksi jual beli, sehingga kepercayaan konsumen bisa lebih ditingkatkan. Oleh karna itu, Punkgawa Planner akan memberikan contoh sederhana dalam membuat program yang berguna bagi kasir. Tentunya menggunakan program Turbo Pascal.

Caranya mudah kok.....ikuti saja step by step cara membuatnya dibawah ini

1. buka notepad ++ lalu pastekan kode program dibawah dan simpan dengan nama Kasir.PAS (di simpan dengan nama lain juga boleh, yang penting format filenya harus .PAS agar bisa dibuka menggunakan program Turbo Pascal)

Program Kasir;

uses

    crt;

label

     awal,exit;

var

   nam_bar  :String;{nama barang} 

   har_sat  :Real  ;{harga satuan}

   ban_bar  :Real  ;{banyak barang}

   tot_har  :Real  ;{total harga}

   uang_cash:Real  ;{uang cash}

   pot_har  :Real  ;{potongan harga}

   kemb     :Real  ;{kembalian}

   non_pot  :Real  ;{non potongan}

   ya       :char  ;{kembali ke awal}

begin

     awal:

     clrscr;

     writeln('          SELAMAT MENCOBA PROGRAM KASIR SEDERHANA BUATAN PUNKGAWA PLANNER');

     write('Nama Barang             : ');readln(nam_bar);

     write('Harga Satuan            : Rp.');readln(har_sat);

     write('Banyak Barang           : ');readln(ban_bar);

     tot_har:=(har_sat*ban_bar);

     writeln('Total Harga             : Rp.',tot_har:1:0);

     if tot_har >=5000 then

     pot_har:=(0.1*tot_har);                  

     if tot_har <500 then

     pot_har:=(0.0*tot_har);                  

     writeln('Potongan Harga          : Rp. ',pot_har:1:0);

     write('Uang Cash               : Rp.');readln(uang_cash);

     kemb:=(uang_cash)-(tot_har-pot_har);

     writeln('Uang Kembalian          : Rp. ',kemb:1:0);

     write('Masukkan Data Lagi(y/n) ? ');readln(ya);

     if ya='y' then

     goto awal

     else if ya='n' then

     goto exit;

     exit:

end.

2. Next, setelah di save, buka program Turbo Pascal.

3. Setelah terbuka, pilih menu File, lalu open dan pilih filenya, dalam hal ini Kasir.PAS

4. Kemudian lakukan perinta Compile untuk mengecek data yang diinput tadi, apakah ada yang error atau tidak dengan menekan kombinasi tombol ALT dan F9. Jika ada yang error perbaiki file yang tadi (biasanya turbo pascal akan memberitahu letak data yang error). Namun jika tidak ada yang error, anda bisa lanjut ke tahap berikutnya yaitu menjalankan atau merunning data program yang dibuat tadi

5. Tekan kombinasi tombol CTRL dan F9 untuk melakukan proses RUN program.

6. Next, Sekarang anda bisa melihat hasilnya dengan menekan tombol ALT dan F5 secara bersamaan.

Hasil running program yang dibuat tadi seperti ini :

contoh :

Nama Barang : (ketik nama barangnya, lalu tekan enter)

Harga Satuan : (ketik harga barangnya, lalu tekan enter)

Banyak Barang : (ketikkan berapa banyak barang yang dibeli, lalu tekan enter)

Total Harga : (akan terinput otomatis sesuai harga dan banyak barang,)

Potongan Harga : (otomatis terdeteksi sesuai data yang di buat tadi)

Uang cash : (ketik nominal uang yang digunakan konsumen, lalu tekan enter)

Uang Kembalian : (otomatis dikalkulasi sesuai uang konsumen - total harga)

Masukkan Data lagi (y/n) ? (tekan y untuk membuat daftar pembelian baru, tekan n untuk keluar dari program)