
10-45
IM 704610-01E
Communication Command
10
10.4 Sample Program
10.4.5
Querying the Measurement and Measured Result
Private Function GetStatistics() As Integer
Dim msg As String 'Command buffer
Dim qry As String 'Query buffer
Dim sts As Integer
Dim length As Long 'Receive query length
Dim i As Integer
Dim temp As String
Dim count As Integer
msg = Space$(100)
qry = Space$(100)
msg = "*RST" + term 'Initialize Setting Parameter
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
msg = ":COMM:HEAD OFF" + term 'Header = OFF
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
msg = ":MEAS:FUNC DTOC" + term 'Function = DtoC
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
msg = ":STAT:FILT1 RISE" + term 'Filter1 Rise(Data Available)
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
msg = ":STAT:EESR?" + term 'Clear Extended Event Register
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
sts = TmReceive(Dev, qry, 100, length) 'Receive Query
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
msg = ":SST" + term 'Single Measure Start
sts = TmSend(Dev, msg) 'Send Command
If (sts < 0) Then
Call DisplayError(sts, msg)
GetStatistics = 1
Exit Function
End If
count = 0
Do
msg = ":STAT:COND?" + term 'Status condition
sts = TmSend(Dev, msg) 'Send Command