Tektronix TDS5000B Series

Sample Calibration Program
TDS5000B Series Service Manual
5-43
End If
While (opc <> 1) And (count < 20)
Sleep 1000
strOPC = TvcWaveTek.Query(”*OPC?”)
If Len(strOPC) > 0 Then
opc = Asc(strOPC) - Asc(”0”)
Else
opc = 0
End If
count = count + 1
Wend
If opc <> 1 Then
Debug.Print ”Unable to reset calibrator.”
Exit Sub
Else
Sleep 1000
esr = TvcWaveTek.Query(”*ESR?”)
If esr <> 0 Then
Debug.Print ”Non-zero event status after *RST from waveTek 9500.”&_
”*ESR? returned: ” & esr
End If
End If
srcGrounded = False
End Sub
’ Sets the WaveTek 9500 signal to the needed value for the next cal step
Private Sub setWaveTek()
Dim strCommand As String
TvcWaveTek.WriteString ”OUTPUT OFF”
If reqVolts > 2.9 Then ’ make sure we won’t get an overload error
TvcWaveTek.WriteString ”ROUTE:SIGNAL:IMPEDANCE 1000000”
End If
Select Case reqFreq
Case 0
Debug.Print ”use ” & reqVolts & ” DC signal on channel ” & reqChannel & _
” term: ” & reqTermination & ” ohms”
TvcWaveTek.WriteString ”SOUR:FUNC:SHAPE DC”
If reqVolts = 0 Then
strCommand = ”SOUR:PAR:DC:GROUND ON”
srcGrounded = True
Else
If srcGrounded = True Then
srcGrounded = False
strCommand = ”SOUR:PAR:DC:GROUND OFF”
TvcWaveTek.WriteString strCommand
End If
strCommand = ”SOUR:VOLTAGE ” & reqVolts