8-48
IM 704420-01E
msg =
"
:INPUT:PLL:MODE ON
"
+ term 'PLL = On
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SetParameter = 1
Exit Function
End If
msg =
"
:INPUT:PLL:MODE?
"
+ term 'Get PLL
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SetParameter = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SetParameter = 1
Exit Function
End If
Query(7) = Left$(qry, ibcntl - 1)
Call ibonl(Dev, 0)
SetParameter = 0
End Function
——————————————————————————————————————————————————————————————————————————————————————————————————
8.9 Sample Program