18 ANNEXES
Exemple de script
Sur cette application, le M400 a été installé sur un banc automatique, entièrement contrôlé par le M400.
La mesure a été effectuée à l'aide de capteurs inductifs pneumatiques poussés. Des vérins
pneumatiques ont été installés pour maintenir ou relâcher la pièce. 3 boutons ont été programmés :
Start, Preset et End. Un contrôle d'étalonnage avec maintien et test de répétition est également effectué.
01
clr(14)
'returns the pneumatic cylinder
clr(13)
returns the pneumatic-pushed-probes
message
"Press on Start or Preset"
02
if
in(11)
goto
if
in(12)
goto
07
if
errorpreset()
goto
goto
02
03
message
"Preset must be done, press on Preset »
loop while not
in(11)
04
message
"Preset"
loop while
in(11)
set(14)
'extend the pneumatic cylinders
sleep(10)
'wait
1
set(13)
'extend the pneumatic probes
preset()
'preset
measure()
'refresh the measurement on the M400 screen
message
"stand by test..."
sleep(30)
'wait
3
clr(13)
'returns the pneumatic-pushed probes
probetest()
'stand by test
if
errorpreset()
goto
message
"repetition test..."
sleep(30)
'wait
3
set(13)
'extend the pneumatic pushed probes
mastercontrol()
'preset control
if
errorpreset()
goto
goto
01
'return at the beginning
05
message
"error during the stand by test"
loop while not
in(11)
loop while
in(11)
goto
01
'return at the begining
06
message
"error during repetition test"
loop while not
in(11)
loop while
in(11)
goto
01
'end of preset, return at the beginning
07
message
"measurement in progress..."
loop while
in(12)
set(14)
'extend the pneumatic cylinders
sleep(10)
'wait
1
set(13)
'extend the pneumatic probes
08
measure()
'measure
if not
in(12)
goto
loop while
in(12)
04
'preset button
'start button
03
'test if the preset has to be done
'Preset subroutine
'wait release of the Preset button
second
(see chap 6.1.5)
secondes
05
'check the result
(see chap 6.1.5)
seconds
06
'check the result
'ask for error acknowledge
'ask for error acknowledge
'wait the release of the Measure button
second
08
'wait the release of the End button
M400
197