makalah TA pascal Program penjualan

MAKALAH PROGRAM MENU DALAM PENJUALAN

DOSEN PEMBIMBING

                                     EKO PURNOMO, S.Kom                                    

Disusun Oleh :

FARIHIN LAZIM ( 12012684 )

JURUSAN TEKNIK INFORMATIKA

SEKOLAH TINGGI TEKNOLOGI NURUL JADID

PAITON PROBOLINGGO 2012

BAB I

KATA PENGANTAR

Puji syukur alhamdulillah pemakalah panjatkan kepada Allah ilahi robbi, yang dengan takdirnya menciptakan jagat raya ini dengan segala bentuk isinya. Tak ada kata yang patut di lupakan kecuali hanya rasa syukur yang berbunyi ” Alhamdulillahirobbil’alamin”.

Shalawat serta salam juga tak lupa pemakalah haturkan kepada Baginda Khatimun Ambiya’, Nabi Muhammad SAW, yang dengan pancaran Nur (cahaya) ilmunya, Dunia terasa lebih hidup, lebih terang dari Nur apapun.

Disamping itu pemakalah ucapkan terimakasih untuk Ayah dan Ibunda yang telah memberikan sambungan Do’anya dan dorongan kepada pemakalah. Dan tak lupa pula pemakalah ucapkan terimakasih untuk Dosen pemrograman (EKO PURNOMO, S.Kom  ) dengan sabarnya beliau mendidik dan memberikan motivasi dan ispirasi kepada pemakalah. Dan terimakasih untuk semua Mahasiswa STTNJ khususnya kelas H yang menjadi sumber utama motivasi untuk pemakalah.

LATAR BELAKANG

Perkembangan teknologi di dunia ini sangat melambung bukan hanya di kota metro politan saja desa maupun dusun – dusun sudah pengen mengenal suatu teknologi berbasis komputer. Berawal dari pemikiran mengenai penjualan baju di desa yang belum mengenal tentang program pada komputer seperti program pascal, delphi dan sebagainya.

Bergegas dari hal tersebut pemakalah ingin mengenalkan program pascal sederhana yang sangat mudah di gunakan untuk mempermudah transaksi pada penjualan. Menu dalam penjualan begitulah pemakalah mengangkat judul pada makalah ini dengan program free pascal tidak jauh dengan judulnya pemakalah langsung mencantumkan coding coding pascal dalam makalah ini sedikit mengulas isi dari makalah. Alhamdulilah, pada akhir Bulan Desember 2012 makalah ini telah selesai kami buat dalam bentuk soft copy. Tak ada harapan dalam hati sang pemakalah, semoga makalah dan program ini bisa di manfaatkan dengan baik oleh semua pembaca.

Tidak ada sesuatu yang sempurna di dunia ini. Apabila kemudian di temukan dalam makalah atau coding program free pascal ini kekeliruan ataupun kesalahan, dimohon dengan hormat untuk tidak di jadikan tontonan atau obrolan menarik saja, pemakalah terbuka untuk merubahnya langsung hubungi via E-mail/facebook di lazim_zid@yahoo.com. Makalah dan coding ini dapat di download di blog pemakalah di thelazim.blogger.com

”SELAMAT MEMBACA DAN MENCOBA PROGRAMNYA”

                                                                                                      Paiton, 31  Desember 2012

                                                                                                      Pemakalah,

                                                                                                      (Farihin Lazim)

BAB II

IMPLEMENTASI

1.     Flow chart atau Rancangan program

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

·         Ketika terpilih otomatis akan menjalankan salah satu program pada case of  atau 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.

2.     Coding program

Berikut ini adalah coding dari program penjualan simak dan coba pada program free pascal  program dibawah ini

program menu_penjualan;

uses crt;

label

balik;

var

pilihan : integer;

a,harga, kembali, bayar, banyak : longint;

ukuran, y : string;

function hrg(x:integer):integer;

begin

case x of

1 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 80000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 75000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 70000;

    end;

2 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 60000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 55000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 50000;

    end;

3 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 25000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 20000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 19800;

       end;

4 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 200000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 199000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 190000;

    end;

5 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 80000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 75000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 70000;

    end;

6 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 150000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 149000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 148000;

    end;

7 : begin

        write('Ukuran   L/M/S          = ');

        readln(ukuran);

        if (ukuran = 'L') or (ukuran ='l') then harga := 250000;

        if (ukuran = 'M') or (ukuran ='m') then harga := 245000;

        if (ukuran = 'S') or (ukuran ='s') then harga := 240000;

    end;

end;

end;

begin

        balik:

textbackground(blue);

clrscr;

textcolor(10);

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

writeln('|                               TUGAS AKHIR PASCAL                               |');

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

writeln('|  NAMA : FARIHIN LAZIM                KELAS : H                                 |');

writeln('|  NIM  : 12012684                     DOSEN : EKO PURNOMO, S.KOM                |');

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

writeln('+++++++++++++++++++++++++++++++ TOKO BUSANA OYE ++++++++++++++++++++++++++++++++++');

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

writeln('|                            | |                                                 | ');

writeln('|-------- MENYEDIAKAN ------ |=|---------------- PEMBAYARAN ANDA ----------------| ');

writeln('|                            | |                                                 | ');

writeln('| 1. BAJU HEM LENGAN PANJANG | |                                                 | ');

writeln('| 2. BAJU HEM LENGAN PENDEK  | |                                                 | ');

writeln('| 3. CELANA BOXER            | |                                                 | ');

writeln('| 4. CELANA PANJANG GURU     | |                                                 | ');

writeln('| 5. CELANA PENDEK           | |                                                 | ');

writeln('| 6. CELANA PANJANG PENCIL   | |                                                 | ');

writeln('| 7. JAKER MODE TRENDI       |=|-------------------------------------------------| ');

writeln('|                            | |                                                 | ');

writeln('|                            | |                                                 | ');

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

writeln('|                                                                                | ');

writeln('|                                                                                | ');

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

GoToXY(34,12); textcolor(yellow); write('NOMOR BARANG ANDA (1-7) = '); readln(pilihan);

GOTOXY(34,13); hrg(pilihan);

GOTOXY(34,14); writeln('HARGA                   |RP ', harga);

GOTOXY(34,15); write   ('BANYAK BELI             |   '); readln(banyak);

               a:= harga * banyak;

GOTOXY(34,16); writeln ('HARGA PEMBELIAN         |Rp ',a);

GOTOXY(34,17); write   ('BAYAR                   |RP '); readln(bayar);

               kembali := bayar - a;

GOTOXY(34,19); writeln ('KEMBALIAN               |Rp ', kembali);

GoToXY(4,22 );delay(500); textcolor(lightred); write('TOMBOL [ Y] UNTUK MENULANG SEMBARANG TOMBOL UNTUK KELUAR LALU ENTER : ');

               readln(y);

              if (y ='Y') or (y='y') then Goto balik;

end.

3.     Gambar Hasil program

Ø  Pertama di buka program akan tampil seperti gambar di bawah ini 

 Ø  Ketika kita memenuhi inputan program sepertihalnya : Nomor Barang , Ukuran, Harga, Banyak Beli, Harga Pembelian, Bayar otomatis akan memenuhi atau menampilkan Kembalian gambarnya seperti di bawah ini 

Ø  Program tidak berhenti disitu saja ketika menampilkan output Kembalian otomatis akan menampilkan “ TOMBOL [Y] UNTUK MENGULANG SEMBARANG TOMBOL UNTUK KELUAR LALU ENTER : _ “ KETIKA KITA MENGETIKKAN TOMBOL Y YANG BERISIKAN READLN(Y) IF y= ’Y’ THEN GOTO BALIK artinya ketika kita mengetik tombol Y akan pergi ke coding balik yang coding balik itu sendiri menampilkan program secara awal.