Newport XPS-Q8 - Page 31

XPS-Q8 Tcl Manual
flush $telnetOut
puts $telnetOut " move axis1: $move1"
flush $telnetOut
puts $telnetOut " move axis2: $move2"
flush $telnetOut
# Move axis 1
set code [catch "GroupMoveAbsolute $socketID
$axis1 $move1”]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
“GroupMoveAbsolute” $telnetOut
return
}
# Move axis 2
set code [catch "GroupMoveAbsolute $socketID
$axis2 $move2”]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
“GroupMoveAbsolute” $telnetOut
return
}
}
# Wait 1 second and close socket
after 1000
puts $telnetOut "End of program"
# Force transfer to channel’s output buffer
flush $telnetOut
TCP_CloseSocket $socketID
This is what gets displayed on a Telnet window. In this example the input voltage of
GPIO2 decreases from 2.4 V to 0 V.
EDH0307En1041 — 10/17
25