Technical data

' Now send the pattern to the instrument
.SelectData
End With
' And finally send a trigger upon pattern change
myPGTrig.Mode = AgilentN490xPGTriggerModePattern
myPGTrig.Patterntype = AgilentN490xPGTriggerPatterntypeABChange
myPGTrig.Position.Bit = 32
End Sub
The following example shows how to set up the Serial BERT to send pattern B
upon a rising edge at AUX IN:
Private Sub AlternatePatterns()
' Define the classes;
#39; myBERT is the already created Serial BERT object
Dim myPG As IAgilentN490xPG
Dim myPGAuxIn As IAgilentN490xPGAuxIn
Dim myPGDataOut As IAgilentN490xPGOutput
Dim myPatternFile As IAgilentN490xPGPatternfile
Set myPG = myBERT.PGs.Item("PG1")
Set myPGAuxIn = myPG.Input.AuxIn
Set myPGOut = myPG.Outputs.Item("PGOutput1")
' Now send the pattern generator's
' pattern file 1 to the pattern generator
Set myPatternFile = myPG.Patternfiles.Item("PGPatternfile1")
myPatternFile.SelectData
' Set the source to be external
myPGAuxIn.Source = AgilentN490xPGAuxInSourceExternal
' We want alternate patterns
myPGAuxIn.AlternatePattern = _
AgilentN490xPGAuxInAlternatePatternABHalf
' With B sent at the rising edge
myPGAuxIn.Mode = AgilentN490xPGAuxInModeREdge
End Sub
The following code shows you how to set up a PRBS pattern and send it to the
instrument:
Private Sub UsePRBS()
Dim myPG As IAgilentN490xPG
Dim myPGOut As IAgilentN490xPGOutput
Dim myPGTrig As IAgilentN490xPGTrigger
Dim myPGTrigPos As IAgilentN490xPGPosition
3 Recommended Programming Techniques
62 Agilent J-BERT N4903B High-Performance Serial BERT
Triggering on AUX IN
PRBS Patterns