Executing Single Measurement - YOKOGAWA TA120E User Manual

8.9.5 Executing Single Measurement

IM 704420-01E
Sample2 Single Measure
—————————————————————————————————————————————————————— Private Function SingleMeasure() As Integer
Dim msg As String
Dim qry As String
Dim sts As Integer
msg = Space$(100)
qry = Space$(100)
sts = InitGpib
If (sts <> 0) Then
SingleMeasure = 1
Exit Function
End If
" "
msg = STATUS:FILTER1 RISE
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SingleMeasure = 1
Exit Function
End If
" "
msg = STATUS:EESR? + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SingleMeasure = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SingleMeasure = 1
Exit Function
End If
" "
msg = SSTART + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
SingleMeasure = 1
Exit Function
End If
Call ibonl(Dev, 0)
SingleMeasure = 0
End Function
——————————————————————————————————————————————————————————————————————————————————————————————————
'Command buffer
'Query buffer
'Initialize GPIB
+ term 'Filter1 Rise(Data Available)
'Send Command
'Clear Extended Event Register
'Send Command
'Read EESR
'Single Measure Start
'Send Command
8.9 Sample Program
8-49
8