C O M M A N D R E F E R E N C E
Programming Examples
74
MPS-8033
C H A P T E R
4
!
Programming Example: Laser output turn on subroutine
10
SUB Turnon8033(Device_id,On_ok%)
20
’ A subroutine to turn on the laser in the ILX Lightwave
MPS−8033 Fiber Optic Source.
30
40
CALL Mps8033dvr(Device_id,"LAS:OUT
ON",Response$,Err$)
’ Turn on laser
50
On_ok% = 0
’ Initialize to laser off
60
70
WHILE (On_ok% = 0)
’ Loop until laser comes on
80
CALL
Mps8033dvr(Device_id,"LAS:OUT?",Response$,Err$)
’ Is laser on yet?
90
On_ok% = VAL(Response$)
’ Convert string to integer
100
WEND
110
END SUB
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Summary of Contents for MPS-8033 Series
Page 3: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 9: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 11: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 13: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 23: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 53: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 103: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...
Page 107: ...Artisan Technology Group Quality Instrumentation Guaranteed 888 88 SOURCE www artisantg com ...