Advertisement
Guest User

Program Laundry c3budiman

a guest
Nov 6th, 2016
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 17.48 KB | None | 0 0
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. TugasMenuDanTabel.
  3.            AUTHOR. Cecep Budiman.
  4.            INSTALLATION. Kosan Cecep.
  5.        
  6.        environment division.
  7.        configuration section.
  8.        SPECIAL-NAMES.
  9.            DECIMAL-POINT IS COMMA
  10.  
  11.        DATA DIVISION.
  12.        FILE SECTION.
  13.        WORKING-STORAGE SECTION.
  14.        01 perlaundryan.
  15.             02 paket pic x(12) occurs 10 times.
  16.             02 parfum pic x(12) occurs 10 times.
  17.             02 nama pic x(12) occurs 10 times.
  18.             02 kg pic 9(2) occurs 10 times.
  19.             02 jumlahorg pic 99.
  20.             02 hargaperkg pic 9(5).
  21.             02 hargatotal pic 9(9).
  22.             02 totalharga pic 9(9).
  23.             02 kgtot pic 9(2)
  24.        01 satuan.
  25.           02 kgb pic 9.
  26.           02 jumlahb pic s99999.
  27.           02 jumlah2b pic s99999.
  28.           02 uangb pic s99999.
  29.           02 kembalianb pic s99999.
  30.           02 feesb pic s9999.
  31.           02 namab pic x(14).
  32.  
  33.        01 TANYA PIC A VALUE SPACE.
  34.            88 YA VALUE "Y" "y".
  35.            88 TIDAK VALUE "T" "t".
  36.  
  37.             77 pil pic 9.
  38.             77 i pic 9.
  39.             77 BERHENTI PIC A.
  40.             77 garis PIC X(77) VALUE ALL '-'.
  41.             77 paketkg pic x(12).
  42.             77 pck pic x(12).
  43.             77 kgnya pic x(2) value "kg".
  44.             77 kgtiga pic x(2).
  45.             77 tot pic ZZZ.ZZZ.ZZZ.
  46.             77 baju pic zz.
  47.  
  48.        01 judul-1 PIC X(25) VALUE ' Tabel Daftar Pelanggan  '.
  49.        01 judul-2.
  50.            02 FILLER  PIC X(2) VALUE '| '.
  51.            02 FILL PIC X(15) VALUE 'Nama Pelanggan '.
  52.            02 FILL PIC X(2) VALUE '| '.
  53.            02 FILL PIC X(17) VALUE 'Paket yg dipilih '.
  54.            02 FILL PIC X(1) VALUE '| '.
  55.            02 FILL PIC X(7) VALUE ' KG '.
  56.            02 FILL PIC X(1) VALUE '| '.
  57.            02 FILL PIC X(17) VALUE ' Tambahan Parfum '.
  58.            02 FILL PIC X(1) VALUE '| '.
  59.            02 FILL PIC X(13) VALUE ' Total Harga '.
  60.            02 FILL PIC X(1) VALUE '| '.
  61.            
  62.        01 isi-tabel.
  63.            02 FILL PIC X(2) VALUE '| '.
  64.            02 namadua PIC x(15).
  65.            02 FILL PIC X(2) VALUE '| '.
  66.            02 paketdua PIC x(17).
  67.            02 FILL PIC X(2) VALUE '| '.
  68.            02 kgdua PIC x(6).
  69.            02 FILL PIC X(2) VALUE '| '.
  70.            02 parfumdua PIC x(16).
  71.            02 FILL PIC X(2) VALUE '| '.
  72.            02 hargadua PIC ZZZ.ZZZ.ZZZB.
  73.            02 FILL PIC X(2) VALUE '| '.
  74.          
  75.        SCREEN SECTION.
  76.        01 menu.
  77.             02 line 1 column 10 value
  78.             "           ______________________________________".
  79.             02 line 2 column 10 value
  80.             "  ________|                                      |____".
  81.             02 line 3 column 10 value
  82.             "  ________|                                      |_______".
  83.             02 line 4 column 10 value
  84.             "  \      |                                      |      /".
  85.             02 line 5 column 10 value
  86.             "   \     |                                      |     /".
  87.             02 line 6 column 10 value
  88.             "   /      |______________________________________|     \".
  89.            02 line 7 column 10 value
  90.            "  /__________)                                (_________\".
  91.           02 line 4 column 27 value "<< Menu Program Laundry >>",
  92.           background-color 5, highlight.
  93.           02 line 10 column 9 value
  94.           "[1]. Pelanggan satuan (Paket Reguler)",
  95.           highlight, foreground-color 3.
  96.           02 line 12 column 9 value
  97.           "[2]. Pelanggan Banyak / Daftar Pelanggan",
  98.           highlight, foreground-color 3.
  99.           02 line 14 column 9 value "[3]. Keluar",
  100.           highlight, foreground-color 3.
  101.           02 line plus 3 column 9 "masukkan pilihan : ".
  102.  
  103.       01 muka.
  104.           02 line 4 COLUMN 5 value
  105.           "WW      WW        lll                                 ",
  106.           highlight, foreground-color 2.
  107.           02 line 5 column 5 value
  108.           "WW      WW   eee  lll   cccc  oooo  mm mm mmmm    eee ",
  109.           highlight, foreground-color 2.
  110.           02 line 6 column 5 value
  111.           "WW   W  WW ee   e lll cc     oo  oo mmm  mm  mm ee   e",
  112.           highlight, foreground-color 2.
  113.           02 line 7 column 5 value
  114.           " WW WWW WW eeeee  lll cc     oo  oo mmm  mm  mm eeeee ",
  115.           highlight, foreground-color 2.
  116.           02 line 8 column 5 value
  117.           "  WW   WW   eeeee lll  ccccc  oooo  mmm  mm  mm  eeeee",
  118.           highlight, foreground-color 2.
  119.  
  120.           02 line 20 COLUMN 1
  121.           value "tekan Enter Untuk Melanjutkan.................".
  122.  
  123.       01 transaksiawal1.
  124.          02 line 3 column 50 value
  125.          "===========================" highlight,foreground-color 2.
  126.          02 line 4 column 50 value
  127.          "Masuk : " highlight, foreground-color 4.
  128.  
  129.       01 transaksiawal2.
  130.          02 line 3 column 50 value
  131.          "===========================" highlight, foreground-color 2.
  132.          02 line 4 column 50 value
  133.          "Masuk Sebagai : " highlight, foreground-color 4.
  134.  
  135.      01 transaksiawal3.
  136.          02 line 3 column 3 value
  137.          "=============================" highlight, foreground-color 2.
  138.          02 line 4 column 3 value
  139.          "Harga Per Kg : RP. 6000" highlight, foreground-color 6.
  140.          02 line 5 column 3 value
  141.          "=============================" highlight, foreground-color 2.
  142.          02 line 6 column 3 value
  143.          "PPN = 10% " highlight, foreground-color 6.
  144.          02 line 7 column 3 value
  145.          "=============================" highlight, foreground-color 2.
  146.          02 line 8 column 3 value
  147.          "Laundry Berapa KG? " highlight, foreground-color 4.
  148.      01 transaksilanjut1.
  149.          02 line 9 column 3 value
  150.          "=============================" highlight, foreground-color 2.
  151.          02 line 10 column 3 value
  152.          "Harga Sebelum Pajak : " highlight.
  153.      01 transaksilanjut2.
  154.          02 line 12 column 3 value
  155.          "Pajak : " highlight.
  156.      01 transaksilanjut3.
  157.          02 line 14 column 3 value
  158.          "Total Bayar : " highlight.
  159.      01 transaksilanjut4.
  160.          02 line 15 column 3 value
  161.          "==========================================================="
  162.          highlight, foreground-color 2.
  163.          02 line 16 column 3 value
  164.          "Uang yg dibayarkan : " highlight, foreground-color 4.
  165.      01 transaksilanjut5.
  166.          02 line 17 column 3 value
  167.          "Kembalian Anda : " highlight.
  168.      01 terakhir.
  169.          02 line 18 column 3 value
  170.          "==========================================================="
  171.          highlight, foreground-color 2.
  172.          02 line 19 column 3 value
  173.          "Terima Kasih, Laundry Beres Dalam 2 Hari. " highlight.
  174.  
  175.  
  176.      01 tampilanauthor.
  177.           02 line 4 column 4 value "Pembuat : Cecep Budiman",
  178.           highlight, foreground-color 3.
  179.           02 line 6 column 4 value "Tanggal Pembuatan : 04-11-2016",
  180.           highlight, foreground-color 3.
  181.           02 line 8 column 4 value "Instalasi : Notbudiman-pc",
  182.           highlight, foreground-color 3.
  183.           02 line 10 column 4
  184.           value "Tempat Pembuatan : Depok, Indonesia",
  185.           highlight, foreground-color 3.
  186.  
  187.           02 line 4 column 50 value "⊂_ヽ            ",
  188.           highlight, foreground-color 3.
  189.           02 line 5 column 50 value "  \\ __      ",
  190.           highlight, foreground-color 3.
  191.           02 line 6 column 50 value "   \( •_•)   ",
  192.           highlight, foreground-color 3.
  193.           02 line 7 column 50 value "    < ⌒ヽ    ",
  194.           highlight, foreground-color 3.
  195.           02 line 8 column 50 value "   /   へ\   ",
  196.           highlight, foreground-color 3.
  197.           02 line 9 column 50 value "   /  / \\ ",
  198.           highlight, foreground-color 3.
  199.           02 line 10 column 50 value "   レ ノ   ヽ_つ ",
  200.           highlight, foreground-color 3.
  201.           02 line 11 column 50 value "  / /    ",
  202.           highlight, foreground-color 3.
  203.           02 line 12 column 50 value "  / /     ",
  204.           highlight, foreground-color 3.
  205.           02 line 13 column 50 value " ( (ヽ    ",
  206.           highlight, foreground-color 3.
  207.           02 line 14 column 50 value " | |、\  ",
  208.           highlight, foreground-color 3.
  209.           02 line 15 column 50 value " | 丿 \ ⌒)",
  210.           highlight, foreground-color 3.
  211.           02 line 16 column 50 value " | |  ) /",
  212.           highlight, foreground-color 3.
  213.           02 line 17 column 50 value ")  Lノ__",
  214.           highlight, foreground-color 3.
  215.           02 line 18 column 50 value "(/___",
  216.           highlight, foreground-color 3.
  217.           02 line 20 COLUMN 1
  218.           value "tekan Enter Untuk Melanjutkan.................".
  219.  
  220.       01 BERSIHKAN-LAYAR.
  221.           02 BLANK SCREEN.
  222.       01 paket-laundry.
  223.           02 line 4 column 5 value " >> Pilih paket laundry : << ",
  224.           underline, background-color 4.
  225.           02 line 5 column 5 value " 1. Reguler 2 Hari (Rp 6000 / kg)".
  226.           02 line 6 column 5 value " 2. Hemat 3 Hari (Rp 5000 / Kg)".
  227.           02 line 7 column 5 value " 3. Express 1 Hari (Rp 7000 / kg)".
  228.           02 line 8 column 5 value " 4. Zeus 1/2 Hari (Rp 10000 / kg)".
  229.           02 line 10 column 5 value "".
  230.  
  231.       01 parfumdisplay.
  232.           02 line 4 column 5 value " >> Parfum yang diinginkan? << ",
  233.           underline, background-color 4.
  234.           02 line 5 column 5 value "1. Aroma Stroberi".
  235.           02 line 6 column 5 value "2. Aroma Lavender".
  236.           02 line 7 column 5 value "3. Aroma Jeruk".
  237.           02 line 8 column 5 value "4. Aroma Biskuit Kelapa".
  238.           02 line 9 column 5 value "5. Aroma Mantan".
  239.           02 line 10 column 5 value "6. tanpa parfum".
  240.           02 line 12 column 5 value "".
  241.  
  242.       01 jasjus.
  243.          02 line 11 column 5 value "".
  244.       01 jasjus2.
  245.          02 line 13 column 5 value "".
  246.       01 jasjus3.
  247.          02 line 4 column 5 value "Siapa nama pelanggan ke ".
  248.       01 jasjus4.
  249.          02 line 5 column 5 value ""
  250.       01 jasjus5.
  251.          02 line 4 column 5 value "".
  252.       01 jasjus6.
  253.          02 line 4 column 5 value
  254.          "  >Berapa Banyak Orang yang ngelaundry hari ini ?<  ",
  255.          highlight, foreground-color 2, background-color 4.
  256.      01 akhir.
  257.          02 line 1 column 3 value
  258.          "                                                        |\",
  259.          highlight, foreground-color 2.
  260.          02 line 2 column 3 value
  261.          "                    ))))                                | \",
  262.          highlight, foreground-color 2.
  263.          02 line 3 column 3 value
  264.          "                    ( oo                                |",
  265.          highlight, foreground-color 2.
  266.          02 line 4 column 3 value
  267.          "              _______\-/__    ____(////___              |",
  268.          highlight, foreground-color 2.
  269.          02 line 5 column 3 value
  270.          "             / O * // \\g\ / O //oo )ag \             |",
  271.          highlight, foreground-color 2.
  272.          02 line 6 column 3 value
  273.          "             |______\\\|\\|  |___\\\-/____|             |",
  274.          highlight, foreground-color 2.
  275.          02 line 7 column 3 value
  276.          "            | _____(_)(_)_ ||     \  \\    |            |",
  277.          highlight, foreground-color 2.
  278.          02 line 8 column 3 value
  279.          "            ||            |||      | //    |            |",
  280.          highlight, foreground-color 2.
  281.          02 line 9 column 3 value
  282.          "            ||           ]|||      |_\)    |            |",
  283.          highlight, foreground-color 2.
  284.          02 line 10 column 3 value
  285.          "   /\  ____ ||            |||      /||     |  _______   |",
  286.          highlight, foreground-color 2.
  287.          02 line 11 column 3 value
  288.          " [|  ||Tide|||____________|||      \||     |  |#####|   |",
  289.          highlight, foreground-color 2.
  290.          02 line 12 column 3 value
  291.          "__|__||____||______________||______((_)____|__|#####|___|",
  292.          highlight, foreground-color 2.
  293.          02 line 13 column 3 value
  294.          "                                              |#####| c3b\",
  295.          highlight, foreground-color 2.
  296.          02 line 15 column 3 value
  297.          "Apakah anda yakin ingin keluar? y/t ",
  298.          highlight, foreground-color 2.
  299.  
  300.       01 hapus-layar.
  301.           02 blank screen.
  302.  
  303.       PROCEDURE DIVISION.
  304.       tampilanmuka.
  305.           display hapus-layar.
  306.           DISPLAY muka.
  307.           accept berhenti.
  308.       authorza.
  309.           display hapus-layar.
  310.           display tampilanauthor.
  311.           accept berhenti.
  312.       menunya.
  313.           display hapus-layar.
  314.           display menu.
  315.           accept pil.
  316.           go to satuannya, mulai, selesai2 depending on pil.
  317.       mulai.
  318.            display hapus-layar.
  319.            display jasjus6.
  320.            display jasjus4.
  321.            ACCEPT jumlahorg.
  322.                IF jumlahorg > 9
  323.                   DISPLAY "ga bisa kebanyakan"
  324.                   GO TO mulai.
  325.                IF jumlahorg = 0
  326.                   DISPLAY "masa ga ada pelanggan -_-"
  327.                    GO TO mulai.
  328.            display BERSIHKAN-LAYAR.
  329.            perform varying i from 1 by 1 until i > jumlahorg
  330.            display jasjus3
  331.            display , i ," ?"
  332.            display jasjus4
  333.            accept nama(i)
  334.            display bersihkan-layar
  335.            display jasjus5
  336.            display "Berapa kg pelanggan ke ", i," nge laundry?"
  337.            display jasjus4
  338.            accept kg(i)
  339.            display BERSIHKAN-LAYAR
  340.            display paket-laundry
  341.            display "masukkan pilihan pelanggan ke ", i,":"
  342.            display jasjus
  343.            accept paket(i)
  344.            display BERSIHKAN-LAYAR
  345.            display parfumdisplay
  346.            display "Pelanggan ke ", i," mau pake parfum apa?"
  347.            display jasjus2
  348.            accept parfum(i)
  349.            display BERSIHKAN-LAYAR.
  350.          
  351.       judultabel.
  352.           DISPLAY BERSIHKAN-LAYAR.
  353.           DISPLAY judul-1.
  354.           DISPLAY garis.
  355.           DISPLAY judul-2.
  356.           display garis.
  357.  
  358.       proses.
  359.           PERFORM tampilkan-isi-tabel
  360.               VARYING i FROM 1 BY 1 UNTIL i > jumlahorg.
  361.       selesai.
  362.            display garis.
  363.            move totalharga to tot.
  364.            move kgtot to baju.
  365.            display space.
  366.            display space.
  367.            display "total pendapatan laundry hari ini :", tot,
  368.            " Rupiah".
  369.            display "total baju kotor yang harus kita laundry : ", baju,
  370.            " kg ".
  371.            accept berhenti.
  372.            display hapus-layar.
  373.            compute kgtot = 0.
  374.            compute totalharga = 0.
  375.       selesai2.
  376.            display hapus-layar.
  377.            display akhir.
  378.            display space.
  379.            accept tanya.
  380.            if TIDAK go to tampilanmuka.
  381.            stop run.
  382.  
  383.       satuannya.
  384.           display hapus-layar.
  385.           display transaksiawal1.
  386.           accept namab.
  387.           display hapus-layar.
  388.           display transaksiawal2.
  389.           display namab.
  390.           display transaksiawal3.
  391.           accept kgb.
  392.           display transaksilanjut1.        
  393.           compute jumlahb = (kgb * 6000).
  394.           display kgb " * 6000 = Rp. " jumlahb.
  395.           compute feesb = (kgb * 6000 * 0,1).
  396.           display transaksilanjut2.
  397.           display "Rp. " feesb.
  398.           compute jumlah2b = jumlahb + feesb.
  399.           display transaksilanjut3.
  400.           display jumlahb " + " feesb " = RP. " jumlah2b.
  401.           display transaksilanjut4.
  402.           accept uangb.
  403.           compute kembalianb = uangb - jumlah2b.
  404.           display transaksilanjut5.
  405.           display "Rp. " kembalianb.
  406.           display terakhir.
  407.           accept berhenti.
  408.           go to selesai2.
  409.  
  410.       tampilkan-isi-tabel.
  411.            move nama(i) to namadua.
  412.            if paket(i) = 1 move 6000 to hargaperkg.
  413.            if paket(i) = 2 move 5000 to hargaperkg.
  414.            if paket(i) = 3 move 7000 to hargaperkg.
  415.            if paket(i) = 4 move 10000 to hargaperkg.
  416.            compute hargatotal = hargaperkg * kg(i).
  417.            compute totalharga = hargatotal + totalharga.
  418.            move hargatotal to hargadua.
  419.            move kg(i) to kgtiga.
  420.            compute kgtot = kgtot + kg(i).
  421.  
  422.            STRING
  423.               kgtiga DELIMITED BY SPACE
  424.               ' '   DELIMITED BY SIZE
  425.               kgnya DELIMITED BY SPACE
  426.               ' '   DELIMITED BY SIZE
  427.            INTO kgdua
  428.            END-STRING
  429.  
  430.            if paket(i) = 1 move "Reguler" to paket(i).
  431.            if paket(i) = 2 move "Hemat" to paket(i).
  432.            if paket(i) = 3 move "Express" to paket(i).
  433.            if paket(i) = 4 move "Zeus" to paket(i).
  434.            move paket(i) to paketdua.
  435.  
  436.            if parfum(i) = 1 move "Stroberi" to parfum(i).
  437.            if parfum(i) = 2 move "Lavender" to parfum(i).
  438.            if parfum(i) = 3 move "Jeruk" to parfum(i).
  439.            if parfum(i) = 4 move "Bkt Kelapa" to parfum(i).
  440.            if parfum(i) = 5 move "Mantan" to parfum(i).
  441.            if parfum(i) = 6 move "No Parfum" to parfum(i).
  442.            move parfum(i) to parfumdua.
  443.            
  444.            DISPLAY isi-tabel.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement