Tektronix TDS5000B Series

Sample Calibration Program
5-42
TDS5000B Series Service Manual
End If
End Sub
’ Function to wait for Operation Complete to happen
’ from the tekScope.
Private Function tekScopeOPC() As Boolean
Dim opc As Integer
Dim strOPC As String
Dim count As Integer
On Error Resume Next
opc = 0
count = 0
While (opc <> 1) And (count < 1000)
Sleep 1000
strOPC = ””
strOPC = TvcScope.Query(”*OPC?”)
If Len(strOPC) > 0 Then
opc = Asc(strOPC) - Asc(”0”)
Else
opc = 0
End If
count = count + 1
Wend
If count > 10 Then
Debug.Print ”OPC happened after ” & count & ” seconds.”
End If
If opc <> 1 Then
Debug.Print ”Timed out trying to get OPC on tekScope.”
tekScopeOPC = False
Else
tekScopeOPC = True
End If
End Function
’ Resets the WaveTek 9500 to default mode.
Private Sub resetWaveTek()
Dim count As Integer
Dim opc As Integer
Dim strOPC As String
Dim esr As Integer
TvcWaveTek.WriteString ”*CLS”
TvcWaveTek.WriteString ”*RST”
count = 0
strOPC = TvcWaveTek.Query(”*OPC?”)
If Len(strOPC) > 0 Then
opc = Asc(strOPC) - Asc(”0”)
Else
opc = 0