Кстати, по 0D у вас срабатывает потому, что используете INPUT.
Если хотите без него, то используйте другой алгоритм (обрабатывайте сами по байтно все данные).
Для этого есть классный оператор "Ischarwaiting".

Если есть возможность использовать RTS и CTS, то рекомендую, не будите пропускать ничего и не парится с обработкой (в меру доступного, пока буфер FIFO компа не переполнится).

У меня кусок кода выглядит так:

...
Reset Cts ' разрешить передачу данных
B = Ischarwaiting()
If B = 1 Then
    Set Cts ' запретить передачу данных
    In_data = Inkey()
    End If
...

Отредактировано RDW (2012-03-16 21:33:35)

evgen79
1. Делайте работу как у меня в примере, не нужно сокрощать всё в одну строку - это всё-таки не полный бэйсик и он не правильно генерит код, если пытаешься усложнить всё в одну строчку. Примеры в хелпе даны не просто так. Я просто уже сталкивался в ряде случаев, когда вот так казалось бы сократив выполнение задачи до одной строки, на выходе получаю "ОК" при сборке, а в реалии Г. Правило простое: одно вычисление - строчка!

2. CTS & RTS вещь не обязательная, просто с нима упрощается код и есть надежность...в общем, если нет возможности с ними работать - и не надо. 

3. Разница между waitkey и inkey в том, что waitkey подвешивает выполнение кода до получения одного знака, а inkey - нет (т.е. там всегда 0, когда нет символа). Ischarwaiting - нужно как раз для того, что бы определить заполняемость байта в порте по битам, т.е. можно определить 0 в inkey - это данные или нет (очень удобно).

Т.е. код приблизительно выглядит так должен:

Getchar:

   B = Ischarwaiting()
   If B = 1 Then
      S = inkey()

      If S = 0 Then
         Print Wtime
      End If
      If S = 1 Then
         Wtime = Fastblink
         Print Wtime
      End If
      If S = 2 Then
         Wtime = Slowblink
         Print Wtime
      End If
   End If
Return

Это как пример. При приходе значений из порта от 0-2 будет выполняться действие.

inkey - на выходе выдает байт, а не символ/текст
Если нужно обрабатывать целое слово/команду, то нужно делать соответствующее преобразование byte > chr + некое подобие буфера в котором будут накапливаться данные.

Дело в том, что если делать на прерывания через тот же INPUT, реализайия будет весьма простая, но будут существовать следующие проблемы:

- прием будет в области только текста;
- все данные будут приниматься только ключевого байта #0D из-за этого не трудно догадаться, что на это время прерывание будет вешать весь процесс и оно не будет успевать выполняться полностью пока данные не примутся.
- проблема безопасности, при такой реализации, если будет приходить глюк, то выхода из прерывания будет практически не возможен, т.к. вероятность встретить #0D мала.

Недостатки inkey:

- нужно самому делать буфер/массив в котором будут накапливаться данные, алгоритм массива должен быть на подобии FIFO (кольцевым);
- скорость/задержка работы, т.к. из-за буфера в котором сдвигаются байты.

Зато куча плюсов, никогда не подвешивается выполнение программы, всё выполняется за 1 проход, накопительная система (пошагово - это кстати основа прерывания, оно далеко не всегда обязано сразу загружать все данные)...

Я бы наверное вообще не стал пихать прием данных в прерывание.

Отредактировано RDW (2012-03-17 11:28:30)

вот, нашёл у себя пример работы с телефоном.

Ring = Inkey()
 If Ring = 82 Then                                          'проверяем есть ли сигнал с телефона
     Input Cmcin Noecho                                     'и считываем его
     If Cmcin = "ING" Then

Ловим букву R ну а далее ING. Команда Input ждёт перевод коретки. Если перевода коретки нет, можно использовать Inputbin, тогда пока не ззаполнит переменную. К примеру если переменная Integer, пока не придёт три байта. что-бы не висла программа, можно использовать таймаут.

Этот алгоритм хорош, когда нужно работать с строками, для гибрида с кодом, нужно параллельно добавить обработку массива по такому же алгоритму, причем, если данные идут частично в коде, а остальное в тексте, то буфер кодовый (массив) может быть меньших размеров.

Отредактировано RDW (2012-03-20 12:28:26)