![YOKOGAWA 704420 User Manual Download Page 122](http://html.mh-extra.com/html/yokogawa/704420/704420_user-manual_911156122.webp)
8-51
IM 704420-01E
Communication Function
8
msg =
"
:CALCULATION:MAXIMUM?
"
+ term 'Get Maximum 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(2) =
"
Maximum:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:MINIMUM?
"
+ term 'Get Minimum 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(3) =
"
Minimum:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:PTOPEAK?
"
+ term 'Get Peak-Peak 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(4) =
"
Peak-Peak:
"
+ Left$(qry, ibcntl - 1)
msg =
"
:CALCULATION:FLUTTER?
"
+ term 'Get Flutter 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(5) =
"
Flutter:
"
+ Left$(qry, ibcntl - 1)
8.9 Sample Program