252
Lampiran 1
253
Lampiran 2 RINGKASAN HASIL WAWANCARA
Perusahaan
: PT Sari Enesis Indah
Pewawancara : Viyona Responden
: Ibu Dwi Suryaningsih (Supervisor Quality Control)
Hari/tanggal : Senin/23 Agustus 2004 Tujuan: 1. Mengetahui penyebab cacat kempes dari produk Adem Sari pada proses filling 2. Mengetahui penyebab cacat isi kurang dari produk Adem Sari pada proses filling
Berikut adalah ringkasan hasil wawancara yang dimaksud. 1. Pewawancara: Berdasarkan apa yang telah terjadi selama ini dan menurut pengalaman ibu, faktor-faktor apa sajakah yang mengakibatkan cacat kempes pada produk Adem Sari? Responden: Cacat kempes itu terjadi pada mesin filling yang disebabkan oleh tidak sinkron atau tidak sesuainya antara kecepatan mesin dengan temperatur vertikal serta temperatur horizontal untuk melakukan sealing. Terjadinya hal ini kebanyakan dikarenakan operator yang kurang disiplin dan bertanggung jawab dalam menjalankan instruksi kerja yang telah diberikan.
254
2. Pewawancara: Bagaimana dengan keadaan mesin filling itu sendiri? Responden: Mesin filling di sini ada dalam kondisi yang baik. Untuk foil pembungkus sachet lain halnya, terkadang ada foil yang kurang memenuhi standar, tapi kemungkinannya kecil sekali. 3. Pewawancara: Lalu bagaimana dengan cacat isi kurang, faktor-faktor apa sajakah yang mengakibatkan cacat tersebut pada produk Adem Sari? Responden: Banyak sekali faktor yang menyebabkan isi sachet kurang. Pada lubang nossel, sering terdapat bubuk-bubuk dari bahan alkalis atau pun acid yang menempel pada lubang nossel masing-masing bahan. Mungkin saja dengan kurang lebarnya ukuran lubang tersebut, bubuk-bubuk yang menempel tersebut semakin mempersempit jalan keluar dari bahan. Apalagi dengan kadar air serta density bahan alkalis dan acid yang mungkin masih perlu diperkecil nilainya, akan menyebabkan bahan mudah menempel. Demikian pula jika saluran screw basah, akan ada bahan yang menempel pada dinding screw sehingga bahan sulit turun. 4. Pewawancara: Apa yang dapat menyebabkan screw basah? Responden: Saluran screw bisa basah, terutama setelah proses sanitasi. Pada proses tersebut, saluran screw akan dibersihkan dengan cara disemprotkan dengan air. Setelah itu, screw akan dikeringkan. Jika tidak dikeringkan sampai maksimal, kadar air pada dinding screw tentu saja masih ada. 5. Pewawancara: Apakah para operator yang melaksanakan proses santitasi pada saluran screw tidak memperhatikan hal tersebut?
255
Responden: Para operator pelaksanan sanitasi memang kurang memperhatikan hal tersebut, tapi jarang sekali terjadi dan lagi kita telah mempunyai ukuran standar lamanya
waktu
pengeringan
berdasarkan
pengamatan
dan
perhitungan.
Keterlibatan operator mesin filling pada cacat ini pun kurang relevan, walaupun terkadang para operator kurang memperhatikan dan menanggulangi bila ada bubuk yang menempel pada lubang nossel. Sebenarnya pun bagian QC serta bagian Produksi telah melakukan pengawasan terhadap kualitas sachet hasil dari proses filling sebelum masuk ke packing.
256
Lampiran 3 CONTOH FUNCTION
Beberapa contoh function yang dirancang pada media interface yang digunakan, yaitu Visual Basic ditampilkan berikut ini. 1. Menghitung parameter Private Sub CMDHITUNG_Click() Dim TMP As Double TGL1 = DTPicker1.Value TGL2 = DTPicker2.Value
If CBOPROYEK.Text = "" Then Exit Sub If OPENPRODUKSI(RECPROYEK) Then SSVALUE.RemoveAll Do While Not RECPRODUKSI.EOF OPENDATA (RECPRODUKSI.Fields("KD_PRODUK")) On Error GoTo CEKROW CL = HITUNGCL(RECDATA.Fields("TOTALCACAT"), RECDATA.Fields("TOTALPRODUKSI")) ISIVALUE RECPRODUKSI RECPRODUKSI.MoveNext
257
Loop CEKROW: If SSVALUE.Rows = O Then Exit Sub
With SSVALUE .Update .MoveFirst TMP = 0 For I = 0 To .Rows - 1 TMP = TMP + .Columns(3).Value .MoveNext Next I End With
TXTCP.Caption = HITUNGZ(HITUNGA(TMP)) OPENJUMLAHCACAT RECPROYEK TXTDPMO.Caption = Round(DPMO(DPO(RECDATA.Fields("TOTALCACAT"), HITTOP(RECDATA.Fields("TOTALPRODUKSI"), JUMLAHDATA))), 3) TXTSIGMA.Caption = SIGMA(TXTDPMO.Caption)
258
Else MsgBox "DATA NOT FOUND!", vbOKOnly + vbCritical, "WARNING" End If End Sub
2. Menghitung nilai RPN Private Sub HITUNGFAKTOR() Dim SQL As String Dim PERSEN As Double Dim TOTAL As Double With SSVALUE .Update .MoveFirst PERSEN = 0 TOTAL = 0 For I = 0 To .Rows - 1 TOTAL = TOTAL + .Columns(4).Value .MoveNext Next I
SQL = "" .Update
259
.MoveFirst For I = 0 To .Rows - 1 If .Columns(0).Value <> "" And .Columns(4).Value <> "" Then SQL = SQL & " SELECT " & .Columns(4).Value & " AS NO, '" & .Columns(0).Value & "' AS NAMA, '" & .Columns(4).Value * 100 / TOTAL & "' AS PERSEN" SQL = SQL & " UNION " End If .MoveNext Next I SQL = Left(SQL, Len(SQL) - 6) SQL = SQL & " ORDER BY NO DESC "
Set RECTRANS = New ADODB.Recordset RECTRANS.Open SQL, con, 2, 3 con.Execute ("DELETE FROM TMPFAKTOR")
Do While Not RECTRANS.EOF PERSEN = PERSEN + RECTRANS.Fields("PERSEN") con.Execute ("INSERT INTO TMPFAKTOR VALUES('" & LBLKODE.Caption & "','" & CBOCACAT.Text & "','" & RECTRANS.Fields("NAMA") & "','')")
260
If PERSEN > 80 Then Exit Do RECTRANS.MoveNext Loop Dim RECTRANSFER As ADODB.Recordset Set RECTRANSFER = New ADODB.Recordset
With frmtaguchi .LBLPRODUK.Caption = LBLNAMA.Caption .LBLCACAT.Caption = CBOCACAT.Text RECTRANSFER.Open "SELECT * FROM TMPFAKTOR", con, 2, 3
Do While Not RECTRANSFER.EOF .SSFAKTOR.AddItem RECTRANSFER.Fields("NAMA_FAKTOR") & vbTab & vbTab RECTRANSFER.MoveNext Loop End With KODEPROYEK = TXTPROYEK.Text End With End Sub
261
3. Menghitung Anova Private Sub ANOVA() With FRMTAG4.MSHASIL
Call HITUNGAP .Clear .Rows = 2 + BYKFAKTOR .TextMatrix(0, 0) = "FACTOR" .TextMatrix(0, 1) = "SQ" .TextMatrix(0, 2) = "V" .TextMatrix(0, 3) = "MG" .TextMatrix(0, 4) = " F-RATIO " .TextMatrix(0, 5) = " % P" .TextMatrix(BYKFAKTOR, 0) = "ERROR" .TextMatrix(BYKFAKTOR + 1, 0) = "ST" .ColAlignment(1) = 4 .ColAlignment(2) = 4 .ColAlignment(3) = 4 .ColAlignment(4) = 4 .ColAlignment(5) = 4 .ColWidth(0) = 2400 .ColWidth(1) = 800
262
.ColWidth(2) = 800 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 RECOA.MoveFirst I=1 Do While Not RECOA.EOF .TextMatrix(I, 0) = RECOA.Fields("NAMA") .TextMatrix(I, 1) = Round(SQF(I), 3) .TextMatrix(I, 2) = 1 .TextMatrix(I, 3) = Round(MQF(I), 3) .TextMatrix(I, 4) = Round(FR(I), 3) .TextMatrix(I, 5) = Round(PKF(I), 3) & " %" RECOA.MoveNext I=I+1 Loop .TextMatrix(I, 1) = Round(SQ, 3) .TextMatrix(I, 2) = Round(VE, 3) .TextMatrix(I, 3) = Round(MQ, 3) .TextMatrix(I, 4) = 1 .TextMatrix(I, 5) = Round(PK, 3) & " %" .TextMatrix(I + 1, 1) = Round(ST, 3)
263
.TextMatrix(I + 1, 2) = Round(VE, 3) + BYKFAKTOR - 1 .TextMatrix(I + 1, 5) = "100 %" End With End Sub
4. Menghitung Pooling Private Sub POOLING() Dim SQP(10), MQP(10), VO(10), FRP(10), FEP(10), SQP2(10), PKP(10) As Double Dim TMPSQP, TMPVP, TMPMQ, SP, VPO, FE, SQPE, TMPSQPE, MPQQ, TMPPKP As Double Dim PO(10) As String Dim COUNTER As Byte Call HITUNGAP
COUNTER = 0 TMPSQP = 0: TMPSQPE = 0: TMPVP = 0: TMPPKP = 0 For I = 1 To BYKFAKTOR - 1 If MQF(I) >= MQ Then PO(I) = "N" SQP(I) = 0 VO(I) = 1
264
FRP(I) = MQF(I) / MQP(I) SQP2(I) = SQF(I) - MQP(I) PKP(I) = SQP2(I) / ST COUNTER = COUNTER + 1 Else PO(I) = "Y" SQP(I) = SQF(I) VO(I) = 1 FRP(I) = 0 SQP2(I) = 0 PKP(I) = 0 End If TMPSQPE = TMPSQPE + SQP2(I) TMPSQP = TMPSQP + SQP(I) TMPVP = TMPVP + VO(I) TMPPKP = TMPPKP + PKP(I) Next I SP = SQ + TMPSQP VPO = VE + TMPVP FE = 1 SQPE = ST - TMPSQPE Dim H As Byte
265
Do While H <> 1 For I = 1 To BYKFAKTOR - 1 H=1 If PO(I) = "N" Then If MQF(I) <= HITUNGF(VPO, COUNTER - 1) Then PO(I) = "Y" SQP(I) = SQF(I) MQP(I) = SQP(I) FRP(I) = 0 SQP2(I) = 0 TMPPKP = TMPPKP - PKP(I) PKP(I) = 0 VPO = VPO + 1 H=H+1 End If End If Next I Loop MPQQ = SP / VPO
With FRMTAG5.MSHASIL .Clear
266
.Rows = 3 + BYKFAKTOR .TextMatrix(0, 0) = "FACTOR" .TextMatrix(0, 1) = "POOL" .TextMatrix(0, 2) = "SQ" .TextMatrix(0, 3) = "V" .TextMatrix(0, 4) = "MQ" .TextMatrix(0, 5) = " F-RATIO " .TextMatrix(0, 6) = "SQ'" .TextMatrix(0, 7) = " % P" .TextMatrix(BYKFAKTOR, 0) = "ERROR" .TextMatrix(BYKFAKTOR + 1, 0) = "POOLED E" .TextMatrix(BYKFAKTOR + 2, 0) = "ST" .ColAlignment(1) = 4 .ColAlignment(2) = 4 .ColAlignment(3) = 4 .ColAlignment(4) = 4 .ColAlignment(5) = 4 .ColAlignment(6) = 4 .ColAlignment(7) = 4 .ColWidth(0) = 2400 .ColWidth(1) = 800 .ColWidth(2) = 800
267
.ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 800 RECOA.MoveFirst I=1 Do While Not RECOA.EOF .TextMatrix(I, 0) = RECOA.Fields("NAMA") con.Execute ("UPDATE TMPFAKTOR SET GANTI='" & IIf(PO(I) = "Y",
"Y",
"N")
&
"'
WHERE
RECOA.Fields("NAMA") & "'") .TextMatrix(I, 1) = PO(I) .TextMatrix(I, 2) = Round(SQP(I), 3) .TextMatrix(I, 3) = 1
.TextMatrix(I, 4) = Round(MQP(I), 3) .TextMatrix(I, 5) = Round(FRP(I), 3) .TextMatrix(I, 6) = Round(SQP2(I), 3) .TextMatrix(I, 7) = Round(PKP(I), 3) & " %" RECOA.MoveNext I=I+1
NAMA_FAKTOR='"
&
268
Loop .TextMatrix(I, 2) = Round(SQ, 3) .TextMatrix(I, 3) = VPO .TextMatrix(I, 4) = Round(MQ, 3) .TextMatrix(I, 5) = 1 .TextMatrix(I + 1, 7) = Round(100 - TMPPKP, 3) & " %" .TextMatrix(I + 1, 2) = Round(SQPE, 3) .TextMatrix(I + 1, 3) = Round(VPO, 3) .TextMatrix(I + 2, 2) = Round(ST, 3) .TextMatrix(I + 2, 3) = Round(VE, 3) + BYKFAKTOR - 1 .TextMatrix(I + 2, 7) = "100 %" End With End Sub
269
Lampiran 4 CONTOH TAMPILAN LAYAR
1. Layar Login
2. Layar Menu
3. Layar Input Master Produk
270
4. Layar Input Data Produksi
5. Layar Input FMEA
6. Layar Input Faktor
271
7. Layar Hasil Perhitungan Sigma
8. Layar Input Peride untuk Melihat Laporan
9. Layar Laporan Setting Mesin
