покурив подробно пример и сделав пару попыток получил работающий вариант
m_CommPort.ClearInputBuffer()
m_CommPort.Write(Encoding.ASCII.GetBytes("rf00100" ))
m_CommPort.Write(Encoding.ASCII.GetBytes(Chr(13)))
System.Threading.Thread.Sleep(1000)
srd = ""
Dim i As Integer
For i = 1 To 6
While (m_CommPort.Read(1) <> -1)
WriteMessage(Chr(m_CommPort.InputStream(0)), False)
End While
Next
Return (srd)
еще процедуру writemessage из примера добавить пришлось в проект.
|