Tektronix TDS5000B Series

Sample Calibration Program
5-44
TDS5000B Series Service Manual
End If
TvcWaveTek.WriteString strCommand
strCommand = ”ROUTE:SIGNAL:PATH CH” & reqChannel
TvcWaveTek.WriteString strCommand
strCommand = ”ROUTE:SIGNAL:IMPEDANCE ” & reqTermination
TvcWaveTek.WriteString strCommand
Case 4
Debug.Print ”use deskew signal”
TvcWaveTek.WriteString ”SOUR:FUNC:SHAPE SKEW”
TvcWaveTek.WriteString ”SOUR:PAR:SKEW:ALIG PREC”
TvcWaveTek.WriteString ”SOUR:FREQ:FIX 1000000”
TvcWaveTek.WriteString ”ROUT:SIGN:SKEW CH1, ON”
TvcWaveTek.WriteString ”ROUT:SIGN:SKEW CH2, ON”
TvcWaveTek.WriteString ”ROUT:SIGN:SKEW CH3, ON”
TvcWaveTek.WriteString ”ROUT:SIGN:SKEW CH4, ON”
TvcWaveTek.WriteString ”ROUT:SIGN:SKEW CH5, ON”
Case Else
Debug.Print ”use AC signal”
TvcWaveTek.WriteString ”SOUR:FUNC:SHAPE SIN”
strCommand = ”SOURCE:FREQ ” & reqFreq
TvcWaveTek.WriteString strCommand
strCommand = ”SOUR:VOLT ” & reqVolts
TvcWaveTek.WriteString strCommand
strCommand = ”ROUTE:SIGNAL:PATH CH” & reqChannel
TvcWaveTek.WriteString strCommand
strCommand = ”ROUTE:SIGNAL:IMPEDANCE ” & reqTermination
TvcWaveTek.WriteString strCommand
End Select
TvcWaveTek.WriteString ”OUTPUT ON”
Sleep 1000
End Sub
’ Subroutine parses the information from the TDS5000B as to the required signal
’ for the next calibration step.
Private Sub updateSignal(strRequired As String)
Dim strSignal() As String
Dim strMessage As String
Dim stepStrLen As Integer
Dim stepStr As String ’ text progress bar
If strRequired = strEndOfCal Then
lstOutput.AddItem ”Calibration complete”
calInitDone = False
Exit Sub
End If
strSignal = Split(strRequired, ”,”)
reqVolts = Mid(strSignal(0), 2)
reqFreq = strSignal(1)