API tools faq
paste
Advertisement
Guest User

Program Laundry c3budiman

a guest
Nov 6th, 2016
94
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 17.56 KB | None | 0 0
raw download clone embed print report
  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.       01 muka.
  103.           02 line 4 COLUMN 5 value
  104.           "WW      WW        lll                                 ",
  105.           highlight, foreground-color 2.
  106.           02 line 5 column 5 value
  107.           "WW      WW   eee  lll   cccc  oooo  mm mm mmmm    eee ",
  108.           highlight, foreground-color 2.
  109.           02 line 6 column 5 value
  110.           "WW   W  WW ee   e lll cc     oo  oo mmm  mm  mm ee   e",
  111.           highlight, foreground-color 2.
  112.           02 line 7 column 5 value
  113.           " WW WWW WW eeeee  lll cc     oo  oo mmm  mm  mm eeeee ",
  114.           highlight, foreground-color 2.
  115.           02 line 8 column 5 value
  116.           "  WW   WW   eeeee lll  ccccc  oooo  mmm  mm  mm  eeeee",
  117.           highlight, foreground-color 2.
  118.  
  119.           02 line 20 COLUMN 1
  120.           value "tekan Enter Untuk Melanjutkan.................".
  121.  
  122.       01 transaksiawal1.
  123.          02 line 3 column 50 value
  124.          "===========================" highlight,foreground-color 2.
  125.          02 line 4 column 50 value
  126.          "Masuk : " highlight, foreground-color 4.
  127.       01 transaksiawal2.
  128.          02 line 3 column 50 value
  129.          "===========================" highlight, foreground-color 2.
  130.          02 line 4 column 50 value
  131.          "Masuk Sebagai : " highlight, foreground-color 4.
  132.       01 transaksiawal3.
  133.           02 line 3 column 3 value
  134.           "=============================" highlight, foreground-color 2.
  135.           02 line 4 column 3 value
  136.           "Harga Per Kg : RP. 6000" highlight, foreground-color 6.
  137.           02 line 5 column 3 value
  138.           "=============================" highlight, foreground-color 2.
  139.           02 line 6 column 3 value
  140.           "PPN = 10% " highlight, foreground-color 6.
  141.           02 line 7 column 3 value
  142.           "=============================" highlight, foreground-color 2.
  143.           02 line 8 column 3 value
  144.          "Laundry Berapa KG? " highlight, foreground-color 4.
  145.       01 transaksilanjut1.
  146.           02 line 9 column 3 value
  147.           "=============================" highlight, foreground-color 2.
  148.           02 line 10 column 3 value
  149.           "Harga Sebelum Pajak : " highlight.
  150.       01 transaksilanjut2.
  151.           02 line 12 column 3 value
  152.           "Pajak : " highlight.
  153.       01 transaksilanjut3.
  154.           02 line 14 column 3 value
  155.           "Total Bayar : " highlight.
  156.       01 transaksilanjut4.
  157.           02 line 15 column 3 value
  158.           "==========================================================="
  159.           highlight, foreground-color 2.
  160.           02 line 16 column 3 value
  161.           "Uang yg dibayarkan : " highlight, foreground-color 4.
  162.       01 transaksilanjut5.
  163.           02 line 17 column 3 value
  164.           "Kembalian Anda : " highlight.
  165.       01 terakhir.
  166.           02 line 18 column 3 value
  167.           "==========================================================="
  168.           highlight, foreground-color 2.
  169.           02 line 19 column 3 value
  170.           "Terima Kasih, Laundry Beres Dalam 2 Hari. " highlight.
  171.       01 tampilanauthor.
  172.            02 line 4 column 4 value "Pembuat : Cecep Budiman",
  173.            highlight, foreground-color 3.
  174.            02 line 6 column 4 value "Tanggal Pembuatan : 04-11-2016",
  175.            highlight, foreground-color 3.
  176.            02 line 8 column 4 value "Instalasi : Notbudiman-pc",
  177.            highlight, foreground-color 3.
  178.            02 line 10 column 4
  179.            value "Tempat Pembuatan : Depok, Indonesia",
  180.            highlight, foreground-color 3.
  181.            02 line 4 column 50 value "⊂_ヽ            ",
  182.            highlight, foreground-color 3.
  183.            02 line 5 column 50 value "　 ＼＼ ＿＿      ",
  184.            highlight, foreground-color 3.
  185.            02 line 6 column 50 value "　　 ＼(　•_•)   ",
  186.            highlight, foreground-color 3.
  187.            02 line 7 column 50 value "　　　 <　⌒ヽ    ",
  188.            highlight, foreground-color 3.
  189.            02 line 8 column 50 value "　　　/ 　 へ＼   ",
  190.            highlight, foreground-color 3.
  191.            02 line 9 column 50 value "　　 /　　/　＼＼ ",
  192.            highlight, foreground-color 3.
  193.            02 line 10 column 50 value "　　 ﾚ　ノ　　 ヽ_つ ",
  194.            highlight, foreground-color 3.
  195.            02 line 11 column 50 value "　　/　/    ",
  196.            highlight, foreground-color 3.
  197.            02 line 12 column 50 value "　 /　/     ",
  198.            highlight, foreground-color 3.
  199.            02 line 13 column 50 value "　(　(ヽ    ",
  200.            highlight, foreground-color 3.
  201.            02 line 14 column 50 value "　|　|、＼  ",
  202.            highlight, foreground-color 3.
  203.            02 line 15 column 50 value "　| 丿 ＼ ⌒)",
  204.            highlight, foreground-color 3.
  205.            02 line 16 column 50 value "　| |　　) /",
  206.            highlight, foreground-color 3.
  207.            02 line 17 column 50 value " ノ )　　Lﾉ__",
  208.            highlight, foreground-color 3.
  209.            02 line 18 column 50 value "(／___",
  210.            highlight, foreground-color 3.
  211.            02 line 20 COLUMN 1
  212.            value "tekan Enter Untuk Melanjutkan.................".
  213.       01 BERSIHKAN-LAYAR.
  214.           02 BLANK SCREEN.
  215.       01 paket-laundry.
  216.           02 line 4 column 5 value " >> Pilih paket laundry : << ",
  217.           underline, background-color 4.
  218.           02 line 5 column 5 value " 1. Reguler 2 Hari (Rp 6000 / kg)".
  219.           02 line 6 column 5 value " 2. Hemat 3 Hari (Rp 5000 / Kg)".
  220.           02 line 7 column 5 value " 3. Express 1 Hari (Rp 7000 / kg)".
  221.           02 line 8 column 5 value " 4. Zeus 1/2 Hari (Rp 10000 / kg)".
  222.           02 line 10 column 5 value "".
  223.  
  224.       01 parfumdisplay.
  225.           02 line 4 column 5 value " >> Parfum yang diinginkan? << ",
  226.           underline, background-color 4.
  227.           02 line 5 column 5 value "1. Aroma Stroberi".
  228.           02 line 6 column 5 value "2. Aroma Lavender".
  229.           02 line 7 column 5 value "3. Aroma Jeruk".
  230.           02 line 8 column 5 value "4. Aroma Biskuit Kelapa".
  231.           02 line 9 column 5 value "5. Aroma Mantan".
  232.           02 line 10 column 5 value "6. tanpa parfum".
  233.           02 line 12 column 5 value "".
  234.  
  235.       01 jasjus.
  236.          02 line 11 column 5 value "".
  237.       01 jasjus2.
  238.          02 line 13 column 5 value "".
  239.       01 jasjus3.
  240.          02 line 4 column 5 value "Siapa nama pelanggan ke ".
  241.       01 jasjus4.
  242.          02 line 5 column 5 value ""
  243.       01 jasjus5.
  244.          02 line 4 column 5 value "".
  245.       01 jasjus6.
  246.          02 line 4 column 5 value
  247.          "  >Berapa Banyak Orang yang ngelaundry hari ini ?<  ",
  248.          highlight, foreground-color 2, background-color 4.
  249.      01 akhir.
  250.          02 line 1 column 3 value
  251.          "                                                        |\",
  252.          highlight, foreground-color 2.
  253.          02 line 2 column 3 value
  254.          "                    ))))                                | \",
  255.          highlight, foreground-color 2.
  256.          02 line 3 column 3 value
  257.          "                    ( oo                                |",
  258.          highlight, foreground-color 2.
  259.          02 line 4 column 3 value
  260.          "              _______\-/__    ____(////___              |",
  261.          highlight, foreground-color 2.
  262.          02 line 5 column 3 value
  263.          "             / O * // \\g\ / O //oo )ag \             |",
  264.          highlight, foreground-color 2.
  265.          02 line 6 column 3 value
  266.          "             |______\\\|\\|  |___\\\-/____|             |",
  267.          highlight, foreground-color 2.
  268.          02 line 7 column 3 value
  269.          "            | _____(_)(_)_ ||     \  \\    |            |",
  270.          highlight, foreground-color 2.
  271.          02 line 8 column 3 value
  272.          "            ||            |||      | //    |            |",
  273.          highlight, foreground-color 2.
  274.          02 line 9 column 3 value
  275.          "            ||           ]|||      |_\)    |            |",
  276.          highlight, foreground-color 2.
  277.          02 line 10 column 3 value
  278.          "   /\  ____ ||            |||      /||     |  _______   |",
  279.          highlight, foreground-color 2.
  280.          02 line 11 column 3 value
  281.          " [|  ||Tide|||____________|||      \||     |  |#####|   |",
  282.          highlight, foreground-color 2.
  283.          02 line 12 column 3 value
  284.          "__|__||____||______________||______((_)____|__|#####|___|",
  285.          highlight, foreground-color 2.
  286.          02 line 13 column 3 value
  287.          "                                              |#####| c3b\",
  288.          highlight, foreground-color 2.
  289.          02 line 15 column 3 value
  290.          "Apakah anda yakin ingin keluar? y/t ",
  291.          highlight, foreground-color 2.
  292.  
  293.       01 hapus-layar.
  294.           02 blank screen.
  295.  
  296.       PROCEDURE DIVISION.
  297.       tampilanmuka.
  298.           display hapus-layar.
  299.           DISPLAY muka.
  300.           accept berhenti.
  301.       authorza.
  302.           display hapus-layar.
  303.           display tampilanauthor.
  304.           accept berhenti.
  305.       menunya.
  306.           display hapus-layar.
  307.           display menu.
  308.           accept pil.
  309.           go to satuannya, mulai, selesai2 depending on pil.
  310.       mulai.
  311.            display hapus-layar.
  312.            display jasjus6.
  313.            display jasjus4.
  314.            ACCEPT jumlahorg.
  315.                IF jumlahorg > 9
  316.                   DISPLAY "ga bisa kebanyakan"
  317.                   GO TO mulai.
  318.                IF jumlahorg = 0
  319.                   DISPLAY "masa ga ada pelanggan -_-"
  320.                    GO TO mulai.
  321.            display BERSIHKAN-LAYAR.
  322.            perform varying i from 1 by 1 until i > jumlahorg
  323.            display jasjus3
  324.            display , i ," ?"
  325.            display jasjus4
  326.            accept nama(i)
  327.            display bersihkan-layar
  328.            display jasjus5
  329.            display "Berapa kg pelanggan ke ", i," nge laundry?"
  330.            display jasjus4
  331.            accept kg(i)
  332.            display BERSIHKAN-LAYAR
  333.            display paket-laundry
  334.            display "masukkan pilihan pelanggan ke ", i,":"
  335.            display jasjus
  336.            accept paket(i)
  337.            display BERSIHKAN-LAYAR
  338.            display parfumdisplay
  339.            display "Pelanggan ke ", i," mau pake parfum apa?"
  340.            display jasjus2
  341.            accept parfum(i)
  342.            display BERSIHKAN-LAYAR.
  343.          
  344.       judultabel.
  345.           DISPLAY BERSIHKAN-LAYAR.
  346.           DISPLAY judul-1.
  347.           DISPLAY garis.
  348.           DISPLAY judul-2.
  349.           display garis.
  350.  
  351.       proses.
  352.           PERFORM tampilkan-isi-tabel
  353.               VARYING i FROM 1 BY 1 UNTIL i > jumlahorg.
  354.       selesai.
  355.            display garis.
  356.            move totalharga to tot.
  357.            move kgtot to baju.
  358.            display space.
  359.            display space.
  360.            display "total pendapatan laundry hari ini :", tot,
  361.            " Rupiah".
  362.            display "total baju kotor yang harus kita laundry : ", baju,
  363.            " kg ".
  364.            accept berhenti.
  365.            display hapus-layar.
  366.            compute kgtot = 0.
  367.            compute totalharga = 0.
  368.       selesai2.
  369.            display hapus-layar.
  370.            display akhir.
  371.            display space.
  372.            accept tanya.
  373.            if TIDAK go to tampilanmuka.
  374.            stop run.
  375.  
  376.       satuannya.
  377.           display hapus-layar.
  378.           display transaksiawal1.
  379.           accept namab.
  380.           display hapus-layar.
  381.           display transaksiawal2.
  382.           display namab.
  383.           display transaksiawal3.
  384.           accept kgb.
  385.           display transaksilanjut1.        
  386.           compute jumlahb = (kgb * 6000).
  387.           display kgb " * 6000 = Rp. " jumlahb.
  388.           compute feesb = (kgb * 6000 * 0,1).
  389.           display transaksilanjut2.
  390.           display "Rp. " feesb.
  391.           compute jumlah2b = jumlahb + feesb.
  392.           display transaksilanjut3.
  393.           display jumlahb " + " feesb " = RP. " jumlah2b.
  394.           display transaksilanjut4.
  395.           accept uangb.
  396.           compute kembalianb = uangb - jumlah2b.
  397.           display transaksilanjut5.
  398.           display "Rp. " kembalianb.
  399.           display terakhir.
  400.           accept berhenti.
  401.           go to selesai2.
  402.  
  403.       tampilkan-isi-tabel.
  404.            move nama(i) to namadua.
  405.            if paket(i) = 1 move 6000 to hargaperkg.
  406.            if paket(i) = 2 move 5000 to hargaperkg.
  407.            if paket(i) = 3 move 7000 to hargaperkg.
  408.            if paket(i) = 4 move 10000 to hargaperkg.
  409.            compute hargatotal = hargaperkg * kg(i).
  410.            compute totalharga = hargatotal + totalharga.
  411.            move hargatotal to hargadua.
  412.            move kg(i) to kgtiga.
  413.            compute kgtot = kgtot + kg(i).
  414.  
  415.            STRING
  416.               kgtiga DELIMITED BY SPACE
  417.               ' '   DELIMITED BY SIZE
  418.               kgnya DELIMITED BY SPACE
  419.               ' '   DELIMITED BY SIZE
  420.            INTO kgdua
  421.            END-STRING
  422.  
  423.            if paket(i) = 1 move "Reguler" to paket(i).
  424.            if paket(i) = 2 move "Hemat" to paket(i).
  425.            if paket(i) = 3 move "Express" to paket(i).
  426.            if paket(i) = 4 move "Zeus" to paket(i).
  427.            move paket(i) to paketdua.
  428.  
  429.            if parfum(i) = 1 move "Stroberi" to parfum(i).
  430.            if parfum(i) = 2 move "Lavender" to parfum(i).
  431.            if parfum(i) = 3 move "Jeruk" to parfum(i).
  432.            if parfum(i) = 4 move "Bkt Kelapa" to parfum(i).
  433.            if parfum(i) = 5 move "Mantan" to parfum(i).
  434.            if parfum(i) = 6 move "No Parfum" to parfum(i).
  435.            move parfum(i) to parfumdua.
  436.            
  437.            DISPLAY isi-tabel.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!