PERANCANGAN SISTEM ESTIMASI WAKTU PADA PEMBUATAN PRODUK DI MESIN CNC DENGAN PENDEKATAN PROSES

LAPORAN TUGAS AKHIR

PERANCANGAN SISTEM ESTIMASI WAKTU PADA PEMBUATAN PRODUK DI MESIN CNC DENGAN PENDEKATAN PROSES (Studi Kasus: Unit Layanan Industri Universitas Muhammadiyah Surakarta)

Diajukan sebagai salah satu syarat guna memperoleh gelar sarjana pada Jurusan Teknik Industri Fakultas Teknik Universitas Muhammadiyah Surakarta

Disusun Oleh: AGUS SUDIRMAN D 600 030 002

JURUSAN TEKNIK INDUSTRI FAKULTAS TEKNIK UNIVERSITAS MUHAMMADIYAH SURAKARTA 2008

HALAMAN PENGESAHAN

PERANCANGAN SISTEM ESTIMASI WAKTU PADA PEMBUATAN PRODUK DI MESIN CNC DENGAN PENDEKATAN PROSES (Studi Kasus: Unit Layanan Industri Universitas Muhammadiyah Surakarta)

Tugas Akhir ini telah diterima dan disahkan sebagai salah satu syarat untuk menyelesaikan Studi S-1 untuk memperoleh gelar Sarjana Teknik Jurusan Teknik Industri Fakultas Teknik Universitas Muhammadiyah Surakarta. Hari

:

Tanggal

: Disusun Oleh : Nama : AGUS SUDIRMAN NIM

: D.600 030 002

NIRM : 01.6.106.03064.5.002 Jur/Fak : Teknik Industri/Teknik

Mengesahkan: Pembimbing I

Pembimbing II

(Hari Prasetyo, ST.MT)

(Ir. M Musrofi)

HALAMAN PERSETUJUAN PERANCANGAN SISTEM ESTIMASI WAKTU PADA PEMBUATAN PRODUK DI MESIN CNC DENGAN PENDEKATAN PROSES (Studi Kasus: Unit Layanan Industri Universitas Muhammadiyah Surakarta) Telah dipertahankan pada Sidang Pendadaran Tugas Akhir Jurusan Teknik Industri Fakultas Teknik Universitas Muhammadiyah Surakarta. Hari/ Tanggal : Jam

: Menyetujui:

Nama

TTD

1. Hari Prasetyo, ST. MT. (Ketua)

__________________

2. Ir. M. Musrofi (Anggota)

__________________

3. Eko Setiawan, ST. MT. (Anggota)

__________________

4. Much Djunaidi, ST. MT. (Anggota)

__________________ Mengetahui:

Dekan Fakultas Teknik

Ketua Jurusan Teknik Industri

Ir. H. Sri Widodo, MT

Munajat Tri Nugroho, ST, MT

MOTTO

Katakanlah: Dia-lah Allah, Yang Maha Esa. Allah Adalah Tuhan Yang Bergantung Kepada-Nya Segala Sesuatu. Dia Tiada Beranak Dan Tidak Pula Diperanakkan, Dan Tidak Ada Seorangpun Yang Setara Dengan Dia. (QS: Al-Ikhlas)

Tiada Akhir Yang Tak Pasti, Tiada Sayang Yang Tak Menyakiti, Satu Doa Dan Usaha Tak Akan Pernah Tenjawab. (Penulis)

Kekurangan Dapat Ditutupi Oleh Kelebihan, Setiap Kebaikan Tidak Dapat Digantikan Oleh Satu Kelebihan. (Penulis)

Temanmu-Kawanmu, Temanmu-Sahabatmu, Temanmu-Musuhmu, Di Saat Terakhir Semangat mu. (Penulis)

PERSEMBAHAN

Laporan ini kupersembahkan kepada:

¾ Semua Keluarga Ku Tercinta. ¾ Semua Teman-teman Ku. ¾ Semua Pembaca.

KATA PENGANTAR ÉΟŠÏm§9$# Ç⎯≈uΗ÷q§9$# «!$# ÉΟó¡Î0 Assalamu’alaikum Wr. Wb Segala puji bagi Allah SWT yang telah melimpahkan rahmat, taufik dan hidayah-Nya sehingga penulis dapat menyelesaikan penelitian dan penyusunan laporan Tugas Akhir dengan judul “Perancangan Sistem Estimasi Waktu Pada Pembuatan Produk di Mesin CNC Dengan Pendekatan Proses (Studi Kasus: Unit Layanan Industri Universitas Muhammadiyah Surakarta). Sebagai persyaratan untuk memperoleh gelar Sarjana Teknik di Jurusan Teknik Industri Fakultas Teknik Universitas Muhammadiyah Surakarta. Penulisan tugas akhir ini bisa berjalan dengan baik karena mendapat bantuan, dukungan dan dorongan dari berbagai pihak. Maka pada kesempatan ini dengan segala kerendahan hati dan rasa hormat, penulis mengucapkan terima kasih yang sebesar-besarnya kepada: 1. Bapak Ir. H. Sri Widodo, MT., Selaku Dekan Fakultas Teknik Universitas Muhammadiyah Surakarta. 2. Bapak Munajat Tri Nugroho, ST. MT., Selaku Ketua Jurusan Teknik Industri Fakultas Teknik Universitas Muhammadiyah Surakarta.

3. Bapak Hari Prasetyo, ST. MT., selaku pembimbing I yang telah bersedia meluangkan waktu untuk memberikan bimbingan, arahan, dan motivasi dalam penyusunan tugas akhir ini. 4. Bapak Ir. M. Musrofi Selaku pembimbing II yang telah bersedia meluangkan waktu untuk memberikan bimbingan, arahan, motivasi dalam penyusunan laporan tugas akhir ini. 5. Bapak dan Ibu Dosen Teknik Industri terima kasih atas petuah-petuahnya dan ilmunya. 6. Bapak Bambang dan Bapak Hari selaku pembimbing lapangan di Unit Layanan Industri. 7. Keluargaku tercinta yang telah memberi dukungan moral dan spiritual. 8. Semua pihak yang tidak dapat penulis sebutkan satu persatu yang telah membantu atas terselesainya laporan tugas akhir ini. Penulis menyadari dengan sepenuhnya bahwa penyusunan Tugas Akhir ini masih banyak kekurangan. Untuk menyempurnakan laporan Tugas Akhir ini penulis mengharapkan saran dan kritik demi perbaikan Tugas Akhir ini. Dan akhirnya, semoga laporan tugas akhir ini nantinya dapat bermanfaat untuk memperluas wawasan dan pengetahuan bagi kita semua. Wassalamu’alaikum Wr. Wb Surakarta,

Februari 2008

Penulis

DAFTAR ISI

HALAMAN JUDUL..........................................................................................

i

HALAMAN PENGESAHAN.............................................................................

ii

HALAMAN PERSETUJUAN ............................................................................

iii

MOTTO ..............................................................................................................

iv

PERSEMBAHAN ...............................................................................................

v

KATA PENGANTAR ........................................................................................

vi

DAFTAR ISI .......................................................................................................

viii

DAFTAR GAMBAR ..........................................................................................

xi

DAFTAR TABEL ...............................................................................................

xii

DAFTAR LAMPIRAN .......................................................................................

xiii

ABSTRAKSI ......................................................................................................

xiv

BAB I PENDAHULUAN 1.1 Latar Belakang Masalah ................................................................

1

1.2 Perumusan Masalah .......................................................................

2

1.3 Batasan Masalah ............................................................................

2

1.4 Tujuan Penelitian ...........................................................................

3

1.5 Manfaat Penelitian .........................................................................

3

1.6 Sistematika Penulisan ....................................................................

3

BAB II LANDASAN TEORI 2.1 Sistem.............................................................................................

5

2.2 Informasi ........................................................................................

6

2.3 Manajemen.....................................................................................

8

2.4 Sistem Informasi Manajemen ........................................................

8

2.5 Pengambilan Keputusan ................................................................

10

2.6 Waktu .............................................................................................

14

2.7 Tipe Proses Produksi Job Shop ......................................................

17

2.8 Make To Order...............................................................................

19

2.9 Sistem Basis Data ..........................................................................

20

2.10 Microsoft Visual Basic 6.0 ..........................................................

23

2.11 Tinjauan Pustaka .........................................................................

25

BAB III METODOLOGI PENELITIAN 3.1 Objek Penelitian .............................................................................

26

3.2 Menentukan Perumusan Masalah dan Tujuan Penelitian ..............

26

3.3 Metode Pengumpulan Data ............................................................

26

3.4 Perancangan Database Estimasi Waktu dengan Interface Visual Basic ...................................................................................

27

3.5 Mengevaluasi Rancangan Database ..............................................

28

3.6 Kesimpulan dan Saran ...................................................................

28

3.7 Kerangka Pemecahan Masalah ......................................................

29

BAB IV PERANCANGAN SISTEM PENDUKUNG KEPUTUSAN 4.1 Proses Permesinan Dalam Mesin CNC ........................................

33

4.2 Kompoenen dan Formulasi Penentuan waktu ...............................

33

4.3 Gambaran Sistem Penentuan Waktu Secara Umum ......................

37

4.4 Diagram Aliran ..............................................................................

37

4.5 Flow Chart Input Data Permesinan ...............................................

38

4.6 Flow Chart Input Proses Permesinan ............................................

39

4.7 Flow Chart Input Data Alat Potong ...............................................

40

4.8 Flow Chart Input Data Material ....................................................

41

4.9 Flow Chart Menentukan Waktu Proses Mill .................................

41

4.10 Flow Chart Menentukan Waktu Proses Drill..............................

42

4.11 Flow Chart Menentukan Waktu Proses Turn..............................

44

4.12 Perancangan Database ................................................................

45

4.13 Menu Program .............................................................................

49

BAB V ANALISA SISTEM DAN IMPLEMENTASI 5.1 Identifikasi Sistem dan Prosedur ...................................................

54

5.2 Analisis Sistem dan Prosedur ........................................................

54

5.3 Sistem Operasi Program ................................................................

56

5.4 Verifikasi Program .........................................................................

58

BAB VI PENUTUP58 6.1. Kesimpulan ....................................................................................

69

6.2. Saran ..............................................................................................

70

DAFTAR PUSTAKA LAMPIRAN

DAFTAR GAMBAR

Gambar 2.1 Siklus Pengolahan Data...................................................................

9

Gambar 3.1 Kerangka Pemecahan Masalah........................................................

29

Gambar 4.1 Sistem Penentuan Waktu Pembuatan Produk Secara Umum..........

37

Gambar 4.2 Diagram Aliran Sistem Produksi.....................................................

38

Gambar 4.3 Flow Chart Input Data Pemesan .....................................................

39

Gambar 4.4 Flow Chart Input Proses Permesinan ..............................................

40

Gambar 4.5 Flow Chart Input Data Alat Potong ................................................

40

Gambar 4.6 Flow Chart Input Data Material ......................................................

41

Gambar 4.7 Flow Chart Menentukan Waktu Proses Mill ..................................

42

Gambar 4.8 Flow Chart Menentukan Waktu Proses Drill .................................

43

Gambar 4.9 Flow Chart Menentukan Waktu Proses Turn .................................

44

Gambar 4.10 Menu Utama ..................................................................................

49

Gambar 4.11 Input Pemesanan ...........................................................................

49

Gambar 4.12 Input Proses Mill ...........................................................................

50

Gambar 4.13 Input Proses Drill ..........................................................................

50

Gambar 4.14 Input Proses Turn ..........................................................................

50

Gambar 4.15 Input Alat Potong Mill...................................................................

51

Gambar 4.16 Input Alat Potong Drill .................................................................

51

Gambar 4.17 Input Alat Potong Turn .................................................................

51

Gambar 4.18 Input Material ................................................................................

52

Gambar 4.19 Hasil Estimasi Waktu ....................................................................

52

Gambar 5.1 Menu Utama ....................................................................................

56

Gambar 5.2 Form Proses ....................................................................................

57

Gambar 5.3 Form Proses Permesinan .................................................................

58

Gambar 5.4 Form Pemesanan .............................................................................

58

DAFTAR TABEL

Tabel 2.1 Prinsip Dalam Mengelola Waktu ........................................................

16

Tabel 4.1 Pelanggan ............................................................................................

45

Tabel 4.2 Alat Potong Drill.................................................................................

45

Tabel 4.3 Alat Potong Mill ..................................................................................

46

Tabel 4.4 Alat Potong Turn.................................................................................

46

Tabel 4.5 Material ...............................................................................................

47

Tabel 4.6 Proses Mill ..........................................................................................

47

Tabel 4.7 Proses Drill .........................................................................................

48

Tabel 4.8 Proses Turn .........................................................................................

48

Tabel 5.1 Daftar Hasil Perhitungan.....................................................................

67

DAFTAR LAMPIRAN

Gambar Form Program Gambar Produk Ragum Kode Program Visual Basic

ABSTRAKSI

Penelitian ini dilakukan pada Unit Layanan Industri Universitas Muhammadiyah Surakarta yang merupakan sebuah Unit Layanan bergerak dibidang industri permesinan, dengan sistem produksi berbasis Make To Order. Kondisi saat ini waktu selesai produk pesanan dibuat hanya berdasarkan perkiraan. Dalam penelitian ini dirancang sistem pendukung keputusan untuk menghitung estimasi waktu produk, mengubah perhitungan yang bersifat manual atau perkiraan dengan perhitungan komputer. Perhitungan tersebut mengacu pada spesifikasi produk dan alat-alat potong yang digunakan, dimana dua hal tersebut digunakan untuk menghitung lama suatu proses permesinan. Selain itu dipertimbangkan juga beban mesin, waktu pesan bahan baku, ketersediaan gambar kerja, dan efisiensi mesin yang digunakan. Berdasarkan hasil implementasi pada kasus produk RAGUM-TI didapat waktu selesai 6331.28 menit atau 106 jam, dan produk tersebut dapat diselesaikan selama 16.5 hari dengan efisiensi mesin 80% dan jam kerja 8 jam perhari. Dengan adanya sistem pendukung keputusan yang dihasilkan dalam penelitian ini dapat meningkatkan kecepatan dan keakuratan proses estimasi oleh perusahaan.

Kata Kunci: Pesanan, CNC, Estimasi waktu, Teknologi komputer.

BAB I PENDAHULUAN

1.1 Latar Belakang Masalah Adanya kemajuan teknologi informasi yang menyebabkan pergeseran penggunaan teknologi dari tingkat sederhana menuju yang lebih modern. Dalam perusahaan terutama dibidang industri yang memerlukan informasi yang tepat dan akurat, sistem informasi sangat dibutuhkan dalam aktivitas perusahaan. Dengan sistem informasi yang sesuai dengan sistem operasional perusahaan maka segala aktivitas didalam perusahaan tersebut akan dapat dilaksanakan dengan efektif dan efisien. Komputer sebagai sebuah alat pengolahan data disamping fungsi-fungsi lainnnya sehingga dapat menghasilkan output atau keluaran yang berguna bagi sistem operasional perusahaan. Dengan menjalankan sistem informasi yang berbasiskan komputer, maka data yang masuk akan diolah dengan program yang dijalankan, dalam bentuk informasi yang diperlukan secara tepat, akurat dan mudah dalam pengaksesannya. Kebutuhan informasi pada suatu perusahaan yang sering menjadi permasalahan adalah informasi mengenai kapan suatu produk dapat diselesaikan. Permasalahan tersebut tentunya tidak bisa dibiarkan begitu saja karena akan mengacaukan perencanaan kegiatan yang ada, dengan kata lain akan dibutuhkan perencanaan jadwal kegiatan yang baru.

Berdasarkan latar belakang diatas penulis mencoba untuk melakukan sebuah penelitian di Unit Layanan Industri Universitas Muhammadiyah Surakarta yang berkaitan dengan waktu yang dibutuhkan untuk penyelesaian suatu produk dengan tujuan untuk mendapatkan solusi yang tepat yaitu dengan melakukan perancangan sistem informasi dimana mampu mengatasi masalah yang ada. Secara

lebih

terperinci

spesifikasi

mengenai

langkah-langkah

didalam

perancangan sistem informasi ini akan dijelaskan pada bab-bab berikutnya.

1.2 Perumusan Masalah Dengan adanya alasan diatas mengenai pentingnya penggunaan komputer dalam sistem informasi pengolahan data untuk memudahkan dalam penyelesaian masalah yang ada dalam instansi tersebut sehingga dapat dirumuskan sebagai berikut: “Perlunya dibuat suatu perancangan sistem informasi berbasis komputer yang dapat digunakan untuk sistem informasi yang efektif”.

1.3 Batasan Masalah Untuk memudahkan dalam pembahasan, maka perlu adanya pembatasan masalah, yaitu: 1. Lokasi penelitian hanya di Unit Layanan Industri Universitas Muhammadiyah Surakarta. 2. Sistem informasi berupa waktu yang dibutuhkan dalam pembuatan suatu produk di mesin CNC. 3. Program yang digunakan Visual Basic 6.0.

1.4 Tujuan Penelitian Tujuan dari penelitian ini adalah untuk: 1. Merancang sistem informasi berbasis komputer. 2. Merancang interface sistem informasi dengan program Visual Basic 6.0.

1.5 Manfaat Penelitian Manfaat dari penelitian adalah dapat digunakan oleh instansi untuk pengambilan keputusan berdasarkan informasi yang baru.

1.6 Sistematika Penulisan Sistematika penulisan laporan ini adalah sebagai berikut: BAB I PENDAHULUAN Berisikan tentang hal-hal yang melatarbelakangi tentang adanya penelitian yang dilakukan, baik itu tentaang rumusan masalah, batasan masalah, tujuan dan manfaat penelitian. BAB II LANDASAN TEORI Berisi tentang teori-teori yang mendukung penelitian yang dilakukan, sebagai dasar atau referensi. BAB III METODOLOGI PENELITIAN Berisi tentang metode atau cara yang dipakai dalam melakukan penelitian baik prosedur penelitian, alat yang digunakan dalam penelitian.

BAB IV PERANCANGAN SISTEM PENDUKUNG KEPUTUSAN Berisikan tentang data yang telah dikumpulkan dalam penelitian dan pengolahan data tersebut dan perancangan

dari sistem pendukung

keputusan tersebut. BAB V SISTEM OPERASI DAN IMPLEMENTASI Berisikan tentang penjelasan dari sistem yang dirancang dan verifikasi model yang telah dibuat. BAB VI PENUTUP Berisikan tentang kesimpulan dan saran dari penelitian yang dilakukan.

BAB II LANDASAN TEORI

2.1 Sistem 2.2.1 Definisi Sistem Sistem (system) dapat didefinisikan dengan pendekatan prosedur dan dengan pendekatan komponen. Dengan pendekatan prosedur, sistem dapat didefinisikan sebagai kumpulan dari prosedur-prosedur yang mempunyai tujuan tertentu. Dengan pendekatan komponen, sistem dapat didefinisikan sebagai kumpulan dari komponen yang saling berhubungan satu dengan yang lainnya membentuk satu kesatuan untuk mencapai tujuan tertentu. (Jogiyanto, 2003:34) Menurut Wahyudi dan Subando (1994: 8), Sistem dapat diartikan sebagai suatu kumpulan atau himpunan dari unsur, komponen, atau variabel-variabel yang terorganisasi, saling berinteraksi, saling tergantung satu sama lain dan terpadu. 2.2.2 Klasifikasi Sistem Suatu sistem dapat diklasifikasikan sebagai sistem abstrak (abstact system) lawan sistem fisik (physical system), sistem alamiah (natural system) lawan dari sistem buatan manusia (human made system), sistem pasti (deterministic system) lawan dari sistem probabilistik (probalistic

system), sistem tertutup (closed system) lawan dari sistem terbuka (open system). (Jogiyanto, 2003:53) 2.2.3 Karakteristik Sistem Suatu sistem mempunyai karakteristik. Karakteristik sistem adalah sebagai berikut (Jogiyanto, 2003:54): 1. Suatu sistem mempunyai komponen-komponen sistem (component) atau subsistem-subsistem. 2. Suatu sistem mempunyai batas sistem (boundary). 3. Suatu sistem mempunyai lingkungan luar (environment). 4. Suatu sistem mempunyai penghubung (interface). 5. Suatu sistem mempunyai tujuan (goal).

2.2 Informasi Informasi adalah data yang telah disusun sedemikian rupa sehingga bermakna dan bermanfaat karena dapat dikomunikasikan kepada seseorang yang akan menggunakannya untuk membuat keputusan. Syarat-syarat informasi yang baik adalah: (Wahyudi dan Subando, 1994:11). a. Ketersediaan (availability); Informasi harus dapat diperoleh bagi orang yang hendak memanfaatkannya. b. Mudah dipahami (comprehensibility);

Informasi harus mudah dipahami oleh pembuat keputusan, baik itu informasi yang menyangkut pekerjaan rutin maupun keputusan-keputusan yang bersifat strategis. c. Relevan; Informasi yang diperlukan adalah yang benar-benar relevan dengan permasalahan, misi, dan tujuan. d. Bermanfaat; Sebagi konsekuensi dari relevan, informasi harus bermanfaat. Oleh karena itu informasi

juga

harus

dapat

tersaji

ke

dalam

bentuk-bentuk

yang

memungkinkan pemanfaatan oleh organisasi yang bersangkutan. e. Tepat waktu; Informasi harus tersedia tepat waktunya. Syarat ini terutama sangat penting pada saat organisasi membutuhkan informasi untuk membuat keputusankeputusan yang krusial. f. Keandalan (reliability); Informasi harus diperoleh dari sumber-sumber yang dapat diandalkan kebenarannya. Pengolah data atau pemberi informasi harus dapat menjamin tingkat kepercayaan atas informasi yang diberikan. g. Akurat; Ini mengharuskan bahwa informasi bersih dari kesalahan dan kekeliruan. Ini berarti bahwa informasi harus jelas dan secara akurat mencerminkan makna yang terkandung dari data pendukungnya.

h. Konsisten; Informasi tidak boleh mengandung kontradiksi di dalam penyajiannya karena konsistensi merupakan syarat penting bagi dasar pengambilan keputusan.

2.3 Manajemen 2.2.1 Definisi Manajemen Sebagaimana diketahui bahwa fungsi manajemen terdiri dari perencanaan (planning), pelaksanaan (organizing), pengarahan (leading), dan pengawasan (controlling). (Kurniawan, 1998:23) 2.2.2 Tipe kegiatan manajemen Kegiatan manajemen dihubungkan dengan tingkatannya di dalam organisasi. Tingkatan manajemen dapat dibedakan menjadi tiga bagian yaitu: (Jogiyanto, 2003:61) a. Manajemen tingkat bawah (tingkat operasional), b. Manajemen tingkat menengah (tingkat taktik), dan c. Manajemen tingkat atas (tingkat stratejik). Kegiatan manajemen untuk masing-masing tingkatan dapat dikategorikan sebagai berikut: (Jogiyanto, 2003:61-62) a. Perencanaan stratejik (strategic planning), merupakan kegiatan manajemen tingkat atas. b. Pengendalian manajemen (management control), merupakan kegiatan manajemen tingkat menengah.

c. Pengendalian operasi (operational control), merupakan kegiatan manajemen tingkat bawah.

2.4 Sistem Informasi Manajemen Definisi dari sistem informasi manajemen adalah sebuah sistem manusia atau mesin yang terpadu untuk menyajikan informasi guna mendukung fungsi operasi, manajemen, dan pengambilan keputusan dalam suatu organisasi. (Kurniawan, 1998: 29) Sistem informasi masuk ke dalam klasifikasi sistem fisik, sistem buatan manusia, sistem pasti dan sistem terbuka. Sabagai sistem fisik, sistem informasi mempunyai komponen-komponen fisik. Sebagai sistem buatan manusia, karena dirancang dan dibuat oleh analis atau pemakai sistem. Sebagai sistem pasti karena hasil dari sistem ini yang berupa informasi merupakan hasil yang sudah dirancang dan sudah ditentukan sesuai dengan pemakainya. Sebagai sistem yang terbuka, karena sistem ini berhubungan dengan lingkungan luarnya. Lingkungan luar sistem informasi dapat berupa suatu di luar sistem informasi ini tetapi masih di lingkungan perusahaannya atau suatu di luar perusahaannya (Jogiyanto, 2003:54). Informasi merupakan output dari sebuah data yang diolah. Ini merupakan sebuah siklus yang biasa disebut dengan siklus pengolahan data (data processing life cycle) atau disebut juga dengan siklus informasi (information life cyle). Siklus tersebut dapat digambarkan sebagai berikut:

Data

Diolah

Informasi

INPUT

MODEL

OUTPUT

BASIS

Storage Gambar 2.1 Siklus pengolahan data Dari gambar di atas terlihat bahwa, untuk melakukan suatu siklus pengolahan data diperlukan tiga komponen, yaitu komponen input, komponen model, dan komponen output. Setelah melakukan pengembangan maka perlu adanya komponen tambahan yaitu komponen basis data yang mana fungsinya sebagai penyimpan data (Jogiyanto, 2003:40-41).

2.5 Pengambilan Keputusan 2.5.1 Definisi Keputusan Pengambilan keputusan adalah mengidentifikasi dan memilih serangkaian tindakan untuk menghadapi masalah tertentu atau mengambil keuntungan dari suatu kesempatan (Stoner, Dkk, 1996:239).

Suatu

keputusan yang baik adalah suatu keputusan yang membawa kepada hari depan yang disenangi oleh si pengambil keputusan, sedang keputusan yang tidak baik adalah suatu keputusan yang membawa hasil yang tidak menyenangkan. Sedang keputusan yang sehat adalah keputusan yang

diambil dengan sempurna, dengan mempertimbangkan sepenuhnya aspek yang relevan dari masalah (Manulang, 1986:5-6). Menurut Jogiyanto, pengambilan keputusan (decision making) adalah tindakan manajeman di dalam memilih alternatif untuk mencapai sasaran. Kegiatan dilaksanakan setelah keputusan diambil. Keputusan yang dilakukan manajer tingkat bawah sifatnya adalah rutin dan berulang-ulang yang disebut dengan istilah terprogram (programmed) atau keputusan terstruktur

(structured

decision).

Secara

ringkas,

keputusan

oleh

manajemen dapat diklasifikasikan kedalam tiga tipe, yaitu (Jogiyanto, 2003:66-67): 1. Keputusan tidak tersruktur (unstructured decision) adalah keputusan yang diambil tidak berulang-ulang dan tidak selalu terjadi. 2. Keputusan setengah terstruktur (semi-structured decision) adalah keputusan sebagian dapat diprogram, sebagian berulang-ulang dan rutin dan sebagian tidak tersruktur. Keputusan ini sering bersifat rumit dan membutuhkan perhitungan-perhitungan dan analisis yang terperinci. 3. Keputusan Tersruktur (structured decision) adalah keputusan yang berulang ulang dan rutin sehingga dapat diprogram. 2.5.2 Tahap-tahap mengambil keputusan Adapun tahap-tahap dalam mengambil suatu keputusan menurut Herbert

A.

Simon,

dimana

(http://komputasi.inn.bppt.go.id):

tahapan

tersebut,

yaitu

A. Kegiatan Intelijen Kegiatan ini merupakan kegiatan mengamati lingkungan untuk mengetahui kondisi-kondisi yang perlu diperbaiki. Kegiatan ini merupakan tahapan dalam perkembangan cara berfikir. Untuk melakukan kegiatan intelijen ini diperlukan sebuah sistem informasi, di mana sistem informasi yang diperlukan ini di dapatkan dari kondisi internal maupun eksternal sehingga seorang manajer dapat mengambil sebuah keputusan dengan tepat. B. Kegiatan Merancang Kegiatan merancangan merupakan sebuah kegiatan untuk menemukan, mengembangkan dan menganalisis berbagai alternatif tindakan yang mungkin untuk dilaksanakan. Tahapan perancangan ini meliputi perkembangan dan mengevaluasi serangkaian kegiatan alternatif. C. Kegiatan Memilih dan Menelaah Kegiatan memilih dan menelaah ini digunakan untuk memilih satu rangkaian kegiatan tertentu dari berbagai yang tersedia dan melakukan penilaian terhadap tindakan yang dipilih. 2.5.3 Sistem Pendukung Keputusan (DSS) Pada tahun 1980-an, suatu sistem yang dikenal dengan nama Sistem Penunjang Keputusan (SPK) atau Decision Support System (DSS) mulai dikenalkan oleh ilmuwan dari MIT (Massachussets Institute of

Technology) yaitu Michael S. Scott Morton, G. Anthony Gorry dan Peter G. W. Keen. Sistem pendukung keputusan (SPK) banyak diterapkan untuk manajemen tingkat menengah. DSS merupakan sistem interaktif dan adhoc untuk mendukung keputusan setengah terstruktur manajer-manajer tingkat menengah (Jogiyanto, 2003:13). Sistem Pendukung Keputusan atau Decision Support System dapat didefinisikan sebagai sistem informasi untuk membantu menajer level menengah untuk proses pengambilan keputusan setengah tersruktur supaya lebih efektif dengan menggunakan model-model analitis dengan data yang tersedia (Jogiyanto,2003:327). Decision support systems (DSS) merupakan kemajuan dari information reporting systems dan transaction processing systems. DSS adalah interaktif, sistem informasi berbasis komputer yang menggunakan model keputusan dan database khusus untuk membantu proses pengambilan keputusan bagi manajerial end users. Sebagai contoh, program kertas kerja elektronik memudahkan manajerial end user menerima respon secara interaktif untuk peramalan penjualan atau keuntungan (http://library.gunadarma.ac.id). 2.5.4 Tujuan Sistem Pendukung Keputusan (DSS) Dari definisi di atas, maka dapat diketahui tujuan dari DSS adalah sebagai berikut (Jogiyanto, 2003:327-328):

1. Membantu manajer mengambil keputusan setengah terstruktur yang dihadapi oleh manajer level menengah. 2. Membantu atau mendukung manajemen mengambil keputusan bukan menggantikannya. 3. Meningkatkan efektifitas pengambilan keputusan manajemen bukan untuk meningkatkan efisiensi. Walaupun waktu manajer penting (efisiensi), tetapi efektifitas merupakan tujuan utama penggunaan DSS. 2.5.5 Jenis-jenis dan fokus utama Decision Support System Jenis-jenis DSS menurut tingkat kerumitan dan tingkat dukungan pemecahan

masalahnya

adalah

sebagai

berikut

(http://komputasi.inn.bppt.go.id): 1. Mengambil elemen-elemen informasi. 2. Menganalisa seluruh file. 3. Menyiapkan laporan dari berbagai file. 4. Memperkirakan dari akibat keputusan. 5. Mengusulkan keputusan. 6. Membuat keputusan. Adapun fokus utama konsep DSS adalah computer harus digunakan untuk mendukung manajer tertentu membuat keputusan tertentu untuk

memecahkan

masalah

(http://komputasi.inn.bppt.go.id): 1. Model Matematika

tertentu.

Model

DSS

terdiri

dari

2. Database 3. Perangkat lunak

2.6 Waktu Waktu adalah sumber daya yang unik. Menurut A. Dale Timpe (1991: 85), waktu terbagi menjadi empat kategori yaitu: Waktu kreatif adalah waktu yang dipergunakan untuk merencanakan. Waktu persiapan adalah waktu yang dipergunakan untuk mempersiapkan kegiatan. Waktu produktif adalah waktu yang sebenarnya dipergunakan untuk melakukan pekerjaan. Waktu eksploitasi adalah waktu yang tersita untuk korespondensi dan membuat laporan. Waktu siklus adalah waktu penyelesaian satu satuan produksi sejak bahan baku mulai diproses ditempat kerja yang bersangkutan. (Sutalaksana, 1995: 122) Dalam pengelolaan waktu, menurut Mr. Rotenbury menggunakan model yang dibuat oleh Norris/Gottfried. Menjelaskan rincian penggunaan waktu yang seharusnya dilakukan seorang manajer dalam rata-rata satu hari kerja: (Timpe, 1991: 12) 1. Waktu pay-off: 50% dari rata-rata hari. Waktu ini adalah waktu yang digunakan manajer untuk beroperasi dalam bidang keahlian teknisnya. Termasuk pengambilan keputusan, medelegasikan, memecahkan masalah. 2. Waktu investasi: 25% dari rata-rata hari. Menentukan program jangka panjang, merencanakan dan mengembangkan

3. Waktu organisasi: 15% dari rata-rata hari. Waktu ini dimanfaatkan untuk tugas administrative. 4. Waktu terbuang: 10 dari rata-rata hari. Waktu yang didalamnya tidak termasuk kegiatan produktif. Dalam manajemen terdapat prinsip dalam mengelola waktu: (Timpe, 1991: 62)

Fungsi Merencanakan

Tabel 2.1 Prinsip dalam mengelola waktu Nama Prinsip Prioritas

Untuk mendapatkan hasil optimum, waktu yang ada harus dianggarkan dalam peringkat kepentingannya

Mengorganisasikannya Konsolidasi

Tugas

yang

dikelompokkan

serupa

hendaknya

untuk

penggunaan

waktu dan meniadakan tindakan yang berulang. Menempatkan staff

Orientasi

Semakin banyak seseorang mengetahui tentang pekerjaan dan lingkungannya, semakin

baik

pekerjaan

yang

dilakukan. Mengarahkan

Mendelegasikan Efektivitas

seorang

bervariasi

manajer

langsung

akan dengan

kemampuannya untuk mendelegasikan dengan efektif. Mengendalikan

Ketiadaan

Manajer yang merencanakan untuk

yang

masa konsentrasi tanpa gangguan akan

direncanakan

mencapai hasil yang lebih baik.

Berkomunikasi

Keringkasan

Menghemat

dalam

berkata

bertindak

melestarikan

dan waktu

sementara mendatangkan kejelasan dan pengertian. Membuat keputusan

Penundaan

Mengalihkan,

menunda

dalam

mengambil keputusan akan menjadi pemborosan

waktu,

hilangnya

kesempatan, menambah tekanan dan menimbulkan keadaan genting.

Menurut Terry menjelaskan bahwa dalam proses manajemen terdiri dari fungsi perencanaan, pengorganisasian, dan pengendalian. Dari prinsip mengelola waktu yang sebelumnya, berikut tambahan prinsip-prinsip dalam setiap fungsi dalam manajemen: (Timpe, 1991: 70-75) 1. Prinsip untuk perencanaan a. Prinsip analisis waktu b. Prinsip perencanaan harian c. Prinsip menjadwalkan menurut prioritas d. Prinsip keluwesan 2. Prinsip untuk mengorganisasikan a. Prinsip pendelegasian b. Prinsip segmentasi aktif c. Prinsip pengendalian gangguan d. Prinsip meminimalkan pekerjaan rutin

3. Prinsip untuk pengendalian a. Prinsip penerapan rencana dan tindak lanjut b. Prinsip analisis berulang

2.7 Tipe Proses Produksi Job Shop Suatu proses aliran intermiten (job shop) mempunyai ciri produksi dalam kumpulan-kumpulan atau kelompok-kelompok barang yang sejenis pada interval-interval waktu yang terputus-putus. Dalam hal ini, peralatan dan tenaga kerja diatur atau di organisasi dalam pusat-pusat kerja menurut tipe-tipe keterampilan atau peralatan yang serupa. Suatu produk atau pekerjaan akan mengalir hanya melalui pusat-pusat kerja yang diperlukan. Jadi, aliran bahan baku sampai dengan menjadi produk akhir tidak mempunyai pola yang pasti. Salah satu karakteristik pokok suatu proses intermiten adalah bahwa peralatan dan keterampilan kerja yang sama dikelompokkan pada suatu tempat (area), yang dikenal sebagai bentuk layout proses. Sebaliknya, aliran garis dikenal sebagai bentuk dikenal sebagai layout produk karena berbagai proses, peralatan, dan keterampilan kerja diletakkan atas dasar urut-urutan pengerjaan produk (Handoko, 1995:123-124). Sistem berdasarkan proses (Process-focused system) dengan permintaan terputus-putus harus fleksibel dan sesuai dengan tuntutan produk khusus, dan setiap bagian generik dan fasilitasnya digunakan secara terputus-putus sesuai kebutuhan pesanan khusus. Tataan fisik sebagian-sebagian berdasarkan tipe

generik seringkali dinamakan “kerja pesanan” (“job shop”) karena ia didesain untuk melayani kebutuhan dari pesanan kerja individual (Elwood & Rakesh,1996:25) Proses produksi proses ini merupakan suatu proses produksi dimana pelaksanaan pengolahan bahan baku sampai dengan menjadi produk akhir akan melalui suatu proses persenyawaan atau pemecahan. Dengan demikian pelaksanaanya proses produksi dalam perusahaan semacam ini akan lebih banyak ditentukan oleh sifat dari bahan baku dan atau bahan pembantu yang dipergunakan dalam proses produksi tersebut. Dalam proses produksi semacam ini ketelitian dan ketepatan dari proses persenyawaan maupun pemecahan yang dilaksanakan akan mempunyai pengaruh yang tidak kecil terhadap jalannya proses produksi dalam perusahaan yang bersangkutan tersebut (Ahyari, 1996:82).

2.8 Make to Order Industri berbasis make-to-order merupakan industri yang menunggu sebuah pesanan yang diterima dari seorang konsumen sebelum memulai membuat barang (Khalid, 2002:41). Job lot shop adalah merupakan perusahaanperusahaan yang akan melakukan produksi atas dasar pesanan yang masuk ke dalam perusahaan saja. Dengan demikian perusahaan-perusahaan semacam ini hanya akan berproduksi apabila terdapat pesanan yang masuk ke dalam perusahan yang bersangkutan. Seandainya tidak ada pesanan sama sekali ke

dalam perusahaan tersebut, maka secara teoritis perusahaan-perusahaan semacam ini tidak akan berproduksi, tidak terdapat kegiatan produksi dalam perusahaan yang bersangkutan. Di samping kegiatan produksi di dalam perusahaan semacam ini yang tergantung kepada ada tidaknya pesanan yang masuk, maka desain bentuk, ukuran, warna, dan komponen produk tersebut akan disesuaikan dengan selera dari pemberi order, pemesan atau konsumen (Ahyari, 1996:18). Jadi perusahaan akan menunggu konsumen untuk memesan atau membeli produk perusahaan yang kemudian dilakukan proses produksi untuk memenuhi kebutuhan konsumen tersebut. Sistem ini biasanya membutuhkan waktu lama karena harus mendesain dan melakukan proses produksi, namun kebutuhan akan gudang bisa dikurangi. Kebijakan produksi hanya menurut pesanan (to-order-policy) dapat menawarkan fleksibilitas desain produk kepada pelanggan, kebijakan ini juga meminimalkan resiko-resiko yang terkait dengan penyimpanan sediaan, serta memungkinkan pengendalian lebih ketat atas mutu, dan sebagainya (Elwood & Rakesh, 1996:27). Proses produksi untuk pesanan. Proses ini pada dasarnya memproduksi barang-barang atau jasa-jasa atas dasar permintaan atau pesanan tertentu langganan akan suatu produk. Dalam proses produksi untuk pesanan, kegiatankegiatan pemrosesan menyesuaikan dengan spesifikasi pesanan langganan secara individual. Spesifikasi produk yang dipesan biasanya tidak distandarisasikan.

Siklus perencanaan produksi dimulai pada saat langganan menentukan spesifikasi produk yang dia inginkan. Atas dasar-dasar pesanan langganan tersebut, perusahaan akan menetapkan harga dan waktu penyelesaian. Setelah pesanan diterima, perusahaan selanjutnya menentukan proses perakitan dan komponen-komponen atau proses produksi dan bahan-bahan yang diperlukan, alokasi pembebanan kerja tiap-tiap departemen, prioritas pesanan, skedul-skedul produksi, rencana proses dan sebagainya. Proses produksi berakhir dengan pengiriman produk ke langganan (Handoko, 1995:128)

2.9 Sistem Basis Data Basis data (Database) dapat dibayangkan sebagai sebuah almari arsip. Almari arsip memiliki atau menerapkan aturan tertentu tentang bagaimana keseluruhan arsip-arsip tersebut disusun. Yang paling sederhana adalah penempatan arsip-arsip tersebut sesuai kedatangannya atau kronologis dan tanpa pengelompokan (Fathansyah, 2001:1). Mungkin tidak terdapat satupun almari arsip perusahaan yang tidak menerapkan hal tersebut. Jadi, pada intinya almari arsip tersebut harusalah diorganisasi dengan baik agar tidak menyulitkan pihak perusahaan atau pemilik. 2.9.1 Definisi Basis Data Basis data terdiri dari 2 kata, yaitu basis dan data. Basis kurang lebih diartikan sebagai markas atau gedung tempat bersarang/berkumpul. Sedangkan data adalah representasi dari fakta dunia nyata yang mewakili

suatu obyek seperti manusia (pegawai, siswa, pembeli, pelanggan) barang, hewan, peristiwa, konsep, keadaan, dan sebagainya yang terekam dalam bentuk angka, huruf, simbol, teks, gambar, bunyi, atau kombinasinya. Basis data sendiri dapat didefinisikan dalam sejumlah sudut pandang, seperti: (Fathansyah, 2001:2) 1. Himpunan kelompok data (arsip) yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfatkan kembali dengan cepat dan mudah. 2. Kumpulan data data yang saling berhubungan yang disampaikan secara bersama-sama sedemikian rupa dan tanpa pengulangan (redundansi) yang tidak perlu, untuk memenuhi kebutuhan. 3. Kumpulan file/tabel/arsip yang saling berhubungan yang disimpan dalam media penyimpanan elektronis. 2.9.2 Tujuan Pemanfaatan Basis Data Pemanfaatan basis data dilakukan untuk memenuhi tujuan (obyektif) seperti berikut ini (Fathansyah, 2001:4-6): 1. Kecepatan dan kemudahan (speed). Pemanfaatan basis data memungkinkan kita untuk dapat menyimpan dataatau

melakukan

perubahan/manipulasi

terhadap

data

menampilkan kembali data tersebut dengan lebih cepat dan mudah. 2. Efisiensi ruang penyimpanan (Space).

atau

Dengan melakukan pengkodean data maka penggunaan space atau ruangan dalam disc bisa ditekan atau dikurangi. 3. Keakuratan (Accuracy) Pemanfaatan pengkodean atau pembuatan relasi antar data bersama dengan penerapan aturan atau batasan akan sangat berguna untuk menekan ketidakakuratan pemasukan/penyimpanan data. 4. Ketersediaan (Availability) Data yang disimpan sebagai persediaan untuk dipanggil ulang yang tidak atau jarang digunakan dapat dihapus dan digantikan dengan data yang baru sehingga ketersediaan terhadap data baru selalu ada. 5. Kelengkapan (Completeness). Kelangkapan data yang dikelola dalam basis data bersifat relatif sesuai dengan kebutuhan pemakai. Namun basis data dapat menyimpan data sangat banyak sehingga lebih lengkap. 6. Keamanan (Scurity). Untuk sistem basis data yang besar dan serius biasanya aspek keamanan diterakan dengan ketat. 7. Kebersamaan pemakaian (Sharability). Pemakai basis data seringkali tidak terbatas pada satu pemakai atau satu lokasi saja atau oleh satu sistem saja.

2.10 Microsoft Visual Basic 6.0

Micosoft Visual Basic 6.0 merupakan salah satu dari berbagai bahasa pemrograman yang digunakan untuk menyusun paket program aplikasi berbasis windows dengan metode grafis (GUI-Graphic User Interface) dan menggunakan bahasa pemrograman BASIC sebagai dasarnya. Microsoft Visual Basic 6.0 menyediakan fasilitas yang memungkinkan untuk menyusun sebuah program dengan memasang obyek-obyek grafis dalam sebuah form. Selain itu microsoft visual basic 6.0 juga menawarkan berbagai kemudahan dalam mengelola sebuah database. Kemudahan ini masih ditambah lagi dengan tersedianya sarana dan peranti lengkap (Madcom, 2005:1). Komponen dalam Microsoft Visual Basic 6.0 dirancang untuk memudahkan pengguna dalam merancang program, komponen ini telah mengalami perbaikan dari versi sebelumnya. Komponennya didalamnya yaitu (Madcom, 2005:5-17): 1. Title bar, merupakan batang judul dari program Visual Basic 6.0 yang terletak pada bagian paling atas dari jendela program. 2. Menu bar, merupakan batang menu yang terletak di bawah title bar yang berfungsi untuk menampilkan pilihan menu atau perintah untuk menjalankan program Visual Basic 6.0 saat pertama kali jendela program dibuka dapat terlihat tiga belas menu utama, yaitu: File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help. 3. Toolbar, merupakan sebuah batang yang berisi kumpulan tombol yang terletak di bawah menu bar yang dapat digunakan untuk menjalankan suatu

perintah. Pada kondisi default, program visual basic hanya menampilkan toolbar standard. 4. Toolbox, merupakan kotak yang berisi kumpulan tombol obyek atau kontrol untuk mengatur desain dari aplikasi yang akan dibuat. Pada kondisi default, toolbox hanya menampilkan tabulasi general dengan 21 tombol kontrol. 5. Project, merupakan suatu kumpulan module atau merupakan program aplikasi sendiri. Dalam Visul Basic, file project disimpan dengan nama file berakhiran .VBP, dimana file ini berfungsi untuk menimpan seluruh komponen program. 6. Properties Window, merupakan sebuah jendela yang digunakan untuk menampung nama property control yang terpilih. Pengaturan property pada program visual basic merupakan hal sangat penting untuk membedakan obyek yang satu dengan yang lainnya. 7. Form layout Wondow, merupakan jendela yang digunakan untuk mengatur posisi form saat program dijalankan. 8. Immediate, merupakan jendela yang digunakan untuk mencoba beberapa perintah dengan mengetikkan baris program dan dapat langsung melihat hasilnya. 9. Form Window, merupakan jendela desain dari sebauah program aplikasi. 10. Code Windows, merupakan jendela yang digunakan untuk menulisakan kode program dari control yang dipasang pada jendela form dengan cara memilih terlebih dahulu control pada kotak obyek.

11. Event, merupakan suatu kejadian yang akan diterima oleh suatu obyek. Event yang diterima oleh obyek berfungsi menjalankan kode program yang ada dalam obyek tersebut. 12. Method, suatu kumpulan perintah yang memiliki kegunaan yang hampir sama dengan suatu fungsi atau prosedur. 13. Module memiliki fungsi yang sama dengan form, tetapi module tidak berisi obyek dan bentuk standar. Selain itu, module berisi kode program atau prosedur yang dapat digunakan oleh program aplikasi.

2.11 Tinjauan pustaka Pada Tesis Magister Teknik dan Manajemen Industri, bidang khusus Teknik Industri (www.digilib.itb.ac.id) dengan judul “Model Penentuan Harga Dan Waktu Produksi Order Pada Perusahaan Make-To-Order Job-Shop Dengan Mempertimbangkan Order Kontingensi”. Pada penelitian tersebut perhitungan estimasi harga dan waktu produksi diperoleh dari proses pengolahan bahan baku sampai pengiriman. Dimana perhitungannya mempertimbangkan semua sumber daya yang ada pada perusahaan. Sedangkan penelitian ini pada perusahaan Make-To-Order Job-Shop, perhitungan waktu produksi difokuskan pada proses pembuatan produk di mesin CNC.

BAB III METODOLOGI PENELITIAN

3.1 Objek Penelitian Objek atau tempat penelitian dilakukan di Unit Pelayanan Industri Jurusan Teknik Mesin, Fakultas Teknik, Universitas Muhammadiyah Surakarta. Yang beralamat di Jln. A Yani Tromol Pos 1, Pabelan, Surakarta.

3.2 Menentukan Perumusan Masalah dan Tujuan Penelitian Dari hasil studi pendahuluan tersebut maka dirumuskan masalahnya dan kemudian ditentukan tujuan yang ingin dicapai dalam penelitian.

3.3 Metode Pengumpulan Data 3.3.1 Data Primer Data Primer adalah data yang diperoleh dari sumber yang diamati dan dicatat pertama kali yang diperoleh secara langsung dari perusahaan yang bersangkutan dengan sistem pendukung, keputusan ini terdiri dari: 1. Data nama produk atau komponen 2. Data nama bahan baku 3. Data nama pahat 4. Sistem pemesanan sekarang

Adapun teknik pengumpulan data primer sebagai berikut antara lain: a. Observasi Dilakukan dengan langsung mengadakan penelitian dan pengamatan langsung terhadap objek yang diteliti. Data yang diperoleh adalah sistem pemesanan sekarang. b. Wawancara Merupakan suatu pengumpulan data dengan cara tanya jawab yang dilakukan penulis dengan pihak perusahaan. Untuk teknik ini data yang diperoleh adalah data nama produk, jenis bahan baku yang digunakan, jenis pahat yang digunakan. 3.3.2 Data Sekunder Data sekunder adalah data yang diperoleh dari luar perusahaan yang ada hubungannya dengan materi penelitian yang meliputi studi pustaka dan studi disiplin lainnya yang mendukung dan mempunyai hubungan dengan bidang yang diteliti. Cara pengumpulan data sekunder yaitu dengan melakukan studi pustaka yang digunakan untuk memperoleh sejumlah informasi dengan cara membaca literature atau buku-buku yang menunjang penelitian. Adapun data yang diperoleh: data sistem informasi, sistem pendukung keputusan, basis data, visual basic 6.0

3.4 Perancangan Database Estiamasi Waktu dengan Interface Visual basic Melakukan rancangan database-nya. Visual basic ini hanya digunakan sebagai interface. Jadi ketika aplikasi dijalankan operator memberikan input ukuran sesuai dengan karakteristik dari part. 3.5 Mengevaluasi Rancangan Database Mengevaluasi dalam hal ini adalah menguji apakah program tersebut dapat dijalankan dengan baik atau belum, jika belum berjalan dengan baik maka dapat dilakukan perancangan ulang sampai berhasil maksimal dan dapat diaplikasikan di lapangan.

3.6 Kesimpulan dan Saran Bab ini berisi tentang kesimpulan dari perancangan untuk estimasi waktu pembuatan produk berdasarkan pesanan.

3.7 Kerangka Pemecahan Masalah Mulai Studi pendahuluan

Menentukan Perumusan masalah dan tujuan Studi pustaka dan

Pengumpulan produk Pengelompokan part Dengan pendekatan proses Memodelkan part dalam b

3D

Mengkarakteristikkan part b d

k

Penentuan variabel waktu produksi, komponennya adalah: -

Waktu proses (jumlah set-up, waktu operasi) Beban mesin Persediaan bahan baku dan material Jenis material yang digunakan

A

A

Perancangan database

Perancangan interface

Apakah rancangan program sesuai dengan

Tidak

Ya

Analisis rancangan

Kesimpulan dan saran

Selesai Gambar 3.1 Kerangka Pemecahan Masalah

Penjelasan: a. Formulasi masalah Formulasi digunakan agar suatu masalah mempunyai tujuan yang nyata. Selain itu dapat menentukan model yang akan digunakan. Membuat kerangka sistem. Penetapan batasan yang digunakan untuk membatasi masalah agar tidak meluas dan kemudian ditentukan tujuan yang ingin dicapai dalam penelitian. b. Pengumpulan data Pengumpulan data yang digunakan, dimana data yang diambil adalah data berupa gambar komponen atau part yang kemudian dikumpulkan dan dimodelkan; material yang digunakan; waktu permesinan (waktu setup, waktu operasi). c. Perancangan database estimasi waktu Dalam perancangan database, untuk pertama adalah merancang tabel input, tabel jenis pahat, setelah itu merancang tabel data produk. Dari tabel tersebut direlasikan sehingga diharapkan adanya database estimasi waktu. d. Perancangan Interface Dalam

merancang

interface

maka

dibuat

diagram

alir

data

sehingga

mempermudah dalam perancangan. Untuk interface berisi menu yang terdiri dari input, data produk, data material yang digunakan, jenis pahat yang pakai. Sedang untuk perancangan interface itu sendiri menggunakan visual basic 6.0.

e. Uji coba program Uji coba program digunakan untuk melakukan validasi. Validasi dari suatu program diteliti kembali untuk medeteksi apakah ada kesalahan dalam model dan jika perlu dimodifikasi. f. Analisis program dan output Analisis ini digunakan untuk mengetahui performansi diteliti. Hasil analisis ini kemudian digunakan untuk menjawab tujuan studi yang telah ditentukan pada formulasi masalah dan perencanaan penelitian g. Kesimpulan dan saran Kesimpulan digunakan untuk membandingkan keunggulan hasil penelitian dengan kondisi sebelumnya. Hasil dari perancangan ini dapat digunakan untuk mendukung keputusan yang diinginkan. Sedangkan saran merupakan sebagai masukan dalam pengembangan program selanjutnya.

BAB IV PERANCANGAN SISTEM PENDUKUNG KEPUTUSAN

4.1 Proses Permesinan Dalam Mesin CNC Dalam mesin CNC terdapat beberapa jenis permesinan yang dapat dilakukan dalam unit layanan Industri Teknik Mesin. Proses tersebut antara lain: a.

Proses milling adalah proses pengurangan permukaan sebuah permukaan benda baik untuk miling face maupun untuk membuat bentuk awal benda.

b.

Proses drilling adalah proses pembuatan lubang dan pelebaran lubang pada benda kerja tersebut.

c.

Proses turning adalah biasa disebut sebagai proses bubut atau pembuatan benda silindris baik pejal maupun tidak.

4.2 Komponen dan Formulasi Penentuan Waktu Komponen dan formulasi yang digunakan dalam mesin CNC ini untuk dapat menentukan waktu produksinya adalah: a.

Material yaitu bahan baku yang digunakan dalam membuat produk yang nantinya akan diproses di mesin CNC. Material yang sering di gunakan di unit layanan industri adalah steel, stainless steel, cast iron, graphite aluminum, heat resistant alloys. Jenis material ini nantinya akan mempengaruhi ketebalan pemakanan.

b.

Alat Potong yaitu tool yang digunakan untuk proses pemotongan atau pemakanan. Tool yang digunakan di unit layanan industri antara lain: 1) Proses Mill: End Mill Flat 6, End Mill Flat 8, End Mill Flat 10, End Mill Flat 12, End Mill Ballnose 6, End Mill Ballnose 8. 2) Proses Drill antara lain: Straight Shank Drill 14, Straight Shank Drill 15, Straight Shank Drill 16. 3) Proses Turn antara lain: Insert SDMT 12, dan Insert RDMW 12.

c.

Permesinan yaitu penentuan waktu dalam proses permesinan: 1) Set Up Untuk waktu setup dapat diformulasikan sebagai berikut: Waktu set up = Set up benda kerja + set up pemrograman + set up alat potong

..........................................(1)

Jadi, untuk menentukan waktu set up terdiri dari berapa banyak terjadi set up bahan baku ditambah set up untuk NC kode ditambah berapa banyak terjadi set up alat. 2) Proses Mill Formulasi untuk proses Mill sebagai berikut: Tingkat pemakanan fm = fr x rpm

..........................................(2)

Jika D>d, maka A: A Jika D
D.d

...........................................(3)

A Waktu pemotongan t =

D2 4

.

d 2 2

L + 2A fm

...........................................(4) ..........................................(5)

Ket: fm = Rata-rata tingkat pemakanan, mm/min fr

= Pemakanan tiap putaran, mm/putaran

t

= Waktu, min

L

= Panjang pemotongan, mm

D = Diameter benda kerja, mm d

= Pengurangan, mm

A = Jarak titik 0,0 ke permukaan benda kerja, mm 3) Proses Drill Formulasi untuk proses Drill sebagai berikut: Tingkat pemakanan fm = fr x rpm A

..........................................(6)

0,29 . D

Waktu pemotongan t =

L+A fm

..........................................(7)

Ket: fm = Rata-rata tingkat pemakanan, mm/min fr


t

= Waktu, min

L

= Kedalaman lubang, mm

D = Diameter alat potong, mm

A = Jarak titik 0,0 ke permukaan benda kerja, mm 4) Proses Turn Formulasi untuk proses Turn sebagai berikut: Tingkat pemakanan fm = fr x rpm Waktu pemotongan t =

L fm

..........................................(8) ..........................................(9)

Ket: fm = Rata-rata tingkat pemakanan, mm/min

d.

fr


t

= Waktu, min

L

= Panjang pemotongan, mm

Waktu pengerjaan manual adalah Waktu yang dibebankan di luar pengerjaan dengan mesin CNC. Waktu ini ditentukan oleh user dan kemudian dijadikan faktor penambah waktu permesinan sesuai dengan kebutuhannya.

e.

Gambar kerja, karena gambar ini merupakan gambar yang menjelaskan secara lengkap dan detail mengenai spesifikasi produk. Bila gambar kerja belum ada, maka proses ini akan menambah jumlah waktu penyelesaian produk pesanan.

f.

Beban mesin, dimana produk pesanan akan menunggu proses pengerjaan pesanan sebelumnya. Lamanya penggunaan mesin sekarang akan ditambahkan dengan waktu permesinan.

g.

Efisiensi mesin, yaitu waktu penggunaan mesin dalam satu hari. Waktu ini nantinya akan digunakan untuk membagi hasil estimasi waktu, sehingga diketahui waktu penyelesaian produk.

4.3

Gambaran Sistem Penentuan Waktu Pembuatan Produk Secara Umum Gambaran kondisi sistem yang ada secara umum baik input, proses maupun output yang sesuai dengan metode perancangan berbasis aliran data yang diperoleh digambarkan sebagai berikut: INPUT

PROSES

OUTPUT

Mulai

-

Nama Pemesan Alamat No Tlp Produk

Menentukan: - Waktu Proses Mill - Waktu Proses Drill - Waktu Proses Turn

Waktu Penyelesaian

Waktu -

Nama Part Material Proses Permesinan Alat Potong Dimensi Komponen Waktu SetUp

Penyelesaian

Selesai

Gambar 4.1 Sistem Penentuan Waktu Pembuatan Produk Secara Umum

4.4 Diagram Aliran Diagram ini digunakan untuk menggambarkan kondisi sistem produksi yang ada secara umum baik input maupun output. Sesuai dengan metode perancangan yang berbasis aliran data yang diperoleh. Dari hasil analisis maka diagram aliran sebagai berikut:

Mulai

-

Input Data Pemesan Proses Permesinan Alat Potong Dimensi

Pengolahan Data

-

Output Waktu proses komponen Waktu proses produk

Selesai Gambar 4.2 Diagram Aliran Sistem Produksi

4.5 Flow Chart Input Data Pemesan Atribut yang terdapat pada data pemesan adalah: -

Kode

-

Nama

-

Alamat

-

No telepon

-

Produk Mulai

-

Kode Nama Alamat No telepon Produk

Simpan dalam database

Selesai Gambar 4.3 Flow Chart Input Data Pemesan

4.6 Flow Chart Input Proses Permesinan Atribut yang terdapat pada proses permesinan adalah: -

Kode pesan

-

Komponen

-

Material

-

Permesinan

-

Alat potong

-

Dimensi

-

Waktu setup Mulai

-

Kode pesan Komponen Material Permesinan Alat potong Dimensi Waktu setup


Selesai Gambar 4.4 Flow Chart Input Proses Permesinan

4.7 Flow Chart Input Data Alat Potong Atribut yang terdapat pada data alat potong adalah: -

Nama alat potong

-

Rpm

-

Pemakanan rata-rata

Mulai

-

Nama alat potong Rpm Pemakanan rata-rata


Selesai Gambar 4.5 Flow Chart Input data Alat Potong

4.8 Flow Chart Input Data Material Atribut yang terdapat pada data material adalah: -

Nama material

-

Tebal pemakanan

-

Distributor

-

Waktu tunggu pesan

Mulai

-

Nama material Tebal pemakanan Distributor Waktu tunggu pesan


Selesai Gambar 4.6 Flow Chart Input data material

4.9 Flow Chart Menentukan Waktu Proses Mill Atribut yang terdapat pada penentuan waktu proses mill adalah: -

Komponen

-

Material

-

Alat Potong

-

Dimensi

-

Banyak Proses

-

Jarak

-

Waktu set up

Mulai

-

Komponen Material Alat potong Dimensi Banyak proses Jarak Waktu set up

Perhitungan waktu proses mill =

X 2A Y Z x x Fm D Tebal Makan

Waktu Set Up x Banyak proses

Jarak Kec. pindah

Waktu Proses Mill Simpan dalam database

Selesai Gambar 4.7 Flow Chart Menentukan Waktu Proses Mill

4.10 Flow Chart Menentukan Waktu Proses Drill Atribut yang terdapat pada penentuan waktu proses drill adalah: -

Komponen

-

Material

-

Alat potong

-

Dimensi

-

Banyak proses

-

Jarak

-

Waktu set up Mulai

-

Komponen Material Alat potong Dimensi Banyak Proses Jarak Waktu set up

Perhitungan waktu proses drill =

Kedalaman A Fm


Jarak Kec.pindah

Waktu Proses drill Simpan dalam database

Selesai Gambar 4.8 Flow Chart Menentukan Waktu Proses Drill

4.11 Flow Chart Menentukan Waktu Proses Turn Atribut yang terdapat pada penentuan waktu proses turn adalah: -

Komponen

-

Material

-

Alat potong

-

Dimensi

-

Waktu set up Mulai

-

Komponen Material Alat potong Dimensi Waktu set up

Perhitungan waktu proses turn =

Kedalaman Panjang x + Waktu Set Up Tebal Makan Fm

Waktu Proses turn Simpan dalam database

Selesai Gambar 4.9 Flow Chart Menentukan Waktu Proses Turn

4.12 Perancangan Data Base 4.12.1. Pelanggan Atribut yang terdapat dalam data base Pelanggan terdiri dari: -

Kode pelanggan

-

Nama

-

Alamat

-

No telepon

-

Produk

Name Field Kode Pelanggan Nama Alamat No Telepon Produk

Tabel 4.1 Pelanggan Type Text Text Text Text Text

Size 5 20 20 20 15

4.12.2. Alat Potong Drill Atribut yang terdapat dalam data base Alat potong Drill terdiri dari: -

Alat Potong

-

Diameter

-

RPM

-

Pemakanan rata-rata

Name Field Alat potong Diameter RPM Pemakanan rata-rata

Tabel 4.2 Alat potong Drill Type 20 Text 4 Single 4 Single 4 Single

Size

4.12.3. Alat Potong Mill Atribut yang terdapat dalam Data base Alat potong Mill terdiri dari: -

Alat potong

-

Diameter

-

RPM

-

Pemakanan rata-rata

Name Field Alat potong Diameter RPM Pemakanan rata-rata

Tabel 4.3 Alat potong Mill Type 20 Text 4 Single 4 Single 4 Single

Size

4.12.4. Alat Potong Turn Atribut yang terdapat dalam Data base Alat Potong Turn terdiri dari: -

Alat Potong

-

RPM

-

Pemakanan rata-rata

Name Field Alat potong RPM Pemakanan rata-rata

Tabel 4.4 Alat potong Turn Type 20 Text 4 Single 4 Single

Size

4.12.5. Material Atribut yang terdapat dalam Data base Material terdiri dari: -

Material

-

Tebal Makan

-

Distributor

-

Waktu tunggu pesan

Name Field Material Tebal Makan Distributor Waktu tunggu pesan

Tabel 4.5 Material Type Text Single Text Single

Size 20 4 20 4

4.12.6. Proses Mill Atribut yang terdapat dalam Data base Proses Mill terdiri dari: -

Komponen

-

Material

-

Alat potong

-

X

-

Y

-

Z

-

Waktu Proses

Name Field Komponen Material Alat potong X Y Z Waktu Proses

Tabel 4.6 Proses Mill Type Text Text Text Single Single Single Single

Size 20 20 20 4 4 4 4

4.12.7. Proses Drill Atribut yang terdapat dalam Data base Proses Drill terdiri dari: -

Komponen

-

Material

-

Alat potong

-

Diameter

-

Kedalaman

-

Waktu Proses

Name Field Komponen Material Alat potong Diameter Kedalaman Waktu Proses

Tabel 4.7 Proses Drill Type Text Text Text Single Single Single

Size 20 20 20 4 4 4

4.12.8. Proses Turn Atribut yang terdapat dalam Data base Proses Mill terdiri dari: -

Komponen

-

Material

-

Alat potong

-

Panjang

-

Kedalaman

-

Waktu Proses

Tabel 4.8 Prosess Turn Type Text Text Text Single Single Single

Namee Field K Komponen M Material A potong Alat P Panjang K Kedalaman W Waktu Prosees

Sizee 20 20 20 4 4 4

4 Menu Program 4.13 P 4.13.1. Menu Utam ma Menuu utama addalah bagiann induk daari aplikasi program attau tampilan aw wal ketika kita membuuka program m tersebut. Dalam menu utama terdappat beberapaa pilihan menu bar, yaituu: 1

Gambar 4.10 Gambar Menu M Utama 4.13.2. Input Pemeesanan Input pemessanan sepertii gambar berrikut:

2

3

Gambar 4.11 Input pemesanan p

4.13.3. Input Prosees Permesin nan a. a Proses Mill M Input proses mill sepeerti gambar berikut: b 4

Gambar 4.12 Input proses p mill b. b Proses Drill D Input proses Drill sepperti gambarr berikut:

5 Gambar 4.13 Input proses p Drill c. c Proses Turn T Input proses turn sepeerti gambar berikut:

6

Gambar 4.14 Input proses p turn 4.13.4. Input Alat potong p a. a Alat potoong Mill Input Alaat potong milll seperti gam mbar berikutt:

Gambar 4.15 Input Alaat potong mill

b. Alat potong Drill Input alat potong drill seperti gambar berikut:

Gambar 4.16 Input alat potong drill c. Alat potong Turn Input alat potong turn seperti gambar berikut:

Gambar 4.17 Input alat potong turn 4.13.5. Input Material Input material seperti gambar berikut:

Gambar 4.18 Input material 4.13.6. Output Keseluruhan Output keseluruhan waktu seperti gambar berikut:

Gambar 4.19 Hasil estimasi waktu Keterangan: 1. Menu Bar: Berfungsi menampilkan pilihan menu atau perintah untuk menjalankan program atau membuka form pada program. 2. Text Box: Digunakan untuk memasukkan teks ataupun angka saat program dijalankan. 3. Label: Objek untuk menuliskan teks keterangan. Caption pada Label biasanya digunakan untuk menjelaskan dari text box.

4. Combo Box: Digunakan untuk menampung daftar pilihan, dimana daftar pilihan dapat mengambil dari sebuah tabel. Pada form diatas combo box digunakan untuk menampilkan pilihan dari tabel material dan tabel alat potong. 5. Command Button: Merupakan tombol perintah, tombol tersebut dapat berupa perintah simpan, keluar, batal, tergantung dari kode dari Command Button tersebut. 6. Data Grid: Tabel yang berfungsi untuk menampilkan data input. Data Grid pada program diatas berfungsi untuk menampilkan dimensi dari komponen setelah perintah simpan.

BAB V ANALISA SISTEM DAN IMPLEMENTASI

5.1 Identifikasi Sistem dan Prosedur Untuk mendapatkan gambaran tentang elemen-elemen sistem pendukung keputusan estimasi waktu serta prosedur yang terkait didalamnya. Untuk mengetahui sistem yang ada sekarang apakah layak atau perlu suatu perbaikan agar sistem dan prosedur dapat lebih baik. a. Identifikasi Aliran Informasi Tujuan dari identifikasi aliran informasi adalah mengenal permasalahan yang ada dengan meneliti arus informasi yaitu mengenai input data dalam sistem pendukung keputusan estimasi waktu secara keseluruhan yang meliputi proses permesinan, dimensi benda kerja, alat potong yang digunakan. b. Identifikasi Kebutuhan Informasi Dalam hal ini kebutuhan informasi terlebih dahulu perlu diidentifikasi kebutuhan pemakaian dari informasi itu sendiri.

5.2 Analisa Sistem dan Prosedur a. Penyelesaian Pesanan 1) Perusahaan Ketika proses pengolahan data dalam menyiapkan kebutuhan informasi bersifat manual dan perkiraan, dimana informasi yang

dibutuhkan masih dijalankan secara terpisah berdasarkan tanggung jawab, tentunya akan mempersulit memeperoleh informasi dan memperlambat proses pengolahan data. 2) Model yang dikembangkan Karena perhitungan untuk proses permesinan sudah terotomasi maka waktu yang dibutuhkan lebih cepat dan akurat daripada manual. b. Kelebihan dan Kekurangan 1) Kelebihan Program Sistem ini dapat mengolah data secara cepat dan efisien sehingga dapat memudahkan dalam mengetahui lama proses serta menyediakan informasi bagi orang yang membutuhkan 2) Kekurangan Program Untuk proses pada bagian penjadwalan yang belum terotomasi, sehingga untuk mengetahui beban mesin masih input manual karena pada aplikasi ini hanya menampilkan tanggal terakhir pemesanan. Pada proses manual pada aplikasi ini belum terdapat perhitungan yang terotomasi sehingga menggunakan input manual untuk proses manual.

5.3 Sistem Operasi Program a. Prasyarat Dalam Pengoperasian program Dalam menjalankan apikasi ini hal-hal yang perlu dikuasai oleh pengguna, yaitu: 1) Pengguna mengetahui proses permesinan yang dikerjakan suatu produk. 2) Pengguna mengetahui jenis bahan baku yang digunakan 3) Pengguna mengetahui jenis alat potong yang dipakai dalam mengerjakan produk. b. Pengoperasian program Untuk mengoperasikan program ini terdapat beberapa langkah, yaitu: 1) Membuka program Karena program ini menggunakan bahasa pemrograman visual basic, setelah dikompilasi program dapat langsung dijalankan tanpa harus menggunakan software program visual basic dengan meng-klik ganda pada file program tersebut, seperti pada gambar berikut:

Gambar 5.1 Menu Utama

Setelah

program

dijalankan,

langkah

berikutnya

adalah

memasukkan nama produk yang akan diestimasi, kemudian tekan perintah “MASUKKAN DATA” yang akan memanggil form proses. 2) Memasukkan data produk Setelah form proses ditampilkan, langkah berikutnya memasukkan data sesuai dengan karakteristik produk tersebut. Dimana data yang dimasukkan antara lain: nama komponen dari produk tersebut, jumlah komponen, jenis material. Seperti gambar berikut:

Gambar 5.2 Form Proses 3) Memasukkan data proses permesinan yang berhubungan dengan komponen Untuk langkah selanjutnya yaitu memasukkan data proses permesinan. Data tersebut berupa: alat potong yang digunakan, dimensi komponen. Seperti gambar berikut:

Gambar 5.4 Form Proses Permesinan 4) Proses pemesanan Jika waktu penyelesaian produk pesanan telah diketahui dan disepakati, maka proses selajutnya adalah memasukkan data dari pemesan dengan menekan perintah “PESAN”. Jika pemesan tidak jadi pesan klik perintah “KELUAR”. Seperti gambar berikut:

Gambar 5.5 Form Pemesanan 5.4 Verifikasi Program Untuk mengetahui ketepatan perhitungan suatu program maka dilakukan verifikasi dimana perhitungan dilakukan secara manual, kemudian dibandingkan dengan perhitungan dalam program. Berikut salah satu contoh perhitungan komponen pada produk ragum.

d.

Produk

e.

Komponen : Landasan

f.

Material

g.

Proses Permesinan: •

: Ragum TI-300

: ST 37; Tebal pemakanan : 0.45 mm

Proses Mill - Langkah 1: Alat potong

: SDMT 12

Pemakanan rata-rata : 138 mm/min Diameter

: 25 mm X : 191 mm Y : 66 mm Z : 4 mm Set Up : 15 min Banyaknya Proses : 2 kali

X 2A

Waktu

Fm

= =

x

Y D

x

Z

191 2 √25x4 138

x

1.52 x 3 x 9

= 56.04 menit x 2 = 112 menit


Tebal Makan

66 25

x

4 0.45

15 x 2

15 x 2

- Langkah 2: Alat potong

: End Mill 16


: 16 mm X : 66 mm Y : 30.2 mm Z : 4 mm Set Up : 15 min Banyaknya Proses : 2 kali

X 2A

Waktu

Fm

x

Y D

x

Z


Tebal Makan

=

66 2 √16x4 130

=

0.63 x 2 x 9 +15 x 2

x

. 16

x

4 0.45

= 26.34 menit x 2 = 52 menit - Langkah 3: Alat potong

: End Mill 16


: 16 mm X : 185 mm Y : 30.2 mm

15 x 2

Z : 4 mm Set Up : 15 min Banyaknya Proses : 2 kali X 2A

Waktu

Fm

x

Y D

x

Z


Tebal Makan

=

185 2 √16x4 130

.

=

1.54 x 2 x 9 +15 x 2

x

16

x

4 0.45

15 x 2


: End Mill 12


: 12 mm X : 185 mm Y : 22.1 mm Z : 4 mm Set Up : 15 min Banyaknya Proses : 2 kali

X 2A

Waktu

Fm

=

x

Y D

x

185 2 √12x4 170

Z


Tebal Makan

x

. 12

x

4 0.45

15 x 2

=

1.16 x 2 x 9 +15 x 2


: End Mill 10



X 2A

Waktu

Fm

x

Y D

x

Z Tebal Makan


=

58 2 √10x5 195

=

0.36 x 3 x 12 +15 x 2

x

10

x

5 0.45


: End Mill 12

Pemakanan rata-rata : 170 mm/min

15 x 2

Diameter


X 2A

Waktu

Fm

x

Y D

x

Z


Tebal Makan

=

122 2 √12x2 170

=

0.77 x 2 x 5 +15 x 1

x

12

x

2 0.45

= 22 menit - Langkah 7: Alat potong

: End Mill 16



15 x 1

X 2A

Waktu

Fm

x

Y D

x

Z


Tebal Makan

=

185 2 √16x2 130

=

1.51 x 2 x 5 +15 x1

x

16

x

2 0.45

15 x 1


: End Mill 16



X 2A

Waktu

Fm

x

Y D

x

Z


Tebal Makan

=

58 2 √16x12 130

=

0.65 x 2 x 27 +15 x 1

= 50 menit

x

16

x

12 0.45

15 x 1

•

Proses Drill - Langkah 1: Alat potong

: Drill 6.5


: 6.5 mm Diameter

: 6.5 mm

Kedalaman : 25.2 mm Waktu Setup : 15 menit Banyaknya Proses : 4 Jarak

: 328 mm

Kedalaman A

Waktu


Fm

.

= =

0.20

.

.

15

15 4

x4

0.82


: Drill 11


: 11 mm Diameter

: 11 mm

Kedalaman : 9 mm

Jarak Kec.pindah

Waktu set up: 15 menit Banyaknya Proses : 4 kali Jarak

: 328 mm

Kedalaman A

Waktu

Fm

.

= =


15

0.15

15

4

Jarak Kec.pindah

x4 0.82


: Drill 6


: 6 mm Diameter

: 6 mm

Kedalaman : 12 mm Waktu set up : 15 menit Banyaknya Proses : 2 kali Jarak

: 34 mm

Kedalaman A

Waktu

Fm

.

= =

0.09

= 30 menit


15 15 x 2

x2 0.085

Jarak Kec.pindah

h.

Waktu Proses Komponen: = Waktu langkah proses mill + Waktu langkah proses drill = (112 + 52 + 85 + 71 + 55 + 22 + 30 + 50) + (61 + 61 + 30) = (477) + (152) = 633 menit + 60 menit = 689 jam

Hasil perhitungan waktu semua komponen pada produk RAGUM TI, sebagai berikut: Tabel 5.1 Daftar Hasil Perhitungan Produk

Komponen

RAGU M TI

Landasan Plat Pencekam Penepat Dudukan Rahang Tetap Dudukan Rahang Gerak Rahang Plat Tekan Ring Poros Transportir Balok Ulir Tutup Atas Tutup Samping Penyangga Tangkai Part1 Tangkai Part2 TOTAL

1 11 x 15 = 165 1 8 x 15 = 120 1 5 x 15 = 75

60 60 60

Waktu Total Proses (Menit) 686.07 467.08 272.85

1

9 x 15 = 135

60

424.84

1

9 x 15 = 135

60

437.26

1 5 x 15 = 75 1 6 x 15 = 90 1 5 x 15 = 75 1 7 x 15 = 105 1 5 x 15 = 75 1 5 x 15 = 75 2 16 x 15 = 240 1 6 x 15 = 90 1 6 x 15 = 90 1 6 x 15 = 90 16 1635 Menit Komponen

60 60 60 60 60 60 120 60 60 60 960 Menit

345.98 304.92 195.65 369.05 314.42 452.41 959.97 429.62 373.07 298.09

Jumlah Kompone n

Waktu Setup

Waktu Manual (Menit)

Waktu selesai = (waktu total/60) / (efisiensi mesin x jam tersedia)

6331.28

= (6331.28/60) / (0.8 x 8) = 106 / 6.4 = 16.5 hari Dari perhitungan menggunakan program yang telah dibuat waktu yang diperlukan adalah 16.5 hari, jika dibandingkan dengan kenyataan waktu yang dibutuhkan untuk membuat produk lebih lama sekitar 20 hari karena pada proses manual pada program tersebut masih berupa asumsi yaitu untuk satu komponen diperlukan waktu proses manual 60 menit. Sedangkan pada produk ragum tersebut banyak yang menggunakan proses manual, yang membutuhkan waktu lebih dari 60 menit per komponen.

BAB VI PENUTUP

6.1. Kesimpulan Berdasarkan

penelitian

yang

telah

dilakukan

serta

pembahasan

masalahnya, maka dapat disimpulkan bahwa: a. Dari penelitian ini telah menghasilkan sistem informasi untuk pendukung keputusan, terutama estimasi waktu. Sistem tersebut dalam menghitung proses permesinan sudah terotomasi, sehingga waktu yang diperlukan untuk penerimaan pesanan lebih cepat dan akurat. Dalam penelitian tersebut untuk memproses produk RAGUM waktu permesinan yang diperlukan adalah 16.5 hari dengan jam kerja 8 jam per hari dan efisiensi mesin 80%. Dimana pada verifikasi perhitungan pada perusahaan waktu yang dibutuhkan lebih lama sekitar 20 hari karena pada program proses manual perhitungannya belum terotomasi. b. Dengan menggunakan program visual basic, interface yang dibuat bersifat friendly. Dimana dengan interface tersebut memudahkan pemakai dalam memasukkan data. Sehingga tidak perlu keahlian khusus dalam menjalankan program tersebut. c. Dari perancangan program tersebut pengguna dapat memperoleh informasi tanggal terakhir pesanan dan waktu yang diperlukan untuk suatu proses permesinan.

6.2. Saran Saran yang dapat diberikan untuk sistem pendukung keputusan estimasi waktu yaitu: a. Penambahan sistem pendukung keputusan dari bagian penjadwalan dan waktu kelonggaran mesin, sehingga sistem pendukung keputusan ini lebih akurat. b. Adanya perhitungan untuk proses manual. c. Penambahan untuk penyimpanan database produk.

DAFTAR PUSTAKA

Dale, A. T. 1991. Mengelola Waktu. PT. Elex Media Komputindo, Kelompok Gramedia Anggota IKAPI. Jakarta. Ahyari, A. 1992. Manajemen Produksi Edisi Keempat. BPFE. Yogyakarta Buffa, E. S. and Sanin, R. K. 1995. Modern Production/Operation Management John Wiley & Sons. Inc., Inggris Cilds.T., Maekawa. K., Obikiwa. T., Yamane. Y., 2000, Metal Machining Theory and Application, John Wiley & Sons. Inc., Inggris Fathansyah. 2001. Basis Data. INFORMATIKA. Bandung Handoko, T. H. 1995. Dasar-Dasar Manajemen Produksi dan Operasi. BPFE. Yogyakarta. Hasanah, N. 2002. Model Penentuan Harga Dan Waktu Produksi Order Pada Perusahaan Make-To-Order Job-Shop Dengan Mempertimbangkan Order Kontingensi. http://digilib.itb.ac.id. Jogiyanto, HM. 2003. Sistem Teknologi Informasi. ANDI. Yogyakarta Kurniawan, P. A. 1998. Sistem Informasi Manajemen. IPWI. Jakarta. Krar. S.F., Gill. A.R., Smid. P., 2005, Technology of Machine Tools Sixth Edition, Mc Graw Hill, New York Kristanto. A., 2005, 30 Contoh Aplikasi dalam Visual Basic, Gava Media, Yogyakarta Madcom. 2005. Panduan Pemrograman dan Referensi Kamus Visual basic 6.0. ANDI. Yogyakarta Madcom,

2005, Mahir dalam ANDI, Yogyakarta

7Hari

Manulang,

M. 1986. Yogyakarta

Praktis

Pedoman

Pemrograman

Pengambilan

Visual

Basic

Keputusan.

6.0,

BPFE.

Sheikh, K. 2002. Manufacturing Resource Planning (MRP II). McGraw-Hill. Singapore Suhadi, G. 2002. Managerial Decision Making and Decision Support System. http://www.library.gunadarma.ac.id Sumayang, L. 2003 Dasar-Dasar Manajemen Produksi dan Operasi. Salemba Empat. Jakarta Simon, H. A. Tahapan Dalam Mengambil Keputusan. http://komputasi.inn.bppt.go.id Wahyudi dan Subando. 1994. Sistem Informasi Manajemen dalam Organisasi Publik. Gajah Mada University Press. Yogyakarta.

Form Menuu

Forrm Input Esttimasi

Fo Proses Mill Form M

Foorm Proses Drill D

Foorm Proses Turn T

F Form Pemesaanan

Forrm Detail Peesanan

Form m Alat Potonng Mill

Form m Alat Potonng Drill

Form m Alat Potonng Turn

F Form Materrial

Private Sub CD_Akhir_Click() Data6.Recordset.MoveLast End Sub Private Sub CD_Awal_Click() Data6.Recordset.MoveFirst End Sub Private Sub CD_Maju_Click() Data6.Recordset.MoveNext If Data6.Recordset.EOF Then X = MsgBox("Ini Sudah Data Terakhir", 0, "Informasi") Data6.Recordset.MoveLast End If End Sub Private Sub CD_Mundur_Click() Data6.Recordset.MovePrevious If Data6.Recordset.BOF Then X = MsgBox("Ini Sudah Data Pertama", 0, "Informasi") Data6.Recordset.MoveFirst End If End Sub Private Sub Check2_Click() nm = DBCombo2.Text With Data3.Recordset .Index = "mat" .Seek "=", nm If Not .NoMatch Then Text9 = Data3.Recordset!LeadTime Else c = MsgBox("Nama Tidak Ada", 0, "Informasi") End If End With Check1.Value = 0 End Sub Private Sub Check3_Click() Check4.Value = 0 Text32.Text = "0" End Sub

Private Sub Check4_Click() If Check4.Value = 1 Then Option1.Visible = True Option2.Visible = True Option3.Visible = True Check3.Value = 0 Else Option1.Visible = False Option2.Visible = False Option3.Visible = False End If End Sub Private Sub CM_Akhir_Click() Data2.Recordset.MoveLast End Sub Private Sub CM_Awal_Click() Data2.Recordset.MoveFirst End Sub Private Sub CM_Maju_Click() Data2.Recordset.MoveNext If Data2.Recordset.EOF Then X = MsgBox("Ini Sudah Data Terakhir", 0, "Informasi") Data1.Recordset.MoveLast End If End Sub Private Sub CM_Mundur_Click() Data2.Recordset.MovePrevious If Data2.Recordset.BOF Then X = MsgBox("Ini Sudah Data Pertama", 0, "Informasi") Data2.Recordset.MoveFirst End If End Sub Private Sub CM_Tambah_Click() DBCombo1.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True

Text6.Enabled = True Text7.Enabled = True DBCombo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "15" Text7.Text = "" Text38.Text = "1" Text51.Text = "0" Text53.Text = "" DBCombo1.SetFocus Command2.Visible = True CM_Tambah.Visible = False End Sub Private Sub Command10_Click() Data12.RecordSource = "select sum(Wkt_Total) As Wkt_T from Proses where Kode_Plg = '" & Text12 & "' " Data12.Refresh k = (Data12.Recordset!Wkt_T) / 60 Wkt_Prod.Text = CInt(k) Data12.RecordSource = "select max(lead) As Maks from Proses where Kode_plg = '" & Text12 & "' " Data12.Refresh t = Data12.Recordset!Maks Text50.Text = t Text30.SetFocus End Sub Private Sub Command11_Click() Frame2.Visible = True Dim Jumlahminggu As Integer Dim JumlahHariAwal As Integer Dim JumlahHari As Integer Dim tanggal As Date JumlahHariAwal = Val(Text37) Jumlahminggu = Round(Val(Text37) / 7) JumlahHari = JumlahHariAwal + Jumlahminggu For i = 1 To JumlahHari a = DateAdd("d", i, Now)

If Weekday(a) = 1 Then JumlahHariAwal = JumlahHariAwal + 1 Next i tanggal = DateAdd("d", JumlahHariAwal, Date) Text42 = tanggal Text39.SetFocus End Sub Private Sub Command12_Click() Dim p As String With Data11.Recordset If Text10.Text = "" Or DBCombo2.Text = "" Or Text9.Text = "" Or Text12.Text = "" Or Text11.Text = "" Or Text13.Text = "" Or Text22.Text = "" Or Text27.Text = "" Then p = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub Else .Edit .Kode_Plg = Text12 .Part = Text10 .material = DBCombo2 .lead = Text9 .produk = Text11 .Wkt_Mill = Text13 .Wkt_Drill = Text22 .Wkt_Turn = Text27 .Wkt_Total = Text29 .Update End If End With End Sub Private Sub Command2_Click() Dim p As String With Data2.Recordset If Text10.Text = "" Or DBCombo2.Text = "" Or DBCombo1.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Part = Text10 .material = DBCombo2 .Tool = DBCombo1

.X = Text3 .Y = Text4 .Z = Text5 .wkt_proses = Text7 .Update End With With Data4.Recordset .AddNew .Part = Text10 .material = DBCombo2 .Tool = DBCombo1 .X = Text3 .Y = Text4 .Z = Text5 .wkt_proses = Text7 .Update End With CM_Tambah.Visible = True Command2.Visible = False CM_Tambah.SetFocus End Sub Private Sub Command4_Click() Data7.RecordSource = "select sum(Wkt_Proses) As Tot_Wkt from Drill where part='" & Text10 & "'" Data7.Refresh k = ((Data7.Recordset!tot_Wkt) + Val(Text48)) * Val(Text54) Text22 = k Data7.RecordSource = "select * from Drill" Data7.Refresh End Sub

Private Sub Command5_Click() Dim p As String With Data9.Recordset If Text10.Text = "" Or DBCombo2.Text = "" Or DBCombo4.Text = "" Or Text24.Text = "" Or Text26.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Part = Text10

.material = DBCombo2 .Tool = DBCombo4 .Panjang = Text24 .Kedalaman = Text26 .wkt_proses = Text28 .Update End With With Data10.Recordset .AddNew .Part = Text10 .material = DBCombo2 .Tool = DBCombo4 .Panjang = Text24 .Kedalaman = Text26 .wkt_proses = Text28 .Update End With Command5.Visible = False CT_Tambah.Visible = True CT_Tambah.SetFocus End Sub Private Sub Command6_Click() Data10.RecordSource = "select sum(Wkt_Proses) As Tot_Wkt from Turn where part='" & Text10 & "'" Data10.Refresh k = ((Data10.Recordset!tot_Wkt) + Val(Text49)) * Val(Text54) Text27 = k Data10.RecordSource = "select * from turn" Data10.Refresh End Sub Private Sub Command7_Click() Text11.Enabled = True Text12.Enabled = True Text10.Enabled = True DBCombo2.Enabled = True Text10.Text = "" DBCombo2.Text = "" Text8.Text = "" Text9.Text = "" Check1.Value = 0 Check2.Value = 0

DBCombo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "15" Text7.Text = "" Text13.Text = "0" DBCombo3.Text = "" Text14.Text = "" Text15.Text = "" Text16.Text = "" Text17.Text = "" Text18.Text = "15" Text19.Text = "" Text21.Text = "" Text22.Text = "0" DBCombo4.Text = "" Text23.Text = "" Text24.Text = "" Text25.Text = "15" Text26.Text = "" Text28.Text = "" Text27.Text = "0" Text29.Text = "" Command7.Visible = False Command8.Visible = True Text10.SetFocus End Sub Private Sub Command9_Click() Dim p As String With Data13.Recordset .Index = "Kode_Plg" .Seek "=", Text12 If Empty Then p = MsgBox("Kode Harus Diisi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("Kode Sudah Ada", 0, "Peringatan") Else

If Text12.Text = "" Or Text39.Text = "" Or Text40.Text = "" Or Text41.Text = "" Or Text11.Text = "" Or Text42.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Kode_Plg = Text12 .Nama = Text39 .Alamat = Text40 .No_Tlp = Text41 .produk = Text11 .tglPesan = Text46 .wktjadi = Text37 .Jadi = Text42 .Update End If End If End With End Sub Private Sub CT_Tambah_Click() DBCombo4.Enabled = True Text23.Enabled = True Text24.Enabled = True Text25.Enabled = True Text26.Enabled = True Text28.Enabled = True Text27.Enabled = True Text29.Enabled = True DBCombo4.Text = "" Text23.Text = "" Text24.Text = "" Text25.Text = "15" Text26.Text = "" Text28.Text = "" Command5.Visible = True CT_Tambah.Visible = False DBCombo4.SetFocus End Sub Private Sub DBCombo1_KeyPress(KeyAscii As Integer) Dim p As Integer nm = DBCombo1.Text

With Data1.Recordset .Index = "M_Tool" .Seek "=", nm If Not .NoMatch Then Text1 = Data1.Recordset!Feed_Rate Text2 = Data1.Recordset!Diameter Text3.SetFocus Else c = MsgBox("Nama Tidak Ada", 0, "Informasi") End If End With End Sub Private Sub DBCombo2_KeyPress(KeyAscii As Integer) Dim p As Integer nm = DBCombo2.Text With Data3.Recordset .Index = "mat" .Seek "=", nm If Not .NoMatch Then Text8 = Data3.Recordset!tbl_mkn Else c = MsgBox("Nama Tidak Ada", 0, "Informasi") End If End With End Sub Private Sub DBCombo3_KeyPress(KeyAscii As Integer) Dim p As Integer nm = DBCombo3.Text With Data5.Recordset .Index = "T_Drill" .Seek "=", nm If Not .NoMatch Then Text14 = Data5.Recordset!Pemakanan_rata Text15.SetFocus Else c = MsgBox("Nama Tidak Ada", 0, "Informasi") End If End With End Sub Private Sub DBCombo4_KeyPress(KeyAscii As Integer)

Dim p As Integer nm = DBCombo4.Text With Data8.Recordset .Index = "T_Turn" .Seek "=", nm If Not .NoMatch Then Text23 = Data8.Recordset!Pemakanan_rata Text24.SetFocus Else c = MsgBox("Nama Tidak Ada", 0, "Informasi") End If End With End Sub Private Sub Form_Activate() Command8.Visible = False Option1.Visible = False Option2.Visible = False Option3.Visible = False Frame2.Visible = False Command5.Visible = False Command2.Visible = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Text = "15" Text7.Enabled = False DBCombo2.Enabled = False DBCombo1.Enabled = False Command3.Visible = False DBCombo3.Enabled = False Text14.Enabled = False Text15.Enabled = False Text16.Enabled = False Text17.Enabled = False Text18.Enabled = False Text19.Enabled = False Text21.Enabled = False Command5.Visible = False DBCombo4.Enabled = False

Text23.Enabled = False Text24.Enabled = False Text25.Enabled = False Text26.Enabled = False Text28.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text46.Text = Now End Sub

Private Sub Mill_Click(Index As Integer) Data4.RecordSource = "select sum(Wkt_Proses) As Tot_Wkt from Mill where part='" & Text10 & "'" Data4.Refresh k = ((Data4.Recordset!tot_Wkt) + Val(Text47)) * Val(Text54) Text13 = k Data4.RecordSource = "select * from mill" Data4.Refresh End Sub Private Sub Option1_Click() Text32.Text = "1" End Sub Private Sub Option2_Click() Text32.Text = "3" End Sub Private Sub Option3_Click() Text32.Text = "5" End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then With Data14.Recordset .Index = "Kode" .Seek "=", Text12 If Not .NoMatch Then Text11 = Data14.Recordset!produk Text10.SetFocus

Else Psn = MsgBox("Kode Pesan Tidak Ada", 0, "Informasi") End If End With End If End Sub Private Sub Text13_LostFocus() Text29 = Val(Text13) + Val(Text22) + Val(Text27) End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text45 = 0.29 * Val(Text15) Text16.SetFocus End If End Sub Private Sub Text17_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text21 = Val(Text17) / Val(Text20) Text20.SetFocus End If End Sub Private Sub Text18_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then n = ((Val(Text16) + Val(Text45)) / Val(Text14)) Text19 = ((n + Val(Text18)) * Val(Text43)) + Val(Text21) Command3.SetFocus End If End Sub Private Sub Text20_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text21 = Val(Text17) / Val(Text20) Text18.SetFocus End If End Sub

Private Sub Text22_LostFocus() Text29 = Val(Text13) + Val(Text22) + Val(Text27) End Sub Private Sub Text25_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then n = Val(Text24) / Val(Text23) m = Val(Text26) / Val(Text8) Text28 = (n * m) + Val(Text25) Command5.SetFocus End If End Sub Private Sub Text27_LostFocus() Text29 = Val(Text13) + Val(Text22) + Val(Text27) End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text30_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text33.SetFocus End If End Sub Private Sub Text33_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text34.SetFocus End If End Sub Private Sub Text34_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then

m = (Val(Text34) / 100) * Val(Text30) n = (Val(Text34) / 100) * (Val(Text30) + Val(Text31)) Text35 = Int(Val(Wkt_Prod) / m) + Val(Text50) + Val(Text32) + Val(Text33) Text55 = (Val(Wkt_Prod) Mod m) Text36 = Int(Val(Wkt_Prod) / n) + Val(Text50) + Val(Text32) + Val(Text33) Text56 = (Val(Wkt_Prod) Mod n) Text37.SetFocus End If End Sub Private Sub Text38_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text51.SetFocus End If End Sub Private Sub Text39_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text40.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text40_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text41.SetFocus End If End Sub Private Sub Text43_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text17.SetFocus End If

End Sub Private Sub Text47_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Mill.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Val(Text2) > Val(Text5) Then Text44 = Sqr(Val(Text2) * Val(Text5)) Else n = (Val(Text2) ^ 2) / 4 m = (Val(Text5) / 2) ^ 2 Text44 = Sqr(n * m) End If Text38.SetFocus End If End Sub Private Sub Text51_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text53 = Val(Text51) / Val(Text52) Text52.SetFocus End If End Sub Private Sub Text52_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text53 = Val(Text51) / Val(Text52) Text6.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then n = ((Val(Text3) + (2 * Val(Text44))) / Val(Text1))

m = (Int(Val(Text4) / Val(Text2)) + 1) o = (Int(Val(Text5) / Val(Text8)) + 1) Text7 = (((n * m * o) + Val(Text6)) * Val(Text38)) + Val(Text53) Command2.SetFocus End If End Sub Private Sub C_Hapus_Click() With Data1.Recordset X = MsgBox("Yakin Data Ini Akan Dihapus..!", vbYesNo, "Konfirmasi") If X = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Tabel Sudah Kosong", vbInformation, "Tabel Kosong" C_Hapus.Enabled = False Data1.Enabled = False End If End If Data1.Refresh End If End With End Sub Private Sub C_Keluar_Click() Unload Me End Sub Private Sub C_Simpan_Click() Dim p As String With Data1.Recordset .Index = "T_Drill" .Seek "=", T_NamaTool If Empty Then p = MsgBox("Nama Tool Harus Diisi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("Nama Tool Sudah Ada", 0, "Peringatan") Else If T_NamaTool.Text = "" Or T_Rpm.Text = "" Or T_Diameter.Text = "" Then

l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Tool = T_NamaTool .RPM = T_Rpm .Pemakanan_rata = T_Feed_Rate .Diameter = T_Diameter .Update End If End If End With C_Simpan.Visible = False C_Tambah.Visible = True C_Tambah.SetFocus End Sub Private Sub C_Tambah_Click() C_Simpan.Visible = True C_Tambah.Visible = False T_NamaTool.Locked = False T_Diameter.Locked = False T_Rpm.Locked = False T_Feed_Rate.Locked = False Dim b As Control For Each b In Me If TypeName(b) = "TextBox" Then b.Text = "" End If Next T_NamaTool.SetFocus End Sub Private Sub Form_Activate() C_Simpan.Visible = False T_NamaTool.Locked = True T_Diameter.Locked = True T_Rpm.Locked = True T_Feed_Rate.Locked = True C_Tambah.SetFocus End Sub Private Sub C_Hapus_Click()

With Data1.Recordset X = MsgBox("Yakin Data Ini Akan Dihapus..!", vbYesNo, "Konfirmasi") If X = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Tabel Sudah Kosong", vbInformation, "Tabel Kosong" C_Hapus.Enabled = False Data1.Enabled = False End If End If Data1.Refresh End If End With End Sub Private Sub C_Keluar_Click() Unload Me End Sub Private Sub C_Simpan_Click() Dim p As String With Data1.Recordset .Index = "mat" .Seek "=", T_Nm_Material If Empty Then p = MsgBox("Nama Harus Diisi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("Nama Sudah Ada", 0, "Peringatan") Else If T_Nm_Material.Text = "" Or T_tbl_Mkn.Text = "" Or T_Pemasok.Text = "" Or T_Lead.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .material = T_Nm_Material .tbl_mkn = T_tbl_Mkn .Pemasok = T_Pemasok .LeadTime = T_Lead

.Update End If End If End With C_Simpan.Visible = False C_Tambah.Visible = True C_Tambah.SetFocus End Sub Private Sub C_Tambah_Click() C_Simpan.Visible = True C_Tambah.Visible = False T_Nm_Material.Locked = False T_tbl_Mkn.Locked = False T_Pemasok.Locked = False T_Lead.Locked = False Dim b As Control For Each b In Me If TypeName(b) = "TextBox" Then b.Text = "" End If Next T_Nm_Material.SetFocus End Sub Private Sub Form_Activate() C_Simpan.Visible = False T_Nm_Material.Locked = True T_tbl_Mkn.Locked = True T_Pemasok.Locked = True T_Lead.Locked = True C_Tambah.SetFocus End Sub Private Sub T_Lead_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then C_Simpan.SetFocus End If End Sub Private Sub T_Nm_Material_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then T_tbl_Mkn.SetFocus End If End Sub Private Sub T_Pemasok_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then T_Lead.SetFocus End If End Sub Private Sub T_tbl_Mkn_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then T_Pemasok.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Dim p As String With Data1.Recordset .Index = "Kode" .Seek "=", Text1 If Empty Then p = MsgBox("Kode Harus Diisi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("KOde Sudah Ada", 0, "Peringatan") Else If Text1.Text = "" Or Text2.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Kode_Plg = Text1 .produk = Text2 .Update End If End If

End With F_1.Show End Sub Private Sub Command3_Click() F_Pelanggan.Show End Sub Private Sub detail_Click() F_Pelanggan.Show End Sub Private Sub Form_Activate() Text1.SetFocus Text1.Text = "" Text2.Text = "" End Sub Private Sub Klua_Click() End End Sub Private Sub M_Drill_Click() F_Drill.Show End Sub Private Sub M_Material_Click() F_Matrial.Show End Sub Private Sub M_Miil_Click() F_Mil.Show End Sub Private Sub M_Pesan_Click() F_1.Show End Sub Private Sub M_Turn_Click() F_Trn.Show End Sub Private Sub Proses_Click()

F_data.Show End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Command2.SetFocus End If End Sub Private Sub C_Hapus_Click() With Data1.Recordset X = MsgBox("Yakin Data Ini Akan Dihapus..!", vbYesNo, "Konfirmasi") If X = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Tabel Sudah Kosong", vbInformation, "Tabel Kosong" C_Hapus.Enabled = False Data1.Enabled = False End If End If Data1.Refresh End If End With End Sub Private Sub C_Keluar_Click() Unload Me End Sub Private Sub C_Simpan_Click() Dim p As String With Data1.Recordset .Index = "M_Tool"

.Seek "=", T_NamaTool If Empty Then p = MsgBox("Kode HArus Di Isi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("Kode Sudah Ada", 0, "Peringatan") Else If T_NamaTool.Text = "" Or T_Rpm.Text = "" Or T_Diameter.Text = "" Or T_Feed_Rate.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Tool = T_NamaTool .RPM = T_Rpm .Feed_Rate = T_Feed_Rate .Diameter = T_Diameter .Update End If End If End With C_Simpan.Visible = False C_Tambah.Visible = True C_Tambah.SetFocus End Sub Private Sub C_Tambah_Click() C_Simpan.Visible = True C_Tambah.Visible = False T_NamaTool.Locked = False T_Diameter.Locked = False T_Rpm.Locked = False T_Feed_Rate.Locked = False Dim b As Control For Each b In Me If TypeName(b) = "TextBox" Then b.Text = "" End If Next T_NamaTool.SetFocus End Sub Private Sub Form_Activate()

C_Simpan.Visible = False T_NamaTool.Locked = True T_Diameter.Locked = True T_Rpm.Locked = True T_Feed_Rate.Locked = True End Sub Private Sub T_Diameter_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then T_Rpm.SetFocus End If End Sub Private Sub T_Rpm_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then T_Feed_Rate.SetFocus End If End Sub Private Sub C_Simpan_Click() Dim p As String With Data1.Recordset .Index = "T_Turn" .Seek "=", T_NamaTool If Empty Then p = MsgBox("Kode HArus Di Isi", 0, "Peringatan") Else If Not .NoMatch Then p = MsgBox("Kode Sudah Ada", 0, "Peringatan") Else If T_NamaTool.Text = "" Or T_Rpm.Text = "" Or T_Feed_Rate.Text = "" Then l = MsgBox("Data Belum Komplit", 0, "Informasi") Exit Sub End If .AddNew .Tool = T_NamaTool .RPM = T_Rpm .Pemakanan_rata = T_Feed_Rate .Update End If

End If End With C_Simpan.Visible = False C_Tambah.Visible = True C_Tambah.SetFocus End Sub Private Sub C_Tambah_Click() C_Simpan.Visible = True C_Tambah.Visible = False T_NamaTool.Locked = False T_Rpm.Locked = False T_Feed_Rate.Locked = False Dim b As Control For Each b In Me If TypeName(b) = "TextBox" Then b.Text = "" End If Next T_NamaTool.SetFocus End Sub Private Sub Form_Activate() C_Simpan.Visible = False T_NamaTool.Locked = True T_Rpm.Locked = True T_Feed_Rate.Locked = True End Sub Private Sub T_Feed_Rate_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then C_Simpan.SetFocus End If End Sub Private Sub T_NamaTool_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then T_Rpm.SetFocus End If End Sub

Private Sub Command1_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then X = MsgBox("Ini Sudah Data Pertama", 0, "Informasi") Data1.Recordset.MoveFirst End If End Sub Private Sub Command3_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then X = MsgBox("Ini Sudah Data Terakhir", 0, "Informasi") Data1.Recordset.MoveLast End If End Sub Private Sub Command4_Click() Data1.Recordset.MoveLast End Sub

PERANCANGAN SISTEM ESTIMASI WAKTU PADA PEMBUATAN PRODUK DI MESIN CNC DENGAN PENDEKATAN PROSES

Recommend Documents