PROCEDURE SXD_SUB
PARAMETERS ccr_val t1
LOCAL tmp
SETLABVIEWVAR "sxd ccr - front panel.vi" "Target" ccr_val
PUSHLABVIEWBUTTON "sxd ccr - front panel.vi" "Move"
LOOP
tmp = GETLABVIEWVAR("sxd ccr - front panel.vi", "Ready")
EXITIF tmp = 1
PRINTIN "waiting for ccr"
SLEEP 5
ENDLOOP
CSET temp1=t1
LOOP
tmp = GETLABVIEWVAR("eurotherm controller - details.vi", "Temperature - 0")
EXITIF (abs(t1 - tmp) <= 20)
PRINTIN "waiting for eurotherm"
SLEEP 5
ENDLOOP
ENDPROCEDURE
PROCEDURE SXD_SCAN
SXD_SUB -155.0 300.0
BEGIN
WAITFOR uamps=60.0
END
SXD_SUB -120.0 300.0
BEGIN
WAITFOR uamps=60.0
END
PRINTIN "Finished"
ENDPROCEDURE