ETS-Lindgren 2090 Controller User Manual

Page 80

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 < StartTime + 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 < StartTime + 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 < StartTime + 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

Revision G– P# 399199