Agilent Technologies InfiniiVision 5000 Series Programmer's Manual page 322

5
Commands by Subsystem
VisaComError:
End Sub
322
' Operation Status Condition Register MTE bit (bit 9, &H200).
If (varQueryResult And &H200) <> 0 Then
Exit Do
Else
Sleep 100 ' Small wait to prevent excessive queries.
lngElapsed = lngElapsed + 100
End If
Loop
' Look for RUN bit = stopped (mask test termination).
lngElapsed = 0
Do While lngElapsed <= lngTimeout
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Operation Status Condition Register RUN bit (bit 3, &H8).
If (varQueryResult And &H8) = 0 Then
Exit Do
Else
Sleep 100 ' Small wait to prevent excessive queries.
lngElapsed = lngElapsed + 100
End If
Loop
' Get total waveforms, failed waveforms, and test time.
myScope.WriteString ":MTESt:COUNt:WAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test total waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:FWAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test failed waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:TIME?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test elapsed seconds: " + strQueryResult
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide