Цитата:
Сообщение от ancc
Если делать так, то в программу ничего не передается.
srd = m_CommPort.Read(5)
m_CommPort.ClearInputBuffer()
Return (srd)
|
srd = m_CommPort.Read - попробуй без размера считываемого буфера, должно вернутся все что на этот момент получил com port.
На всякий случай прикладываю библиотеку для работы с Com портом, может быть Вы его и используете.
Dim m_CommPort As New RS232 ' объевляем объект
m_CommPort.Open("Com6", 19200, RS232.enumParity.None, 8, RS232.enumStopBits.One) ' открываем порт и указываем его параметры
m_CommPort.Write(Asc("C")) 'отсылаем в порт символ. Учти этой командой можно отправить за раз только один символ
srd = m_CommPort.Read 'читаем все пришедшие данные com в порт
m_CommPort.Close() ' закрываем порт