STUD1 PENJADWALAN PEW61RlMAN PRODUK ES %RIM D l PT DAIkXVILLE, JAKARTA
Oleh
YANTI SUFIANTI F 25, 1527
1 9 9 3
FAKULTAS TEKNOLOGI
PERTANIAN
INSTITUT PERTANIAN BOGOR B O G O R
Yanti Sufianti. F 25.1527. Studi Penjadwalan Pengiriman Produk Es Krim di PT. Dairyville, Jakarta. Di bawah bimbingan Machfud
RINGKASAN Es krim merupakan produk yang sangat mudah mencair sehingga pengelolaan distribusi produk menjadi ha1 yang penting.
Es krim yang tidak terjual pada saat pengiriman
akan diangkut kembali ke pabrik untuk dijual kembali pada hari berikutnya.
Selama pengangkutan dan pembongkaran
serta pemuatan es krim dapat terjadi beberapa perubahan pada es krim, diantaranya adalah perubahan fisik es krim yang dapat mempengaruhi permintaan terhadap produk. Selain itu wilayah pengiriman produk yang mencakup wilayah yang luas memerlukan sejumlah kendaraan untuk mengirimkan produk.
Adanya keterbatasan jumlah kendaraan merupakan
suatu masalah tersendiri dalam pengiriman produk.
Kenda-
raan yang digunakan memerlukan pendingin yang dapat menjaga es krim dalam kondisi yang baik, sehingga terdapat tambahan pada biaya pengiriman.
Oleh karena itu perlu
diusahakan penggunaan kendaraan yang efisien.
Penjadwalan
pengiriman produk merupakan salah satu alternatif untuk mengatasi berbagai permasalahan tersebut. Tujuan masalah khusus ini adalah menyusun jadwal pengiriman produk yang dapat memenuhi permintaan secara maksimal dengan kapasitas menganggur kendaraan yang minimal. Oleh karena itu jadwal disusun dengan memperhatikan permintaan konsumen, lama waktu pengiriman yang tersedia
serta kapasitas kendaraan yang ada.
Permintaan konsumen
diestimasi dengan teknik simulasi. Jumlah produk yang diangkut disesuaikan dengan hasil
prakiraan permintaan
ini sehingga jumlah produk yang tidak terjual dapat dikurangi.
Jumlah pengecer yang dikunjungi disesuaikan dengan
waktu pengiriman yang pengiriman
tersedia, karena sifat waktu
yang tidak pasti maka jumlah pengecer diesti-
masi dengan menggunakan teknik simulasi pula.
Tahap
terakhir adalah tahap penugasan salesman yang akan mengirimkan produk ke suatu wilayah tertentu.
Penugasan sales-
man ini bertujuan untuk memaksimumkan jumlah permintaan yang dipenuhi serta meminimumkan kapasitas menganggur setiap kendaraan.
Teknik yang digunakan adalah model
penugasan dan teknik heuristik. Hasil akhir dari program yang disusun adalah jadwal harian penugasan salesman tertentu k e suatu wilayah pengiriman tertentu. periode ke depan.
Perencanaan dilakukan sampai 1 2
Pemilihan penggunaan kendaraan yang
terbaik adalah penggunaan kendaraan dengan kapasitas 770 kg.
Penggunaan kendaraan seperti ini dapat memenuhi
seluruh permintaan dan memberikan kapasitas kendaraan menganggur yang lebih sedikit. Jadwal yang dihasilkan dapat mengurangi jumlah produk yang diangkut kembali, mengirimkan produk dengan jumlah pengecer yang dikunjungi sesuai dengan kemampuan salesman, dan menugaskan salesman ke wilayah pengirimannya masingmasing dengan kapasitas menganggur kendaraan yang minimal serta jumlah permintaan yang dipenuhi maksimal.
STUD1 PENJADWALAN PENGIRIMAN PRODUK ES KEUh4
DI PT. DAIRYVILLE, JAKARTA
Oleh YANTI S U F M T T I
F 25. 1527
Sebagai salah satu syarat untuk memperoleh gelar SARJANA TEKNOLOGI PERTANIAN O L W I I N D U m PER pada Jurusan Fakultas Teknologi Pertanian Institut Pertanian Bogor
1993
FAKSJLTAS TEKNOLOGI PERTANIAN INSTITLJT PERTANIAN BOGOR
BOGOR
INSTITUT PEICTANIAN BOGOR FAICULTAS TEICNOLOGI PERTANIAN STUD1 PENJADM'ALAN PENGIRIMAN PRODUIC ES ICRIM Dl IT.DAIRYVILLE, JAKARTA
Sebagai salah salu syarat L I I I ~ L Imemperoleh ~ gelar SARJANA TEKNOLOGI PERTANIAN patla Jurusan TEICNOLOGI INDUSTRI PERTANIAN Fakultas Teknologi Pertanian Institut Pertanian Bogor
Oleh YA'ANTI SUFIANTI F 25. 1527
Dilaliirkan patla tanggal 20 Mei 1970 di Garlit
Tanggal lulus : 22 Pebruari 1993
KATA PENGANTAR
Puji dan syukur Penulis panjatkan ke hadirat Allah SWT.
karena atas rahmat serta hidayah-Nyalah Penulis
dapat menyelesaikan Skripsi ini. Skripsi ini disusun sebagai hasil studi pustaka serta observasi lapang yang dilakukan selama bulan September sampai Nopember 1992 pada sebuah perusahaan pembuatan es krim di Jakarta. Penulis menyampaikan terima kasih yang sebesar-besarnya kepada : 1. Ir. Machfud, MS, selaku dosen pembimbing, atas segala
bimbingannya sehingga Skripsi ini dapat diselesaikan. 2.
Ir. Pramono D.F.,MS. dan drh. Lukman Hidayat selaku dosen penguji
3. Bapak Munawar Lubis , National Sales and Distribution
Manager PT. Dairyville, Jakarta atas kesempatan yang diberikan untuk melakukan observasi lapang di PT. Dairyville, Jakarta. 4. Bapak Edi Susilo selaku Sales and Distribution Manager
wilayah Jabotabek dan Jawa Barat di PT. Dairyville, Jakarta atas bantuan serta pengarahan yang diberikan selama melakukan observasi lapang. 5. Bapak Muslim serta Bapak Gatot, staf pada
divisi Sales
and Distribution PT. Dairyville, Jakarta atas informa
si serta bantuan yang diberikan guna melengkapi Skripsi ini. 6. Para salesman PT. Dairyville
yang telah banyak memban-
tu selama melasanakan observasi lapang. 7. Rekan-rekan Agrininth Asrama Gilang Kencana,
yang
senantiasa memberikan semangat dalam penyusunan Skripsi ini. 8. Rekan-rekan Agrininth
yang selalu menemani Penulis
dalam menyelesaikan Skripsi ini. 9. Semua pihak yang tidak dapat disebut namanya satu
persatu. Penulis menyadari bahwa Skripsi ini masih jauh dari sempurna.
Namun demikian, penulis berharap agar skripsi
ini dapat bermanfaat bagi semua pihak yang memerlukan.
Bogor, Pebsuari 1993
Penulis
Halaman
............... DAFTAR I S 1 . . . . . . . . . . . . . DAFTARTABEL . . . . . . . . . . . . . . . . KATA PENGANTAR
............... DAFTAR LAMPIRAN .............. I . PENDAHULUAN . . . . . . . . . . . . . . . . A . LATAR BELAKANG ............. B . TUJUAN . . . . . . . . . . . . . . . . C . RUANG LINGKUP . . . . . . . . . . . . . . I1. TINJAUAN PUSTAKA . . . . . . . . . . . . . . A . E S KRIM . . . . . . . . . . . . . . . . . B . PENGIRIMAN PRODUK . . . . . . . . . . . . C. s1MUms1 . . . . . . . . . . . . . . . . D . D I S T R I B U S I PELUANG ........... E . TEKNIK H E U R I S T I K . . . . . . . . . . . . F . MASALAN PENUGASAN . . . . . . . . . . . . G . U J I STATISTIK . . . . . . . . . . . . . . H . PENELITIAN TERDAHULU . . . . . . . . . . I11. METODOLOGI . . . . . . . . . . . . . . . . . .DAFTAR GAMBAR
. KERANGKA PEMIKIRAN . . . . . . . . . . . B . PENDEKATAN BERENCANA .......... C . TATA LAKSANA .......
A
vi
iv vi
viii ix X
1 1 3 3 5
5 7 9 12 14
15 18
22 25 25
26 28
. PERMODELAN
............. A . KERANGKA MODEL . . . . . . . . . . . . . B . RANCANG BANGUN MODEL . . . . . . . . . . V . HASIL DAN PEMBAHASAN . . . . . . . . . A . KONDISI PENGIRIMAN ES KRIM DI P T DAIRYVILLE B . ANALISA DATA . . . . . . . . . . . . C . PENJADWALAN PENGIRIMAN PRODUK . . . . . . D . PENGGUNAAN PERANGKAT LUNAK . . . . . . . VI . KESIMPULAN DAN SARAN . . . . . . . . . . . . IV
SISTEM
................ ..................
33 33
34
54 54 56 65 81 86
A . KESIMPULAN
86
B.SARAN
88
...............
89
..................
91
DAFTAR PUSTAKA LAMPIRAN
Halaman Tabel
1.
H a s i l u j i s e b a r a n normal t e r h a d a p d a t a waktu a k t u a l
60 60
. . . . . . . . . . . . keseragaman n i l a i t e n g a h . .
Tabel
2.
Hasil u j i
Tabel
3.
H a s i l u j i keseragaman simpangan baku d a t a waktu
. . . . . . . . . . . . .
H a s i l u j i s e b a r a n normal t e r h a d a p p e r mintaan Nut Sundae dan Popsy
.......
H a s i l u j i keseragaman t e r h a d a p n i l a i tengah p e r m i n t a a n Nut Sundae d a n Popsy H a s i l u j i keseragaman p e r m i n t a a n Nut Sundae d a n Popsy
.....
P r a k i r a a n p e r m i n t a a n produk es k r i m pada s e t i a p w i l a y a h pengiriman
....
M a t r i k s b i a y a p e r i o d e p e r e n c a n a a n pertama A l t e r n a t i f w i l a y a h penugasan s a l e s m a n Matriks b i a y a penugasan kedua p e r i o d e perencanaan pertama
..........
A l t e r n a t i f w i l a y a h penugasan s a l e s m a n H a s i l a k h i r penugasan s a l e s m a n R e w i layah pengirimannya masing-masing
..
Jadwal h a r i a n pengiriman produk es krim
. . . . . . . . . . . . . . . .
Perbandingan b e r b a g a i a l t e r n a t i f penggunaan k e n d a r a a n
. . . . . . . . . .
61
DAFfAR GAMBAR
Halaman
....
Gambar
1.
Diagram simulasi Monte Carlo
Gambar
2.
Skema tahapan pendekatan berencana . Thierauf dan Klekamp, 1975)
29
.
..
11
Gambar
3.
Kerangka kajian analisa penelitian
32
Gambar
4.
Diagram alir komputer modul OUTLET
41
Gambar
5.
Diagram alir komputer modul MINTA
42
Gambar
6.
Diagram alir komputer subrutin Normal
44
Gambar
7.
Diagram alir komputer subrutin Empir
44
Gambar
8.
Diagram alir komputer modul TUGAS
47
Gambar
9.
Tampilan menu Utama
.... ....
81
Contoh keluaran program dalam bentuk formulir rinci penjualan .
..
82
Contoh keluaran program dalam bentuk . . formulir pengambilan barang
83
Gambar 12.
Tampilan sub menu Manajemen Basis Data
84
Gambar 13.
Tampilan sub menu Tampil Data
Gambar 10. Gambar 11.
..
..
...
85
Halaman Lampiran 1. Jenis-jenis es krim yang diproduksi dan didistribusikan oleh PT. Dairyville . .
.. . ..
...
92
am pi ran 2. Penyebaran jumlah toko, hotel, supermarket dan restoran di setiap wilayah Lampiran 3. Program komputer jadwal pengiriman produk . .
.. ...
. .......
93
94
L PENDAHULUAN
Masalah p r o d u k s i menyangkut m a s a l a h s u a t u p r o d u k yang harus diproduksi baik j e n i s
maupun j u m l a h n y a
s e l a m a s u a t u s e l a n g waktu yang b e r t u r u t a n u n t u k m e m e n u h i permintaan-permintaan.
M a s a l a h i n i kemudian
b e r l a n j u t dengan m a s a l a h d i s t r i b u s i ,
y a i t u bagaimana
p e r u s a h a a n memindahkan b a r a n g - b a r a n g
produk s e h i n g g a
b a r a n g t e r s e b u t t e r j a n g k a u o l e h p e l a n g g a n g pada t e m p a t d a n waktu yang t e p a t .
D i s t r i b u s i j u g a merupakan s u a t u
a l a t utama dalam menciptakan p e r m i n t a a n .
Perusahaan
a k a n kehilangan p e l a n g g a n j i k a mereka gaga1 menyediakan b a r a n g t e p a t pada waktunya. Permasalahan yang t i m b u l d a r i d i s t r i b u s i es k r i m i n i menyangkut b e b e r a p a h a 1 y a i t u k e i n g i n a n konsumen a k a n produk yang b a i k d a n d a p a t d i p e r o l e h s e t i a p s a a t konsumen menginginkan,
bagaimana p e s a n a n d i t a n g a n i d a n
bagaimana barang-barang
tersebut dikirim.
merupakan produk yang s a n g a t mudah m e n c a i r ,
Es R r i m sehingga
p e n g e l o l a a n d i s t r i b u s i produk m e n j a d i h a 1 yang p e n t i n g . E s krim y a n g t i d a k t e r j u a l p a d a s a a t p e n g i r i m a n
a k a n dibawa k e m b a l i o l e h s a l e s m a n k e p a b r i k u n t u k disimpan kembali dalam ruang p e n d i n g i n . a k a n d i k e l u a r k a n keesokan h a r i n y a .
Produk i n i
Selama pemuatan d a n
pengiriman dapat terjadi perubahan-perubahan pada produk
.
Pada saat pemuatan es krim dari gudang ke dalam kendaraan yang akan digunakan untuk mengirimkan produk terjadi perubahan suhu dari suhu ruang pendingin ke suhu udara luar dan suhu pendingin dalam kendaraan. Perubahan suhu. ini dapat mengakibatkan es krim sedikit mencair dan berair.
Selain karena perubahan temperatur
dapat juga terjadi perubahan es krim akibat benturanbenturan yang terjadi selama pemuatan.
Perubahan
bentuk es krim ini dapat mempengaruhi minat konsumen terhadap produk. Oleh karena itu dalam pengiriman es krim perlu diperhitungkan prakiran permintaan dari setiap pengecer yang akan dikunjungi sehingga jumlah es krim yang diangkut kembali ke pabrik karena tidak terjual dapat ditekan jumlahnya.
Hal ini juga berarti akan mengu-
rangi jumlah es krim yang rusak karena perubahan-perubahan selama pemuatan dan pengangkutan. Wilayah penyebaran produk mencakup wilayah yang 'luas.
Untuk memenuhi permintaan dari setiap wilayah
diperlukan beberapa orang salesman dengan beberapa buah kendaraan pengangkut.
Adanya keterbatasan jumlah
salesman serta kendaraan yang digunakan, dan keterbatasan waktu yang tersedia untuk mengirimkan produk menimbulkan permasalahan tersendiri dalam pengiriman
produk.
D i samping i t u p e n g i r i m a n es k r i m memerlukan
k e n d a r a a n dengan s a r a n a khusus b e r u p a a l a t p e n d i n g i n yang menyebabkan adanya tambahan p a d a b i a y a pengiriman. O l e h karena i t u p e r l u diusahakan p u l a penggunaan kendar a a n yang e f i s i e n . Untuk m e n g a t a s i permasalahan-permasalahan
ini,
p e r l u d i s u s u n s u a t u jadwal pengiriman produk yang d a p a t menentukan b e r a p a jumlah e s k r i m y a n g a k a n d i k i r i m k a n k e s u a t u wilayah t e r t e n t u , salesman s e r t a kendaraan mana yang akan digunakan untuk mengangkut produk tersebut,
s e h i n g g a d i p e r o l e h t o t a l k a p a s i t a s menganggur
kendaraan yang minimal.
Masalah khusus i n i b e r t u j u a n untuk : 1. Menyusun j a d w a l p e n g i r i m a n p r o d u k y a n g d a p a t meme-
n u h i p e r m i n t a a n konsumen s e c a r a m a k s i m a l d e n g a n t o t a l k a p a s i t a s kendaraan menganggur yang minimal 2.
Menyusun p e r a n g k a t lunak untuk p e n j a d w a l a n pengirima n produk d i p e r u s a h a a n yang b e r s a n g k u t a n
C.
RUANG LINGKUP
Kajian masalah khusus i n i d i b a t a s i pada masalah penjadwalan p e n g i r i m a n produk k e s e t i a p p e n g e c e r yang m e l i p u t i p r a k i r a a n permintaan d a r i s e t i a p pengecer d i s e t i a p wilayah,
p e n e n t u a n jumlah p e n g e c e r y a n g a k a n
dikunjungi dan penugasan salesman yang akan mengirimkan produk ke suatu wilayah. Masalah ini dikaji pada sistem pengiriman produk di perusahaan pembuatan es krim, PT. Dairyville dengan wilayah distribusi d i Jakarta, Bogor, Bekasi, Tangerang, Kerawang dan Sukabumi.
Hasil penelitian ini
berupa perangkat lunak yang dapat digunakan oleh bagian distribusi pada perusahaan yang bersangkutan. naan dilakukan untuk 12 periode perencanaan k e
Perencadepan.
IL TINJAUAN PUSTAKA
Es krim, menurut Peterson dan Jhonson (1974), didefinisikan sebagai produk makanan dingin
yang
terbuat dari susu, pemanis, stabilizer, emulsifier dan flavour.
Produk es krim ini dapat dibedakan rnenjadi
beberapa produk yaitu ice cream yang mempunyai kandungan lemak tertinggi, milk ice yaitu produk sejenis ice cream tetapi mempunyai kandungan lemak yang lebih sedikit, serta water ice yang sama sekali tidak mengandung lemak.
Produk lainnya adalah fruit sherbet yang
terbuat dari bahan-bahan dasar yang sama dengan ice cream tetapi diperkaya dengan jus buah-buahan. Pada proses produksinya bahan-bahan penyusun es krim dicampurkan dengan merata.
Campuran ini kemudian
disaring, dihomogenisasi untuk memperkecil dan menyeragamkan globula-globula lemak, kemudian
dipasteurisasi
untuk membebaskan campuran dari mikroba pengganggu, dan didi- nginkan (Petterson dan Jhonson, 1974). Es krim yang telah terbentuk dikemas dengan berbagai kemasan kemudian dibekukan pada suhu sekitar -20°c. Tahap terakhir adalah tahap pengerasan dan penyimpanan yang bersama-sama dilakukan di dalam sebuah ruang penyimpanan bersuhu -30'~.
Menurut J o s l y n d a n Heid (1964), b e b e r a p a perubahan d a p a t t e r j a d i pada produk-produk Perubahan-perubahan
beku s e p e r t i e s krim.
t e r s e b u t d a p a t berupa perubahan
f i s i k a , perubahan k i m i a , f i s i k o - k i m i a ,
enzimatik a t a u
perubahan karena adanya mikroorganisme.
Salah s a t u
perubahan yang d a p a t t e r j a d i a d a l a h t e r b e n t u k n y a lubang
es pada produk.
~ u b a n ges i n i t e r j a d i a p a b i l a kemasan
t i d a k s e p e n u h n y a t e r i s i produk a t a u a p a b i l a t e r j a d i Pembentukan l u b a n g es
kekosongan s e l a m a pengemasan.
i n i d i p e r c e p a t dengan adanya v a r i a s i t e m p e r a t u r dimana produk disimpan. Es k r i m y a n g d i s u k a i m a s y a r a k a t a d a l a h es k r i m dengan r a s a yang k h a s , n y a menarik.
t e k s t u r n y a l e m p u t , dan bentuk-
T e k s t u r es krim yang l e m b u t d i t i m b u l k a n
k a r e n a u k u r a n k r i s t a l es yang s a n g a t h a l u s .
Tetapi
m e n u r u t J u l (1982), u k u r a n k r i s t a l y a n g b e s a r l e b i h s t a b i l dibandingkan k r i s t a l berukuran k e c i l ,
oleh
k a r e n a i t u diasumsikan bahwa akan t e r j a d i kecenderungan k r i s t a l berukuran k e c i l membentuk k r i s t a l dengan ukuran y a n g l e b i h b e s a r s e h i n g g a e s k r i m d a p a t b e r u b a h wujud m e n j a d i c a i r . Hal i n i s a n g a t d i t u n j a n g o l e h suhu yang berf l u k t u a s i .
Perubahan suhu yang b e r f l u k t u a s i i n i d a p a t menyebabkan e s krim menjadi b e r a i r , tidak
lembut
dan
bentuknya
berbusa,
menjadi
teksturnya
tidak
menarik.
Kondisi seperti ini tidak disukai konsumen dan mempunyai tingkat mutu yang rendah (Webb et al., 1974). Es krim yang mencair juga dapat menyebabkan beberapa perubahan es krim yang lain.
Bakteri dapat
terbunuh selama pembekuan, dan selama penyimpanan dingin, sel yang masih bertahan akan mati secara perlahan-lahan.
Namun begitu tidak berarti makanan yang
telah dibekukan benar-benar terbebas dari bakteri.
Es
krim yang mencair dan berada dalam temperatur yang sesuai akan menjadi media yang baik bagi berkembangnya bakteri-bakteri tersebut. Selain itu es yang telah mencair apabila dibekukan kembali akan membentuk kristal.
Dalam ha1 ini, laktosa
terpisah dalam bentuk kristal-kristal yang tidak dapat melarut kembali pada suhu ketika es krim tersebut dikonsumsi
.
Perubahan temperatur dapat merubah keseimbangan emulsi lemak serta mengganggu kestabilan protein susu yang digunakan.
Emulsi yang terganggu keseimbangannya
akan menyebabkan emulsi tidak berfungsi dan air terpisah dari lemaknya. B. PENGIRIMAN PRODUK
Pengiriman merupakan fungsi pemasaran dalam pergerakan barang atau produk.
Menurut Mc Charty (1981),
pengiriman dan penggudangan merupakan bagian dari
distribusi fisik.
Manajemen distribusi fisik yang
efektif dapat menjamin bahwa produk yang tepat berada pada tempat yang tepat pada saat konsumen menginginkan. Penyediaan waktu dan tempat ini tidak dapat dianggap sebagai ha1 yang sepele, karena perusahaan dapat kehilangan penjualan karena barang tidak tersedia pada tempat dan waktu yang tepat.
Fungsi pengiriman meme-
nuhi keperluan perusahaan akan ketepatan waktu dan tempat ini. Pengiriman merupakan salah satu keputusan distribusi yang harus diambil, yang berkaitan dengan bagaimana seharusnya barang dikirimkan (Kotler, 1988).
Alter-
natif pengiriman yang paling baik, tidak selalu dalam bentuk biaya yang rendah, namun juga kemampuan pelayanan seperti kecepatan pengiriman, kemampuan untuk melakukan pelayanan khusus, jaminan terhadap kerusakan dan lain-lain (Bryan, 1953). Pemasar perlu memberikan andil bagi penentuan alat angkut perusahaannya. Kegiatan pengiriman tepat waktu serta kondisi barang bila sudah sampai, semuanya akan mempengaruhi kepuasan pembeli.
Menurut Mc Charty
(1981), truk merupakan salah satu alternatif alat angkut yang dapat digunakan.
Truk sangat luwes dalam
trayek dan jadwal waktunya.
Truk bisa membawa barang
dagangan dari rumah ke rumah
dan merupakan cara peng-
angkutan yang efisien untuk muatan barang dagangan
bernilai tinggi dalam jarak dekat.
Selain itu rute
truk tidak terbatas seperti kereta api dan dapat mengirimkan produk melalui perkotaan, kota kecil serta dusun C.
.
SIMULASI
Simulasi menurut Subagyo et al. (1989) adalah duplikasi atau abstraksi dari persoalan dalam kehidupan nyata ke dalam model-model matematika.
Dalam ha1 ini
biasanya dilakukan penyederhanaan, sehingga pemecahan dengan model-model matematika bisa dilakukan.
Teknik
simulasi bersifat luwes terhadap perubahan-perubahan sehingga sesuai dengan keperluan sistem yang sebenarnya.
Alasan lain penggunaan teknik simulasi karena :
a. sistem dunia nyata dengan elemen-elemen stokastik sangat kompleks sehingga tidak dapat digambarkan dengan model matematika dan dianalisa dengan teknik analisis b. simulasi dapat memeperkirakan tingkah laku dari sistem yang ada c. alternatif disain tujuan sistem dapat dibandingkan melalui simulasi d. pada simulasi kita dapat melakukan pengendalian terhadap kondisi-kondisi ekspesimen lebih baik dibanding apabila melakukan eksperimen langsung terhadap sistem tersebut
e. simulasi memungkinkan untuk kajian yang memerlukan waktu yang lama Penyelesaian dengan prosedur simulasi tidak dijabarkan secara deduktif.
Model dicoba terhadap harga-
harga khusus variabel jawaban berdasarkan syarat-syarat tertentu
kemudian diselidiki pengaruhnya terhadap
variabel kriteria.
Karena itu, prosedur simulasi pada
hakikatnya mempunyai sifat induktif (Siagian, 1987). Model-model simulasi dapat dikelompokkan dalam beberapa qolongan yaitu model stokastik, model deterministik, model statik, model dinamik dan model heuristik. Model simulasi stokastik sering disebut juqa model simulasi Monte Carlo.
Di dalam proses stokastik sifat-
sifat output dari proses ditentukan berdasarkan dan merupakan hasil dari konsep random.
Diagram simulasi
Monte Carlo disajikan pada Gambar 1. dimana n adalah ulangan simulasi, x adalah rata-rata data yang diketahui, o adalah standar deviasi dan P ( z ) adalah sebaran fungsi peluanq.
PARAMETER SEBARAN
Gambar 1.
Diagram Simulasi Monte Carlo
Menurut Gottfried (1984), untuk mengetahui jumlah ulangan simulasi yang memenuhi tingkat kepercayaan 95 persen, dapat dihitung dengan menggunakan persamaan di bawah ini.
"=
('0.5-a/2
*
(s/Q) ) -2
+
1
dimana : Z =
nilai dari tabel distribusi normal standar
a
=
tingkat kepercayaan
s
=
standar deviasi
Distribusi peluang baku yang sering digunakan dalam simulasi antara lain distribusi Poisson, distribusi eksponensial dan distribusi normal.
Jika suatu
data tidak mengikuti distribusi baku, maka distribusinya didasarkan pada data empiris dan disebut distribusi
empiris.
Distribusi normal digunakan secara luas dalam
berbagai masalah karena banyak fenomena alam yang dapat didekati dengan sebaran normal. D. DITRIBUSI PELUANG 1. Distribusi Normal
Fungsi sebaran yang paling bermanfaat di antara fungsi-fungsi sebaran yang lain adalah distribusi normal, karena distribusi normal dapat menerangkan perilaku dunia nyata dengan lebih jelas (Carrol, 1987).
Distribusi ini didefinisikan dengan persa-
maan sebagai berikut :
e-+ ((x-p )/u12 P(X)
=
-
uv.2
Distribusi ini mempunyai dua parameter yaitu rata-rata, p
dan standar deviasi, u.
Fungsi ini
dinamakan fungsi kepekatan normal dan nilainya sama dengan luas wilayah yang berada di bawah kurva
.
Apabila (x-p)/u disederhanakan menjadi z , maka z ini sama dengan variasi standar normal (Gottfried,
1984).
Untuk mendapatkan nilai z ini digunakan
metoda rata-rata.
Metoda ini menghasilkan bilangan-
bilangan acak yang mengikuti sebaran normal dengan cara menjumlahkan bilangan-bilangan acak xl yang berdistribusi seragam ke dalam rumus di bawah ini :
D i s t r i b u s i d a r i b i l a n g a n - b i l a n g a n yang d i h a s i l k a n d a r i p e r s a m a a n d i a t a s akan m e n d e k a t i s e b a r a n d i s t r i b u s i normal dengan n i l a i r a t a - r a t a standar deviasi satu.
no1 dan
N i l a i k merupakan b i l a n g a n
yang t e t a p . Semakin k e c i l n i l a i k h a s i l y a n g d i p e r o l e h semakin b a i k .
Dalam h a 1 i n i n i l a i k y a n g c o c o k
a d a l a h 1 2 , s e h i n g g a n i l a i z d a p a t d i p e r o l e h dengan persamaan s e b a g a i b e r i k u t :
2. Distribusi Empiris
Adakalanya d a l a m s i m u l a s i , s e b a r a n t e o r i t i s u n t u k mendapatkan s u a t u
n i l a i peubah acak t i d a k
s e s u a i . Oleh k a r e n a i t u d i g u n a k a n s e b a r a n e m p i r i s yang l e b i h d a p a t mewakili.
Sebaran i n i disusun
b e r d a s a r k a n pengamatan t e r h a d a p b e b e r a p a percobaan. C a r a i n i m e r u p a k a n kemungkinan s i m u l a s i t e r b a i k untuk s u a t u percobaan.
Untuk membangkitkan peubah acak dari sebaran empiris dilakukan pengelompokkan data asli.
Tiap
subselang diwakili oleh suatu batas atas selang (XUj) dan batas bawah selang (XL.). 3
tukan
Nilai X diten-
dengan melibatkan parameter XUj, XLj , Yj dan
U. Parameter Y merupakan frekuensi kumulatif dari j data asli sedangkan U adalah bilangan acak yang terletak di antara 0 dan 1.
Persamaan untuk menen-
tukan nilai X adalah :
Untuk menentukan selang X dilakukan pembandingan terhadap nilai U dan Yj.
Pembandingan terus
Apabila kondisi ini j. sudah tercapai, maka nilai X ditentukan dengan
dilakukan .ls2sampai U 5 Y
menggunakan persamaan di atas. E. TEKNIK XEURISTIX
Heuristik berasal dari bahasa Yunani "heuriskin" yang berarti membantu untuk menemukan. di dalam --
Menurut Simon
Thierauf dan Klekamp (1975), program heuristik
merupakan titik pandang dalam merancang suatu program untuk tugas pemrosesan informasi yang kompleks.
Titik
pandang ini bukan hanya program yang terbatas pengolahan angka yang biasa dengan komputer, tetapi merupakan
pengolahan yang biasa dilakukan oleh manusia dalam menangani berbagai masalah. Pada program heuristik tidak ada suatu model yang baku, sehingga setiap permasalahan menggunakan program heuristik yang spesifik.
Teknik heuristik tidak menja-
min diperolehnya pemecahan yang optimal, tetapi menjamin suatu pemecahan yang memuaskan pengambilan keputusan. Program heuristik merupakan pengembangan dari operasi aritmetika dan matematika logika.
Ciri-ciri
program heuristik secara umum adalah : a. adanya operasi aljabar, yaitu penjumlahan,
pengu-
rangan, perkalian dan pembagian b. adanya perhitungan bertahap
c. mempunyai tahapan yang terbatas sehingga dapat dibuat algoritma komputernya Alasan pemilihan teknik heuristik yaitu karena dapat menyederhanakan lingkup pengambilan keputusan dan dapat menggunakan komputer untuk memecahkan masalah yang kompleks dalam waktu singkat. F. MASALAH PENUGASAN
Masalah penugasan menyangkut penjadwalan para pekerja pada pekerjaan-pekerjaan dengan dasar penugasan satu ke satu. Penugasan ini merupakan suatu kasus
khusus dari masalah program linier.
Metoda Hungarian
merupakan salah satu dari beberapa teknik-teknik pemecahan yang tersedia untuk masalah-masalah penugasan. Untuk dapat menerapkan metoda Hungarian, jumlah sumber yang ditugaskan harus sama persis dengan jumlah tugas yang akan diselesaikan.
Selain itu, setiap sumber
harus ditugaskan hanya untuk satu tugas (Bronson daan Wospakrik, 1988). Masalah penugasan dapat dinyatakan secara matematis dalam suatu bentuk program liniier sebagai berikut : Minimumkan (Maksimumkan) :
Dengan batasan :
dan dimana Cij adalah tetapan
yang telah diketahui.
Soebagyo et al. (1989) menjelaskan langkah-langkah penyelesaian masalah dengan teknik penugasan sebagai berikut :
1. Langkah pertama adalah merubah matriks biaya menjadi
matriks opportunity cost.
Ini dicapai dengan memi-
lih elemen terkecil dari setiap baris dari matriks biaya mula-mula untuk mengurangi seluruh elemen (bilangan) dalam setiap baris.
Sehingga paling
sedikit akan diperoleh satu elemen yang bernilai no1 sebagai hasilnya. 2. Selanjutnya memilih elemen terkecil dari setiap
kolom pada matriks yang diperoleh dari langkah pertama, untuk mengurangi seluruh elemen dalam kolom-kolom tersebut.
Bila langkah pertama telah
menghasilkan paling sedikit satu nilai no1 pada setiap kolom, langkah kedua ini dapat diabaikan. 3. Langkah berikutnya adalah mencari skedul penugasan
dengan suatu total opportunity cost nol.
Untuk
mencapai penugasan ini dibutuhkan "independent zeros" yang jumlahnya sama dengan jumlah baris. berarti setiap
Ini
karyawan harus ditugaskan hanya
untuk satu pekerjaan dengan opportunity cost nol; atau setiap pekerjaan harus diselesaikan hanya oleh satu pekerja. Prosedur praktis untuk melakukan tes optimalisasi adalah dengan menarik sejumlah minimum garis horisontal dan garis latau garis vertikal untuk meliput seluruh elemen bernilai nol.
Bila jumlah garis sama
dengan jumlah baris atau kolom, penugasan optimal
adalah feasible.
Bila tidak maka matriks harus
direvisi. 4. Untuk merevisi matriks, pilih elemen terkecil yang
belum terliput garis-garis untuk mengurangi seluruh elemen yang belum terliput.
Kemudian tambahkan
elemen tersebut pada seluruh elemen-elemen yang mempunyai dua garis yang saling' bersilangan.
Sete-
lah semua nilai dimasukkan ke dalam matriks, ulangi langkah 3. 5. Dari langkah terakhir ini akan ditemukan solusi yang
Solusi dapat bersifat solusi tunggal dapat
optimal.
pula bersifat solusi jamak (memiliki bebesapa alternatif).
Apabila solusi bersifat jamak, maka penu-
gasan dari setiap alternatif solusi akan memberikan total cost yang sama. G. UJI STATISTIK 1. U j i Kolmogorov-Smirnov
Uji ini merupakan salah satu metoda yang dapat digunakan untuk membandingkan satu set data dengan distribusi teoritis.
Uji ini memiliki dua keuntung-
an dibanding dengan uji Chi-kuadrat, pertama uji ini lebih kuat dibanding uji Chi-kuadrat dan kedua, uji ini dapat digunakan untuk sampel berukuran kecil (Watson dan Blackstone, 1981).
Uji Kolmogorov-Smirnov berkaitan dengan dua distribusi kumulatif.
Pertama frekuensi ditsribusi
relatif kumulatif pengamatan yang diperoleh dari data sampel.
Peluang distribusi kumulatif yang lain
adalah distribusi teoritis yang akan diuji.
Titik
dimana kedua distribusi ini menunjukkan perbedaan yang paling besar ditentukan, dan keputusan untuk menerima atau menolak hipotesis no1 tergantung dari peluang bahwa perbedaan pengamatan akan terjadi jika pengamatan benar-benar merupakan sampel acak dari distribusi teoritis. Hipotesis no1 pada uji ini adalah distribusi pengamatan tidak berbeda nyata dengan distribusi teoritis.
Uji Kolmogorov-Smirnov dilakukan dengan
menghitung frekuensi harapan kumulatif Fe untuk setiap kelas yang telah disusun.
Uji ini mengguna-
kan perbedaan absolut maksimum D antara Fo dan F,. D = maksimum IFo
-
FeI
Nilai D ini kemudian dibandingkan dengan nilai D tabel.
Hipotesis no1 diterima jika nilai tabel
lebih besar dari D maksimum hasil perhitungan. 2. Uji kesamaan dua rata-rata
Banyak penelitian yang memerlukan perbandingan antara dua keadaaan tepatnya dua populasi (Sudjana,
1989).
Pasangan hipotesis no1 dan tandingannya yang
akan diuji adalah :
Jika kedua simpangan baku tidak sama tetapi kedua populasi berdistribusi normal, hingga sekarang belum ada statistik yang tepat yang dapat digunakan. Pendekatan yang memuaskan adalah dengan menggunakan statistik t 1 sebagai berikut :
Kriteria pengujian adalah : terima hipotesis Ho jika
dengan : w1
=
s12/nl ; w2
tl
=
t(l-+a), (nl
t2
=
t(1-+a), (n2 - 1)
=
-
s22/n2 1) dan
tB,m didapat dari daftar distribusi Student dengan peluang B dan dk Ho ditolak.
=
m.
Untuk harga-harga t lainnya,
3. U j i kesamaan dua varian
Menurut Sudjana (1989), ketika menaksir selisih rata-rata serta menguji kesamaan atau perbedaan dua rata-rata digunakan asumsi bahwa kedua populasi mempu-nyai varian yang sama agar penaksiran dan pengujian bisa berlangsung.
Dalam ha1 varian yang
berlainan, sampai sekarang hanya digunakan cara-cara pendekatan.
Oleh karena itu terasa perlu untuk
melakukan penguj ian mengenai kesamaan dua varian atau lebih.
Populasi-populasi dengan varian yang
sama besar dinamakan populasi dengan varian yang homogen.
Dalam ha1 lainnya disebut populasi dengan
varian yang heterogen. Pasangan hipotesis no1 Ho dan tandingannya H1 yang akan diuji adalah :
berdasarkan sampel acak yang masing-masing secara independen diambil dari populasi tersebut.
Jika
sampel dari populasi ke satu berukuran nl dengan varian s12 dan sampel dari populasi kedua berukuran n2 dengan varian s22 maka untuk menguji hipotesa di atas digunakaan statistik F.
Kriteria pengujian adalah : terima hipotesis Ho jika F(1-a) (nl-l,n2-1) < F < F $a(nl-l,n2-1) untuk taraf nyata a , dimana FB(m,n) didapat dari daftar distribusi F dengan peluang D, dk pembilang m dan dk penyebut
=
=
n, dalam ha1 lainnya Ho ditolak.
H. PENELITIAN TERDAHULU
Permasalahan dalam distribusi produk-produk agroindustri telah banyak diteliti. Marimin (1984) melakukan penelitian mengenai pengendalian distribusi komoditi beras dengan menggunakan teknik simulasi. Pada kajian tersebut dicoba diakomodasikan berbagai faktor yaitu produksi, konsumsi, biaya-biaya yang terlibat dan faktor kebijakan pemerintah.
Penelitian
ini menghasilkan sistem pengendalian distribusi fisik komoditi beras serta sistem informasi yang dapat mengidentifikasi stok minimum yang diperlukan. ~enelitianuntuk menentukan jumlah suplai serta dari mana produk disuplai untuk distribusi pupuk Urea di Pulau Jawa, diakukan oleh Syamsuar (1986).
Metoda
yang digunakan adalah model transportasi dengan algoritma simpleks sebagai salah satu alat dari program linier. Wirianto ( 1987) menggunakan algoritma simpleks untuk penunjang perencanaan distribusi.
Penelitian
menghasilkan jalur distribusi serta keputusan tentang
penambahan depotlgudang untuk produk rokok.
Permintaan
pasar dikaji dengan menggunakan peramalan dengan metode regresi tunggal. Untuk menentukan jaringan distribusi fisik yang efisien dengan menentukan jumlah serta lokasi pusat distribusi serta mengalokasikan produk secara optimal, Sugiharto (1987) melakukan penelitian dengan menggunakan metoda heuristik untuk menentukan lokasi pusat distribusi, program linier untuk pengalokasian produk dan metode indeks untuk menentukan permintaan pasar. Dwiyanti (1989), melakukan penelitian mengenai pengalokasian jenis angkutan yaitu truk serta jumlah truk yang harus digunakan dalam kegiatan pengiriman barang, dalam ha1 ini produk-produk Coca Cola, agar diperoleh biaya pengangkutan yang minimum.
Model yang digunakan adalah
program linier dengan model pengendalian persediaan untuk menentukan kebutuhan atau permintaan dari setiap gudang
.
Pada tahun 1990, Indrawan melakukan penelitian untuk menentukan pengadaan gudang lokal produk minuman dingin di wilayah jaringan distribusi, serta mengalokasikan jumlah produk sehingga efisien dan ekonomis pada setiap gudang lokal di wilayah distribusi. Adapun teknik yang digunakan adalah teknik simulasi untuk pendugaan
permintaan pasar, heuristik untuk
penentuan
lokasi gudang, indeks daya beli untuk pendugaan potensi wilayah dan program linier untuk alokasi jumlah produk. Penelitian terakhir dilakukan oleh Rosdi (1992). Penelitiannya menghasilkan jalur distribusi dan alokasi produk, jumlah serta lokasi gudang lokal yang optimal serta tingkat persediaan optimal pada masing-masing gudang lokal.
Adapun metoda yang digunakan adalah
model program linear untuk menentukan jalur distribusi, alokasi produk serta lokasi gudang dan model persediaan dua tingkat dan model persediaan periodik untuk menentukan tingkat persediaan di masing-masing gudang.
A. KERANGKA PEMIKIRAN
Pada k e g i a t a n p e n g i r i m a n t e r d a p a t b e b e r a p a h a 1 yang p e r l u d i p e r h a t i k a n y a i t u bagaimana produk dikirimkan s e r t a keinginan konsumen akan produk yang baik dan d a p a t d i p e r o l e h s e t i a p s a a t konsumen m e n g i n g i n k a n . Pada p r o s e s
pengiriman produk i n i k e n d a r a a n yang
d i g u n a k a n n n t u k mengirimkan p r o d u k d a n w a k t u yang t e r s e d i a untuk mengirimkan produk t e r b a t a s . p i h a k wilayan yang h a r u s d i k i r i m banyak.
D i lain
j u m l a h n y a .cukup
Oleh karena i t u d i p e r l u k a n adanya penjadwalan
pengiriman produk s e h i n g g a p e r m i n t a a n konsumen d a p a t t e r p e n u h i s e c a r a maksimal dan sumber daya d a p a t digunakan s e c a r a e f i s i e n . Penyusunan jadwal pengiriman produk i n i memerlukan p r a k i r a a n p e r m i n t a a n yang t e p a t ,
s e h i n g g a jumlah es
krim yang dibawa kembali ke p a b r i k k a r e n a t i d a k t e r j u a l d a p a t d i t e k a n , yang b e r a r t i juga mengurangi produk yang r u s a k a k i b a t pengaruh k e g i a t a n pemuatan dan pengangkutan.
S e l a i n i t u banyaknya pengecer yang akan dikunjungi
j u g a p e r l u d i t e t a p k a n untuk memanfaatkan waktu pengiriman yang t e r b a t a s . P e r m i n t a a n t e r h a d a p masing-masing s e r t a waktu-waktu
j e n i s produk
yanq b e r k a i t a n denqan penentuan
jumlah pengecer b e r s i f a t acak dan t i d a k p a s t i .
Oleh
karena itu digunakan teknik simulasi dalam prakiraan permintaan serta penentuan jumlah pengecer yang dikunjungi.
Adapun penugasan setiap salesman untuk mengi-
rimkan produk dilakukan dengan metoda penugasan dan teknik heuristik sehingga diperoleh kapasitas kendaraan menganggur yang minimal. B. PENDEKATAN BERENCANA
Pendekatan berencana dapat digunakan untuk memecahkan permasalahan secara obyektif serta menetapkan alternatif-alternatif kebijaksanaan melalui penerapan model-model kuantitatif pada masalah-masalah yang dihadapi (Thierauf dan Klekamp, 1975). Langkah-langkah analisa serta penyelesaian masalah dengan pendekatan berencana disajikan pada Gambar 2. Adapun langkah-langkah yang harus ditempuh adalah sebagai berikut : 1. Observasi
Observasi dilakukan terhadap fenomena yang melingkupi permasalahan, seperti obervasi terhadap fakta-fakta, opini, dan gejala-gejala yang mengarah pada permasalahan.
Observasi ini dilakukan untuk
mengidentifikasi masalah.
2. Perumusan Masalah yang Sebenarnya
Pada tahap ini ditentukan faktor-faktor yang mempengaruhi masalah, seperti variabel-variabel yang mempengaruhi pengambilan keputusan, kendala-kendala terhadap penyelesaian masalah, serta asumsi-asumsi untuk menyelesaikan permasalahan yang sebenarnya. 3. Pengembangan Alternatif Penyelesaian Masalah
Alternatif-alternatif yang dikembangkan biasanya diambil dari model matematik.
Setiap model
matematik yang dikembangkan melalui tiga tahapan, yaitu : a. Analisa Data Tahap ini merupakan tahap pendefinisian asumsi, kendala, variabel, serta faktor-faktor lain yang sangat penting dalam proses pembuatan model matematik. b. Pengembangan Model Tahap ini merupakan tahap pengembangangan model matematik berdasarkan parameter-parameter yang telah ditentukan pada tahap analisa data.
c. Validasi Model 4. Pemilihan solusi optimal melalui tahap analisa
alternatif-alternatif dengan bantuan komputer
5. Verifikasi solusi optimal
melalui tahap
implemen-
tasi 6. Membangun pengendali yang tepat untuk mendeteksi
peubah-peubah yang mungkin terjadi dan mempengaruhi penyelesaian model.
Maksud tahapan ini supaya
formulasi permasalahan menjadi lebih tepat karena ada umpan balik terhadap observasi awal. C. TATA LAKSANA
I. Tempat Penelitian
Penelitian dilakukan di perusahaan pembuatan es krim PT Dairyville, Jakarta pada divisi sales and distribution. Penelitian dimulaipada bulan September 1992 dan berakhir pada bulan Nopember 1992. 2.
Identifikasi Masalah Tahap ini merupakan tahap pengamatan terhadap permasalahan nyata yang ada di perusahaan pembuatan es krim.
Pengamatan dilakukan terhadap :
a. Sistem pengolahan pesanan yang ada b. Kebijaksanaan perusahaan dalam pengiriman produk
c. Kebijaksanaan perusahaan dalam menentukan jumlah produk yang akan dikirimkan untuk setiap wilayah d. Kebijaksanaan perusahaan dalam pengaturan penggunaan kendaraan
29
Kebutuhan Data
Tahap Pemecahan Masalah
Kebutuhan Teknik
permasalahan dan
d e f i n i s i permasalahan yang sebenarnya
I
informasi d a r i seluruh sumber yang diperlukan
-
pengembangan a l ternat if penyelesaian berdasarkan f a k t o r - f a k t o r yang mempengaruhi masalah
pengembangan model maksimisasil minimisasi
I data empiris contoh
pemilihan s o l u s i optimal berdasarkan alternatif-alternatif
data empiris
v e r i f i k a s i solusi optimal melalui tahap implementasi
-
a l a t bantu komputer
I
umpan b a l i k
Gambar 2 .
yang tepat untuk mendeteksi perubahan yang mempengaruhi penyelesaian
Skema t a h a p a n p e n d e k a t a n berencana (Thie r a u f dan Klekamp, 1 9 7 5 )
2. Pengambilan Data
Pengambilan data dilakukan dengan pengamatan langsung, perhitungan, pencatatan data serta wawancara dengan pihak-pihak yang terkait. Data-data yang diperlukan dalam penelitian ini antara lain : a. jenis produk yang didistribusikan b. jumlah wilayah pengiriman serta jumlah pengecer di setiap wilayah c. tipe pengecer serta jumlah setiap tipe di setiap wilayah d. jumlah kendaraan yang digunakan serta kapasitasnya masing-masing e. data permintaan dari setiap pengecer f. Data waktu tempuh dari satu pengecer ke pengecer
lain g. data waktu yang diperlukan untuk mencapai pusat wilayah h. data waktu pelayanan di setiap pengecer 3. Penyusunan Model dan Pengolahan Data
Pada pengembangan model digunakan teknik simulasi untuk menghitung
prakiraan permintaan serta
menentukan waktu tempuh menuju pusat wilayah, waktu tempuh antar pengecer dan waktu pelayanan di setiap
pengecer.
Sedangkan penugasan k e n d a r a a m untuk
mengirimkan produk ke suatu wilayah dilakukan dengan teknik penugasan dan teknik heuristik. Model disusun dalam bentuk perangkat lunak dengan menggunakan bahasa pemrograman Turbo Basic versi 1.1.
OUTPUT : TOTAL PERMINTAAN W I L (I)
INPUT :
.=?
WAKTU TUJU, LAYAN. TEMPUH
FOR I - W - 8 TO W- 1
NEXT I
KAPASITAS KENDARAAN
BANDINGKAN KAPASITAS XENDARAAN DGN TOTAL PERMINTAAN WILCI)
I OUTPUT : JUMLAH PEHGECER(1)
ATUR PENUGASAN S E T I A P SALESMA
INPUT : JUMLAH TOKO. HOTEL. REST0 RAN. SUPERMARKET W I L ( 1 )
JADWAL HARIAN PENGIRIMAN
A SELESAI
PERMINTAAN SET I A P PRODUK D I WILAYAH (I
I
ESTIMASI PERMINTAAN W I L ( 1 ) (SIMULASI)
Gambar 3 .
Kerangka k a j i a n a n a l i s a p e n e l i t i a n
IV. PERMODELAN SISTEM
A.
KERANGRA MODEL
Perangkat lunak penjadwalan pengiriman produk ini disusun untuk mengatur penggunaan kendaraan pada kegiatan pengiriman es krim.
Model disusun dengan menggu-
nakan bahasa pemrograman Turbo Basic versi 1.1. Perangkat lunak ini terdiri dari tiga bagian, yaitu sistem manajemen dialog, sistem manajemen basis data dan sistem manajemen basis model. 1. Sistem manajemen dialog
Sistem ini berisi model yang berfungsi untuk mengatur komunikasi antara pengguna dengan perangkat lunak, sehingga perangkat lunak dapat dimanfaatkan sesuai dengan funqsinya. 2. Sistem manajemen basis data
Sistem ini berfungsi untuk mengelola data-data yang diperlukan oleh sistem perangkat lunak.
Fasi-
litas pengelolaan data yang tersedia adalah fasilitas pemasukan data, perubahan data, penampilan data dan pencetakan data.
3. Sistem manajemen basis model
Sistem ini terdiri dari model-model matematik yang digunakan untuk mengolah data sehingga diperoleh solusi akhir yang diinginkan.
Sistem ini ter-
diri dari beberapa modul yang mempunyai fungsi tersendiri.
Modul-modul tersebut adalah :
a. Modul MINTA
Modul ini berfungsi untuk menghitung prakiraan permintaan dari setiap pengecer di suatu wilayah. b. Modul OUTLET
Modul ini berfungsi untuk menentukan jumlah pengecer yang dapat dikunjungi dalam satu hari pengiriman untuk setiap wilayah. c. Modul TUGAS
Modul ini berfungsi untuk mengatur penugasan kendaraan yang akan digunakan untuk mengirimkan produk ke setiap wilayah pengiriman. B.
FCMCANG
BANGUN MODEL
1. Sistem manajemen dialog
Dialog pada sistem ini digunakan untuk memasukkan data-data dari pengguna yang dibutuhkan oleh
perangkat l u n a k s e r t a untuk menyampaikan s o l u s i yang yang d i h a s i l k a n p e r a n g k a t l u n a k k e p a d a p e n g g u n a . D i a l o g d i b u a t s e d e m i k i a n r u p a s e h i n g g a memudahkan i n t e r a k s i a n t a r a pengguna dengan model. D i a l o g u n t u k memasukkan d a t a dipermudah dengan p e r t a n y a a n - p e r t a n y a a n yang hanya membutuhkan jawaban-jawaban
s i n g k a t d a r i pengguna.
Sedangkan s o l u s i
model d i s a m p a i k a n dalam bentuk t a b e l d a n angka-angka sederhana s e h i n g g a mudah dipahami o l e h pengguna.
Sistem manajemen basis data D a t a - d a t a yang d i k e l o l a pada model i n i d i s i m pan dalam modul-modul. d a t a yang s p e s i f i k .
Setiap Modul-modul
modul b e r i s i d a t a yang t e r d a p a t pada
s i s t e m manajemen b a s i s d a t a i n i , i a l a h : a . Modul WILAYAH Modul i n i b e r i s i d a t a - d a t a w i l a y a h p e n g i riman y a n g a k a n d i k u n j u n g i .
Data i n i digunakan
u n t u k m e n g e t a h u i k e w i l a y a h mana s a j a e s k r i m harus dikirimkan . b. Modul OTLET Data yang t e r d a p a t pada modul i n i a d a l a h d a t a jumlah pengecer yang t e r d a p a t d i s u a t u wilayah p e n g i r i m a n .
c. Modul TOKO Modul ini berisi data jumlah pengecer yang terdapat di suatu wilayah yang termasuk dalam kategori toko.
Data ini berguna dalam menentukan
prakiraan permintaan dari setiap wilayah. d. Modul HOTEL Modul ini berisi data jumlah pengecer yang terdapat di suatu wilayah yang termasuk dalam kategori hotel.
Data ini juga digunakan untuk
menentukan prakiraan permintaan dari setiap wilayah. e. Modul RESTORAN Data yang terdapat pada modul ini adalah data jumlah pengecer pada suatu wilayah yang termasuk dalam kelompok restoran. f. Modul SUPERMARKET
Modul Supermarket terdiri dari data-data jumlah pengecer dalam satu wilayah yang termasuk dalam kategori supermarket.
Bersama-sama dengan
data pada modul restoran, data-data pada
modul
ini juga berguna untuk menghitung parakiraan permintaan dalam satu wilayah.
g. Modul BULK Modul ini berisi data-data rata-rata serta standar deviasi permintaan es krim jenis bulk dari setiap hotel. h. Modul BURK Modul ini menyimpan data rata-rata permintaan es krim jenis bulk dari setiap restoran serta standar deviasinya. i. Modul LIMA Data-data yang disimpan pada modul ini adalah data rata-rata serta standar deviasi permintaan es krim jenis lima liter dari setiap restoran.
j. Modul SATU Merupakan modul yang berisi data rata-rata permintaan terhadap produk es krim satu liter dari setiap supermarket. k. Modul DUA Adalah modul yang digunakan untuk menyimpan data rata-rata permintaan produk es krim dua liter dari setiap supermarket.
1. Modul Kapasitas Modul ini berisi data jumlah kendaraan yang digunakan serta kapasitas setiap kendaraan.
3. Sistem manajemen basis model
sistem ini terdiri dari modul-modul yang mempunyai fungsi-fungsi tersendiri.
Terdapat tiga
modul dalam model ini yaitu : a. Modul OUTLET Modul ini digunakan untuk menghitung jumlah pengecer yang dapat dikunjungi oleh seorang salesman dalam satu hari pengiriman.
Jumlah
pengecer tersebut dibatasi oleh waktu pengiriman yang tersedia yang sama dengan jumlah jam kerja dalam satu hari. Faktor-faktor yang diperhitungkan
dalam
menentukan jumlah pengecer ini adalah lamanya waktu yang digunakan untuk menempuh pusat wilayah pengiriman, waktu tempuh dari satu pengecer ke pengecer berikutnya serta waktu pelayanana paada setiap pengecer.
Masukan yang diperlukan juga
masih berkaitan dengan faktor-faktor tersebut, yaitu data rata-rata waktu yang diperlukan untuk mencapai pusat wilayah, rata-rata waktu tempuh serta rata-rata waktu pelayanan.
Data-data
tersebut diolah dengan menggunakan teknik simulasi sehingga diperoleh keluaran berupa waktu untuk mencapai pusat wilayah, waktu tempuh dari satu pengecer ke pengecer berikutnya serta waktu pelayanan pada setiap pengecer. Jumlah pengecer yang dapat dikunjungi dihitung dengan mengurangkan total waktu pengiriman yang tersedia dengan waktu-waktu tersebut.
Waktu
untuk menempuh pusat wilayah diasumsikan sama dengan waktu yang diperlukan untuk kembali dari pusat wilayah, sehingga waktu pengiriman yang tersisa sama dengan total waktu pengiriman dikurangi dua kali waktu untuk menempuh pusat wilayah. Sisa waktu pengiriman kemudian dikurangi dengan hasil simulasi waktu yang diperlukan untuk mencapai pengecer pertama.
Kemudian sisa waktu
tersebut dikurangi lagi dengan hasil simulasi waktu
pelayanan di pengecer tersebut.
Apabila
masih tersisa waktu pengiriman, maka pengiriman dilanjtkan ke pengecer berikutnya.
Demikian
seterusnya sampai tidak tersisa lagi waktu untuk mengirimkan produk.
Jumlah pengecer yang dapat
dikunjungi segera diketahui.
Dari total jumlah
pengecer ini kem,udaian ditentukan pula berapa jumlah toko, hotel, restoran serta supermarket
yang a k a n d i k u n j u n g i .
D i a g r a m a l i r modul i n i
d a p a t d i l i h a t pada Gambar 4 . b. Modul MINTA Modul i n i b e r f u n g s i u n t u k menghitung p r a k i r a a n p e r m i n t a a n d a r i s e t i a p p e n g e c e r pada s e t i a p wilayah.
P e n g e c e r yang t e r d a p a t p a d a s e t i a p
w i l a y a h d i k e l o m p o k k a n k e d a l a m e m p a t kelompok, y a i t u kelompok t o k o , h o t e l , r e s t o r a n dan s u p e r market.
Pengelompokkan i n i d i d a s a r k a n p a d a
adanya p e r b e d a a n kecenderungan p e r m i n t a a n t e r h a dap beberapa j e n i s produk. Teknik yang digunakan untuk menghitung p r a k i r a a n permintaan t e r h a d a p produk a d a l a h teknik simulasi.
Masukan y a n g d i p e r l u k a n p a d a
model i n i a d a l a h r a t a - r a t a d a n s t a n d a r d e v i a s i permintaan d a r i s e t i a p pengecer t e r h a d a p s e t i a p kelompok p r o d u k s e r t a j u m l a h
s e t i a p kelompok
p e n g e c e r yang h a r u s d i k u n j u n g i .
Jumlah
setiap
kelompok p e n g e c e r yang h a r u s d i k u n j u n g i merupakan k e l u a r a n d a r i modul O u t l e t .
K e l u a r a n modul i n i
adalah p r a k i r a a n permintaan s e t i a p produk pada s a t u wilayah yang merupakan h a s i l s i m u l a s i dengan menggunakan r a t a - r a t a p e r m i n t a a n dan j e n i s s e b a rannya masing-masing.
Diagram a l i r program
komputer d a r i modul i n i d i s a j i k a n pada Gambar 5 berikut i n i .
G' MULAI
Input : -RATJU
output : -LOGJU
output : -LOGLAY
SISAZ = S i S A l LOGLAY
I S I S A I = WAKTOT SISAZ = 0
Gambar 4.
WAK = WAK
+
LOGLAY)
Q
Diagram alir komputer modul OUTLET
SELESAI
7 MULAI
FOR I = 1 TO TOKCW)
I
JUMNS(W)=0 RATNS = 3.00 STDNS = 3.16
I Gosub
Emp i r Gosub
Normal
output : -JUMNS(W)
output : -JUMPAL(W) -JUMIP(W) -JUMCR(W)
Gosub
Normal
Gambar 5.
Diagram alir komputer modul MINTA
6 NEXT I
FOR I = I T O HOTELCW)
c3 NEXT I
FOR I = I T O
0 NEXT I
Normal Gorub
Normal
output : -JUMBUL(W) output : -JUMSAT(W)
6 SELESAI
+ NEXT I
FOR I = I T O SUPERCW)
G~sub
Normal
output : -JUMBUR(W) -JUMLIM(W)
Gambar 5.
Lanjutan
. ( NEXT N
(5 FOR N = l T O 1 2
I SUM = SUM+RND
u
Gambar 6.
FOR i = l TO N
RETURN
Diagram alir komputer subrutin Normal
EMPiR = B B ( J )
FOR J = 1 TO 3
Gambar 7.
Diagram alir komputer subrutin Empir
c. Modul TUGAS
Modul ini merupakan modul terakhir dalam model penjadwalan pengiriman es krim ini.
Modul
ini disusun untuk mengatur kendaraan mana yang akan mengirimkan produk ke suatu wilayah. Masukan yang.diperlukan untuk model ini adalah data kapasitas setiap kendaraan yang digunakan serta total permintaan dari setiap wilayah.
Total permintaan wilayah merupakan
keluaran dari modul sebelumnya yaitu modul Minta. Data-data ini kemudian diolah sehingga menghasilkan solusi akhir berupa penjadwalan penggunaan kendaraan untuk mengirimkan produk ke setiap wilayah tujuan. Terdapat dua kriteria dalam penugasan salesman ini, yaitu memaksimumkan pemenuhan permintaan konsumen yang berarti pula memaksimumkan jumlah yang diangkut, dan meminimumkan kapasitas menganggur kendaraan. Teknik yang digunakan adalah metoda penugasan dan teknik heuristik. Metoda penugasan digunakan untuk menugaskan setiap salesman untuk mengirimkan produk k e wilayah-wilayah pengiriman.
Penugasan ini dida-
sarkan pada kapasitas masing-masing kendaraan serta jumlah produk yang akan dikirimkan ke suatu wilayah.
Pertama-tama kapasitas setiap kendaraan dibandingkan dengan jumlah produk yang akan dikirimkan ke suatu wilayah.
Langkah ini dimaksudkan untuk
melihat kendaraan mana saja yang dapat mengirimkan produk ke wilayah tersebut,
Apabila terdapat
kelebihan permintaan dibandingkan dengan kapasitas kendaraan yang tersedia, maka dilakukan penquranqan pemenuhan permintaan yanq seminimal munqkin.
Setelah itu dilakukan penugasan dengan
tujuan meminimumkan jumlah kekuranqan kapasitas kendaraan. Apabila hasil yang diperoleh tidak unik atau terdapat beberapa kendaraan yang dapat mengirimkan produk ke suatu wilayah, maka dilakukan penugasan kembali dengan tujuan meminimumkan kapasitas menganggur dari setiap kendaraan. Hasil akhir dari tahap penugasan ini adalah jadwal harian wilayah yang harus dikunjungi oleh setiap salesman selama periode perencanaan. Diagram alir program komputer modul TUGAS dapat dilihat pada Gambar 8.
(2 c 3 FOR J - 1
FOR
TO 8
I =
W-8
TO
W-1
FOR J-1
TO 8
* 0 a NEXT I
NEXT J
FOR J - 1 TO 8
FOR J - I
ENOL(J)
6 NEXT J
c3FOR J - I TO 8
GEDE
+ (3
TO 3
-
1E+15
FOR 1-W-8
TO
NEXT I
KOLOM =
NEXT J
I
GEDE=KOS(J. I )
ci w 3 Lri_ NEXT I
NEXT I
NEXT J
G a m b a r 8.
D i a g r a m a l i r k o m p u t e r m o d u l TUGAS
0 FOR J=I TO 8
GEDE = KOS(J.1)
Gambar 8 .
Lanjutan
Q NEXT I
e) 0 J
NEXT
FOR I = W-8 TO W-l
FOR J - 1 TO 8
FOR 5
-
W-8 TO W-1
cl,
NEXT J
NEXT I
a -
NEXT I
NEXT J
(3 -
t
FOR J-1
FOR I
W-8 TO W-1
TO 8
FOR I
W-8 TO W-l EDE = I E t l Q FOR J - 1 TO 8
0 FOR 3 - 1 TO 8
Q NEXT J
& NEXT J
Gambar 8.
Lanjutan
FOR J - 1
TO 8
0 FOR J - 1
TO 8
0.NEXT I
0 NEXT J
0 0
0 0 (3 BESAR
-
4000
C-BESAR
NEXT J
FOR J - 1
TO 8
FOR ( 5 - 4 )
TO 8
FOR I =
Gambar 8 .
Lanjutan
0 FOR J-1
TO 8
a NEXT 3
FOR I =
0 p e l
Lcf>
FOR J - 1 TO 8
NEXT I
a
TOTID + IDLE(J)
FOR J - 1 TO 3
6 NEXT J
i-, NEXT I
0 FOR K = l TO 8
c5NEXT K
NEXT I
NEXT J
Gambar 8.
Lanjutan
0 FOR J-1 TO 8
a FOR H-1 T O 8
FOR 5 W-8
=
T O W-l
* NEXT 5
0 0
(3 HEXT J
FOR J-1 TO 8
BESAR
=
IE+15
BESAR
=
SOK(J W
kJ FOR J-1 T O 8
TOTID TOTID
= +
IDLE (J)
0 NEXT J
(3 SELESAI
Gambar 8 .
Lanjutan
V. HASIL DAN PEMBAHASAN
A. KONDISI PENGIRIMAN ES KRIM DI PT DAIRYVILLE
Masalah distribusi menyangkut beberapa hal, salah satu diantaranya adalah mengenai bagaimana produkproduk tersebut dikirimkan.
Pengiriman produk berka-
itan dengan penentuan pengecer yang akan dikunjungi, jumlah produk yang diangkut serta penugasan salesman atau pengaturan kendaraan yang akan digunakan. PT. Dairyville memproduksi es krim dalam berbagai jenis rasa, bentuk dan kemasan.
Secara garis besar
produk-produk yang didistribusikan dapat dikelompokkan menjadi beberapa jenis yaitu es krim tipe bulk yaitu es krim dengan kemasan 7.8 liter; es krim tipe catering yaitu es krim dengan kemasan 5 liter, 2 liter dan 1 liter, serta es krim tipe impulse yaitu es krim yang dikemas dalam volume kecil (55-100 ml) yang meliputi jenis Nippa Cup, Nut Sundae, Koola Pole, Koola Kream, Pals, Icy Pole, Popsy, Chock Rock, Skubidu, dan Green Bean.
Berbagai jenis es krim yang diproduksi dan
didistribusikan oleh PT Dairyville disajikan pada Lampiran 1. Produk-produk ini kemudian didistribusikan k e berbagai wilayah pengiriman.
Wilayah distribusi produk
PT. Dairyville terdiri dari lima wilayah besar, yaitu wilayah Jabotabek, Bandung, Surabaya, Bali dan Lampung.
Wilayah Jabotabek yang menjadi wilayah kajian dalam penelitian ini meliputi daerah Jakarta, Bogor, Cianjur, Bekasi, Kerawang dan Sukabumi.
Total jumlah pengecer
di wilayah Jabotabek ini adalah
991
pengecer dengan
perincian 834 toko, 20 hotel, 5 5 restoran dan
82
super-
market. Adapun jumlah salesman yang bertugas mengirimkan produk k e wilayah-wilayah tadi ada delapan orang. Kendaraan pengangkut yang digunakan juga ada delapan buah dan setiap salesman menggunakan satu kendaraan yang tetap.
Tiga buah kendaraan berkapasitas
sedangkan lima kendaraan lainnya berkapasitas
550
1050
kg
kg.
PT. Dairyville menggunakan jadwal tetap untuk megirimkan produknya ke setiap pengecer.
Pengecer yang
akan dikunjungi telah ditetapkan oleh perusahaan sesuai dengan wilayah pengiriman masing-masing.
Dalam satu
hari pengiriman jumlah pengecer yang harus dikunjungi berkisar antara 15 sampai 2 5 pengecer.
Banyaknya
produk yang akan dikirimkan ke setiap pengecer ditentukan sendiri oleh masing-masing salesman. Sistem penjadwalan seperti ini masih mempunyai beberapa kelemahan.
Pertama, dari jumlah pengecer yang
harus dikunjungi dalam satu hari rata-rata hanya 7 0 persen saja yang dapat dikunjungi karena terbatasnya waktu pengiriman. Pada akhirnya jadwal yang telah disusun tidak sepenuhnya dapat dilaksanakan oleh sales-
man dan j e n i s s e r t a jumlah produk d i k i r i m k a n k e pengecer-pengecer hanya b e r d a s a r k a n p e r k i r a a n salesman.
Hal
i n i d a p a t menyebabkan kunjungan k e s e t i a p p e n g e c e r tidak teratur.
S a t u pengecer mungkin d i k u n j u n g i s a t u
minggu s a t u k a l i , p e n g e c e r yang l a i n dua minggu kemud i a n bahkan a d a p e n g e c e r yang t e r l e w a t t i d a k d i k u n j u n g i selama beberapa waktu. Kelemahan k e d u a , k a r e n a j u m l a h p r o d u k y a n g a k a n dikirim d i t e n t u k a n berdasarkan p e r k i r a a n salesman, t i d a k j a r a n g banyak produk yang d i b a w a k e m b a l i k e p a b r i k karena t i d a k t e r j u a l .
Jumlah produk yang t i d a k
t e r j u a l i n i r a t a - r a t a p e r h a r i d a p a t mencapai 3 1 p e r s e n d a r i p e n j u a l a n yang sebenarnya. b a t k a n adanya produk-produk
H a l i n i d a p a t mengaki-
yang r u s a k a k i b a t pemuatan
a t a u pengambilan es k r i m d a r i k e n d a r a a n s e r t a k e r u s a k a n k a r e n a perubahan t e m p e r a t u r selama p e r j a l a n a n .
B
. ANALISA
DATA
1. Data elemen waktu pengiriman
Jadwal p e n g i r i m a n produk y a n g d i s u s u n merupakan s a l a h s a t u a l t e r n a t i f penjadwalan pengiriman yang memperhatikan k e t e r b a t a s a n w a k t u p e n g i r i m a n s e r t a k e t e r b a t a s a n jumlah s e r t a k a p a s i t a s kendaraan. Faktor-faktor
yang berpengaruh p a d a penjadwalan i n i
a d a l a h f a k t o r w a k t u d a n jumlah p e r m i n t a a n .
Waktu
yang d i p e r h i t u n g k a n pada j a d w a l i n i m e l i p u t i waktu
untuk mencapai pusat wilayah atau disebut waktu tuju, waktu tempuh antar pengecer serta waktu pelayanan di setiap pengecer.
Waktu tuju serta waktu
tempuh dipengaruhi oleh kondisi lalu lintas yang bersifat tidak pasti, sedangkan waktu pelayanan tergantung pula pada situasi pada waktu pengiriman yang juga tidak pasti.
Oleh karena itu dilakukan
estimasi terhadap waktu tuju, waktu tempuh serta waktu pelayanan.
Teknik yang digunakan adalah
teknik simulasi dan estimasi dilakukan berdasarkan data-data aktual.
Agar hasil simulasi dapat mewaki-
li kondisi nyatanya, maka dilakukan serangkaian pengujian terhadap data aktual serta data hasil simulasi.
Uji yang dilakukan meliputi uji sebaran
terhadap data aktual, uji keseragaman nilai tengah serta keseragaman simpangan baku antara data aktual dengan data hasil simulasi.
Berikut ini adalah
hasil pengujian terhadap data-data waktu. 1.1. Waktu tuju
Uji yang dilakukan pertama kali adalah uji sebaran data.
Pengujian ini diperlukan untuk
mengetahui sebaran data waktu tuju aktual sehingga pada tahap estimasi dapat dibangkitkan nilai yang sesuai dengan data aktual.
Uji
sebaran dilakukan dengan uji Kolmogorov-Smir-
nov.
Pengujian terhadap sebaran normal mengha-
silkan D maksimum yang lebih kecil dari nilai D tabel, sehingga hipotesa no1 dapat diterima. Hal ini berarti waktu tuju mengikuti sebaran normal.
Hasil pengujian disajikan pada
tabel 1. Setelah dilakukan simulasi dengan menggunakan sebaran normal, maka dilakukan pengujian terhadap data hasil simulasi tersebut.
Uji
pertama yang dilakukan adalah uji keseragaman nilai tengah. t.
Pengujian dilakukan dengan uji-
Hasil pengujian menunjukkan nilai t yang
berada di antara batas-batas wilayah pengujian. Hal ini berarti data simulasi homogen dengan data aktual berdasarkan nilai tengahnya. Uji lain yang dilakukan adalah uji keseragaman simpangan baku.
Uji yang digunakan
adalah uji statistik F.
Nilai F hasil penghi-
tungan berada diantara batas harga pengujian. Hal ini berarti data simulasi juga seragam dengan data aktual berdasarkan simpangan bakunya. Waktu tempuh Uji sebaran data yang dilakukan terhadap waktu tempuh menunjukkan bahwa waktu tempuh
mengikuti sebaran normal.
Hal ini ditunjukkan
oleh nilai D maksimum hasil perhitungan yang lebih kecil dibandingkan nilai D tabel. Data hasil simulasi dengan bangkitan bilangan acak dengan sebaran normal kemudian diuji lagi keseragamannya dengan melakukan uji t dan uji F.
Nilai t hitung yang diperoleh
pada pengujian keseragaman nilai tengah berada di antara nilai-nilai batas.
Hal ini berarti
bahwa data hasil simulasi seragam nilai tengahnya dengan data aktual waktu tempuh. Pada uji keragaman data diperoleh nilai F hitung yang berada diantara nilai-nilai yang menjadi batas kiri serta batas kanan pengujian. Hal ini menunjukkan hipotesa no1 bahwa keragaman data aktual dengan data hasil simulasi bersifat homogen dapat diterima. 1.3.
Waktu pelayanan Waktu pelayanan di setiap pengecer meliputi waktu untuk menghitung sisa produk yang masih terdapat dalam pendingin, waktu untuk melakukan pesanan serta waktu untuk memuat barang dan menyusun produk pada pendingin.
Uji sebaran
data aktual terhadap sebaran normal memberikan nilai D maksimum yang lebih kecil dibandingkan
nilai D tabel, sehingga hipotesa no1 diterima. Hal ini berarti bahwa waktu pelayanan mengikuti sebaran normal. Tabel 1.
Hasil uji sebaran normal terhadap data waktu aktual D maks
Waktu Tuju Tempuh Pelayanan
0.20398 0.21417 0.19426
D tabel
Status
0.470 0.254 0.240
normal normal normal
Uji Keseragaman nilai tengah data hasil simulasi menunjukan data simulasi seragam nilai tengahnya dengan data aktual. Tabel
2.
Waktu
Hasil uji keseragaman nilai tengah t hitung
Tuju Tempuh Pelayanan
-0.245 0.390 0.767
batas kiri -2.002 -0.487 -1.699
batas kanan 2.002 0.487 1.699
status data homogen homogen homogen
Pengujian keseragaman data berdasarkan simpangan baku dilakukan dengan uji statistik F. Hasil pengujian menunjukkan data simulasi homogen dengan data aktual seperti disajikan pada tabel berikut ini.
Tabel 3.
Hasil uji keseragaman simpangan baku data waktu
Waktu Tuju Tempuh Pelayanan
F hitung
0.913 1.154 1.103
batas kiri
batas kanan
Status data
0.227 0.511 0.544
2.290 1.775 1.688
homogen homogen homogen
2. Data permintaan
Selain ditentukan oleh waktu, jadwal ini ditentukan juga oleh permintaan di setiap wilayah. Permintaan terhadap produk di setiap wilayah bersifat tidak pasti sehingga dilakukan estimasi.
Teknik
yang digunakan adalah teknik simulasi dengan menggunakan data-data aktual.
Pengamatan yang dilakukan
terhadap data aktual permintaan produk menunjukkan bahwa terdapat kecenderungan permintaan yang berbeda-beda terhadap berbagai produk yang didistribusikan,
oleh karena itu dilakukan pengelompokkan
produk.
Produk dikelompokkan ke dalam tujuh kelom-
pok besar, yaitu kelompok Nut Sundae, Popsy, Impulse, Bulk, lima liter, dua dan satu liter.
Untuk
melihat perilaku setiap kelompok produk dilakukan uji sebaran data terhadap setiap kelompok produk ini.
Setelah diketahui sebaran masing-masing kelom-
pok data, maka dilakukan simulasi dengan menggunakan sebaran tersebut.
Hasil simulasi ini kemudian diuji
pula keseragaman nilai tengah serta simpangan
bakunya untuk melihat kehomogenan data aktual dengan data hasil simulasi.
Berikut ini hasil beberapa
pengujian terhadap berbagai kelompok produk. 2.1.
Kelompok produk Nut Sundae Uji sebaran yang dilakukan terhadap kelompok ini menunjukkan bahwa permintaan terhdap kelompok produk nut sundae mengikuti sebaran .normal.
Hal ini diperlihatkan oleh harga D
hitung yang lebih kecil dari nilai D tabel pada taraf pengujian 0.01 persen. Simulasi dengan menggunakan sebaran normal menghasilkan estimasi permintaan terhadap kelompok produk Nut Sundae.
Agar data ini
dapat digunakan oleh model, maka data hasil simulasi harus bersifat homogen dengan data aktualnya.
Uji kehomogenan nilai tengah data
dilakukan dengan uji-t.
Pengujian ini menun-
jukkan bahwa data hasil simulasi bersifat homogen.
Hal ini terlihat dari nilai t hitung
yang berada di antara nilai-nilai batas pengujian. Pengujian selanjutnya dilakukan terhadap keragaman data. Hasil uji memberikan nilai F hitung yang terletak di antara batas kiri serta batas kanan.pengujian, sehingga hipotesa no1
bahwa data simulasi bersifat homogen berdasarkan keragamannya diterima. dilihat pada tabel 2.2.
Hasil pengujian dapat
4.
Kelompok produk Popsy Uji sebaran normal terhadap kelompok produk ini memberikan nilai D maksimum yang lebih kecil dibandingkan dengan nilai D tabel pada pengujian terhadap sebaran normal.
Hal
ini berarti bahwa permintaan terhadap kelompok produk Popsy mengikuti sebaran normal. Tabel 4.
Hasil uji sebaran normal terhadap permintaan Nut Sundae dan Popsy D maksimum
Produk Nut Sundae POPSY
0.21966 0.19150
D tabel
Status
0.23286 0.23052
normal normal
Pengujian selanjutnya dilakukan terhadap data bangkitan dengan menggunakan sebaran normal.
Uji nilai tengah memperlihatkan bahwa
data bersifat homogen berdasarkan nilai tengah. Tabel 5.
Produk Nut Sundae POPSY
Hasil uji kesergaman terhadap nilai tengah permintaan Nut Sundae dan POPSY t hitung -0.260 -0.331
batas kiri -1.671 -0.430
batas kanan
status data
1.671 0.430
homogen homogen
Demikian pula uji keragaman menunjukkan bahwa data hasil simulasi bersifat homogen dengan data aktual. nilai
Hal ini ditunjukkan dengan
F hitung yang berada di antara batas-
batas wilayah pengujian. Tabel
Hasil uji keseragaman permintaan Nut Sundae dan Popsy
6.
Produk
F hitung
Nut Sundae POPSY
2.3.
0.924 0.848
batas kiri 0.671 0.690
batas kanan 1.409 1.381
Status data homogen homogen
Kelompok produk impulse Kelompok produk impulse terdiri dari produk-produk Nippa Cup, Koola Kream, Koola Pole, Green Bean, Pals, Icy Pole dan Chock Rock.
Pengujian terhadap kelompok produk ini
menunjukkan bahwa permintaan terhadap kelompok produk ini tidak mengikuti salah satu sebaran teoritis.
Oleh karena itu dalam membangkitkan
simulasi kelompok impulse digunakan sebaran empiris. 2.4. Kelompok produk catering
Kelompok produk ini terdiri dari lima jenis produk yaitu jenis bulk, lima liter, dua liter serta satu liter.
Kelompok produk ini
diuji sebarannya masing-masing untuk melihat perilaku permintaanya.
Pengujian dilakukan
pada permintaan di setiap wilayah.
Hasil uji
Kolmogorov-Smirnov terhadap masing-masing produk di setiap wilayah menunjukkan bahwa permintaan menyebar secara normal. Estimasi permintaan dilakukan dengan membangkitkan bilangan acak dengan sebaran normal. Hasil simulasi diuji keabsahannya dengan uji keseragaman nilai tengah dan keragaman.
Hasil
pengujian seluruhnya menunjukkan bahwa data hasil simulasi homogen dengan data aktual berdasarkan uji nilai tengah serta uji keragaman.
Hal ini diperlihatkan dengan nilai t
hitung serta F hitung yang berada diantara batas-batas wilayah pengujian. C. PENJADWALAN P E N G I R I W PRODUK
Jadwal pengiriman produk yang disusun meliputi .penentuan prakiraan permintaan produk di suatu wilayah, jumlah pengecer yang akan dikunjungi pada satu wilayah serta penugasan salesman yang akan mengirirnkan produkproduk ke wilayah pengirimannya masing-masing.
Karena
setiap salesman menggunakan satu kendaraan yang tetap, maka penugasan salesman berarti pula pengaturan penggunaan kendaraan untuk mengirimkan produk.
Terdapat dua
kriteria yang dipertimbangkan pada penjadwalan ini, yaitu memenuhi permintaan secara maksimum dengan memaksimumkan jumlah produk yang diangkut serta meminimumkan kapasitas menganggur kendaraan. 1. Prakiraan permintaan
Produk-produk es krim yang didistribusikan oleh
PT. Dairyville dikelompokkan lagi dalam beberapa kelompok kecil.
Pengelompokkan ini
didasarkan pada
adanya kesamaan kecenderungan permintaan.
Prakiraan
permintaan dilakukan pada setiap pengecer di setiap wilayah. Simulasi dilakukan dengan masukkan rata-rata permintaan dari setiap pengecer untuk setiap produk. Prakiraan permintaan dengan teknik ini memberikan hasil yang cukup memuaskan.
Uji yang dilakukan
menunjukkan bahwa hasil simulasi dapat dikatakan homogen dengan data aktual.
Pada jadwal pengiriman
sebelumnya, jumlah produk yang diangkut ditentukan sendiri oleh salesman berdasarkan perkiraannya masing-masing.
Jumlah produk yang diangkut lebih
ditujukan pada pemenuhan kapasitas kendaraan yang tersedia.
Selama pengangkutan dapat terjadi keru-
sakan-kerusakan pada es krim, diantaranya adalah kerusakan fisik.
Kerusakan ini dapat mempengaruhi
permintaan konsumen selanjutnya.
Jumlah produk yang
diangkut kembali pada penjadwalan sebelumnya ratarata mencapai 3 1 persen dari jumlah produk yang diangkut
.
Jadwal yang baru disusun dengan memperhitungkan prakiraan permintaan.
Jumlah produk yang diangkut
disesuaikan dengan jumlah permintaan yang ada. ini memberikan beberapa keuntungan.
Hal
Pertama, dengan
prakiraan permintaan yang baik, maka dapat diperoleh pengiriman produk yang efisien.
Keuntungan kedua,
dengan prakiraan permintaan yang baik, maka produk yang dibawa kembali ke pabrik karena tidak terjual akan lebih sedikit jumlahnya.
Hal ini akan mengu-
rangi juga jumlah produk yang mungkin rusak karena pembongkaran dan pemuatan produk dan kerusakan selama transportasi.
Hasil prakiraan permintaan
pada setiap wilayah disajikan pada tabel berikut ini. Tabel .
7.
Prakiraan permintaan produk es krim setiap wilayah pengiriman
Wilayah
Slipi Tj Duren Tangerang Kedoya Ciputat Cipulir serang Klp. Gading
.
Jumlah Permintaan (kg)
Wilayah
pada
Jumlah Permintaan (kg)
Tj. Priok Rawamangun Bend. Hilir Bulungan Melawai Sudirman Barito Patimura
Tabel 7 .
Lanjutan
Wilayah
Jumlah Permintaan (kg)
P s r . Baru Senen Matraman Cilandak Pamulang cinere Ragunan ~ejaten Kalibata Bogor Sukabumi Depok Cibinong Bekasi Kerawang K a l i Malang
Wilayah
Jumlah Permintaan (kg)
Kemang Pondok I n d a h Thamrin Fatmawati Bintaro Klender Tebet Menteng P s r . Minggu Cikini Mampang Sunter Kota P u l o Gadung Tanah Abang Daan Mogot Kayu Manis
P r a k i r a a n permintaan pada s e t i a p w i l a y a h menunjukkan bahwa r a t a - r a t a
jumlah p e r m i n t a a n d i s e t i a p
w i l a y a h b e r k i s a r a n t a r a 2 6 5 k g sampai 824 k g .
Hal
i n i b e r a r t i bahwa kendaraan dengan k a p a s i t a s 250 kg t i d a k d a p a t digunakan u n t u k memenuhi p e r m i n t a a n d i s e t i a p wilayah.
Apabila d i g u n a k a n kendaraan dengan
k a p a s i t a s 770 kg, maka hampir semua p e r m i n t a a n d a p a t d i p e n u h i t e t a p i masih t e s d a p a t beberapa w i l a y a h yang jumlah p e r m i n t a a n n y a l e b i h d a r i 7 7 0 kg t i d a k d a p a t terpenuhi seluruhnya.
Sedangkan penggunaan kenda-
r a a n dengan k a p a s i t a s 1050 k g d a p a t mehenuhi s e l u r u h p e r m i n t a a n t e t a p i menimbulkan k a p a s i t a s k e n d a r a a n menganggur yang b e s a r p u l a .
2. Penentuan jumlah pengecer yang harus dikunjungi
Pengecer yang akan dikunjungi dapat dikelompokkan menjadi empat kelompok yaitu kelompok toko, hotel, supermarket serta restoran. Pengelompokkan ini didasarkan pada adanya perbedaan jenis produk yang dipesan.
Hotel hanya memesan es krim jeni.s
bulk saja, sedangkan supermarket memesan produk jenis satu liter dan dua liter.
Adapun restoran ada
yang memesan es krim dalam bentuk bulk, namun ada pula restoran yang memesan es krim dalam kemasan lima liter.
Produk-produk impulse merupakan produk
yang dipesan oleh toko-toko. Rata-rata jumlah pengecer dalam satu wilayah berkisar antara 10 sampai 49 pengecer. Dari jumlah tersebut jumlah hotel berkisar antara no1 sampai empat hotel; jumlah restoran antara no1 sampai enam restoran dan jumlah supermarket antara no1 sampai delapan restoran.
Sedangkan jumlah toko antara 10
sampai 49 toko dalam setiap wilayah.
-
Penyebaran
hotel, restoran, supermarket serta toko dalam suatu wilayah dapat dilihat pada lampiran 2. Estimasi jumlah pengecer yang akan dikunjungi dilakukan dengan memperhatikan keterbatasan waktu pengiriman yang tersedia dan total waktu perjalanan. Jumlah pengecer yang dapat dikunjungi setiap hari diestimasi dengan teknik simulasi yang dimodelkan
pada model Outlet.
Asumsi yang digunakan pada model
ini adalah rata-rata serta deviasi standar waktu tuju, waktu pelayanan serta waktu tempuh untuk setiap wilayah sama dan mengikuti sebaran yang sama pula.
Apabila permintaan pada setiap wilayah dipe-
nuhi seluruhnya maka waktu yang diperlukan untuk mengirimkan produk berkisar antara 10 jam sampai 30.6
jam.
Salesman mempunyai keterbatasan kemampuan
dalam mengirimkan produk.
Seorang salesman maksimal
dapat bekerja selama kurang lebih 10 jam perjalanan. Diasumsikan bahwa salesman bekerja dengan jam kerja maksimum, yaitu 10 jam, maka jumlah pengecer yang dapat dikunjungi selama waktu tersebut adalah sekitar 16 sampai 17 pengecer.
Dari jumlah ini ditentu-
kan hotel, restoran, serta supermarket yang akan dikunjungi adalah seluruh hotel, supermarket, serta restoran yang ada di wilayah tersebut.
Sisa jumlah
pengecer yang tersedia merupakan jumlah toko yang harus dikunjungi. Namun apabila jumlah hotel, restoran serta supermarket di wilayah tersebut lebih dari setengah dari jumlah pengecer yang harus dikunjungi, yaitu sekitar enam atau tujuh pengecer, maka jumlah hotel, supermarket serta restoran yang dikunjungi adalah setengah dari jumlah total masing-masing.
Kebijakan
ini diambil agar pengiriman ke setiap jenis pengecer termasuk toko lebih merata. Wilayah dengan jumlah pengecer lebih dari 17 pengecer, tidak dapat dikunjungi sekaligus dalam satu hari pengiriman.
Pengecer yang tidak dapat
dikunjungi pada hari itu akan dikunjungi pada kunjungan berikutnya.
Perangkat lunak yang disusun
telah dilengkapi dengan fasilitas pengurutan pengecer sehingga senua pengecer pasti akan dikunjungi. Penugasan Salesman
Tahap terakhir pada penjadwalaan ini adalah tahap penugasan salesman yang akan mengirimkan produk- k e suatu wilayah.
Agar sebanyak mungkin
jumlah pengecer dapat dikunjungi dalam satu hari pengiriman, maka dilakukan analisa terhadap total permintaan di suatu wilayah dengan kapasitas angkut setiap salesman.
Teknik yang digunakan adalah
teknik penugasan serta teknik heuristik.
Total
permintaan di suatu wilayah dibandingkan dengan masing-masing kapasitas kendaraan. Perbandingan pertama dilakukan untuk melihat salesman mana saja yang dapat ditugaskan untuk mengirimkan produk. Kemampuan ini dilihat dari kemampuan kendaraan mengangkut produk sesuai dengan jumlah permintaan. Apabila kapasitas kendaraan lebih besar dibanding
jumlah permintaan, maka berarti tidak terjadi kekurangan kapasitas kendaraan dan nilai dalam tabel penugasan bernilai nol.
Pengiriman produk dengan
menggunakan kapasitas kendaraan yang ada menghasilkan tabel pertama penugasan periode perencanaan pertama Tabel 8.
sebagai berikut. Matriks biaya periode perencanaan pertama
Salesman
Wilayah
Nilai no1 pada sel-sel penugasan berarti bahwa salesman yang menggunakan kendaraan tersebut dapat pergi ke wilayah tersebut karena total permintaan di wilayah tersebut dapat dipenuhi.
Sedangkan sel-sel
yang tidak bernilai no1 menunjukkan bahwa salesman tidak dapat mengirimkan produk ke wilayah tersebut. Hal ini disebabkan karena apabila salesman-salesman ditugaskan ke wilayah-wilayah tersebut, maka terdapat permintaan yang tidak dapat dipenuhi sebanyak nilai yang tecantum pada sel penugasan.
'Pada tabel tersebut terlihat bahwa salesman pertama, kedua dan ketiga tidak dapat mengirimkan produk ke wilayah manapun karena kapasitas kendaraan yang dimilikinya tidak dapat memenuhi permintaan yang ada.
Oleh karena itu, terdapat tiga wilayah
yang permintaannya tidak dapat dipenuhi seluruhnya sehingga ketiga salesman dapat mengirimkan produknya. Wilayah-wilayah tersebut adalah wilayah yang permintaannya lebih sedikit dibandingkan dengan wilayah-wilayah lainnya, sehingga jumlah permintaan yang tidak dapat dipenuhi dapat diusahakan minimal. Selanjutnya dengan menggunakan algoritma penugasan, diperoleh solusi akhir dengan total permintaan yang tidak terpenuhi minimal. kriteria
Berdasarkan
pemenuhan permintaan yang maksimal ini,
maka solusi akhir penugasan menunjukkan bahwa beberapa orang salesman dapat mengirimkan produk ke beberapa wilayah seperti terlihat pada tabel di bawah ini. Tabel 9. Salesman
Alternatif wilayah penugasan salesman alternatif wilayah
1 2 3
Tj Duren, Kerawang, Kalibata Tj Duren, Kerawany, Kalibata Tj Duren, Kerawang, Kalibata
4
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj-Priok, Tnh. Abang, Sukabumi
Tabel 9.
Lanjutan
Salesman
alternatif wilayah
5
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
6
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
7
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
8
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
Untuk.memperoleh solusi yang lebih baik, maka dilakukan.penugasan kembali dengan kriteria meminimumkan kapasitas menganggur kendaraan.
Untuk itu
dilakukan analisa kembali terhadap total permintaan di suatu wilayah dengan kapasitas angkut setiap salesman.
Tabel 10 adalah matriks biaya pada penu-
gasan yang kedua.
Tabel tersebut memperlihatkan
adanya kapasitas menganggur kendaraan apabila salesman ditugaskan ke setiap wilayah pengiriman.
Se-
dangkan nilai tak terhingga diperoleh apabila jumlah permintaan pada suatu wilayah lebih besar dibanding kapasitas kendaraan yang tersedia, yang berarti bahwa salesman tidak dapat ditugaskan ke wilayah tersebut karena akan terdapat sejumlah permintaan yang tidak dapat dipenuhi.
S e l a n j u t n y a d i l a k u k a n penghitungan dengan menggunakan a l g o r i t m a penugasan t e r h a d a p d a t a - d a t a t e r d a p a t pada t a b e l 1 0 .
yang
H a s i l a k h i r yang d i p e r o l e h
merupakan penugasan salesman k e b e b e r a p a a l t e r n a t i f w i l a y a h yang d a p a t d i k i r i m dengan k a p a s i t a s kendar a a n menganggur y a n g minimum. Tabel 1 0 .
M a t r i k s b i a y a penugasan k e d u a p e r i o d e p e r e n c a n a a n pertama
Salesman
Wilayah
H a s i l a k h i r yang d i p e r o l e h b e r s i f a t t i d a k u n i k , a r t i n y a seorang s a l e s m a n d a p a t d i t u g a s k a n k e beberap a wilayah pengiriman.
T a b e l 11 m e m p e r l i h a t k a n
a l t e r n a t i f wilayah pengiriman yang d a p a t d i k u n j u n g i o l e h s e t i a p salesman. Tabel 11. Salesman
A l t e r n a t i f wilayah penugasan salesman A l t e r n a t i f Wilayah
Tabel 11.
Lanjutan
Salesman
Alternatif Wilayah
.
4
Fatmawati, Ciputat, Tj Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
5
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
6
Fatmawati, ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
7
Fatmawati, Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
8
~atmawati,Ciputat, Tj. Duren, Kerawang Kalibata, Tj.Priok, Tnh. Abang, Sukabumi
Penugasan akhir salesman untuk periode perencanaan pertama dapat dilihat pada tabel 12 berikut ini.
Penugasan ini merupakan salah satu alternatif
penugasan salesman ke wilayah pengirimannya. Penugasan k e wilayah-wilayah
yang lain tidak akan
merubah total kapasitas kendaraan menganggur yang terjadi selama penugasan dilakukan pada wilayah pengiriman alternatif. Tabel 12.
Hasil akhir penugasan salesman ke wilayah pengirimannya masing-masing
Salesman
wilayah pengiriman
.
Tj Duren Kerawang Kalibata Fatmawati Ciputat Tnh. Abang Tj. Priok Sukabumi
Perencanaan yang dilakukan selama 12 periode ke depan menghasilkan jadwal harian pengiriman produk untuk setiap salesman selama 1 2 hari. Hasil lengkap perencanaan ini disajikan pada tabel di bawah ini. Tabel 13.
Jadwal harian pengiriman produk es krim
Hari ke-
Salesman Sunardi
Hengky
Niswan
1
Kalibata
Kerawang
2 3 4 5
Pamulang Bintaro
Bekasi Sunter P.Gadung
Duren Fatmauati Melawai Cikini K.Malang Patimura B arito Depok Bulungan Matraman Pd. Indah Thamrin Melanai Cikini
6
7 8
9
Tangerang serang Ragunan Pamulang Kalibata Bintaro
10 Tangerang 11 Serang
I2
Ragunan
Klender Sudi rman Bekasi Kerawang Sunter
Taufik
Tj.
Tj.Duren
Bnd.Hilir P. Gadung Thamrin Klender Sudi rman Ky.Manis K.Malang
Fatmauati Patimura Barito Bulungan Pd.Indah
Tamin
Assari
Sunarno
Eko
Bogor Kemang
Slipi Tnh. Abang
Tj. Priok Klp.Gading
Sukabumi Cipulir Cibinong
Kedoya Psr.Baru Kota
Menteng Kayu Manis Mampang
Ciputat Pejaten Tebet P. Minggu Cilandak
Cinere Bogor Ciputat Menteng
Dean Mogot Slipi
Cipulir C i landak
Cinere
Rauam+ngun Klp.Gading Tnh. Abang Tj. Priok Kedoya K. Malang Psr. Baru Cibinong Kota Daan Mogot
Senen Pejaten Sukabumi Tebet
P. Minggu Matraman Mampang Ranamangun Senen
Pemilihan wilayah alternatif yang akan dikunjungi oleh setiap salesman mempertimbangkan adanya pembagian wilayah.
Setiap salesman diusahakan
mempunyai wilayah pengiriman yang tetap dan berdekatan atau berada pada satu wilayah tertentu, misalnya yilayah Jakarta bagian barat, Jakarta bagian timur dan sebagainya. Pembagian wilayah seperti ini memberikan beberapa keuntungan, diantaranya salesman dapat lebih mengenal kondisi wilayah yang akan dikunjungi, baik kondisi lalu lintas ataupun kondisi pelanggan yang ada.
Dengan demikian salesman dapat
lebih lancar mengirimkan produk serta dapat memperkirakan perilaku pelanggan terhadap permintaan produk yang berguna untuk menyusun prakiraan permintaan periode selanjutnya. Kendaraan yang digunakan untuk mengirimkan produk ini terdiri dari dua kapasitas yaitu kapasitas 250 kg dan 1050 kg.
Kapasitas ini tidak membe-
rikan hasil yang memuaskan.
Kendaraan dengan kapa-
sitas 250 kg tidak dapat memenuhi seluruh permintaan yang ada di setiap wilayah.
Sebaliknya kendaraan
dengan kapasitas 1050 kg dapat memenyhi seluruh permintaan yang ada di setiap wilayah, namun kendaraan ini juga akan mengakibatkan kapasitas kendaraan menganggur yang besar, karena rata-rata permintaan di setiap wilayah hanya berkisar antara 228 sampai 467 kg saja.
Penjadwalan dengan menggunakan kenda-
raan seperti ini menghasilkan rata-rata total kapasitas kendaraan menganggur sebesar
3326.5 kg.
Alternatif lain yang dapat dilakukan adalah dengan mengganti kendaraan berkapasitas besar dengan kendaraan berkapasitas sedang, yaitu 770 kg. Penggunaan kendaraan dengan kapasitas sedang ini dapat mengurangi kapasitas menganggur kendaraan.
Penjad-
walan yang dilakukan dengan menggunakan kendaraann ini menghasilkan total kapasitas kendaraan menganggur sebesar 1926.5 kg.
Penggantian kendaraan berkapasitas besar dengan kendaraan berkapasitas sedang dapat mengurangi kapasitas menganggur kendaraan.
Tetapi kendaraan
berkapasitas kecil yang masih digunakan menyebabkan masih adanya permintaan yang tertunda di beberapa wilayah.
Penggantian kendaraan berkapasitas kecil
dengan kendaraan berkapasitas sedang dapat mengatasi ha1 ini, namun penggantian ini dapat memperbesar kapasitas kendaraan mengaggur.
Penjadwalan yang
dilakukan dengan mengganti seluruh kendaraan yang ada dengan kendaraan berkapasitas sedang akan menghasilkan rata-rata kapasitas kendaraan menganggur sebesar 3320.6 kg.
Perbandingan penggunaan berbagai
alternatif kapasitas kendaraan dengan pengiriman produk selama 10 jam perjalanan dapat dilihat pada tabel di bawah ini.
Alternatif pertama adalah
penggunaan tiga kendaraan berkapasitas 250 kg dan lima kendaraan berkapasitas 1050 kg.
Alternatif
kedua adalah penggunaan tiga kendaraan berkapasitas 250 kg dan lima kendaraan berkapasitas 770 kg. Alternatif ketiga penggunaan delapan kendaraan berkapasitas 770 kg.
Tabel 1 4 .
Perbandingan b e r b a g a i a l t e r n a t i f gunaan kendaraan Alternatif I
Rata-rata Kapasitas Menganggur Pemenuhan Permintaan
*
3326.5 (kg) t i d a k terpenuhi seluruhnY a
peng-
Alternatif I1
Alternatif I11
i926.5 (kg) (-1400 kg)
2320.6 ( k g ) (+I60 kg)
t i d a k terpenuhi seluruhnya
dapat memenuhi
P e r b a n d i n g a n t e r h a d a p k a p a s i t a s s t a n d a r 6000 kg Penundaan pemenuhan p e r m i n t a a n d i s e b a b k a n o l e h
dua h a l , y a i t u pertama k a r e n a k e t e r b a t a s a n k a p a s i t a s kendaraan.
Kendaraan b e r k a p a s i t a s k e c i l , y a i t u 2 5 0
kg t i d a k d a p a t mengangkut s e l u r u h p e r m i n t a a n y a n g ada d i s u a t u w i l a y a h yang jumlahnya m e l e b i h i 250 kg. Penundaan pemenuhan p e r m i n t a a n j u g a d i s e b a b k a n karena k e t e r b a t a s a n kemampuan s a l e s m a n dalam mengirimkan p r o d u k .
Salesman d i a s u m s i k a n d a p a t b e k e r j a
maksimal s e l a m a 1 0 jam p e r j a l a n a n , sedangkan u n t u k mengirimkan s e l u r u h p e r m i n t a a n d i s u a t u w i l a y a h memerlukan waktu s e k i t a r 1 0 s a m p a i 30.6 jam p e r j a lanan. A l t e r n a t i f t e r b a i k yang d a p a t d i a m b i l dengan mempertimbangkan dua k r i t e r i a d i a t a s y a i t u k a p a s i t a s k e n d a r a a n menganggur d a n kemampuan u n t u k m e m e nuhi p e r m i n t a a n a d a l a h a l t e r n a t i f k e t i g a .
Penggu-
naan d e l a p a n kendaraan dengan k a p a s i t a s 7 7 0 kg d a p a t
memenuhi s e l u r u h permintaan dan memberikan k a p a s i t a s kendaraan menganggur yang l e b i h s e d i k i t . D.
PENGGUNAAN P E M G K A T LUNAK
Perangkat l u n a k disusun sedemikian rupa sehingga memudahkan p e n g g u n a d a l a m p e m a k a i a n n y a . penggunaan d i b a n t u dengan d i a l o g - d i a l o g
Kemudahan
s i n g k a t berupa
p e t u n j u k , menu penggunaan s e r t a p e r t a n y a a n - p e r t a n y a a n yang hanya memerlukan jawaban yang s i n g k a t . S e t e l a h program d i j a l a n k a n maka a k a n t e r l i h a t menu utama yang m e n y a j i k a n p i l i h a n p e n g g u n a a n .
Menu utama
y a n g d i t a m p i l k a n d a p a t d i l i h a t p a d a gambar d i bawah ini.
1. S i s t e m manajemen b a s i s d a t a 2 . S i s t e m manajemen b a s i s model
Tekan tomb01 panah untuk memilih atau Escape untuk keluar
Gambar 9 .
Tampilan Menu Utama
P i l i h a n menu s i s t e m manajemen b a s i s model a k a n l a n g s u n g membawa p e n g g u n a p a d a m o d e l p e n j a d w a l a n pengiriman produk.
Menu b a r u a k a n k e l u a r s e t e l a h
pengguna m e n g e t i k k a n p i l i h a n n y a p a d a s i s t e m manajemen b a s i s model d a n s i s t e m b e k e r j a .
Menu t e r s e b u t b e r i s i
p i l i h a n - p i l i h a n k e l u a r a n yang d i i n g i n k a n o l e h pengguna. Terdapat t i g a
k e l u a r a n yang
dapat
dipilih oleh
pengguna, yaitu keluaran dalam bentuk formulir rinci penjualan, keluaran dalam bentuk formulir pengambilan barang atau keluaran akhir dalam bentuk jadwal pengiriman produk untuk setiap salesman.
Setelah pilihan
dimasukkan maka akan keluar pertanyaan seperti berikut ini
. JUMLAH PERIODE PERENCANW
:
Pengguna tinggal memasukkan periode perencanaan yang akan dilaksanakan, maka model akan menghitung serta menyusun
jadwal sebanyak periode perencanaan yang
diinginkan.
Apabila pengguna memilih keluaran dalam
bentuk formulir rinci penjualan, maka contoh keluaran yang dihasilkan adalah seperti berikut.
OUTLET
PROOUK YANG OIANGKUl NS
TOKO TOXO TOKO TOKO TOKO TOKO iOK0 TOKO TOKO TOKO TOKO TOKO
PO
SK
NC
GB
KP
KK
P 1P CR BULK
5 Lt 2 Lt
1 Lt
1 1 3 4 5 6 7 8 9 10
11 12
TOTAL
Gambar 10.
46
36 36
14
8
10
2
8
14
17
0
0
0
0
Contoh keluaran program dalam bentuk formulir rinci penjualan
Formulir ini digunakan untuk menentukan prakiraan permintaan dari setiap pengecer.
Sedangkan apabila
keluaran yang dipilih dalam bentuk formulir pengambilan barang, maka hasil akan ditampilkan seperti pada Gambar 11.
Formulir ini digunakan untuk melakukan pesanan dan
pengambilan barang dari gudang. Pilihan ketiga adalah pilihan keluaran dalam bentuk jadwal wilayah yang harus dikunjungi oleh setiap salesman selama periode perencanaan.
DRODUK
JUMLW YANG DIANGKUT
UNIT
BERAT (Kg)
NUT SUNDAE POPSY SKUBIDU NIPPA CUP GREEN BEAN KOOLA POLE KOOLA KRIM PALS ICY POLE BULK LIMA LITER SATU LITER DUA LITER
Gambar 11.
Contoh keluaran program dalam bentuk mulir pengambilan barang
for-
Selama pengguna berada dalam basis model, dan selama model bekerja ditampilkan informasi-informasi singkat tentang proses apa yang sedang berjalan
dalam
model tersebut. Contoh informasi yang ditampilkan adalah sebagai berikut : SEDANG MENGHITUNG WAKTU TUJU Apabila pada menu utama dipilih pilihan kedua yaitu sistem manajemen basis data, maka model yang disajikan adalah model pe-ngelolaan data.
Setelah
pilihan manajemen basis data diketikkan, akan keluar lagi menu baru seperti berikut ini :
1. 2. 3. 4.
MASUKAN DATA UBAH DATA TAMPIL DATA CETAK DATA
Tekan tomb01 panah untuk memilih a t a u Escape untuk k e l u a r
Gambar 12.
Tampilan Sub Menu Manajemen Basis Data
Pengguna tinggal memasukkan pilihannya, apakah akan mengubah
data-data yang sudah ada, nenampilkan data-
data atau mencetak data-data tersebut melalui printer.
.Selain keempat pilihan di atas, pengguna akan keluar dari paket program. Setelah pengguna memasukkan pilihannya, maka akan tampil di layar sub menu lain yang menyajikan data-data pilihan yang akan diubah.
Contoh sub menu tersebut
adalah apabila pengguna memilih untuk menampilkan data.
Maka sub menu yang akan keluar adalah seperti terlihat pada Gambar berikut ini.
1
1. DATA PENGECER 2. DATA PERMINTAAN 3.
DATA SALESMAN
1
Tekan tomb01 panah untuk memilih atau Escape untuk keluar
Gambar 13.
Tampilan Sub Menu Tampil Data
Selain ketiga pilihan di atas, pengguna a k a n keluar d a r i menu dan kembali k e menu sebelumnya.
VL KESIMFULAN DAN SARAN
A.
KESIMPULAN
Kegiatan distribusi produk merupakan salah satu kegiatan yang penting pada suatu perusahaan.
Masalah
distribusi menyangkut beberapa hal, diantaranya keinginan konsumen akan produk yang baik dan dapat diperoleh setiap saat konsumen menginginkan, bagaimana pesanan ditangani, dan bagaimana barang-barang tersebut dikirim. Jadwal tetap yang ada tidak dapat memenuhi permintaan konsumen seluruhnya.
Hal ini disebabkan karena
setiap wilayah hanya dapat dikirimkan oleh seorang salesman dan waktu pengiriman produk terbatas.
Selain
itu kendaraan yang digunakan pada saat ini tidak sesuai dilihat dari segi kapasitas.
Kendaraan yang digunakan
memberikan kapasitas kendaraan menganggur yang cukup besar . Adanya keterbatasan sumber daya serta waktu pengiriman menyebabkan perlu adanya penjadwalan pengiriman produk sehingga dapat diperoleh hasil yang optimum. Jadwal pengiriman yang disusun meliputi penentuan jumlah pengecer yang dapat dikunjungi, prakiraan permintaan dari setiap pengecer serta penugasan salesman yang akan mengirimkan produk.
Jumlah pengecer ditentukan dengan menggunakan teknik simulasi dalam rangka memanfaatkan sebesar mungkin waktu pengiriman yang tersedia. menunjukkan
Hasil simulasi
rata-rata.jumlah pengecer yang dapat
dikunjungi dalam satu hari pengiriman adalah 16 sampai 17 pengecer.
Prakiraan permintaan dilakukan dengan
tujuan mengurangi jumlah produk yang kembali ke pabrik karena tidak terjual yang berarti mengurangi resiko kerusakan produk karena pembongkaran dan pemuatan produk serta kerusakan selama transportasi. Penugasan salesman didasarkan pada kapasitas kendaraan yang dimiliki oleh setiap salesman dengan tujuan memaksimumkan pemenuhan permintaan produk dan meminimumkan total kapasitas menganggur.
Hasil penu-
gasan dengan menggunakan kapasitas kendaran yang ada menunjukkan bahwa rata-rata total kapasitas menganggur kendaraan masih cukup besar.
Penggantian Kendaraan
berkapasitas besar dengan kendaraan berkapasitas menengah memberikan hasil yang lebih baik. delapan buah kan
Penggunaan
kendaraan dengan kapasitas 770 kg merupa-
alternatif penggunaan kendaraan terbaik dengan
mempertimbangkan dua kriteria yaitu kapasitas kendaraan menganggur serta kemampuan untuk memenuhi permintaan konsumen.
Penggunaan kendaraan seperti ini dapat
memenuhi seluruh permintaan dan memeberikan kapasitas kendaraan menganggur yang lebih sedikit.
Jadwal yang disusun memberikan alternatif pengelolaan pengiriman produk, dengan prakiraan permintaan yang dapat mengurangi jumlah produk yang kembali serta penugasan salesman yang dapat mengurangi kapasitas menganggur kendaraan tetapi dapat memenuhi permintaan konsumen dengan baik.
Model yang disusun juga dapat
digunakan untuk menyusun jadwal dengan berbagai kapasitas kendaraan untuk melihat efisiensi kendaraan yang digunakan.
Saran yang dapat diberikan diantaranya adalah penggantian kendaraan dengan kapasitas yang sesuai. Hal ini selain dapat memenuhi permintaan konsumen dengan baik juga dapat mengurangi kapasitas kendaraan menganggur yang cukup besar.
DAFTAR PUSTAKA
Bronson, R. and H.J. Wospakrik. 1988. Teori dan SoalSoal Operation Research. erlangga, Jakarta. Bryan, L.A. 1953. Traffic Management in Industry. Dryden Press, New York.
The
Dwiyanti, R. 1989. Studi Kebijaksanaan Pengendalian Persediaan dan Distribusi Produk Coca Cola pada PT Djaja B.everages Bottling Company. Skripsi. Jurusan Teknologi Industri Pertanian, fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Indrawan, M.A. 1990. Perencanaan dan Pengendalian Saluran Distribusi Fisik di PT. Tirta Mukti Indah Bottling Company. Skripsi. Jurusan Teknologi Industri Pertanian, fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Jul, M. 1982. The Intricacies of The Freezer Chain. International Journal of Refrigeration. 5, 227-228. Kotler P. and Keith C. 1984. Manajemen dan Strategi Pemasaran. Erlangga, Jakarta. Marimin. 1984. Simulasi Model Sistem Pengendalian Distribusi Fisik Kuantitatif Komoditi Beras. Skripsi. Jurusan Teknologi Industri Pertanian, Fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Mc. Charty, E.J. 1981. Basic Marketing. win, Inc., Illinois.
Richard D. Ir-
Petterson M.S. and A.H. Johnson. 1974. Encyclopedia of Food Science. Vol. 2. The AVI Publishing Company, Inc. Westport Connecticut Rosdi. 1992. Perencanaan Distribusi Fisik Produk Bir Bintang di Wilayah DKI Jakarta dan Jawa Barat. Skripsi. Jurusan Teknologi Industri Pertanian, Fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Subagyo, P., M. asri, dan T.H. Handoko. 1989. dasar Operations Research. BPFE, Yogyakarta Sudjana M.A.
1989.
Metoda Statistika.
Dasar-
Tarsito, Bandung.
Sugiharto, B. 1987. Perencanaan Jaringan Distribusi Fisik Pemasaran Produk Teh Botol Sosro di Jawa Barat. Skripsi. Jurusan Teknologi Industri Pertanian, Fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Syamsuar, E. 1986. Telaah Kebijakan Distribusi Pupuk Urea di Pulau Jawa. Skripsi. Jurusan Teknologi Industri Pertanian, Fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor Thierauf, R.J. dan R.C. Klekamp. 1975. Decision Making Through Operations Research. John Wiley and Sons Inc., New York. Watson, H.J. and J.H. Blackstone, Jr. 1990. Computer Simulation. John Wiley and Sons, Singapore. Webb, B.H., A.H. Jhonson, and J.A. Alford. 1974. Fundamentals of Dairy Chemistry. The AVI Publishing Company,Inc., Westport, Connecticut. Wirianto, N.T. 1987. Perencanaan Distribusi Produk Rokok PT Gudang Garam ke Pusat-Pusat Distribusi di Pulau Jawa. Skripsi. Jurusan Teknologi Industri Pertanian, Fakultas Teknologi Pertanian, Institut Pertanian Bogor, Bogor
LAMPIRAN
Lampiran 1. J e n i s - j e n i s es krim yang d i p r o d u k s i dan d i d i s t r i b u s i k a n o l e h PT D a i r y v i l l e , J a k a r t a T i p e produk
nama produk
bentuk kemasan
Cattering
bulk lima l i t e r
ember p l a s t i k kemasan p l a s t i k
Take home
dua l i t e r satu l i t e r
kemasan p l a s t i k kemasan p l a s t i k
Impulse
Nut Sundae Nippa cup Koola kream Koola p o l e Green bean Skubidu Pals Icy pole POPSY Chok r o c k
kue k e r u c u t CUP CUP batang batang batang batang batang batang kue
volume
Lampiran
2.
Penyebaran jumlah toko, hotel, dan restoran di setiap wilayah
Wilayah Slipi Tanjung Duren Tangerang Kedoya Ciputat Ci~ulir ~e%ang Kelapa Gading Pasar Baru Senen Matraman Kayu manis Cilandak Pamulang Cinere Ragunan Pe-Jaten Kalibata Bogor Sukabumi Depok Cibinong Bekasi Kerawang Kali Malang Taniuna Prlok ~awamaGgun Bend. h ~ l i r Bulunaan Melawai Sudirman Barito Patimura Xemang Pondok Indah Thamrin Fatmawati Bintaro Klender Tebet Menteng Pasar Minggu Cikini Mampang Sunter Kota -Pulo Gadung Tanah abancr Daan Mogot-
Jumlah toko
Jumlah hotel
Jumlah restoran
supermarket,
Jumlah suvermarket
Lampiran 3.
Program komputer jadwal pengiriman produk
REM PROGRAM PENJADWALAN PENGIRIMAN PRODUK ES KRIM cls: randomize(2) dim nutsun(50,2O),norns(50,2O),norpo(50,2O),popsy(50,2O),skubi(50,20) dim nipa(50,ZO) ,gb(50,20) ,kp(50,20) ,Kaka(50,20),Pal(50,20) dim Ipe(50,20),Coro(50,20),empir(50),Wil$(50),Olet(50),Otlet(50) dim Norbul(20),Ratbul(20),Lim(50,20),Bulk(50,2O),satu(50,20) dim D~a(50,20),K0~(10,50),S0k(10,50),0ka(10,50),0es(10,50) dim Hote1(50),Super(50),Nomtok(50,50),Nomhot(50,50),Nomsup(50,50) dim Nomres(50,50),Toko(5O),Tok(50),Resto(50),Jumns(5O),Kapns(50) dim Jumpop(50),Kapop(5O),Jumsku(50),-Kapsku(50),Jumnip(50) dim Kapnip(5O),Jumgb(5O),Kapgb(50),~umkp(50),Kapkp(50),Jumkk(50) dim Kapkk(50),Jumpa1(50),Kappa1(50),Junip(50),Kapip(5O),Jumcr(50) dim Kapcr(50),Jumbul(5O),Jumlim(50),Kaplim(50),Kapbul(50), dim LogSat(50,10),JumSat(5O),Kapsat(5O),Jumdua(5O),Kapdua(5O) dim Kaptot(5O),Rathot(5O),Stdhot(50),Ratrb(5O),Stdrb(5O),Ratr5(50) dim Stdr5(50),Ratsm1(5O),stdsm1(50),~atsm2(50) dim StdSm2(50),No1(50),Tuju(50.),Tipu(5O),Truk(20,50),Nama$(50) dim Norbur(5O),Ratbur(50),Burk(50,10),Jumbur(50),Kapbur(5O),~ari(20) dim A(15),Nordua(50,20),Se1(10,50) dim Ratnut(500),Jn(50,2O),Jumpo(20,10),~o(20,10),~ebe(50,20) dim Jr(50,20),Jusat(50,2O),J1(50,20),~s(50,20),Jede(50,20) dim Jubu1(50,20),Jubur(50,20),Julim(50,20),Judua(50,20) dim Nutsu(50,20),Hot(50),Res(50),Sup(50),Nero(50) color 14,l:locate 12,25:input "JUMLAH PERIODE PERENCANAAN :",Jdwl for W=l to 50 for I=1 to 40 Nomtok(W,I)=I Nomres(W,I)=I Nomhot(W,I)=I Nomsup(W,I)=I next I next W W=l Hari=l Dalap=l MENU UTAMA : Key off:color 7,O:cls pil$(l)=" 1. MANAJEMEN BASIS MODEL " pi1$(2)=" 2. MANAJEMEN BASIS DATA " gosub GARIS :gosub TULIS color 14,l:locate 23,l print '' Tekan tomb01 panah untuk memilih atau Escape untuk keluar " color 0,3:locate 10,ZO:print pil$(l) Posisi=lO A90 : T$=inkey$:if T$="" then A90
Lampiran 3.
Lanjutan
Tekan%=O if Len(T$)=2 then Tekan%=asc(Right$(T$,l)) if Tekan%=72 and Posisi=lO then Posisi=12 :gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9):goto A140 if Tekan%=72 and Posisi>lO then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,2O print pil$(Posisi-9) : goto A140 if Tekan%=80 and Posisi=12 then Posisi=lO gosub TUL1S:color 0,3:locate Posisi,20 print pil$(Posisi-9):goto A140 if Tekan%=80 and Posisi
TULIS: color 15,l for I=l to 2 :locate I+Y,ZO:print pil$(I):next 1:return GARIS : color 15,l:locate 9,18:print " for 1=1 to 2 locate 1+9,18:print " 1 next I locate 13,18:print " return
I
lS
A100 : .key offf:color 7,O:cls pil$(l)=" 1. MASUKAN DATA pi1$(2)=" 2. UBAHDATA pi1$(3)=" 3. TAMPIL DATA pil$(4)=" 4. CETAK DATA gosub GARIS :gosub TULIS 'color 14,l:locate 23,l print " Tekan tomb01 panah untuk memilih atau Escape untuk keluar " color 0,3:locate 10,20:print pilS(1) Posisi=lO BY0 : T$=inkey$:if T$="" then B90
Lampiran 3.
Lanjutan
Tekan%=O if len(T$)=2 then Tekan%=asc(Right$(T$,l)) if Tekan%=72 and Posisi=lO then Posisi=12 :gosub TULIS color 0,3:locate Posisi,ZO print pil$(Posisi-9):goto 140 if Tekan%=72 and Posisi>lO then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,PO print pil$(Posisi-9) : goto 1400 if Tekan%=80 and Posisi=12 then Posisi=lO :gosub TULIS color 0,3:locate Posisi,ZO print pil$(Posisi-9):goto 1400 if Tekan%=80 and PosisiclZ then Posisi=Posisi+l:gosub TULIS color 0,3:locate Posisi,ZO print pilS(Posisi-9):goto 1400 B140 : if TS=chr$(13) then B160 if T$=chr$(27) then color 7,O:cls:end goto ~ 9 0
TULIS: color 15,l for 1=1 to 3 :locate 1+9,2O:print pil$(I):next I return GARIS : color 15,l locate 9,18:print " for 1=l to 3 locate 1+9,18:print " I next I locate 13,18:print ', return ~ 1 0 0: key off:color 7,O:cls pil$(l)=" 1. DATA WILAYAH pi1$(2)=" 2. DATA PENGECER pi1$(3)=" 3. DATA TOKO pi1$(4)=" 4. DATA HOTEL .pi1$(5)=" 5. DATA RESTORAN pi1$(6)=" 6. DATA SUPERMARKET pi1$(7)=" 7. DATA BULK HOTEL 8. DATA BULK RESTORAN pi1$(8)=" pi1$(9)=" 9. DATA LIMALITER pil$(10)=" 10. DATA SATU LITER
I
It
Lampiran 3 .
Lanjutan
pilS(ll)=" 11. DATA DUA LITER pilS(12)=" 12. DATA SALESMAN gosub GARIS :gosub TULIS color 14,l:locate 23,l print " Tekan tomb01 panah untuk memilih atau Escape untuk keluar " color 0,3:locate 10,20:print pilS(1) Posisi=30 C90 : T$=inkey$:if T$="" then C90 Tekan%=O if len(TS)=2 then Tekan%=asc(RightS(TS,l)) if Tekan%=72 and Posisi=30 then Posisi=21 :gosub TULIS color 0,3:locate Posisi,ZO print pil$(Posisi- 9):goto C140 if Tekan%=72 and Posisi>30 then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,ZO print pilS(Posisi-9) : goto C140 if Tekan%=80 and Posisi=21 then Posisi=lO :gosub TULIS color 0,3:locate Posisi,ZO print pilS(Posisi-9):goto C140 if Tekan%=80 and Posisi<21 then Posisi=Posisi+l:gosub TULIS color 0,3:locate Posisi,ZO print pil$(Posisi-9):goto C140 C140 : if T$=CHR$(13) then C160 if T$=CHRS(27) then color 7,O:cls:END goto C90
TULIS: color 15,l for 1=1 to 12:locate I+9,2O:print pilS(1):next return GARIS : color 15,1 locate 9,18:print " for 1=1 to 12 locate 1+9,18:print " / next I locate 25,18:print " return
I
I
IS
Lampiran 3.
Lanjutan
B200 : key off:color 7,O:cls pil$(l)=" 1. DATA PENGECER pil$(2)=" 2. DATA PERMINTAAN pi1$(3)=" 3. DATA SALESMAN
gosub GARIS igosub TULIS color 14,l:locate 23,l print " Tekan tomb01 panah untuk memilih atau Escape untuk keluar color 0,3:locate 10,20:print pil$(l) Posisi=lO E90 : T$=inkey$:if T$="" then E90 Tekan%=O if len(TS)=2 then Tekan%=asc(Right$(T$,l)) if Tekan%=72 and Posisi=lO then Posisi=12 :gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9):goto El40 if Tekan%=72 and Posisi>lO then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9) : goto El40 if Tekan%=80 and Posisi=12 then Posisi=lO :gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9):goto El40 if Tekan%=80 and Posisi
I
Lampiran 3 .
Lanjutan
for 1=1 to 3 locate 1+9,18:print next I locate 13,18:print '* return
I
1
B300 : key off:color 7,O:cls pil$(l)=" 1. DATA PENGECER pi1$(2)=" 2. DATA PERMINTAAN pi1$(3)=" 3. DATA SALESMAN gosub GARIS :gosub TULIS color 14,l:locate 23,l print " Tekan tomb01 panah untuk memilih atau Escape untuk keluar " color 0,3:locate 10,ZO:print pilS(1) Posisi=lO E90 : TS=inkey$:if TS="" then E90 Tekan%=O if len(TS)=2 then Tekan%=asc(RightS(T$,l)) if Tekan%=72 and Posisi=lO then Posisi=12 :gosub TULIS color 0,3:locate Posisi,ZO print pilS(Posisi-9):goto El40 if Tekan%=72 and Posisi>lO then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,20 print pilS(Posisi-9) : goto El40 if Tekan%=80 and Posisi=12 then Posisi=lO :gosub TULIS color 0,3:locate Posisi,ZO print pilS(Posisi-9):goto El40 if Tekan%=80 and Posisi
TULIS: color 15,l for 1=1 to 3 :locate 1+9,2O:print pilS(1):next I return GARIS : color 15,l
Lampiran 3.
Lanjutan
locate 9,18:print " for 1=1 to 3 locate 1+9,18:print ', next I locate 13,18:print " return
I
I
ClOO : color 14,l locate 12,ZS:input "JUMLAH WILAYAH PENGIRIMAN open "0",l,"WILAYAH.DATv for 1=1 to Jumwil print "WILAYAH ";I;" :"i input Wil$(I) print81, Wil$(I) next I close BlO2 : T$=inkey$:if T$="" then B102 goto MENU C200 : cls open "0",2,"0TLET.DATM for 1=1 to Jumwil print "JUMLAH PENGECER input Otlet(1) print82, Otlet(1) next I close B103 : T$=inkey$:if T$="" then B103 goto MENU C300 : open "0",3,"TOKO.DAT" for 1=1 to Jumwil print "JUMLAH TOKO input Toko(1) print83, Toko(1) next I close B104 : T$=inkey$:if T$="" then B104 goto MENU:stop
";I;"
:'l ;
:",Jumwil
Lampiran 3 .
Lanjutan
C400 : open "OW,4,"HOTEL.DAT" for 1=1 to Jumwil print "JUMLAH HOTEL input Hotel(1) print84, Hotel(1) next I close B105 : T$=inkey$:if T$="" then B105 got0 MENU C500 : open "O",~,"RESTO.DAT~ for I=l to Jumwil print "JUMLAH RESTORAN input Resto(1) print85, Resto ( I) next I close
M;I;N
:u;
B106 : T$=inkey$:if T$="" then B106 got0 MENU C600 : open "0",6,"MARKET.DAT" for 1=1 to Jumwil print "JUMLAH SUPER MARKET ";I;" :"; input Super(1) print86, Super(1) next I close B107 : T$=inkey$:if T$="" then B107 got0 MENU C700 : open "0",7,"BULK.DAT" for 1=1 to Jumwil print "RATA-RATA PERMINTAW HOTEL input Rathot(1) print "STD PERMINTAAN HOTEL input Stdhot (I) print87, Rathot(1) print87, Stdhot(1) next I close
";I;-
:m;
";I;-
-. w . r
Lampiran 3 .
Lanjutan
B108 : T$=inkey$:if T$="" then 8108 goto MENU CEO0 : open "0",8,"REST.DAT" for 1=1 to Jumwil print "RATA-RATA PERMINTAAN BULK RESTORAN~;I;input Ratrb(1) print "STD PERMINTAAN BULK RESTORAN ";I;" input Stdrb(1) printf8, Ratrb(1) printf8, Stdrb(1) next I close
:";
.
' "r '
B109 : TS=inkey$:if T$="" then 5109 goto MENU C900 : open "0",9,"LIMA.DAT" for 1=1 to Jumwil print "RATA-RATA PERMINTAAN 5 LT XESTORAN";I;" input Ratr5(I) print "STD PERMINTAAN 5 LT RESTORAN" 1 input StdrS(1) printf9, RatrS(1) printf9, StdrS(1) next I close
-." ,. .,
'"'
all0 : T$=inkey$:if T$="" then B11O goto MENU ClOOO : open "O",lO,"SATU.DATn for I=l to Jumwil print "RATA-RATA PERMINTAAN 1 LTR SM input Ratsml (I) print "STD PERMINTAAN 1 LTR SM input Stdsml(1) printf10, Ratsml(1) printflo, Stdsml(1) next I close
".
'
-
-;I;"
:"i
r
Lampiran 3.
Lanjutan
8102 : T$=inkey$:if T$="" then B102 goto MENU CllOO : open "O",ll,"DUA.DAT" for ~ = i to Jumwil print "RATA-RATA PERMINTAAN 2 LTR SM input RatsmZ(1) print "STD PERMINTAAN 2 LTR SM input Stdsm2 (I) print#ll, Ratsm2(I) print#ll, Stdsm2 (I) next I close T$=inkey$:if T$="" then BlO2 goto MENU
*;I;-
: m ;
W;I;W
:wi
C1200 : open "OM,12,"SALES.DAT" for 1=1 to Jumsal print "SALESMAN YANG BERJALAN input NamaS(1) print "KAPASITAS KENDARAAN input Mobil(1) print#12, Sales(1) printX12, Mobil(1) next I close ~$=inkey$:if T$="" then B102 goto MENU Tampill: print "------------------------------------------------------------,, print " WILAYAH OTLET TOKO HOTEL RESTORAN SUPERMARKGT" .print "------------------------------------------------------------** open "I",l,"WILAYAH.DAT" while not eof(1) open "I",2, "OTLET.DATW while not eof(2) open "IU,3,"TOKO.DAT" while not eof (3) open "I" , 4 , "HOTEL.DAT" while not eof (4) Open "IM,5,"RESTO.DATU while not eof (5) open "I",6,"MARKET.DATM
Lampiran 3 .
Lanjutan
while not eof (6) input#l, Wil$(I) inputb2, Otlet(1) input#3, Toko(1) inputf4, Hotel(1) input#S, Resto(1) input?%, Super(1) print tab(2);Wil$(I);tab(l5);0tlet(I);tab(25);~oko(1); print tab(35);Hotel(I);tab(45);Resto(I);tab(55);s~per(1) wend wend wend wend wend wend close close close close close close print "------------------------------------------------------------,, El01 : T$=inkey$:if T$="" then El01 got0 MENU TAMPILZ : print "------------------------------------------------------------,, print " HOTEL RESTORAN print '------------------------------------------------------------,< print " RATA STD RATAB STDB RATAS STDS RATAl STDl print .------------------------------------------------------------a+ A$= ce VY V VV V VV # # VY V YV Y r r - l **.* r *.* V $#.# rr.7 rr.r open "1",7,"BULK.DAT" while not eof (7) . open "I",8,"REST-DAT" while not eof(8) open "IW,9,"LIMA.DATm while not eof (9) open "I",lO,"SATU.DAT" while not eof (10) open "I",ll,"DUA.DATM while not eof(l1) input87, Rathot(I),Stdhot(I) inputf8, Ratrb(I),Stdrb(I) inputf9, Ratr5(I),Stdr5(1) input#lO, Ratsml(I),Stdsml(W)
SUPERMARKET" RATA2
STDZ
##.#
## .#*'
Lampiran 3.
Lanjutan
input#ll, Ratsm2(I),Stdsm2(W) print using A$;Rathot(I);Stdhot(I);Ratrb(I);Stdrb(I);Ratr5(1); print using AS;Stdr5(I);Ratsml(I);Stdsml(I);Ratsm2(I);Stdsm2(1) wend wend wend wend wend close close close close close print .~------_------------------------------------------------------------,, El02 : T$=inkey$:if T$="" then El02 goto MENU TAMPIL3 : open "I",12,"SALES.DATn for 1=1 to JUMSAL print " NAMA SALESMAN ";I;tab(l5);SALES$(I);tab(25);KAPAS(Z) next I close T$=inkey$:if T$="" then El02 goto MENU CETAKKl : print print " WILAYAH
"------------------------------------------------------------Z?
OTLET
TOKO
HOTEL
"------------------------------------------------------------,,
;
open "I",l,"WILAYAH.DAT" while not eof(1) open "I",2,"OTLET.DATn while not eof(2) open "1",3,"TOKO.DAT" while not eof(3) open "I",4,"HOTEL.DATn while not eof(4) open "I",5,"RESTO.DATV while not eOf(5) Open "I",6,"MARKET.DAT" while not eof(6) inputll, Wi1$ (I) inputl2, Otlet(1) inputl3, TOKO(1) inputl4, HOTEL(1)
RESTOPAN
SUPERMARKGT"
Lampiran 3 .
Lanjutan
input#5, RESTO(1) input#6, SUPER(1) print tab(2);Wil$(I);tab(15);Otlet(I);tab(25);TOKO(I); print tab(35);HOTEL(I);tab(45);RESTO(I);tab(55);SUPER(I) wend wend wend wend wend wend close close close close close close
El01 : T$=inkey$:if T$="" then El01 goto MENU CETAKKZ : print "------------------------------------------------------------%, print " HOTEL RESTORAN SUPERMARKET" print "------------------------------------------------------------,! print " RATA STD RATAB STDB RATA5 STD5 RATAl STDl RATA2 STD2 print .v------------------------------------------------------------*c A$= ', ##.# ##.# ##.# ##.# ##.# I#.# ##.# ##.# ##.#" open "1",7,"BULK.DAT" while not eof (7) open "IN,8,"REST.DAT" while not eof(8) open "1",9,"LIMA.DAT" while not eof(9) open "IV,1O,"SATU.DAT" while not eof(l0) open "I",ll,"DUA.DAT" while not eof (11) input#7, Rathot(I),Stdhot(I) input#8, Ratrb(I),Stdrb(I) input#9, RatrS(I),StdrS(I) inputB10, Ratsml(I),Stdsml(W) inputB11, RatsmZ(I),Stdsm2(W) print using A$;Rathot(I);Stdhot(I);Ratrb(I);Stdrb(I);Ratr5(1); print using A$;Stdr5(I);Ratsml(I);Stdsml(I);Ratsm2(I);StdsmZ(I) wend wend
.
Lampiran 3.
Lanjutan
wend wend wend close close close close close print -~__----_-_--------_------------------------------------------------~E
El02 : T$=inkey$:if T$="" then El02 goto MENU CETAKK3 : open "I",12,"SALES.DATn for 1=1 to Jumsal print " NAMA SALESMAN ";I;tab(l5);Sales$(I);tab(25);Mobil(I) next I close T$=inkey$:if T$="" then El02 goto MENU locate 10,25:input "JADWAL YANG AKAN OIBUAT :",Jdwl W=l Dalap=l Hari=l MULAI : open "IV,1,"WILAYAH.DAT" while not eof(1) open "I",2,"0TLET.DATn while not eof(2) open "I",3,"TOKO.DAT" while not eof(3) -open "I",4,"HOTEL.DATV while not eof(4) open "I",5 , "RESTO.DAT" while not eof(5) open "I",6,"MARKET.DATV while not eof(6) open "I",7,"BULK.DATn while not eof(7) open "I",8,"REST.DATU while not eof(8) open "In,9,"LIMA.DATU while not eof(9) open "I",lO,"SATU.DAT"
Lampiran 3.
Lanjutan
while not eof(l0) open "I",ll,"DUA.DAT" while not eof (11) open "I",12,"SALES.DAT" while not eof(l2) Awal : Kaptot(W)=O S=l olet (W)=O Wak=O cls: print "We = ";W if W=49 then goto 554 else goto WAKTU 554 555
.......
print "APAKAW AKAN MELANJUTKAN (Y/N)" K$=inkey$:if K$="" then goto 555 if K$="NU OR K$="nm or K$="Yn or K$="y" then goto A55 else got0 554
A55: if K$="NU OR K$="nV then stop WAKTU : color 14,l locate 12,25:print "SEDANG MENGHLTUNG WAKTU Tuju 'Simulasi waktu rnenuju pusat wilayah Ratju=31.67 Stdju=316.67 Jumju=O 'Distribusi normal Sum=O Ulangl=(1.96*sqr(Stdju)/3.17)-2+1 UlangZ=int(Ulangl)+l for U=l to UlangZ Sum=O for L=l to 12 A(L)=rnd Sum=Sum+A(L) next L Juz=Sum-6 Wakju=Ratju+(sqr(Stdju)*juz) Jumju=Jumju+Wakju next U Tuju=Jumju/UlangZ Waktot=450
......."
beep
Lampiran 3 .
Lanjutan
OUTLET : Jumlog=O Jumlay=O cls color 14,l locate 12,25:print "SEDANG MENGHITUNG WAKTU TEMPUH
......."
'Simulasi waktu tempuh antar outlet Ratwkto=12.68 Stdwkto=16.799 'Distribusi normal Sum=O Jumtem=O
for U=l to Ulang2 Sum=O for L=L to 12 A(L)=rnd Sum=Sum+A(L) next L Puhz=Sum=6 Waktem=Ratwkto+(sqr(Stdwkto)*Puhz) Jumtem=Jumtem+Waktem next U Tempuh=Jumtem/Ulang2 'Simulasi waktu pelayanan pada setiap outlet cls :color 14.1 locate 12,25:print "SEDANG 14ENGHITUNG WAKTU PELAYANAN Ratlay=17.40 Stdlay=48.917 'Distribusi normal Sum=O Jumlay=O Ulangl=(1.96*sqr(Stdlay)/1.74)^2+1 Ulang2=INT(Ulangl)+l for U=l to Ulang2 Sum=O
......"
Lampiran 3.
Lanjutan
for L=l to 12 A(L)=rnd Sum=Sum+A(L) next L Layz=Sum-6 Waklay=Ratlay+(sqr(Stdlay)"layz)
Jumlay=Jumlay+Waklay next U Layan=Jumlay/UlangZ if Sisa2<>0 then 100 SisaZ=Sisal-Layan :goto OUTLET 100 Wak=Wak+(Tempuh+Layan) SisaZ=Sisal-Wak if Sisa2 <=0 then goto 10 Olet(W)=Olet(W)+l goto Outlet 10
input#2, inputg3, input#4, input#5, input#6,
Otlet (W) Toko (W) Hotel(W) Resto(W) Super(W)
c1s:color 14,l print:locate 12,25:print "JUMLAH OUTLET YANG DITUJU :";Olet(W) if Olet(W)>Otlet(W) then Olet(W)=Otlet(W) Hot(W)=Hotel(W) Res(W)=Resto(W) Sup(W)=Super(W) Tok(W)=Olet(W)-Hot(W)-Res(W)-Sup(W)
if Tok(W)>(.5*Toko(W)) then goto PRODUK if Hotel(W)=O then Hot(W)=O:goto 1112 Hot(W)=int(.5*Hotel(W))+l
1112 if Resto(W)=O then Res(W)=O:goto 1113 Res(W)=int(.5*Resto(W))+l
1113 -if Super(W)=O then Sup(W)=O Sup(W)=int(.5*Super(W))+l
print "JUMLAH HOTEL ";W;" = ";Hot(W) print "JUMLAH RESTORAN ";W;" = ";Res(W) print "JUMLAH SUPERMARICET ";W;" = ";Sup(W) Tok(W)=Olet(W)-Hot(W)-Res(W)-Sup(W)
produk : c1s:color 14,l locate 12,25:print "SEDANG MENGHITUNG NUT SUNDAE 'Simulasi produk Nut Sundae
......"
Lampiran 3 .
Lan jutan
Jumns(W)=O for I=1 to Tok(W) color 14,l locate 13,30:print "TOKO KERatns=3.00 Stdns=5.84 Jn(W,I)=O
";I
'Distribusi Normal for U=l to UlangZ Sum=O for N=l to 12 A(N)=rnd Sum=Sum+A(N) next N Nsz=Sum-6 norns(W,I)=Ratns+(sqr(Stdns)*Nsz) 'Nutsu(W,I)=Norns(I) if norns(W,I)
'Distribusi Normal for Eska=l to 2 Jumpo(I,Eska)=O for U=l to UlangZ Sum=O
......."
Lampiran 3 .
Lanjutan
for N=I to 12 A(N)=rnd Sum=Sum+A(N) next N Poz=Sum-6 Peo(I,Eska)=Ratpo+(sqr(Stdpo)*Poz) Jumpo(I,Eska)=Jumpo(I,Eska)+Peo(I,Eska) next U Norpo(I,Eska)=int(Jumpo(I,Eska)/u1ang2)+1 'norpo(I,Eska)=int(Jumpo(I,Eska))+l next Eska Skubi(W,I)=(Norpo(I,2)) if Skubi(W,I)
....."
Lampiran 3.
Lanjutan
nipa : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) nipa(W,I)=int(empir(I)) Jumnip(W)=Jumnip(W)+Nipa(W,I) Kapnip(W)=Jumnip(W)*2.277 'Green bean U=rnd for J=1 to 3 if Us=Frek(J) then goto gebe next J gebe : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) gb(W,I)=int(empir(I)) Jumgb(W)=Jumgb(W)+gb(W,I) Kapgb(W)=Jumgb(W)*l.S 'Koola pole U=rnd for J=l to 3 if U<=Frek(J) then goto kopo next J kopo : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) kp(W,I)=int(empir(I)) Jumkp(W)=Jumkp(W)+kp(W,I) Kapkp(W)=Jumkp(W)*1.8 'Koola krim U=RND for J=l to 3 if Uc=Frek(J) then goto koki next J
. koki
:
empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l)))
Kaka(W,I)=int(empir(I)) Jumkk(W)=Jumkk(W)+Kaka(W,I) Kapkk(W)=Jumkk(W)*2.484 'Pals U=rnd for J=l to 3 if U<=Frek(J) then goto pal next J
Lampiran 3 .
Lanjutan
pal : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) Pal(W,I)=int(empir(I)) Jumpal(W)=Jumpal(W)+Pal(W,I) Kappal(W)=Jumpal(W)*1.32 'Icy pole U=rnd for J=l to 3 if U<=Frek(J) then goto ipol next J ipol : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) Ipe(W,I)=INT(empir(I)) Jumip(W)=Jumip(W)+Ipe(W,I) Kapip(W)=Jumip(W)*l.5 'Chock rock U=rnd for J=l to 3 if U<=Frek(J) then goto rock next J rock : empir(I)=Bb(J)+((U-Frek(J-l))*(Ba(J)-Bb(J))/(Frek(J)-Frek(J-l))) Coro(W,I)=int(empir(I)) Jumcr(W)=Jumcr(W)+Coro(W,I) Kapcr(W)=Jumcr(W)*O.345 next I HOTEL : cls:color 14,1 locate 12,25 :print "SEDANG YSNGHITUNG BULK HOTEL inputS7, Rathot(W),Stdhot(W)
. Ratbul=Rathot(W) Stdbul=Stdhot(W)
BULK : Jumbul(W)=O if Ratbul=O then goto N O m R 'Simulasi produk Bulk
. . .. .."
Lampiran 3.
107
Lanjutan
for I=1 to Hot (W) JB(W,I)=O color 14,l:locate 13,30:print "HOTEL KEfor u=l to Ulang2 sum=O for N=l to 12 A(N)=rnd Sum=Sum+A (N) next N Bulz=Sum-6 Bulk(W,I)=Ratbul+(Stdbul"Bulz) if Bulk(W,I)
RESTO: c1s:color 14,l locate 12,25:print "SEDANG MENC-HITUNG BULK RESTORAN input%, Ratrb(W),Stdrb(W) if Ratrb(W)=O then goto 108 Ulangl=(1.96*Stdrb(W)j(O.l*Ratrb(W)))^2il Ulang2=int(Ulangl)+l JR(W,I)=O for 1=1 to Res(W) color 14,l:locate 13,30:print "RESTORAN KE - ";I Ratbur=Ratrb(W) Stdbur=Stdrb(W)
....."
'Distribusi Normal for U=l to Ulang2 sum=O for N=I to 12 A(N)=rnd Sum=Sum+A(N) next N Burz-Sum-6 Burk(W,IJ=Ratbur+(Stdbur"Burz) if Burk(W,I)
Lampiran 3 .
Lan jutan
if JR(W,I)=O then Jubur(W,I)=O :goto 108 Jubur(W,I)=int(JR(W,I)/U1ang2)+1 Jumbul(W)=Jumbul(W)+Jubur(W,I) Kapbul(W)=Jumbul(W)*4.680
108
next I LIMA : cls: color 14,l locate 12,25:print "SEDANG MENGHITUNG LIMA LITER inputf9, Ratr5(W),StdrS(W) Jumlim(W)=O
....."
for 1=1 to Res(W) Ratlim=Ratr5(W) Stdlim=stdr5(W) if Ratlim=O then goto 109 Ulangl=(1.96*Stdlim/(O.l*Ratlim))^2+1 Ulang2=int(Ulangl)+l
109
.
'Distribusi Normal JL(W,I)=O for U=l to UlangZ Sum=O for ~ = to l 12 A(N) =rnd Sum=Sum+A(N) next N Limz=Sum-6 Lim(W,I)=Ratlim+(Stdlim*Limz) if Lim(W,I)
....."
Lampiran 3.
Lanjutan
for 1=1 to Sup(W) color 14,l:locate 13,30:print "SM KE- ";I 'Distribusi normal for U=l to Ulang2 Sum=O for L=l to 12 A(L)=rnd Sum=Sum+A(L) next L Satz=Sum-6 Logsat(W,I)=Ratsa+(Stdsa*Satz) JS(W,I)=JS(W,I)+Logsat(W,I)
117
next U Jusat(W,I)=int(Js(W,I)/vlang2)+1 Jumsat(W)=Jumsat(W)+Jusat(W,I) Kapsat(W)=Jumsat(W)*0.60 next I Dua : c1s:color 14,l locate 12,ZS:print "SEDANG MENGHITUNG DUA LITER input#ll, Ratsm2 (W) inputfll, Stdsm2(W) 'Simulasi produk Dua liter if RatsmZ(W)=O then goto 118 Jumdua(W)=O Ulangl=(1.96*Stdsm2(W)/(O.l*Ratsm2(W)))-2+1 Ulang2=int(Ulangl)+l JD(W,I)=O for 1=1 to Sup(W) . color 14,l:locate 13,30:print "SM KE Ratdua=RatsmZ(W) Stddua=StdsmZ(W) 'Distribusi Normal for U=l to Ulang2 Sum=O for N=l to 12 A(N)=rnd Sum=Sum+A(N) next N Duaz=Sum-6 Nordua(W,I)=Ratdua+(Stddua*Duaz)
-
";I
......."
Lampiran 3 .
118
Lanjutan
Dua(W,I)=Nordua(W,I) if Dua(W,I)
";Wil$(W);"
w=w+1 Dalap=Dalap+l if W>49 then W=l:goto TUTUP if Dalap<=8 then goto AWAL goto MOBIL Mobil : Totid=O open "I",lZ,"SALES.DAT" for J=l to Jumsal input#l2, Mobil(3) next J Tanda=l for J=1 to 8 for I=W-8 to W-1 if 1=0 then I=49 Beda=Mobil(J)-Kaptot(1) if Beda>=O then goto 11 Oes(J,I)=Kaptot(I)-Mobil(J) Kos(J,I)=int(Oes(J,I))+l:goto 12
11 12
Kos(J,I)=o if I=49 then 1=0 next I next J TUGASl : print print "TABEL PERTAMA..... for J=l to 8 for I=W-8 to W-1
":print:print
=";KAPTOT(W)
Lampiran 3 .
Lanjutan
if 1=0 then I=49 Sel(J,I)=Kos(J,I) if I=49 then 1=0 next I next J print tab(l0);"------------------------------------------------,, print tab(l0);"SALESMAN WILAYAH " print tab(20);"----------------------------------------" print tab(20);" lH;tab(25);" ZV;tab(32);" 3";tab(39);" 4"; print tab(46);" 5";tab(53);" bW;tab(60);" 7";tab(67);" 8" tab(l0);-v------------------------------------------------8a for J=l to 8 print tab(l2);J;tab(l8);Kos(~,W-8);tab(25); print tab(25);Kos(W-7);tab(32);Kos(J,W-6);tab(39);Kos(J,w-5); print tab(46);Xos(J,W-4);tab(53);Kos(J,W-3); print tab(60);Xos(J,W-2);tab(67);Ko~(~,w-l) next J print tab(lO)tV--------------------------------------------------9t print if W=8 then goto 5561 else goto TERUSl 5561 print "APAKAH AKAN MELANJUTKAN ? (YJN)"; 5571 K$=inkey$:if k$="" then goto 5571 if K$="N" or K$="nM OR k$="Y" or k$="y" then goto A571 else beep goto 5561
.....
A571: if K$="NV OR k$="nm then stop TERUSl : for J=1 to 3 En01 (J)=O for I=W-8to W-I if i=0 then i=49 if Kos(J,I)<>O then goto 331 Enol(J)=Enol(J)+l if I=49 then 1=0 next I next J if TANDA=2 then goto MOL for J=l to 3 if Enol(J)<3 then goto KHUSUS next J MOL : 'Menentukan MOL for J=l to 8 Gede=lE+15
Lampiran 3.
13
Lan jutan
Kolom=O for I=W-8 to W-1 if 1-0 then 1-43 if Kos(J,I)>=Gede then goto 13 Kolom=I Gede=Kos(J,I) if I=49 then 1=0 next 1 A=Kos(J,Kolom) for I=W-8 to W-1 if 1=0 then I=49 Kos(J,I)=Kos(J,I)-A if I=49 then 1=0 next I next J print print ClS :print "TABEL KEDUA print print tab(lo)"--------------------------------------------------,, print tab(l0)"SALEsMAN WILAYAH " print tab(20)"--------------------------------------------------07 printtab(20)" lU;tab(25);" Zn;tab(32);" 3";tab(39);" 4"; print tab(46);" 5";tab(53);" 6";tab(60);" 7";tab(67);" 8" print tab(lO)*--------------------------------------------------~t for J=1 to 8 print tab(l2);J;tab(lS);Kos(J,W-8); print tab(25);Kos(J,W-7);tab(32);Kos(J,W-6);tab(33);Kos(J,W-5); print tab(46);Kos(J,W-4);tab(53);Xos(J,W-3); print tab(60);Kos(J,W-2);tab(67);Kos(JjW-1) next J print tab(lo)"--------------------------------------------------,> print
......."
if W=8 then goto 556 else goto TERUS2 556 .print "APAKAH MAU MELANJUTKAN ? (Y/N)"; 557 K$=inkey$:if K$="" then goto 557 if K$="NV OR X$="nn or K$="YV or kS="yn then goto A57 else goto 556
......
A57: if K$="NU or K$="n" then stop TERUS2 : 'Menentukan TMOL for I=W-8 to W-1 if 1=0 then I=49 Gede=lE+lO
beep
Lampiran 3.
14
Lanjutan
Baris=O for J=1 to 8 if KOs(J,I)>=Gede then goto 14 Baris=J Gede=Kos(J,I) next J B=Kos(Baris,I) for J=l to 8 Kos(J,I)=Kos(J,I)-B next J if I=49 then I=0 next I print:print print "TABEL TERAKHIR print print tab(lO)"--------------------------------------------------sv print tab(1O)"SALESMAN WILAYAH " print print tab(20)" 19';tab(25);" ZW;tab(32);" 3";tab(39);" 4"; print tab(46);" 5";tab(53);" 6";tab(60);" 7";tab(67);" 8" print tab(lQ)"--------------------------------------------------os for J=1 to 8 print tab(l2);J;tab(l8);Kos(J,W-8); print tab(25);Xos(J,W-7);tab(32);Xos(J,W-6);tab(39);Kos(J,W-5); print tab(46);Kos(J,W-4);tab(53);Kos(~,w-3); print tab(60);Kos(J,W-2);tab(67);Kos(J,W-1) next J tab(lo)"--------------------------------------------------tv print
....... . V!
if TANDA=2 then goto KETIGA if W=8 then goto 5562 else goto TERUS3 5562 print "APAKAH MAU MELANJUTKAN ? (Y/N)"; 5572 K$=inkey$:if k$="" then goto 5572 if K$="Nn OR K$="nn OR k$="Y" or k$="yVthen goto A572 else beep goto 5562
.......
A572: if K$="NV OR k$="n" then stop TERUS3 : for J=1 to 8 for I=W-8 to W-1 if 1=0 then 1=49 if Kos(J,I)i>O then Tanda=2:goto KEDUA if I=49 then 1=0 next I next J
Lampiran 3.
101
Lanjutan
for S=W-8 to W-1 if S<=0 then A=49+S:Tipu(S)=A :'goto 101 Tipu(S)=S print "TIPU(S)=";Tipu(S) next S KESATU : for J=1 to 8 for I=W-8 to W-1 OK(J,I)=Mobil(J)-Kaptot(1)
Sok(J,I)=int(Ok(J,I)) if Sok(J,I)
Sok(J,I)=int(Ok(J,I)) if SOk(J,I)
....."
KETIGA : for J=1 to 8 No1 (J)=O . for I=W-8to W-1 if 1=0 then I=49 if Xos(J,I)<>O then goto 1313 Nol(J)=Nol(J)+l if I=49 then 1=0 1313 next I next J Besar-4000 for J=1 to 8 if Nol(J)=3 then got0 TUKER for I=W-8 to W-1 if 1=0 then I=49
Lampiran
3.
Lanjutan
if Kos(J,I)=O then Knol=I:Bno1=J:goto 1414 if Kos(J,I)>Besar then goto 1414 Bar=J Kol=I Besar=Kos(Bar,Kol) if I=49 then 1=0 1414 next I C=Besar 1616 next J for J=4 to 8 for I=W-8 to W-1 if 1=0 then I=49 if Kos(J,I)=O then goto 151 Kos(J,I)=Kos(J,I)-C if I=49 then 1=0 151 next I next J for J=1 to 3 for I=W-8 to W-1 if 1=0 then I=49 if Kos(J,I)=O then goto 1717 Kos(J,I)=Kos(J,I)+C if I=49 then 1=0 1717 next I next J if W=8 then goto 558 else goto TERUS4 558 print "APAKAH MAU MELANJUTKAN ? (Y/N)" 559 K$=inkey$:if K$="" then goto 559 if K$="NV OR K$="n0'or K$="Ym or ~ $ = " y "then goto A59 else goto 558
..
beep
A59: if K$="N" or K$="nm then stop TERUS4 : print:print " SEBELUM SWAP " print tab(lo)"--------------------------------------------------,,
print tab(l0)"SALESMAN WILAYAH " print tab(20)"--------------------------------------------------0t print tab(20)" Y3;tab(25);" Zn;tab(32);" 3";tab(39);" 4"; print tab(46);" 5";tab(53);" bM;tab(60);" 7";tab(67);" 8" print tab(lO)"--------------------------------------------------,c for J=I to 8 print tab(lZ);J;tab(l8);Kos(J,W-8); print tab(25);Kos(J,W-7);tab(32);Kos(J,W-6);tab(39);~os(~,w-5);
Lampiran 3 .
Lan j u t a n
print tab(46);Kos(J,W-4);tab(53);Kos(J,W-3); print tab(6O);Kos(J,W-2);tab(67);Kos(J,W-1) next J print tab(lo)"--------------------------------------------------,, print if W=8 then goto 5581 else goto TERUS5 5581 print "APAKAH MAU MELANJUTKAN ? (Y/N)" 5591 K$=inkeyS:if KS="" then goto 5591 if K$="Nn OR K$="nU or KS="YU or k$="y9'fhen goto A591 else beep goto 5581
.......
A591: if K$="NV or k$="nn then stop TUKER : for J=l to 8 for I=W-8 to W-1 if 1=0 then I=49 if Kos(J,I)oO then goto 2626 Nero(J)=Nero(J)+l if I=49 then 1=0 2626 next I next J for J=l to 8 for I=W-8 to W-1 if 1=0 then I=49 if Nero(J)<=Nero(J+l) then goto 3838 if I=49 then 1=0 3838 next I next J print:print "SESUDAH SWAP " print print tabflO)"--------------------------------------------------*s print tab(1O)"SALEsm~ WILAYAH " print tab(20)"--------------------------------------------------,~ . print tab(20)" lU;tab(25);" Zn;tab(32);" 3";tab(39);" 4-3; print tab(46);" SV;tab(53);" 6";tab(60);" 7";tab(67);" 8" print tab(lO)"--------------------------------------------------,, for J=1 to 8 print tab(12);J;tab(lB);Kos(J,W-8); print tab(25);Kos(J,W-7);tab(32);Kos(J,W-6);tab(39);~os(~,w-5); print tab(46) ;Kos(J,W-4);tab(53) ;Kos(J,W-3); print tab(60);Kos(J,W-2);tab(67);Kos(J,W-1) next J print tab(lO)fl--------------------------------------------------,, print
Lampiran 3 .
5582 5592
Lanjutan
if W=8 then goto 5582 else goto TERUS6 print "APAKAH MAU MELANJUTKAN ? (Y/N)" K$=inkey$:if K$="" then goto 5592 if K$="NW OR K$="nn or K$="Ym or K$="yW then goto A592 else beep goto 5582
. .. . ..
A592: if K$="NW or K$="nn then stop TERUS6 : for J=1 to 8 for I=W-8 to W-1 if 1=0 then I=49 if Kos(J,I)<>O then goto 2727 2345
2727
7771
Besar=Kos (3,I ) Idle(J)=Sel(J,I) Knol (J)=I if I=49 then 1=0 next I for K=l to 8 Kos(K,Knol(J))=3000 next K next J Totid=O for J=1 to 8 Totid=Totid+Idle(J) next J print "TOTAL IDLE
=
";Totid
for J=1 to 8 print "MOBIL ";J;"=";Knol(J) Truk(Hari,J)=Knol(J) next J got0 TUNGTUNG KHUSUS : Gede=5000 for J=l to 3 for I=W-8 to W-1 if 1=0 then I=49 if Kos(J,I)=O then goto 661 if Kos(J,I)>GEDE then goto 661 Gede=Kos (J,I) Bark=J K0lk=I if I=49 then 1=0
Lampiran 3 . 661
Lanjutan
next1 next J Olet(Kolk)=Olet(Kolk)-1 Tok(Kolk)=Tok(Kolk)-1 print "JUMLAH OTLET =";Olet(Kolk)
if W=8 then goto 5583 else goto TERUS7 5583 print "APAKAH AKAN MELANJUTKAN ? (Y/N)" 5593 K$=inkey$:if K$="" then goto 5593 if K$="NW OR K$="nn or K$="Ym or k$="yU then goto A593 else beep goto 5583
...
A593: if K$="NV or K$="nm then stop TERUS7 : Jurnns(Kolk)=Jumns(Kolk)-nutsun(Kolk,Tok(olk)+l)
-
Kapns(Kolk)=Jumns(Kolk)*l.035 Jumsku(Kolk)=Jumsku(Kolk)-skubi(Kolk,Tok(Kolk)+l) Jumpop(Kolk)=Jumpop(Kolk)-popsy(Kolk,Tok(Kolk)+l) Kapsku(Kolk)=Jumsku(Kolk)*0.66 Kapop(Kolk)=Jumpop(Kolk)*l.l Jurnnip(Kolk)=Jumnip(Kolk)-nipa(Kolk,Tok(Kolk)+l) Kapnip(Kolk)=Jumnip(Kolk)*2.277 Jumgb(Kolk)=Jumgb(Kolk)-Gebe(Kolk,Tok(Kolk)+l) Kapgb(Kolk)=Jumgb(Kolk)*l.8 Jumkp(Kolk)=Jumkp(Kolk)-KP(Kolk,Tok(Kolk)+l) Kapkp(Kolk)=Jumkp(Kolk)*1.8 Jumlck(Kolk)=Jumkk(Ko1k)-Kaka(Kolk,Tok(Kolk)+l) Kapkk(Kolk)=Jumkk(Kolk)*2.484 Jumpal(Kolk)=Jumpal(Kolk)-Pal(Kolk,Tok(Kolk)+l) Kappal(Kolk)=Jumpal(Kolk)*1.32 Jumip(Kolk)=Jumip(Kollc)-Ipe(Kcllr,Tok(Kolk)+l) Kapip(Kolk)=Jumip(Kolk)*1.5 Jumcr(Kolk)=Jumcr(Ko1k)-Coro(Kolk,Tok(Kolk)+l) Kapcr(Kolk)=Jumcr(Kolk)*O.345 Kaptot(Kolk)=Kapns(Kolk)+Kapop(Kolk)+Kapsku(Kolk)+Kapnip(Kolk)+ Kapgb(Kolk)+Kapkp(Ko1k)+Kapkk(Kolk)+Kappal(Kolk)+Kapip(Kolk)+ Kapbul(Kolk)+Kapbur(Kolk)+Kapsat(Kolk)+Kapdua(Kolk)+Kaplim(Kolk)
goto MOBIL TABEL print print print print print print
:
"TABEL HEURISTIK
......":print:print
tab(l0)"--------------------------------------------------s*
tab(1O)"SALESMAN WILAYAH " tab(20)"--------------------------------------------------rr
Lampiran 3.
Lanjutan
print tab(20)" ln;tab(25);" ZW;tab(32);" 3";tab(39);" 4"; print tab(46);" 5";tab(53);" 6";tab(60);" 7";tab(67);" 8" print tab(lO)"--------------------------------------------------vs for J=1 to 8 print tab(l2);J;tab(lE);Kos(J,w-8); print tab(25);Kos(J,W-7);tab(32);Kos(J,W-6);tab(39);Kos(J,w-5); print tab(46);Kos(J,W-4);tab(53);Kos(J,w-3); print tab(60);Kos(J,W-2);tab(67);Kos(J,W-1) next J print tab(l0)"-----------------------------------------l--------rc print RISTIK : for S=W-8 to W-1 if S<=0 then A=49+S:Tipu(S)=A Tipu(S)=S 50
222 22
33
44
:goto 50
print "TIPU(S)=";Tipu(S) next S H=O for J=1 to 8 Besar=lE+15 S=W-8 if S>O then goto 222 A=49+S Tipu(S)=A Hitung=l W=Tipu (S) if Sok(J,W)>=Besar then goto 33 Truk(Hari,J)=W Idle(J)=Sok(J,W) Besar=Sok(J,W) S=S+1 Hitung=Hitung+l if Hitung<=8 then goto 22 for H=l to 8 Sok(H,Truk(Hari,J))=lE+ZO next H W=W+l next J for J=l to 8 Totid=Totid+Idle(J) next J TUNGTUNG: for J=l to 8 print "WILAYAH TRUK ";J;"=";Truk(Hari,J) next J
Lampiran 3.
Lanjutan
print print "TOTAL IDLE =";Totid print "W =";W if W=8 then goto 601 else goto TERUS8 601 print "APAKAH AKAN MELANJUTKAN ? (Y/N)" 602 K$=inkey$:if K$="" then goto 602 if K$="NW OR K$="nn or K$="Y" or K$="yU then goto A62 else goto 601
...
beep
A62: if K$="N" or K$="nV'then stop TERUS8 : open "IW,12,"SALES.DAT for 1=1 to Jumsal input#12, Nama$(I) next I MENU AKHIR : Key off:color 7,O:cls pil$(l)=" 1. CETAK FORMULIR PENJUALAN pi1$(2)=" 2. CETAK FORMULIR PENGAMBILAN BARANG " pi1$(3)=" 3. CETAK JADAWAL gosub GARIS :gosub TULIS color 14,l:locate 23,l print " Tekan tomb01 panah untuk memilih atau Escape untuk keluar " color 0,3:locate 10,ZO:print pil$(l) Posisi=lO AA90 : T$=inkey$:if T$="" then AA90 Tekan%=O if len(T$)=2 then Tekan%=asc(Right$(T$,l)) if Tekan%=72 and Posisi=lO then Posisi=12 :gosub TULIS . color 0,3:locate ?osisi,20 print pil$(Posisi-9):goto A4140 if Tekan%=72 and Posisi>lO then Posisi=Posisi-1:gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9) : goto AA140 if Tekan%=80 and Posisi=12 then Posisi=lO :gosub TULIS color 0,3:locate Posisi,20 print pil$(Posisi-9):goto AA140 if Tekan%=80 and posisi
then Posisi=Posisi+l:gosub TULIS color 0,3: locate Posisi,20 print pil$(Posisi-9):goto AA140
Lampiran 3.
Lanjutan
AA140 : if T$=CHR$(13) then AA160 if T$=CHR$(27) then color 7,O:cls:end goto AA90 AA160 : on Posisi-9 got0 CETAKl,CETAK2,JADWAL end TULIS: color 15,l for I=l to 3 :locate I+9,20:print pil$(I):next I return GARIS : color 15,l locate 9,18:print " for 1=1 to 3 locate 1+9,18:print " next I locate 13,lE:print " return
I
1
11
cetakl : 2227 J=O for I=W-8 to W-1 if 1=0 then I=49 J=J+1 cls 'A=I-(8*(Hari-1)) Tuju(I)=Truk(Hari,J) print print "WILAYAH :";Wil$(Tuju(I)) print "SALESMAN :";Nama$(I) print "----------------------------------------------------------,, print " OUTLET PRODUK YANG DIANGKUT" print " _____________--------------------------------~~ print " NS PO SK NC GB KP KK P IP CR BULK JLt 1Lt 2Lt" print -------------------------------------------------------------r! for H=l to Tok(Tuju(1)) print " TOKO ";Nomtok(Tuju(I),H);tab(l5);nutsun(Tuju(I),H); print tab(l9);popsy(Tuju(I),H);tab(23);skubi(Tuju(I),~); print tab(27);nipa(Tuju(I),H);tab(3l);gb(Tuju(I),H); print tab(35);kp(Tuju(I),H);tab(39);Kaka(Tuju(I),~); print tab(43);PAL(Tuju(I) ,H);tab(47);Ipe(Tuju(I),H); print tab(Jl);Coro(Tuju(~),~) next H for H=l TO Hot(Tuju(1)) print " HOTEL ";Nomhot(Tuju(I),H);tab(l5);" -";
Lampiran 3 .
Lanjutan
print tab(l9);" -";tab(23);" -";tab(27);" -";tab(31);" -"; print tab(35);" -";tab(39)iU -";tab(43);" -";tab(47);" -"; print tab(51);' -";tab(55);Jubul(Tuju(I),H); print tab(61);" -";tab(66)jn -" next H for H=l to Res(Tuju(1)) print "RESTORAN ";Nomres(Tuju(I),H);tab(l5);" -"; print tab(l9);" -";tab(23);" -";tab(27);w -";tab(31);" -"; print tab(35);" -";tab(39);" -";tab(43);" -";tab(47);" -"; print tab(51);" -";tab(55);Jubur(Tuju(I),H); print tab(61);Julim(Tuju(I),H) next H for H=l to Sup(Tuju(1)) print " S.MARKET";Nomsup(Tuju(I),H);tab(lS);" -"; print tab(l9);" -";tab(23);" -";tab(27);" -";tab(31);" -"; print tab(35);" -";tab(39);" -";tab(43);" -";tab(47);" -"; print tab(51);" -";tab(55);" -"; print tab(61);"-";tab(66);Jusat(Tuju(I)iH); print tab(71);Judua(Tuju(I),H) next H print print "TOTAL ";tab(15);Jumns(Tuju(I));tab(19);Jumpop(Tuju(I)); print tab(23);Jumsku(Tuju(I));tab(27);Jumnip(Tuju(I)); print tab(31);Jumgb(Tuju(I));tab(35);Jumkp(Tuju(I)); print tab(39);Jumkk(Tuju(I));tab(43);Jumpal(Tuju(I)); print tab(47);Jumip(Tuju(I))tab(S1);Jumcr(Tuju(I)); print tab(55);Jumbul(Tuju(I));tab(61);Jurnlim(Tuju(I)); print tab(66);Jumsat(Tuju(I));tab(71);Jumdua(Tuju(I)) print "-----------------------------------------------------------,% print "----------------------------------------------------------,?
if W=8 then goto 603 else goto CETAK2 603 print "MAU NERUSIN NGGAK (YJN)" 604 K$=inkey$:if K$="" then goto 604 if K$="N" OR K$="nU or K$="Y0'or K$="yU then gotoA64 else .beep goto 603
.......
A64: if K$="YW OR K$="yW then goto cetak2 stop cetak2 : cls: 'A=I-(8*(Hari-1)) 2228 AS= -###.##" print "SALESMAN :";NAMA$(I) print "WILAYAH TUJUAN :";Wil$(Tuju(I)) print "JUMLAH OUTLET YANG DITUJU :";Olet(Tuju(I)) print
Lampiran 3 .
Lanjutan
print "------------------------------------------------*, print " PRODUK JUMLAH YANG DIANGKUT " --------------------------------rv print " print tab(25);"UNIT";tab(33);"BERAT (Kg)" print "------------------------------------------------,* print " NUT SUNDAE ";tab(25);Jumns(Tuju(I)); print tab(35);using AS;Kapns(Tuju(I)) print " POPSY ";tab(25);Jumpop(Tuju(I)); print tab(35);using AS;Kapop(Tuju(I)) print " SKUBIDU ";tab(25);~umsku(~uju(1)); print tab(35);using A$;Kapsku(Tuju(I)) print " NIPPA CUP ";tab(25);Jumnip(Tuju(1)); print tab(35);using A$;Kapnip(Tuju(I)) print " GREEN BEAN ";tab(25);Jumgb(Tuju(I)); print tab(35);using AS;Kapgb(Tuju(I)) print " KOOLA POLE ";tab(25);Jumkp(Tuju(I)); print tab(35);using A$;Kapkp(Tuju(I)) print " KOOLA KREAM";tab(25);Jumkk(Tuju(I)); print tab(35);using A$;Kapkk(Tuju(I)) print " PALS ";tab(25);Jumpal(Tuju(I)); print tab(35);using AS;Kappal(Tuju(I)) print " ICY POLE ";tab(25);Jumip(Tuju(I)); print tab(35);using AS;Kapip(Tuju(I)) print " BULK ";tab(25);Jumbul(Tuju(I)); print tab(35);using AS;Kapbul(Tuju(I)) print " LIMA LITER ";tab(25);Jumlim(Tuju(I)); print tab(35);using AS;Kaplim(Tuju(I)) print " SATU LITER ";tab(25);Jumsat(Tuju(1)); print tab(35);using A$;Kapsat(Tuju(I)) print " DUA LITER " ;tab(25);Jumdua(Tuju(I)); print tab(35);using AS;Kapdua(Tuju(I)) print "------------------------------------------------,print " KAPASITAS TOTAL";tab(35);using AS;Kaptot(Tuju(I)) print "------------------------------------------------,?
505 506
777
'if HARI<=6 then goto 777 - i f W=8 then got0 605 else got0 BUNTUT print "APAK4H AKRN MELANJUTKAN .. ? (Y/N)" KS=inkeyS:if KS=",,then goto 606 if KS="Nn OR K$="nm or K$="Y" or K$="yW then goto A66 else goto 605
. . .. .
A66: if K$="NR OR KS="nU then stop if I=49 then 1=0 next I
beep
Lampiran 3 .
Lanjutan
BUNTUT : for L=W-8 to W-1 for 1=1 to 30 A=I+Tok(L) if A>Toko(L) then A=A-Toko(L):Norntok(L,I)=A:goto 888 Norntok(L,I)=Norntok(L,A) 388 next I for 1=1 to 30 A=I+Hot(L) if A>Hotel(L) then A=A-Hotel(L):Nornhot(L,I)=A:goto 999 Nornhot(L,I)=Nornhot(L,A) 399 next I for 1=1 to 30 A=I+Res(L) if A>Resto(L) then A=A-Resto(L):Nornres(L,I)=A:goto 1818 Nornres(L,I)=Nornres(L,A) 1818 next I
1919
for 1=1 to 30 A=I+Sup(L) if AzSuper(L) then A=A-Super(L):Nornsup(L,I)=A:goto 1919 Nornsup(L,I)=Nornsup(L,A) next I next L Hari : Hari=Hari+l if W>49 then W=l:goto TUTUP if Hari>Jdwl then goto JADWAL Dalap=l goto AWAL
2220
JADWAL : print print " SALESMAN" "-----------------------------------------------------------,, . print " HARI SUNARDI HENGKY NISWAN TAUFIK " print for H=3 to Hari-1 print H;tab(lO);Wil$(Truk(H,l));tab(22);Wil$(Truk(H,2)); print tab(35);Wil$(Truk(H,3));tab(SO);Wil$(Truk(H,4)) next H print print *-----------------------------------------------------------** "-----------------------------------------------------------#?
"-----------------------------------------------------------S?
Lampiran 3.
Lanjutan
print:print:print print -------------------------------------------------------------, print " SALESMAN" print ------------------------------------------------------------*, print " HARI TAMIN ASSARI SUWARNO EKO" print n-----------------------------------------------------------*s print for H=l to HARI-1 print H;tab(lO);Wil$(Truk(Hr5));tab(22);Wi1$(Truk(H,6)); print tab(35);Wil$(Truk(H,7));tab(SO);Wil$(Truk(H,8)) next H print print "-----------------------------------------------------------,? STOP wend wend wend wend wend wend wend wend wend wend wend wend TUTUP :
close close close close close close close close ciose close close close got0 MULAI
