Retour sommaire : Direct Planning - Formules - Voir aussi : Syntaxe Visual Basic

Postulat : on gère une code forme de découpe et un code forme braille.

Le temps de réglage est lié au nombre de poses et pour deux tâches successives sur un même outil, la seconde voit son temps de réglage diminué.

'------------------------------------------------------------------------------------------
' Le temps de réglage découpe est constitué :
' * du temps de base défini sur la fiche machine
' * auquel on ajoute un temps par nombre de poses si on change de forme de découpe
' * auquel on ajoute un temps par nombre de poses si on change de forme braille (collage)
'------------------------------------------------------------------------------------------
' Temps par poses (en minutes)
Dim TempsParPose_FormeDecoupe as integer = 3   
Dim TempsParPose_CollageBraille as integer = 2

' Nombre de poses 
dim NBPoses as integer = Tache.Information_Process(5).Zone_Configurable_2

' Si changement de forme de découpe : ajout de 3 min par nb poses
if TachePrecChangement(Tache.Information_Process(5).Zone_Configurable_1) then
    TempsReglage = TempsReglage + NBPoses * TempsParPose_FormeDecoupe
end If

' Si changement de braille intégré : on ajoute 2 min par poses pour positionner les brailles sur les poses
if TachePrecChangement(Tache.Information_Process(5).Zone_Configurable_3, True, False) then
    TempsReglage = TempsReglage + NBPoses * TempsParPose_CollageBraille
end If

' Si opérateur en formation, on ajoute 50% du temps
Dim OperateurEnFormation as Boolean = Tache.Zone_Configurable_10
if OperateurEnFormation then
    TempsReglage = TempsReglage * 1.5
end if

' Au minium 5 minutes de réglage pour le temps de changement d'OF
TempsReglage = math.max(TempsReglage, 5)