Table of Contents
Advertisement
69:
70:
Then
71:
72:
73:
74:
75:
76:
77:
End If
78:
End If
79:
Loop
80:
mSendMessege = pRecvMsg
81:
82:
Catch ex As Exception
83:
Console.WriteLine(ex.Message)
84:
End Try
85:
86:
End Function
87:
Public Sub mClose()
88: :
'*******************************************************
89:
'
Close
90:
'*******************************************************
91:
Try
92:
If Not stns Is Nothing Then
93:
stns.Close()
94:
End If
95:
96:
If Not stClient Is Nothing Then
97:
stClient.Close()
98:
End If
99:
100:
Catch ex As Exception
101:
Console.WriteLine(ex.Message)
102: :
End Try
103:
104: End Sub
105: : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
106:
Dim wRecvMsg As String
107:
Dim i As Integer
108:
Dim wHostName As String
109:
Dim wPortNum As Integer
110:
111:
If (TextBox2.Text = "") Then
112:
MsgBox("Host name not registered")
113: :
Exit Sub
114: :
End If
115:
116:
wHostName = TextBox2.Text
117:
118:
If (TextBox3.Text = "") Then
119:
MsgBox("Port number not registered")
120:
Exit Sub
121:
End If
122:
wPortNum = Val(TextBox3.Text)
123:
124:
If TextBox1.Text = "" Then
125:
MsgBox("Sent character not registeered")
126:
Exit Sub
127:
End If
128:
129:
Label6.Text = ""
130:
131:
For i = 0 To 2
132:
If Not mOpen(wHostName, wPortNum) Then
133:
MsgBox("Communication open error")
134:
GoTo Exit_Step
135:
End If
136:
'Extract fro @ to CRLF
If ((InStr(pRecvMsg, vbCrLf) <> 0) And (InStr(pRecvMsg, "@") <> 0))
pRecvMsg = Mid(pRecvMsg, _
InStr(pRecvMsg, "@"), _
InStr(pRecvMsg, vbCrLf) _
- InStr(pRecvMsg, "@"))
Exit Do
End If
'Retries 3 times (If all ports of MSD-804FD are used by other cliants)
9
MSD-804FD Users Guide (Command Guide)
'Retun received data
'Display exception processing
'Check if there is stream
'Close stream
'Check if there is client
'Close cliant
'Display exception processing
'Store area fir received character strings
'Check host name
'Check port number
'Check sent character string
Advertisement
Table of Contents
