|
Часть 14
Оператор SCREEN
----------------------------------------------------------------- Назначение SCREEN устанавливает режим изображения на экране.
Синтаксис SCREEN [режим] [, [флажок цвета]]
[,[страница]] [, [видимая страница]]
Комментарий Режим - целочисленное выражение в диапазоне от 0
до 10, действие которого определяется следующей
таблицей:
I-------------------------------------------------------------I
I Режим I Действие I
I---------I---------------------------------------------------I
I I I I 0 I Устанавливает текстовый режим без изменения I
I I числа знаков в строке I
I 1 I Устанавливает графический режим со средним I
I I разрешением, число знаков в строке равно 40 I
I 2 I Устанавливает графический режим с высоким I
I I разрешением, число знаков в строке равно 80 I
I 7 I Устанавливает для адаптера EGA режим со I
I I средним разрешением, допускает использование I
I I 16 цветов, число пикселов на экране - 600х200 I
I 8 I Устанавливает для адаптера EGA режим с I
I I высоким разрешением, допускает использование I
I I 16 цветов, число пикселов на экране - 600х200 I
I 9 I Устанавливает усиленный режим с высоким I
I I разрешением для адаптера EGA с усиленным I
I I дисплеем; допускает от 4 до 16 цветов (в I
I I зависимости от памяти на EGA) из палитры, I
I I состоящей из 64 цветов, число пикселов на I
I I экране - 640х350 I
I 10 I Устанавливает режим с высоким разрешением для I
I I адаптера EGA с монохромным монитором, I
I I допускает 4 атрибута и 640х350 пикселов I
I 11 I Устанавливает черно-белый режим с наивысшим I
I I разрешением для адаптеров VGA или MCGA, число I
I I точек - 640х480 I
I 12 I Устанавливает режим с наивысшим разрешением I
I I для VGA, допускает 16 цветов из палитры с 64 I
I I цветами, число точек на экране - 640х480 I
I-------------------------------------------------------------I
Флажок цвета - управляет тем, будет ли информа-
ция о цвете передана монитором с совмещенным управ-
лением цветовыми лучами, которые присоединены к
композитным видеопортам цветных графических адапте-
ров. В текстовом режиме значение FALSE(0) отменяет
использование цвета. В графическом режиме со сред-
ним разрешением, значение FALSE включает цвет.
Активная страница - целое выражение в диапазоне
от 0 до 7, которое управляет тем, куда записывается
текст, формируется оператором PRINT или другими ко-
мандами записи на экран. Этот аргумент допустим
только для цветных графических адаптеров и для рас-
ширенных графических адаптеров при установке режима
0, 7, 8, 9 и 10. (См. в главе 4 раздел о графике).
Видимая страница - определяет какая из виртуаль-
ных страниц (от 0 до 7) выводится на экран в данный
момент. Этот аргумент допустим только для цветных
графических адаптеров и для расширенных графических
адаптеров при установке режима 0, 7, 8, 9 и 10.
Выполнение оператора SCREEN запускает новый ре-
жим и стирает экран. Наивысший приоритет присваива-
ется белому цвету, а фону и границе - черный цвет.
Если в операторе SCREEN устанавливается такой же
режим, как и текущий, ничего не происходит.
Если текущий режим - текстовый и в операторе
SCREEN указаны только апргументы активной и вирту-
альной страниц, то корректируются в соответствии с
запросом только дисплейные "страницы".
Пример 'переключение в графический режим среднего разрешения
'с отменой цвета
SCREEN 1,0
CIRCLE (160,100),50,2
WHILE NOT INSTAT:WEND
A$=INKEY$
'переключение в текстовый режим с отменой цвета,
'назначение активной и видимой страницам страницы с
'номером 0
SCREEN 0,0,0,0
PRINT "Активная страница - 0"
WHILE NOT INSTAT:WEND
A$=INKEY$
'сделать активной страницу 2
SCREEN ,,2
PRINT "Активная страница - 2"
WHILE NOT INSTAT:WEND
A$=INKEY$
'переключение в другой графический режим
SCREEN 2
CIRCLE (320,100),100,1
END
Оператор SEEK
-----------------------------------------------------------------
Назначение SEEK устанавливает позицию в двоичном файле для
функций GET$ и PUT$.
Синтаксис SEEK [#] номер-файла, позиция
Комментарий SEEK объявляет, что следующий GET$ или PUT$ над
файлом с заданным номером начнут свои действия с
байта, номер которого указан в аргументе "позиция".
Для определения текущей позиции, установленной
для двоичного файла оператором SEEK, следует
использовать функцию LOC.
Пример SUB CREATEFILE
'открытие файла и запись в него 256 символов
LOCAL I%
'открытие файла типа BINARY для ввода/вывода
OPEN "SEEK.DTA" FOR BINARY AS #1
'запись данных в файл
FOR I%=1 TO 256
PUT$ 1,CHR$(I%-1)
NEXT I%
END SUB 'конец подпрограммы CREATEFILE
DEF FNREADIT$(START%,SIZE%)
'функция читает указанные данные из файла
LOCAL TEMPSTR$,CHAR$,I%
'установка заданной позиции в файле
SEEK 1,START%
I%=1
TEMPSTR$=""
'считывание указанных данных - не более, чем до конца
'файла
WHILE (NOT EOF(1)) AND (I%<=SIZE%)
GET 1,I%,CHAR$
TEMPSTR$=TEMPSTR$+CHAR$
INCR I%
WEND
'присвоение функции результата
FNREADIT$=TEMPSTR$
END DEF 'конец функции READIT
'создание файла данных
CALL CREATEFILE
'запрос пользователю на ввод
PRINT "Веддите начало [1..256] и число"
PRINT "байтов данных (256 - начало), которые"
INPUT "Вы хотите прочитать из файла:",ST%,SZ%
'чтение данных
PRINT FNREADIT$(ST%,SZ%)
END
'конец программы
Оператор SELECT
-----------------------------------------------------------------
Назначение Оператор SELEC T (вместе с оператором CASE) форми-
рует операторы проверки общего назначения.
Синтаксис SELECT CASE выражение
CASE список тестов
операторы
[CASE список тестов
операторы]
[СASE ELSE
операторы]
END SELECT
Комментарий Список тестов - это один или несколько тестов,
разделенных запятыми, которые выполняются над выра-
жением. Выражение может быть символьным или число-
вым, однако, все тесты в списке из отдельного блока
оператора SELECT должны быть одного и того же типа.
Тесты, которые могут выполняться в предложении
CLAUSE, включают проверки на равенство, неравен-
ство, больше, меньше, диапазон (от-до). Примеры
включения тестов в предложение CASE:
CASE
|