Matsusada 35, Instruction Manual

Page: 68 / 73

８
–
LEt option
62
Private Sub Command2_Click()
‘When Command1button clicked
Dim rdata As String
Dim I As Long
On Error GoTo ErrorHandler
Label3.Caption = ""
Label5.Caption = ""
rdata = ""
For I = 0 To 30000
rdata = rdata & strReadBuffer
strReadBuffer = ""
If InStr(rdata, vbCr) <> 0 Then
‘Confirm until carriage return is sent.
Exit For
End If
Next I
If I > 30000 Then
GoTo ErrorHandler
End If
Label3.Caption = rdata
'Indicate the data received
Label5.Caption = "Read OK!"
Exit Sub
ErrorHandler:
Label5.Caption = "Read NG!"
End Sub
‘When Winsock1 new data is sent.
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
‘Winsock1
Dim rdata As String
Winsock1.GetData rdata
‘Gobble down data
strReadBuffer = strReadBuffer & rdata ‘Add gobble downed data to buffer
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
‘Close Winsock1
End Sub