Keithley 7710, Руководство пользователя

Страница: 12 / 28

8
If Not (TestRunning) Then
Call ScanDCV
End If
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ Data is formatted to show one reading per line in reading window.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Format_Readings(Resp As String)
Dim Out_str As String
Dim Ch As String
Dim i As Long
i = Len(Resp)
Out_str = ""
i = 1
While (i <= Len(Resp))
Ch = Mid(Resp, i, 1)
If (Ch = ",") Then
Ch = vbCrLf
End If
Out_str = O Ch
i = i + 1
Wend
Text1.Text = Out_str
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ This is the main function for the 7710 test program.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub ScanDCV()
Dim NumReadings As Integer
Dim Resp As String
Dim Cmd As String
If Not (ConnectTo2701) Then ' Open connection to 2701.
Exit Sub
End If
TestRunning = True
Topics
Topics
Topics