Table of Contents
Advertisement
6.6 Querying the Measured Statistical Values of Period A & Period B Measurement (for GP-IB)
6-12
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
Next i
msg = ":HHISTOGRAM:MULTI:UPDATE" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = "CALCULATION:PARAMETER:AVERAGE ON" + term 'Calc/Stat On
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = "STATUS:FILTER1 RISE" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = "STATUS:EESR?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = "SSTART" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = "COMMUNICATE:WAIT 1" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
msg = ":COMMUNICATE:HEADER OFF" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
Query(0) = Space$(16) + "Meas1" + Space$(8) + "Meas2"
For i = 1 To 10
temp = LTrim(Str(i))
Query(i) = "WINDOW" + temp + Space$(2 - Len(temp))
msg = ":CALCULATION:MEAS1:WINDOW" + LTrim(Str(i)) _
+ ":AVERAGE?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
Exit Function
End If
temp = Left$(qry, ibcntl - 1)
Query(i) = Query(i) + Space$(13 - Len(temp)) + temp
msg = ":CALCULATION:MEAS2:WINDOW" + LTrim(Str(i)) _
+ "AVERAGE?" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatistics2 = 1
'UPDATE Window Scale
'Send Command
'Send Command
'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
IM 704510-17E
Advertisement
Table of Contents
