Языки Бейсик

STRING$-функция

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

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

STRING$(длина%,{ascii-код% | строк_выражение$})

строк_выражение$ любое строковое выражение. STRING$ заполняет строку первым символом из строк_выражения$.

Пример:

PRINT STRING$(5, “-”);

PRINT “Привет”;

PRINT STRING$(5, “-”)

См. также ASCII Коды символов

SUB-оператор

Определяет процедуру SUB. Формат записи:

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

END SUB

При вызове процедуры SUB Вы можете указать, что значение аргумента не должно изменяться процедурой. Для этого заключите аргумент в круглые скобки.

См. также CALL, DECLARE. EXIT, FUNCTION, SHARED, STATIC

SWAP-оператор

Обменивает значения двух переменных.

192 Языки Бейсик

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

SWAP переменная1, переменная2

где переменная1 и переменная2 две переменные одного и того же типа данных.

Пример:

a% = 1: b% = 2

PRINT “Äî : “; a%, b%

SWAP a%, b%

PRINT “После: “; a%, b%

SYSTEM-оператор

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

SYSTEM

См. также END, STOP

TAB-функция

Перемещает курсор текста в указанную позицию печати. Формат записи:

TAB(столбец%)

Пример:

PRINT TAB(25); “Текст”

См.также PRINT, LPRINT, PRINT USING, LPRINT USING, SPC, SPACE$

TAN-функция

TAN возвращает тангенс указанного числового выражения.

COS, SIN и TAN возвращают косинус, синус и тангенс указанного угла. См. ATAN.

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

Используется в операторе IF...THEN...ELSE См. IF.

TIME$-оператор TIME$-функция

Функция TIME$ возвращает текущее системное время компьютера. Оператор TIME$ устанавливает текущее системное время в Вашем компьютере.

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

TIME$

TIME$ = строк_выражение$

где строк_выражение$ Время в одном из следующих форматов:

Функция TIME$ возвращает строку в формате чч:мм:сс.

Пример:

PRINT TIME$

TIME$ = “08:00:58” 'Замечание: Новое системное время остается в

силе, 'пока Вы снова не измените его.

PRINT “Установленное время “; TIME$

См. также DATE$

TIMER-функция

Возвращает число секунд, прошедших с полуночи и до текущего момента.

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

TIMER

Используйте TIMER для хронометража программ или частей программ, или с оператором RANDOMIZE для запуска генератора случайных чисел.

Пример:

RANDOMIZE TIMER

См. также RANDOMIZE, RND , TIMER, ON TIMER Операторы

TIMER-оператор

TIMER включает, выключает или приостанавливает отслеживание события для таймера. При включенном отслеживании события ON TIMER обращается к подпрограмме, как только прошло указанное число секунд.

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

TIMER ON

TIMER OFF

TIMER STOP

ON TIMER(n%) GOSUB строка

Пример:

ON TIMER(1) GOSUB TimeUpdate

TIMER ON

CLS

PRINT “Время: “; TIME$

StartTime = TIMER

WHILE TimePast < 10

TimePast = TIMER — StartTime

WEND

END

TimeUpdate:

LOCATE 1, 8: PRINT TIME$

RETURN

См. также TIMER Функция

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

Определяет диапазон для:

Предложения CASE в операторе SELECT CASE.

Счетчика цикла в цикле FOR...NEXT.

Закрываемых и открываемых записей в операторе LOCK...UNLOCK.

Верхней и нижней границы в операторе DIM или REDIM.

См. также DIM, REDIM, FOR...NEXT, LOCK, UNLOCK, SELECT CASE

TRON, TROF-операторы

TRON и TROFF включают и выключают слежение за операторами программы.

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

TRON

TROFF

При отладке в современных системах Basic отпадает необходимость в этих операторах.

См. также Клавиши запуска и отладки

TYPE-оператор

Определяет тип данных, содержащий один или несколько элементов.

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

TYPE тип_пользов имя_элемента AS тип [имя_элемента AS тип]

.

.

.

END TYPE

Используйте DIM, REDIM, COMMON, STATIC или SHARED для создания переменной определенного пользователем типа данных.

Пример:

TYPE Card

Suit AS STRING * 9

Value AS INTEGER

END TYPE

DIM Deck(1 TO 52) AS Card

Deck(1).Suit = “Êëóá”

Deck(1).Value = 2

PRINT Deck(1).Suit, Deck(1).Value

См. также COMMON, DIM, REDIM, SHARED, STATIC

UBOUND-функция

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

Ñì. LBOUND

См. также DIM, REDIM

UCASE$-функция

Переводит все буквы строки в прописные буквы.

Ñì. LCASE$

UNLOCK-оператор

LOCK ограничивает или закрывает доступ к файлу при работе в сети.

UNLOCK отменяет ограничения, наложенные последним оператором LOCK.

Ñì. LOCK.

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

Повторяет блок операторов, пока условие верно(WHILE), или до тех пор, пока условие не станет верным(UNTIL).

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

DO [{WHILE | UNTIL} условие] [блок_операторов]

LOOP

èëè

DO [блок_операторов]

LOOP [{WHILE | UNTIL} условие]

ãäå

условие числовое выражение, которое Basic оценивает как истинное (не-ноль) или ложное (ноль).

Пример:

i% = 0

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

i% = i% + 1 LOOP

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

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

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

Указывает форматирование для операторов PRINT USING и LPRINT USING, а также назначения палитры в операторе PALETTE USING.

Ñì. PALETTE, PALETTE USING, PRINT USING, LPRINT USING

VAL-функция

STR$ возвращает строковое представление числа.

VAL переводит строковое представление числа в число. См. STR$

VARPTR-функция

VARPTR возвращает адрес смещения переменной. VARSEG возвращает адрес сегмента переменной. Формат записи:

VARPTR(имя_переменной)

VARSEG(имя_переменной)

ãäå

имя_переменной любая переменная Basic.

См. также CALL ABSOLUTE, DEF SEG, PEEK, POKE, VARPTR$

VARPTR$-функция

Возвращает строковое представление адреса переменной для использования с операторами DRAW и PLAY.

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

VARPTR$(строка_команд$)

ãäå

строка_команд$ строковая переменная, содержащая команды DRAW или PLAY.

Пример:

См. также DRAW, PLAY (Музыка), VARPTR, VARSEG

VARSEG-функция

VARPTR возвращает адрес смещения переменной.

VARSEG возвращает адрес сегмента переменной.

Ñì. VARPTR

VIEW-оператор

Определяет размер и положение области просмотра, где графика может быть выведена на экран.

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

VIEW [[SCREEN] (x1!,y1!)-(x2!,y2!) [,[цвет%] [,граница%]]]

Если все аргументы опущены, область просмотра — весь экран.

Допустимые атрибуты цвета зависят от Вашего графического адаптера и режима экрана, установленного последним оператором SCREEN.

198 Языки Бейсик

Пример:

'Для выполнения этого примера нужен цветной графический адаптер. SCREEN 1

VIEW (10, 10)-(300, 180), , 1

LOCATE 1, 11: PRINT “Большая область просмотра графики”; VIEW SCREEN (80, 80)-(200, 125), , 1

LOCATE 11, 11: PRINT “Маленькая область просмотра графики”;

См. также CLS, SCREEN, VIEW PRINT, WINDOW, Атрибуты и Значения Цвета, Режимы Экрана

VIEW PRINT-оператор

Устанавливает на экране границы области просмотра текста.

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

VIEW PRINT [âåðõ% TO íèç%]

Если Вы опустили аргументы верх% и низ%, то VIEW PRINT отводит весь экран под область просмотра текста.

Диапазон для верх% и низ% зависит от режима экрана.

Пример:

VIEW PRINT 10 TO 15

FOR i% = 1 TO 100 'Вывод будет прокручиваться между 10 и 15 PRINT i% 'строкой

NEXT i%

См.также CLS, LOCATE, PRINT, LPRINT, SCREEN, WIDTH, Режимы экрана

WAIT-оператор

Приостанавливает выполнение программы до ввода двоичного кода из порта ввода.

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

WAIT номер_порта%, AND-выражение% [,XOR-выражение%]

Пример:

'Читает порт контроллера прерываний с адресом &H20.

'Для продолжения нажмите любую клавишу.

WAIT &H20, 1

См.также INP, OUT, Булевы операции

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

Выполняет серию операторов, пока указанное условие верно.

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

WHILE условие

.

.

.

WEND

ãäå

условие числовое выражение, которое Basic оценивает как истинное (не-ноль) или ложное (ноль).

DO...LOOP предоставляет более удобный способ для выполнения операторов в программном цикле. См. также DO...LOOP, FOR...NEX

WHILE-WEND-оператор

Выполняет серию операторов, пока указанное условие верно.

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

WHILE условие

.

.

.

WEND

ãäå

условие числовое выражение, которое Basic оценивает как истинное (не-ноль) или ложное (ноль).

DO...LOOP предоставляет более удобный способ для выполнения операторов в программном цикле.

См. также DO...LOOP, FOR...NEXT

WIDTH-оператор

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

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

200 Языки Бейсик

WIDTH [столбцы%] [,строки%]

WIDTH {#номер_файла% | устройство$}, столбцы% WIDTH LPRINT columns%

Пример:

OPEN “LPT1:” FOR OUTPUT AS #1

WIDTH #1, 132

См.также PRINT, LPRINT, SCREEN, VIEW PRINT

WINDOW-оператор

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

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

WINDOW [[SCREEN] (x1!,y1!)-(x2!,y2!)]

ãäå

SCREEN инвертирует обычное направление декартовых координат Y на экране так, что значения Y увеличиваются сверху вниз на экране.

(x1!,y1!) декартовы координаты, соответствующие координатам нижнего левого угла экрана области просмотра.

(x2!,y2!) декартовы координаты, соответствующие координатам верхнего правого угла экрана области просмотра.

WINDOW без аргументов выключает логическую систему координат.

Используйте оператор VIEW для изменения размера области просмотра.

Пример:

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

SCREEN 1

FOR i% = 1 TO 10 STEP 2

WINDOW (-160 / i%, — 100 / i%)-(160 / i%, 100 / i%) CIRCLE (0, 0), 10

NEXT i%

См.также CLS, PMAP, POINT, SCREEN, VIEW, WIDTH

WRITE-оператор