Table of Contents
Advertisement
6.9 Querying the Measured Statistical Values of Pulse Width Measurement (for Ethernet)
6-20
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
msg = "STAT:FILT1 RISE" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
msg = "STAT:EESR?" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
sts = TmReceive(eDev, qry, 1000, length)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
msg = "SST" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
msg = "COMM:WAIT 1" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
msg = ":COMM:HEAD OFF" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
Query(0) = Space$(14) + "Average" + Space$(8) + "Sigma"
For i = 1 To 10
temp = LTrim(Str(i))
Query(i) = "WINDOW" + temp + Space$(2 - Len(temp))
msg = ":CALC:WIND" + LTrim(Str(i)) + ":AVER?" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
sts = TmReceive(eDev, qry, 1000, length)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
temp = Left$(qry, length - 1)
Query(i) = Query(i) + Space$(13 - Len(temp)) + temp
msg = ":CALC:WIND" + LTrim(Str(i)) + ":SDEV?" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
sts = TmReceive(eDev, qry, 1000, length)
If (sts < 0) Then
Call DisplayEthernetError(sts, msg)
GetStatisticsEthernet = 1
Exit Function
End If
temp = Left$(qry, length - 1)
Query(i) = Query(i) + Space$(13 - Len(temp)) + temp
Next i
msg = ":COMM:HEAD ON" + term
sts = TmSend(eDev, msg)
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GetStatisticsEthernet = 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
IM 704510-17E
Advertisement
Table of Contents
