Работа с Com Port и библиотекой Microsoft Comm Control 6.0

Тема в разделе "Visual Basic", создана пользователем Sounds, 25 дек 2008.

Статус темы:
Закрыта.
  1. Sounds

    Sounds Гость

    Народ помогите пожалуйста разобраться, не как не получается считать данные из COM Porta.
    Библиотека стандартная Microsoft Comm Control 6.0
    Вот посмотрите код, тут всё работает:

    Private Sub Form_Load()
    MSComm1.CommPort = 3
    MSComm1.Settings = "2400,N,8,1"
    MSComm1.PortOpen = True

    End Sub

    Private Sub Timer1_Timer()
    Text1.Text = MSComm1.InBufferCount 'Возвращает количество символов ждущих в получаещем буфере
    Text2.Text = MSComm1.InBufferSize 'Устанавливает и возвращает размер получающего буфера в байтах
    End Sub

    У меня не как не получается считать MSComm1.Input в text3.text, когда я пытаюсь считать он мне выдаёт ошибку: Error reading comm devise
    Считать я пытаюсь следующим образом: Text3.Text = MSComm1.Input

    В чём может быть проблема, что я не так делаю?
    P.S. Спасибо за помощь и за внимание!!!
     
  2. skysun

    skysun Гость

    Вы пользуетесь событием ONCOMM ->comEvReceive ? Считывать данные надо когда произойдет это событие.
     
  3. Sounds

    Sounds Гость

    Нет, я не знаю что это. Можно по подробнее?
    Спасибо вам за ответ! Я уже не надеялся что кто-то поможет.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей