Technical data

AgilentN490xStatusRegisterOperation, _
AgilentN490xStatusSubRegisterEnum.
AgilentN490xStatusSubRegisterEvent)
If (myOperReg And &H4000) <> 0 Then Exit Do
End If
'DoEvents()
Loop While True
' We now know that Error Location Capture is running.
End Sub
Private Sub Set_Up_Registers_For_Stop()
' Set the operation register to trigger when Error Location Capture(stops)
With myStatus
' First clear the registers:
.Clear()
.Register(AgilentN490xStatusRegisterEnum.
AgilentN490xStatusRegisterOperation, _
AgilentN490xStatusSubRegisterEnum.
AgilentN490xStatusSubRegisterEnable) = ampH4000
.Register(AgilentN490xStatusRegisterEnum.
AgilentN490xStatusRegisterOperation, _
AgilentN490xStatusSubRegisterEnum.
AgilentN490xStatusSubRegisterPositiveTransition) = 0
.Register(AgilentN490xStatusRegisterEnum.
AgilentN490xStatusRegisterOperation, _
AgilentN490xStatusSubRegisterEnum.
AgilentN490xStatusSubRegisterNegativeTransition) = ampH4000
End With
End Sub
Private Sub Manually_Stop_ELOC()
myELOC.Mode = AgilentN490xEDErrorLocationModeEnum.
AgilentN490xEDErrorLocationModeOff
' Loop until ELOC has actually stopped:
Do
myStatusByte = myStatus.SerialPoll
If myStatusByte <> 0 Then>
myOperReg = _
myStatus.Register(AgilentN490xStatusRegisterEnum.
AgilentN490xStatusRegisterOperation, _
AgilentN490xStatusSubRegisterEnum.
AgilentN490xStatusSubRegisterEvent)
If (myOperReg And &H4000) <> 0 Then Exit Do
End If
'DoEvents()
Loop While True
' Verify the ELOC status:
3 Recommended Programming Techniques
48 Agilent J-BERT N4903B High-Performance Serial BERT
Setting Up the Status Registers
Manually Stopping ELOC