Bijlagen Bijlagen

(1)

(2)

(3)

(4)

Bijlage 7-1 Afleiding van de inschietvergelijking.

Gesprekken met de bedrijfsleiders en de drukkers hebben geleid tot de vaststelling van twee

punten voor de vorming van een lineaire functie.

Druktijd [uur]

Inschietfactor

0 1,07

3 1,03

Y = a*x + b

Punt (0;1,07) geeft:

B = 1,07

Punt (3;1,03) geeft

1,03 = a*3 + 1,07

A = -0,0133

**Inschietfactor = -0,0133 * druktijd + 1,07**

Met er kleven echter wel een aantal beperkingen aan de keuze voor een lineaire vergelijking.

Het tijdsdomein waarin er aan de hand van deze vergelijking een bruikbare schatting kan

worden gemaakt, is vrij beperkt. In onderstaande figuur staat het verloop van deze functie

weergegeven.

(5)

(6)

(7)

(8)

(9)

(10)

(11)

(12)

(13)

Bijlage 10-5 Code Visual Basic

Sub Totaal() '

' Totaal Macro

' De macro is opgenomen op 24-8-2005 door Ronald Hartsteen. '

Application.Run "'model 10+macro1.xls'!Velden_wissen" Application.Run "'model 10+macro1.xls'!VB_Constanten_plaatsen"

' startpositie cursors dagshift Sheets("VB output").Select Range("A4").Select Sheets("Productieplanning").Select Range("B3").Select For i = 1 To 28

Application.Run "'model 10+macro1.xls'!VM_vullen_dag" Application.Run "'model 10+macro1.xls'!Output_dag" Next i

' startpositie cursors nachtshift Sheets("VB output").Select Range("A35").Select Sheets("Productieplanning").Select Range("D3").Select For i = 1 To 28

Application.Run "'model 10+macro1.xls'!VM_vullen_dag" Application.Run "'model 10+macro1.xls'!Output_dag" Next i End Sub Sub Velden_wissen() ' ' Velden_wissen Macro

' De macro is opgenomen op 24-8-2005 door Ronald Hartsteen. ' ' Range("C4,C6,C8").Select Range("C8").Activate Application.CutCopyMode = False Sheets(Array("VM1", "VM2", "VM3", "VM4", "VM5", "VM6", "VM7", "VM8", "VM9", "VM10")). _ Select Sheets("VM1").Activate Range("C4,C6,C8,C20,C18,C16,C14,C12,C10,C8,C6,C4").Select Selection.ClearContents End Sub Sub VB_Constanten_plaatsen()

(14)

'

' VB_Constanten_plaatsen Macro

' De macro is opgenomen op 24-8-2005 door Ronald Hartsteen. ' ' Sheets("CONSTANT").Select Range("G2").Select Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets(Array("VM1", "VM2", "VM3", "VM4", "VM5", "VM6", "VM7", "VM8", "VM9", "VM10")). _ Select Sheets("VM10").Activate Range("C10").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' cyl_speed Sheets("VB parameters").Select Range("B3").Select Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets(Array("VM1", "VM2", "VM3", "VM4", "VM5", "VM6", "VM7", "VM8", "VM9", "VM10")). _ Select Sheets("VM1").Activate Range("C8").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' collecteren instellen 'Sheets(Array("VM1", "VM2", "VM3", "VM4", "VM5", "VM6", "VM7", "VM8", "VM9", "VM10")). _ Select 'Sheets("VM1").Activate Range("C6").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "n" End Sub Sub VM_vullen_dag() ' ' VM_vullen_dag Macro

' De macro is opgenomen op 24-8-2005 door Ronald Hartsteen. ' Selection.Font.Italic = True ' VM1 Sheets("Productieplanning").Select ActiveCell.Offset(0, 1).Range("A1").Select Selection.Copy Sheets("VM1").Select Range("C14").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C4").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "d" Sheets("Productieplanning").Select ActiveCell.Offset(0, 1).Range("A1").Select Selection.Copy Sheets("VM1").Select Range("C12").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

(15)

Sheets("Productieplanning").Select ActiveCell.Offset(0, 3).Range("A1").Select Application.CutCopyMode = False Selection.Copy Sheets("VM2").Select Range("C14").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Productieplanning").Select ' VM3 Sheets("Productieplanning").Select ActiveCell.Offset(0, 3).Range("A1").Select Application.CutCopyMode = False Selection.Copy Sheets("VM3").Select Range("C14").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Productieplanning").Select ' VM5 Sheets("Productieplanning").Select ActiveCell.Offset(0, 3).Range("A1").Select Application.CutCopyMode = False

(16)

Selection.Copy Sheets("VM5").Select Range("C14").Select

(17)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Productieplanning").Select 'hard return ActiveCell.Offset(1, -38).Range("A1").Select End Sub Sub Output_dag() '

(18)

' Output_dag Macro

' De macro is opgenomen op 24-8-2005 door Ronald Hartsteen. '

' positiebepaling nog aanpassen

' VM1 Sheets("VM1").Select Range("C28").Select Selection.Copy Sheets("VB output").Select ActiveCell.Offset(0, 1).Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' VM2 Sheets("VM2").Select Range("C28").Select Selection.Copy Sheets("VB output").Select ActiveCell.Offset(0, 1).Range("A1").Select

' VM8

(19)

Range("C28").Select Selection.Copy

Sheets("VB output").Select

ActiveCell.Offset(0, 1).Range("A1").Select

' hard return

ActiveCell.Offset(1, -10).Range("A1").Select End Sub

(20)

(21)

(22)