Языки Бейсик

Пример:

i% = 0

PRINT “Значение i% в начале цикла равно “; i% DO WHILE i% < 10

i% = i% + 1

LOOP

PRINT “Значение i% в конце цикла равно “; i%

См. также EXIT, FOR...NEXT, WHILE...WEND”

DOUBLE-ключевое слово

Указывает тип данных для переменных в операторах описания и в списке параметров:

См. также AS, Набор основных символов, COMMON, DECLARE, DEF FN, DIM, REDIM, FUNCTION, SHARED, STATIC, SUB, TYPE

DRAW-оператор

Рисует объект.

Формат записи:

DRAW строка_команд$

ãäå

строка_команд$ строковое выражение, содержащее одну или несколько следующих команд DRAW:

Если Вы опустили n% в командах изображения линии и перемещения курсора, курсор перемещается на 1 единицу.

Для выполнения подстроки команд DRAW из строки команд DRAW, используйте команду “X”:

DRAW “X”+ VARPTR$(строка_команд$)

Пример:

'Для выполнения этого примера необходим цветной графический

адаптер.

SCREEN 1

Triangle$ = “F60 L120 E60”

DRAW “C2 X” + VARPTR$(Triangle$)

DRAW “BD30 P1,2 C3 M-30,-30”

См. также PALETTE, PALETTE USING, SCREEN, VARPTR$, Атрибуты и значения Цвета.

$DYNAMIC-метакоманда

Устанавливает область хранения массивов по умолчанию.

Формат записи:

{REM | '} $STATIC {REM | '} $DYNAMIC

ãäå

EQV-ключевое слово

Булева операция EQV — Эквивалентность

ñì.AND

ERASE-оператор

Заново определяет элементы массива или освобождает область хранения динамического массива.

Формат записи:

ERASE имя_массива [,имя_массива]...

ãäå

имя_массива Имя массива.

Для статических массивов, ERASE устанавливает каждый элемент числового массива в ноль, а каждый элемент строкового массива в строку нулевой длины.

Для динамических массивов ERASE освобождает память, используемую массивом. Вам придется заново описать размеры массива в REDIM или DIM прежде, чем использовать его.

Пример:

DIM a%(0) a%(0) = 6

PRINT “Äî : “; a%(0) ERASE a%

PRINT “После: “; a%(0)

См. также CLEAR, DIM, REDIM

ERDEV-функция, ERDEV$-функция

ERDEV возвращает код ошибки от последнего устройства, выдавшего крити- ческую ошибку. ERDEV$ возвращает имя устройства, выдавшего эту ошибку.

Формат записи:

ERDEV

ERDEV$

Младший байт значения, возвращаемого ERDEV, содержит код ошибки DOS.

Старший байт содержит информацию об устройстве.

См. также ERR, ERL, ON ERROR

ERR-Функция, ERL-функция

ERR возвращает код ошибки выполнения для последней ошибки.

ERL возвращает номер строки, в которой обнаружена ошибка, или последний установленный номер строки перед строкой, где была обнаружена ошибка.

Формат записи:

ERR

ERL

ERL не возвращает метку строки. Если нет номеров строк в программе, ERL возвращает 0.

См. также ERDEV, ERDEV$, ERROR, ON ERROR, RESUME, Коды ошибок выполнения

ERROR-оператор

Эмулирует ошибку Basic или ошибку, определенную пользователем.

Формат записи:

ERROR выражение%

ãäå

выражение% код ошибки Basic или ошибки, определенной пользователем; значение в интервале от 1 до 255. Для определения собственного кода ошибки используйте значения, которых нет в таблице “Коды ошибок выполнения”.

См. также ERDEV, ERDEV$, ERR, ERL, ON ERROR, RESUME

Пример

'Иллюстрирует использование ERDEV, ERDEV$, ERL, ERR,

'ERROR, ON ERROR è RESUME.

ON ERROR GOTO Handler

10 CHDIR “a:\” 'Обнаружение ОШ. 71 “Нет готовности диска,”

'если нет диска в дисководе A

20 y% = 0

30 x% = 5 / y% 'ОШ. 11 “Деление на ноль”

40 PRINT “x% =“; x%

50 ERROR 57 'ОШ. 57 “Ошибка В/ВВ на устройстве”

Handler:

PRINT

PRINT “Ошибка “; ERR; “ в строке “; ERL SELECT CASE ERR

CASE 71

PRINT “Используемое устройство “; ERDEV$;

PRINT “ Код ошибки устройства = “; ERDEV

RESUME NEXT CASE 11

INPUT “Введите новое значение для делителя: “; y% RESUME ' Повторяет выполнение строки 30

' с новым значением для y% CASE ELSE

PRINT “Нераспознанная ошибка, завершение программы” END

END SELECT

EXIT-оператор

Выход из цикла DO или FOR, процедуры типа FUNCTION или SUB, или функции типа DEF FN.

Формат записи:

EXIT {DEF | DO | FOR | FUNCTION | SUB}

Пример:

i% = 0

DO

i% = i% + 1

IF i% = 500 THEN EXIT DO

LOOP

PRINT “ВЫХОД (EXIT) при”; i%

См. также DEF FN, DO...LOOP, FOR...NEXT, FUNCTION, SUB

ЕХР-оператор

EXP возвращает e, возведенное в указанную степень, где e — основание натурального логарифма, равное 2,718282.. LOG возвращает натуральный логарифм числового выражения.

Формат записи:

EXP(числ_выражение)

LOG(числ_выражение)

ãäå

числ_выражение Для EXP — число меньшее или равное 88.02969.

Для LOG — любое положительное числовое выражение.

Пример:

PRINT EXP(0), EXP(1) 'Вывод: 1 2.718282

PRINT LOG(1), LOG(EXP(1)) 'Вывод: 0 1

FIELD-оператор

Отводит место под переменные в буфере файлов прямого доступа.

Формат записи:

FIELD [#]номер_файла%, ширина_поля% AS переменная$

[,ширина_поля% AS переменная$] ...

ãäå

номер_файла% Номер открытого файла. ширина_поля% Число символов в поле.

переменная$ Переменная, идентифицирующая поле и содержащая данные поля. Запись переменных с использованием оператора TYPE обыч- но обеспечивает лучший способ для управления записью данных.

Пример:

OPEN “ФАЙЛДАН.ДАН” FOR RANDOM AS #1 LEN = 80

FIELD #1, 30 AS name$, 50 AS address$

См. также GET, PUT, LSET, RSET, TYPE

FILEATTR-оператор

Возвращает информацию об открытом файле. Формат записи:

FILEATTR(номер_файла%,атрибут%)

ãäå

номер_файла% Номер открытого файла.

Значение Режим

1Ââîä

2Вывод

4Прямой

8Добавление

32 Двоичный

Если атрибут% равен 2, FILEATTR возвращает указатель файла DOS.

Пример:

OPEN “ÒÅÑÒ.ÄÀÍ” FOR BINARY AS #1

PRINT FILEATTR(1, 1)

CLOSE

См. также OPEN

FILES-оператор

FILES отображает содержимое текущего каталога или указанного каталога. См. CHDIR.

FIX-оператор

FIX округляет выражение с плавающей запятой до его целой части.

INT возвращает наибольшее целое, меньшее или равное числовому выражению.

Формат записи:

FIX(числ_выражение)

INT(числ_выражение)

где числ_выражение Любое числовое выражение.

Пример:

PRINT FIX(12.49), FIX(12.54) 'Вывод: 12 12

PRINT INT(12.54), INT(-99.4) 'Вывод: 12 — 100

См. также CINT, CLNG

FOR-оператор

Повторяет блок операторов указанное число раз. Формат записи:

FOR счетчик = начало TO конец [STEP приращение] [блок_операторов]

NEXT [счетчик [,счетчик]...]

Пример:

FOR i% = 1 TO 15

PRINT i%

NEXT i%

FOR i% = 7 to — 6 STEP — 3

PRINT i%

NEXT i%

См. также DO...LOOP, EXIT, WHILE...WEND

FRE оператор

Возвращает объем (в байтах) доступной или неиспользуемой памяти.

Формат записи:

FRE(числ_выражение)

FRE(строк_выражение$)

ãäå

Числ_выражение Значение, указывающее тип памяти:

строк_выражение$ Любое строковое выражение. FRE сжимает свободное строковое пространство в один блок, а затем возвращает объем доступного строкового пространства.

Пример:

PRINT “Строковое пространство”, FRE(““)

PRINT “Неиспользуемое стековое пространство”, FRE(-2) PRINT “Пространство массива”, FRE(-1)

FREEFILE-оператор

Возвращает номер следующего доступного для использования файла.

Формат записи:

FREEFILE

Пример:

OPEN “ÒÅÑÒ.ÄÀÒ” FOR OUTPUT AS #1

PRINT “Номер следующего файла: “; FREEFILE

CLOSE

См. также OPEN

FUNCTION-оператор

Определяет процедуру FUNCTION.

Формат записи:

FUNCTION имя [(параметры)] [STATIC] [блок_операторов] имя = выражение [блок_операторов]

END FUNCTION