Using the GPIB Command Set with the Model 2090
Model 2090 Multi-Device Controller
TowerEdit.Text = "Polarizing" ' Inform user of tower status
ibwrt Tower%, "PV" ' Polarize Vertical
StartTime = Timer ' Read current timer count
While (Timer < Sta 3) ' Delay 3 sec for polarization
DoEvents ' Let Windows do other things
Wend
ibwrt Tower%, "CP?" ' Query tower current position
ibrd Tower%, Read$ ' Read response
TowerEdit.Text = Val(Read$) ' Display number in edit box
'
' Set up spectrum analyzer for max hold for vertical scan here...
'
' Scan tower down with tower polarized vertically
'
ibwrt Tower%, "DN" ' Send tower to bottom
Do ' Update display while waiting
ibwrt Tower%, "CP?" ' Query tower current position
ibrd Tower%, Read$ ' Read response
TowerEdit.Text = Val(Read$) ' Display number in edit box
'
' Update analyzer display here...
'
StartTime = Timer ' Read current timer count
While (Timer < Sta 0.1) ' Delay 0.1 second
DoEvents ' Let Windows do other things
Wend
ibwrt Tower%, "*OPC?" ' Is the tower done moving?
ibrd Tower%, Read$ ' Read response
TowerDone = Val(Read$) ' =1 if done, 0 if moving
Loop While Not TowerDone ' Until tower stops
'
' Move turntable to next angle position
'
Angle = Angle + 90 ' Set the new angle
ibwrt Table%, "SK " + Str$(Angle) ' And turn the table to it
Do ' Wait until table finishes moving
ibwrt Table%, "CP?" ' Query turntable current position
ibrd Table%, Read$ ' Read response
TableEdit.Text = Val(Read$) ' Display number in edit box
StartTime = Timer ' Read current timer count
While (Timer < Sta 0.1) ' Delay 0.1 second
DoEvents ' Let Windows do other things
Wend
ibwrt Table%, "*OPC?" ' Is the turntable done moving?
ibrd Table%, Read$ ' Read response
TableDone = Val(Read$) ' =1 if done, 0 if moving
Loop While Not TableDone ' Until turntable stops
ibwrt Table%, "CP?" ' Query turntable current position
ibrd Table%, Read$ ' Read response
TableEdit.Text = Val(Read$) ' Display number in edit box
Wend
'
' Clean up before quitting
80
© ETS-Lindgren– April, 2006
Revision G– P# 399199
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
