Tektronix TDS5000B Series - Page 81

Sample Calibration Program
TDS5000B Series Service Manual
5-45
reqChannel = strSignal(2)
reqTermination = strSignal(3)
reqStepName = strSignal(4)
strMessage = reqVolts & ” volts ”
If reqFreq = 0 Then
strMessage = strMessage & ” DC ”
Else
strMessage = strMessage & reqFreq & ” AC ”
End If
strMessage = strMessage & ”channel ” & reqChannel & ””
If reqTermination = 1000000 Then
strMessage = strMessage & ”1 Meg Ohms”
Else
strMessage = strMessage & reqTermination & ” Ohms”
End If
stepStrLen = 2
stepStr = ”[]”
If Left(reqStepName, 3) = ”S01” Then
stepStrLen = 24
stepStr = ”[ long operation ]”
End If
If Left(reqStepName, 3) = ”D01” Then
stepStrLen = 10
stepStr = ”[ wait ]”
End If
txtSignal.Text = ”[” & String(stepNumber, ”+”) & stepStr & String(110 - (stepNumber + step-
StrLen), ”.”)&”]”
txtSignal.Refresh
stepNumber = stepNumber + 1
If Left(reqStepName, 3) = ”S01” Then
stepNumber = stepNumber + 23
End If
If Left(reqStepName, 3) = ”D01” Then
stepNumber = stepNumber + 9
End If
lstOutput.AddItem ”Provide the following signal: ” & strMessage
lstOutput.ListIndex = lstOutput.ListCount - 1
lstOutput.Refresh
End Sub
’ Subroutine turns on the correct buttons for the current mode of operation at
’ the end of the calibration step.
Private Sub turnOnButtons()
cmdPlay.Enabled = True
cmdExit.Enabled = True
End Sub