Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

      enddo

  1  FORMAT(32x,'КОД КЛАВИШИ - ',I3)

      print*,'                             НАЖМИТЕ ЛЮБУЮ КЛАВИШУ'

10  print*

      SCOD=getch()  ! Отслеживание кода нажатой клавиши

      print1,scod  ! Печать кода

      print*

      print*,'                   ( Для выхода в VC  -  нажмите ^BREAK )'  ! Прерывание выполнения программы

      print*,'                   ( Для продолжения  -  любую клавишу ) '

      go to 10  ! Бесконечный цикл

      end

Дополнительные возможности вывода текста.

Текст стандартным шрифтом в любую позицию экрана можно вывести процедурой OutText. Процедура outtext не производит форматирование текста и работает во всех видео режимах. Текст выводится стандартным шрифтом.

   Пример:

 RECORD /record/ rc

 ……………………..

 dum = SetTextColor (9)            ! восстановление цвета текста

 call SetTextPosition (20,20,rc)

 text = ‘программа демонстрации’

 call outtext (text)

Вывод текста (сверху вниз) можно осуществить только в пределах заданной области экрана (текстового окна), которое устанавливается процедурой SetTextWindow. При заполнении окна происходит прокрутка.

Синтаксис call SetTextWindow (r1,c1,r2,c2)

   Где: r1,c1- текстовые координаты (строка и столбец) левого верхнего угла прямоугольного окна, r2,c2 – то же правого.

Пример работы с текстовым окном:

!              File: textwin.for

Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки