Table of Contents
Advertisement
Sample Program
Example Program
Example Program
This section describes the example programs for typical measurements. The sample program is saved at the
directory named "c:\Program Files\Agilent\E5022\doc\vb\sample1.vbp"
As the programming manual explains, Measurement Sequence is basically divided into six steps; Initializing, Drive
On, Auto Configuration, Common Setup & Precompensation Setup, Measurement and Closing. This section
provides only measuement portion for bit error measurement. The other portions are described in the programming
manual.
Bit Error Test Measurement
The bit error test measurement allows you to observe the bit error analysis. See Chapter 4 in the Operation Manual
for its measurement definition.
Example 2-1. Sample Program
Private Sub CmdBer_Click()
Const BerUserDataBitRate As Double = 120000000# ' User Data Bit Rate [bps]
Const ReferenceClock As Double = 20000000# ' Channel IC Reference Clock
Const BerTestPattern1 As String = "11001000" ' Test Pattern in Binary Format
Const TrackPreambleLength As Long = 1000 ' Track Preamble Length [Byte]
Const GapLength As Long = 55 ' Dummy if the gap length is Auto [Byte]
Const SectPreambleLength As Long = 100 ' Sector Preamble Length [Byte]
Const DataLength As Long = 1024 ' Data Length [Byte]
Const NoOfSector As Integer = 10 ' Number of Sector per Track
Const noofave As Integer = 1
Const MeasByteCount As Double = 1000 ' Measurement Byte Count [Byte]
Const ErrBitPerByte As Double = 1 ' Error Bit Per Byte
'
Dim FilterCutOffFreq As Double, FilterBoost As Double
Dim bitLength As Long, symbol As Long, totalSector As Long, lostSector As Long
Dim NumOfSize As Long, ErrorCount() As Long, LostCount() As Long
Dim ber As Double, delay(2) As Double, Property1() As Double
Dim Disp As String
Dim IcName As String * 10
Dim i As Integer
' FilterCutOffFreq = 20000000#
' FilterBoost = 5.5
' Property1(0) = xxxx
' Properry1(1) = xxxx
'
ErrorCheck hpe5022_BER_channelIcIdn_Q(HpE5022, IcName)
ErrorCheck hpe5022_BER_userDataBitRate(HpE5022, BerUserDataBitRate)
12
Chapter 2
Advertisement
Table of Contents
