8-52
IM 704420-01E
msg =
"
:CALCULATION:JITTER?
"
+ term 'Get Jitter value
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
Query(6) =
"
Jitter:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:ELERROR?
"
+ term 'Get ELError value
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
Query(7) =
"
ELError:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:MELE?
"
+ term 'Get MELE value
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
Query(8) =
"
MELE:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:TVALUE?
"
+ term 'Get T value
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics = 1
Exit Function
End If
Query(9) =
"
T Value:
"
+ Left$(qry, ibcntl - 1)
8.9 Sample Program