Keithley 7710, User Manual

Page: 9 / 28

5
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ 7710 DCV FAST SCAN EXAMPLE FOR THE 2701 MODULE
’
’ This program is an example of configuring a simple DCV scan on the 7710 with a 2701 mainframe.
’ This program acquires readings at a rate of 500/ sec.
’
’ Note that a Winsocket control in Visual Basic is being used to communicate with the 2701.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Const ScanList = "(@101:120)"
Dim TestRunning As Boolean
Dim DataReceived As Boolean
Dim DataSent As Boolean
Dim Data As String
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ A Visual Basic function call when a Form (program window) is opened.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Form_Load()
TestRunning = False
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ These two functions exit the program and closes the winsocket.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub ExitButton_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = MsgBox("Exit?", 20, "Exit Verify")
If Cancel = vbYes Then
Cancel = 0
CloseWinsocket
End If
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ This function opens the Winsocket for communication with the 2701 ethernet mainframe.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Function ConnectTo2701() As Integer
Dim Time0 As Single
Topics
Topics
Topics