Tektronix TDS5000B Series

Sample Calibration Program
TDS5000B Series Service Manual
5-41
If devFound = False Then ’ only need to find the device names once.
strGPIBwavetek = ””
strGPIBtekscope = ””
txtSignal.Text = ”Please wait: Initializing”
TvcScope.SearchCriterion = 0 ’ search all devices
’ get detected VISA devices
dev = TvcScope.FindList
’ populate devices listbox
If IsArray(dev) Then
For i = LBound(dev) To UBound(dev)
If Left(dev(i), 4) = ”GPIB” Then
lstOutput.AddItem dev(i)
End If
Next
End If
’ Set to first GPIB device since no internal device found
Fori=0TolstOutput.ListCount - 1
If Left(lstOutput.List(i), 4) = ”GPIB” Then
lstOutput.ListIndex = i
TvcScope.Descriptor = lstOutput.Text
strResult = TvcScope.Query(”*IDN?”)
Debug.Print strResult
If Left(strResult, 14) = ”TEKTRONIX,TDS5” Then
strGPIBtekscope = lstOutput.Text
lstOutput.AddItem ”tekScope is ” & strResult
End If
If Left(strResult, 16) = ”Wavetek Ltd,9500” Then
strGPIBwavetek = lstOutput.Text
lstOutput.AddItem ”Wavetek is ” & strResult
End If
End If
Next
If strGPIBtekscope = ”” Then
MsgBox ”failed to find TekScope”
End
End If
TvcScope.Descriptor = strGPIBtekscope
If strGPIBwavetek = ”” Then
MsgBox ”failed to find WaveTek 9500”
End
End If
TvcWaveTek.Descriptor = strGPIBwavetek
txtSignal.Text = ”TekScope Ready”
devFound = True
lstOutput.ListIndex = lstOutput.ListCount - 1