Turbo Basic 1.1. Руководство пользователя


              

Бейсик осуществляет проверку между исполнением


  ---------
           
  Замечания n-число коммуникационных адаптеров,подлежащих отслеживанию (1 или 2)
  --------- Оператор  COM(n)  ON  дает  возможность  отслеживания  подпрограм-
  мой,специфицированной в предыдущем операторе ON COM(n).
    После  COM(n) ON Турбо- Бейсик осуществляет проверку между исполнением каж-
  дого оператора с целью просмотра поступления каких-либо литер на  специфици-
  риванное  входное устройство.Если обнаруживается,что такое событие уже прои-
  зошло,вызывается подпрограмма специфицированная в операторе ON COM(n).
    Если COM(n) в режиме OFF,активность на последовательном адаптере n игнори-
  руется.Отслеживание  коммуникаций  прекращается   после   оператора   COM(n)
  STOP;однако любая активность запоминается,так что когда исполняется оператор

                                     - 95 -
          
          
  COM(n)  ON  ,происходит  немедленный  захват поступившего.Для увеличения или
  уменьшения размера COM буфера используйте метаоператор $COM.
     см также ON COM(n)
           
  Пример 'Демонстрируется оператор COM(n).Эта программа не будет ничего отобра
         'жать ,если ваш адаптер COM1 не получает ввода
         'Настроить подпрограмму для обработки COM-ввода
            on com(1) gosub ПолучитьКомВвод
            'разместить массив 5К для хранения ввода
            dim КомПортВвод (5*1024)
            'разместить указатель на следующем имеющемся буферном пространстве
            ЗаголовокПрт%=0
            'и следующий для печати
            КонецПрт%=0
            'включить обработку COM-ввода
            com(1) on
            'настроить буфер ввода 1К
            $com1 1024
            'открыть файловую переменную,как com1
            open
            open "com1" as#1
            print 'нажать любую клавишу для прекращения программы"
            'пока клавиша не нажата
            while not instat
            'если буфер не пуст
            if КонецПрт%<>ЗаголовокПрт% then

Содержание  Назад  Вперед