7
DataReceived = False
Do
' Remain in loop until mainframe is finished sending data.
DoEvents
Loop Until DataReceived
QueryKI = Data
' Return reading
End Function
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ This event occurs when host computer is finished sending data .
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Winsock1_SendComplete()
DataSent = True
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ SendKI() sends data to the 2701 over the ethernet connection.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Sub SendKI(Cmd As String)
’ Send command to mainframe and wait for data sent event.
DataSent = False
Winsock1.SendData Cmd + Chr$(13)
Do
DoEvents
Loop Until DataSent
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ Close the winsocket if it is still opened.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub CloseWinsocket()
If Winsock1.State <> sckClosed Then Winsock1.Close
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ This function is called when the run button is pressed on the Form.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub RunTestButton_Click()
'
’ If a scan is not already running, begin a new scan.
Topics
Topics
Topics
Summary of Contents for 7710
Page 2: ......