Sample Program
Bit Error Track Profile Measurement
Bit Error Track Profile Measurement
The bit error track profile measurement allows you to observe read offset characteristics of the bit error rate.
Example 2-2. Sample Program
Private Sub CmdBerTrackProfile_Click()
Const BerUserDataBitRate As Double = 120000000#
Const ReferenceClock As Double = 20000000#
'
Const BerTestPattern1 As String = "11001000"
'
Const TrackPreambleLength As Long = 1000
Const GapLength As Long = 55 ' Dummy if the gap length is Auto
Const SectPreambleLength As Long = 100
Const DataLength As Long = 1024
Const NoOfSector As Integer = 32
Const noofave As Integer = 1
Const MeasByteCount As Double = 1000
Const ErrBitPerByte As Double = 1
Const otcThreshold As Double = 0.001
'
Const NumOfPoint As Integer = 21
Const OffsetRange As Double = 0.000002
'
Dim bitLength As Long, symbol As Long, totalSector As Long, lostSector As Long
Dim ber As Double, otc As Double, otcPos As Double, otcNeg As Double
Dim offset(NumOfPoint - 1) As Double
Dim result(NumOfPoint - 1) As Double
Dim Disp As String
Dim i As Integer
'
ErrorCheck hpe5022_BER_userDataBitRate(HpE5022, BerUserDataBitRate)
ErrorCheck hpe5022_BER_channelIcReferenceClock(HpE5022, ReferenceClock)
'
' Create BER Data Pattern
'
bitLength = Len(BerTestPattern1)
ErrorCheck hpe5022_BER_userPattern(HpE5022, hpe5022_BER_PAT_1, hpe5022_USER_DATA_BIN, bitLength, _
ErrorCheck hpe5022_BER_selectPattern(HpE5022, hpe5022_BER_PAT_1)
'
' Define Track and Sector Format
16
BerTestPattern1)
Chapter 2