8-47
IM 704420-01E
Communication Function
8
msg =
"
:INPUT:DATA:POLARITY BOTH
"
+ term 'Data Polarity = Both
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SetParameter = 1
Exit Function
End If
msg =
"
:INPUT:DATA:POLARITY?
"
+ term 'Get Data Polarity
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(4) = Left$(qry, ibcntl - 1)
msg =
"
:INPUT:DATA:TRIGGER:MODE AUTO
"
+ term 'Trigger Mode = Auto
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SetParameter = 1
Exit Function
End If
msg =
"
:INPUT:DATA:TRIGGER:MODE?
"
+ term 'Get Trigger Mode
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(5) = Left$(qry, ibcntl - 1)
msg =
"
:INPUT:EQ:MODE ON
"
+ term 'Equalizer = 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:EQ:MODE?
"
+ term 'Get Equalizer
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(6) = Left$(qry, ibcntl - 1)
8.9 Sample Program