Agilent Technologies J-BERT N4903B Manual de Serviço descarregar pdf (Página 61)

100

101

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"

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

1 2 ... 56 57 58 59 60 61 62 63 64 65 66 ... 405 406

Comentários a estes Manuais

Sem comentários

Agilent Technologies J-BERT N4903B Manual de Serviço Página 61

Comentários a estes Manuais

Manuais e produtos relacionados com Software Agilent Technologies J-BERT N4903B