Programming Example: Laser Output Turn On Subroutine - ILX Lightwave MPS-8033 Series User Manual

C O M M A N D R E F E R E N C E
4
C H A P T E R
Programming Examples

Programming Example: Laser output turn on subroutine

10
20
30
40
50
60
70
80
90
100
110
74
! MPS-8033
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
SUB Turnon8033(Device_id,On_ok%)
' A subroutine to turn on the laser in the ILX Lightwave
MPS−8033 Fiber Optic Source.
CALL Mps8033dvr(Device_id,"LAS:OUT
ON",Response$,Err$)
On_ok% = 0
WHILE (On_ok% = 0)
CALL
Mps8033dvr(Device_id,"LAS:OUT?",Response$,Err$)
On_ok% = VAL(Response$)
WEND
END SUB
' Turn on laser
' Initialize to laser off
' Loop until laser comes on
' Is laser on yet?
' Convert string to integer