Technical data

Working with User Patterns in IVI-COM
The following code provides an example of how to set up an alternate pattern.
Private Sub DefinePatternFile()
' Define the classes;
' myBERT is the already created Serial BERT object
Dim myPG As IAgilentN490xPG
Dim myED As IAgilentN490xED
Dim myPGTrig As IAgilentN490xPGTrigger
Dim myPatternFile As IAgilentN490xPGPatternfile
Dim myData1() As String
Dim myData2() As String
Dim ix As Integer
Set myPG = myBERT.PGs.Item("PG1")
Set myED = myBERT.EDs.Item("ED1")
Set myPGTrig = myPG.Trigger
Set myPatternFile = myPG.Patternfiles.Item("PGPatternfile1")
' Set up one array with alternating 1s and 0s
' and one with only 0s
ReDim myData1(32)
ReDim myData2(32)
For ix = 1 To 32
If (ix And 2) = 2 Then
myData1(ix) = "1"
Else
myData1(ix) = "0"
End If
myData2(ix) = "0"
Next
With myPatternFile
' Define the pattern
.Length = 32
.Description = "Test pattern"
.Alternate = True
' Set the pattern's data
.SetData 1, AgilentN490xPGPatternFormatBin, myData1
.SetData 2, AgilentN490xPGPatternFormatBin, myData2
' Error detector should track the pattern generator
myED.Input.DataIns.Item("EDDataIn1"). _
TrackingEnabled = True
Recommended Programming Techniques 3
Agilent J-BERT N4903B High-Performance Serial BERT 61
Creating Alternate Patterns