YOKOGAWA TA720 User Manual page 110

msg = "STAT:FILT1 RISE" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
msg = "STAT:EESR?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
End If
msg = "SST" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
msg = "COMM:WAIT 1" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
msg = ":COMM:HEAD OFF" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
Query(0) = Space$(14) + "Average" + Space$(8) + "Sigma"
For i = 1 To 10
Next i
msg = ":COMM:HEAD ON" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
End If
Call ibonl(Dev, 0)
GetStatistics1 = 0
End Function
————————————————————————————————————————————————————————————————————————————————————————
IM 704510-17E
6.5 Querying the Measured Statistical Values of Period Measurement (for GP-IB)
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
temp = LTrim(Str(i))
Query(i) = "WINDOW" + temp + Space$(2 - Len(temp))
msg = ":CALC:WIND" + LTrim(Str(i)) + ":AVER?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
End If
temp = Left$(qry, ibcntl - 1)
Query(i) = Query(i) + Space$(13 - Len(temp)) + temp
msg = ":CALC:WIND" + LTrim(Str(i)) + ":SDEV?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
End If
temp = Left$(qry, ibcntl - 1)
Query(i) = Query(i) + Space$(13 - Len(temp)) + temp
Call DisplayGPIBError(sts, msg)
GetStatistics1 = 1
Exit Function
'Filter1 Rise(Data Available)
'Send Command
'Clear Extended Event Register
'Send Command
'Receive Query
'Single Measure Start
'Send Command
'Wait until data available
'Send Command
'Header = OFF
'Send Command
'Get Average value
'Send Command
'Receive Query
'Get Standard Deviation value
'Send Command
'Receive Query
'Header = ON
'Send Command
6
6-9