Santec PEM-320, Operation Manual

Page: 35 / 46

9-2
PEM-320 Operation Manual
‘Set Measurement Speed Routine ‘Subroutine description
Private Sub MeasurementSpeed_Set() ‘Sets routine name to
MeasurementSpeed_Set
‘Define Variables ‘Comment
Dim pem320 As Integer ‘Dimensions pem320 as
integer
Dim pem320a As Integer ‘Dimensions pem320a as
integer for error checking
‘Initialise Device ‘Comment
Call SendIFC(0) ‘Initialise GPIB interface
Call ibdev(0, 1, 0, T10s, 0, 0, pem320) ‘Open and initialise device
Call ibln(pem320, 1, 0, pem320a) ‘Check for device presence
(error checking)
gpib_dl$ = Chr$(13) + Chr$(10) ‘Set Cr/Lf as delimitter
‘Set Measurement Speed to 5Hz ‘Comment
Call ibwrt(pem320, “RF1” + gpib_dl$) ‘Set measurement speed to
5 Hz
End Sub ‘End subroutine