3. Системные соглашения

Элементы

Назначение и применение элементов языка Bascom

0…9, @, #, $, %, !, &, (, ), {, }, _, A…Z (строчные a…z равноценны прописным)

Символы

Знаки

Пробел (blank or space)

\

Обратная дробь (backslash) - знак деления целых чисел

Переменные

Bit

Один двоичный разряд, расположенный в битовой области процессора (все биты от 0 до

255). Принимают значения 0 или 1.В некоторых случаях доступны, как биты, отдельные

разряды 8-, 16- и 32-битных переменных. Однако, биты регистров, находящихся вне зона

битовой адресации, не могут быть именованы, как полноценные битовые переменные (их

Byte

адрес не может быть определен как число).

8 битное число - диапазон значений от 0 до 255 (00 – FFh)

Word

16 битное число - диапазон значений от 0 до 65535 (0000 – FFFFh)

Integer

16 битное число (переменная со знаком) – диапазон значений от 0 до 32767 (0000 – 7FFFh) и

Long

от минус 1 до минус 32768 (FFFFh – 8000h)

32 битное число (переменная со знаком) – диапазон значений от 0 до 2147483647 (00000000 -

String

7FFFFFFFh) и от минус 1 до минус 2147483648 (FFFFFFFFh – 80000000h)

Текстовая строка с разделителем 00h, удлиняющим ее на единицу. Длина строки может

Single

достигать 254 байт символов. Пустая строка читается как 00h – только разделитель.

Число с плавающей точкой в стандарте IEEE. Порядок от минус 127 до +127. Три байта

нормализованной мантиссы длиной в 24 бита. Старший бит мантиссы не записывается, так

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

31 30________23 22______________________________0

Array

знак

порядок

мантисса.

Массив переменных содержит последовательность элементов одного типа. Каждый элемент

массива имеет,

определяющий

его, собственный порядковый номер - индекс (index).

Изменения (действия) могут производиться с любым элементом массива независимо от

остальных. Индекс может числовой константой, байтом или словом (integer или word).

Массив может содержать до 65535 элементом. Нумерация элементов массива начинается с

первого номера, например, массив Ar из десяти элементов содержит элементы от Ar(1) до

Ar(10). Внимание! Не все операторы могут работать с переменными из массива.

Константы

Числовые значения, используемые в программе, могут быть определены с использованием

символьного имени и указанием типа. Задаваемые константы должны иметь все те же типы,

что и переменные. При использовании такой константы в дальнейшем используется только

имя. Можно записывать числовое значение константы и непосредственно в качестве

операнда, как значение бита, двоичное число, шестнадцатеричное число, десятичное целое

число, число с десятичной точкой. Формат записываемого числа должен соответствовать

типу переменной, с которой производится операция. Строковые константы записываются в

виде текстовой строки в двойных кавычках.

Числа

1, 23, 4567 – десятичные, в естественном виде. Обычно так записываются целые числа.

&HA, &HFEE, &H001023F0 – шестнадцатеричные с префиксом &H. &B0001, &10111101-

двоичные с префиксом &B 12.34 – с десятичной точкой. Эти числа преобразуются в формат

с плавающей точкой. -123, -10000 – целые отрицательные числа. Эти числа преобразуются в

отрицательные двоичные целые числа и записываются в дополнительном коде. Если

десятичному числу соответствует переменная типа Single, число преобразуется в формат с

<>

Неравенство (Inequality) - X <> Y. (Const, Bit, Byte, Word, Integer, Long, String, Single)

<=

Меньше или равно (Less than or equal) - X <= Y. (Const, Byte, Word, Integer, Long, Single)

>=

Больше или равно (Greater than or equal) - X >= Y. (Const, Byte, Word, Integer, Long, Single)

Знаки

логических

Соответствуют следующим логическим операциям (с переменными типа Сonst, Bit, Byte,

операций

Word, Integer, Long):

NOT

Инверсия (complement): 0 = NOT 1, 1 = NOT 0

AND

И (Conjunction) : 1 = 1 AND 1, 0 = 1 AND 0 = 0 AND 0

OR

ИЛИ (Disjunction): 1 = 1 OR 1 = 0 OR 0, 0 = 0 OR 0

XOR

Исключающее ИЛИ (Exclusive or): 1 = 1 XOR 0, 0 = 0 XOR 0 = 1 XOR 1

Знаки

арифметических

Соответствуют следующим арифметическим операциям (с переменными типа):

операций

/ или \

Деление (Const, Byte, Word, Integer, Long, Single)

* - строковые переменные складываются не арифметически.

4. Директивы, операторы и функции Bascom-8051

$ASM - $END ASM

Действие:

Обозначают начало и конец блока на языке ассемблера, вставляемого в текст программы на

Бейсике. Использование $ASM допускается только вместе с $END ASM.

Пример:

$asm Mer:

Mov r0,#{C} ;address of c

Mov a,#1

;store 1 into var c

Mov @r0,a

$end Asm

Примечание. Смотри раздел «Правила оформления ассемблерных вставок»

$BAUD, $CRYSTAL

Действие:

$BAUD – устанавливает скорость обмена асинхронного интерфейса (UART). Данная директива

активизируется только при использовании команд PRINT, INPUT и обычно используется в

блоке инициализации микроконтроллера. Также необходимо указывать и частоту кварцевого

генератора (резонатора)

с помощью директивы

$CRYSTAL (иначе значение будет взято из

панели параметров компилятора).

Внимание!

Если в тексте программы не применяются

операторы типа PRINT

и INPUT,

то инициализация автоматически не выполняется - в таймер

не загружается значение коэффициента деления и не устанавливается режим последевательного

интерфейса, Для этого нужно добавить дополнительные операторы инициализации таймера и

Синтаксис:

запустить таймер (см. пример).

var1, var2 – константы,

$BAUD = var1 ; $CRYSTAL = var2

численно равные

соответственно скорости в бодах и тактовой частоте в герцах (частоте кварца).

Пример:

$Baud = 2400

$Crystal = 12000000

‘ 12 MHz crystal

Config Timer2 = Timer , Gate = Internal , Mode = 2 ‘для Timer2

Scon = &h52 : Rcap2h = &hff : Rcap2l = &h64 : Start Timer2 '*

‘вариант для Timer1

Config Timer1 = Timer , Gate = Internal , Mode = 2 ‘для Timer1

Scon = &h52 : Pcon = &H80 : Th1 = &he6 : Start Timer1

'*

'* - эти строки добавляются, если в программе отсутствуют

'операторы типа Print и Input, но послед. интерфейс используется

'другим способом

$DEFAULT XRAM

Действие:

После этой директивы компилятор начинает располагать каждую переменную во внешней

памяти. Если какую-либо переменную после этого нужно расположить во внутренней памяти, к

ней необходимо дополнительно применить указание IRAM

Пример:

$default Xram

‘во внешней памяти XRAM

Dim X As byte

Dim Y As Integer

‘тоже в XRAM

Dim Z As IRAM Integer ‘эта переменная определена в памяти IRAM

$EXTERNAL

Действие:

Директива, определяющая используемую ассемблерную подпрограмму или подпрограммы

пользователя. Это позволяет включать с процесс ассемблирования только необходимые для

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

Синтаксис:

версии пока не работает – включается вся библиотека.

$EXTERNAL myrout

[, other] myrout – имя подпрограммы.

Пример:

$LIB "mylib.lib"

$EXTERNAL _dec76

Синтаксис:

$ROMSTART = [&H] adress

adress - константа.

Пример:

$Romstart = &h8000 ‘начало распределения ПЗУ с 8000h

$SERIALINPUT

Действие:

Перенаправляет действие функции INPUT на считывание данных из другого устройства.

Синтаксис:

$SERIALINPUT = label label - имя подпрограммы, размещающей вводимые данные из

произвольного устройства в аккумуляторе.

Пример:

$Serialinput = Myinput

‘определим имя программы ввода данных

!myinput:

Действие:

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

Синтаксис:

$SERIALINPUT2LCD

Пример:

$SERIALINPUT2LCD ’показывать вводимые данные

$SIM

При наличии этой директивы компилятор генерирует код, исключающий циклы ожидания

Действие:

(программные задержки операторов WAIT, WAITMS, DELAY), чтобы ускорить процесс отладки.

Синтаксис:

$SIM

Пример:

$SIM ‘пропускать при отладке все задержки

$TIMEOUT

При наличии этой директивы компилятор генерирует код, включающий использавание опции

Действие:

TIMEOUT в операторах INPUT, INPUTHEX

Синтаксис:

$TIMEOUT

Пример:

$TIMEOUT ‘будет использована опция TIMEOUT

‘--------------------------------------------------

Config 1wire = P1.1 ‘использовать этот вывод

Dim Ar(8) As Byte , A As Byte , I As Byte

1wreset

‘сбросить интерфейс

Print Err

‘вывести сообщение об ошибке, если не отзовется

1wwrite &H33

‘команда считывания памяти

For I = 1 To 8

‘считать 8 байт в переменную Ar

Ar(I) = 1wread()

Next

For I = 1 To 8

‘показать считанное

Printhex Ar(I);

Next

‘пустая строка

Print

End

ABS(x)

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

Действие:

Синтаксис:

плавающей точкой.

var = ABS(var2) var - Byte, Integer, Word, Long. var2 – Integer, Long.

Пример:

Dim a as Integer, c as Integer , e as Single

a = -1000 : c = Abs(a) ‘c=1000

e = -1000

$asm

‘для Single достаточно стереть знак e=1000

Anl {e + 3} , &H7f

$end Asm

ALIAS

Осуществляет переименование переменных. Обычно применяется для определения имен битов и

Действие:

Синтаксис:

линий портов.

Oldvar - старое имя. Newvar - новое имя.

Newvar ALIAS Oldvar

Пример:

In_dir Alias P1.1

‘линия «Ввод направления»

Ri Alias Scon.0

‘только так можно определить привычное имя бита

ASC(s)

Преобразует строку в ее ASCII значение (код символа). Преобразуется только значение первого

Действие:

Синтаксис:

символа. При отсутствии строки возвращается нулевое значение

var = ASC(string) var - Byte, Integer, Word, Long. String - String, Constant.

Пример:

Dim a as byte, s as String * 10

s = «ABC» : a = Asc(s)

Print a

‘выводится 65 (41h) - код первого символа

AND, OR, XOR, NOT

Действие:

Производят логические операции: AND-операция «И» (1 And 0 = 0, 1 And 1 = 1), OR-операция

«ИЛИ» (1 Or 0 =1, 0 Or 0 =0), XOR-операция «исключающего ИЛИ» (1 Xor 1 = 0, 0 Xor 1 = 1, 0

Xor 0 = 0), NOT – инвертирование

Синтаксис:

Var3 =

var

AND

var2, var3 = var OR var2 Var3 = var XOR var2, var3 =

var NOT var2 var, var2 – переменные или константы типа Bit, Byte, Integer, Word, Long

Constant

var3 – только переменные типа Bit, Byte, Integer, Word, Long

Пример:

Dim d As Byte , e As Byte Dim c As Const &B10011001

e = 12 : e = Not e : d = e Or c : d = d And &b00001000

BDC()

Показывает (выводит) число в двоично-десятичном виде.

Действие:

Синтаксис:

Bcd(var) Var - отбражаемая переменная (типа Byte, Word, Integer, Long или Constant).

Пример:

Print arb

‘значения 10h, 21h, 40h показывает как 16, 33, 64

Print Bcd(arb) ‘значения 10h, 21h, 40h выводятся как 10, 21, 40

BITWAIT

Ждет, пока бит не установится или не сбросится

Действие:

Синтаксис:

BITWAIT x

SET/RESET x - имя бита

Пример:

Bitwaim a , Set

‘ждем, пока в прерыв. Установится Бит a

Bitwait P1.7, Reset ‘ждем, пока в порт не придет «0»

BREAK

Остановиться при отладке. Компилятор устанавливает в месте расположения оператора Break код

Действие:

A5h, служащий отладчику командой останова.

Пример:

Break

‘остановиться здесь при отладке

Bit, Byte, Integer, Long, Word, Single, String()

Действие:

Типы переменных, применяемые в BASCOM. Тип переменной необходимо указывать перед

использованием при объявлении имени с помощью директивы Dim.

Пример:

Dim B1 As Bit , A As Byte , C As Integer

Dim D As Word , E As Long , G As Single

Dim S As string * 16 ‘на 16 символов

Dim F(10) As Byte

‘массив из десяти байт

CALL

Вызывает процедуру или подпрограмму. В процедуру может входить до 10 параметров.

Действие:

Допускается вызывать процедуру вообще без параметров (даже если их наличие было

объявлено).

Синтаксис:

CALL Test [(var1, var-n)] или Test var1 , var-n

Var1, var-n - любая переменная или константа. Test

Пример:

Dim A as byte, B1 as byte

Declare Sub Test(b1 as byte)

A = 65

‘вызов п/п test с параметром A

Call test (a)

Test a

‘альтернативный вариант записи вызова

End

SUB Test(b1 as byte) ‘использовать некоторую переменную

LCD b1

‘поместить на индикатор

Lowerline : LCD BCD(b1)

End SUB

Действие:

Запустить исполнение одного из последовательных блоков действий в зависимости от значения

переменной

- объявление выбора

Синтаксис:

SELECT CASE var

CASE test1 : statements

- первое условие: var=test1?

[CASE test2 : statements ] - второе условие: var=test2?

CASE ELSE : statements – остальные значения?

END SELECT

Test1, Test2 – значения переменной, при

Var –

тестируемая переменная

типа Byte.

котором происходит выполнение соответствующего блока. Statements – выполняемый

оператор (операторы). В последних версиях Bascom поддерживаются операторы проверки

условия «больше или равно» (“IS >=”) и диапазона «от - до» (“TO”). Проверяйте, поддерживает

ли ваша версия компилятора такие определения.

Оператор

Dim b2 as byte

'начать проверку и выбор

SELECT CASE b2

CASE 2 : PRINT «2»

CASE 4 : PRINT «4»

'для проверки условия требуется

CASE IS >=5 : PRINT «>5»

'ключевое слово IS.

CASE 6 TO 19 : PRINT “6-19” 'проверка диапазона. Ключевое слово TO

CASE ELSE : PRINT “Other”

'необязательная составляющая

END SELECT

'закончить

END

CHR()

Преобразует значение переменных типа Byte, Integer/Word или константы в символ. Применяется

Действие:

при выводе данных на индикатор, в последовательных порт, для записи в строковую переменную

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

байт и записывается в строку.

Синтаксис:

PRINT CHR(var) : LCD CHR(var) S = CHR(var) : S = «Date=» + CHR(var)

var – переменная типа Byte, Integer/Word или числовая константа. s - строковая переменная.

Пример:

Dim a as byte, s as string * 10

a = 110 : LCD a ‘отпечатается «110»

LCDHEX a

‘отпечатается «6E»

LCD Chr(a)

‘отпечатается «n»

LCD Bdc(a)

‘отпечат «6>» - некорректная операция

S = «Byte=» : S = S + Chr(a) ‘можно добавить к строке!!!

Print S

‘отпечатается «Byte=n»

End

CLS

Очищает поле LCD и ставит курсор в первую позицию

Действие:

Пример:

CLS

‘очистить индикатор

LCD «Hello»

‘вывести сообщение

CONFIG 1WIRE

Действие:

Определение вывода, подключенного к 1-проводной шине

Синтаксис:

CONFIG

1WIRE = pin pin - имя любого битово адресуемого порта.

Пример:

Config 1WIRE = P1.0 ‘P1.0 is used for the 1-wire bus

1WRESET

‘reset the bus

CONFIG DEBOUNCE

Действие:

Установить задержку для оператора DEBOUNCE. По умолчанию, если не применено данное

Синтаксис:

определение, задержка устанавливается равной 25 мс.

CONFIG

DEBOUNCE

= time

time

– константа, задающая в миллисекундах значение

задержки (при кварце 12 МГц).

Пример:

Config Debounce = 50 ’50 mS

CONFIG I2CDELAY

Действие:

Установить задержку между тактами синхронизации по линии SCL интерфейса I2C. По

Синтаксис:

умолчанию задержка устанавливается равной 5 мкс.

CONFIG

I2CDELAY

= 0 или 1 0 –

без задержки (получается скорость обмена около

400 кГц при частоте кварцевого генератора 12 МГц). 1 - с дополнительной задержкой 5 мкс (это

стандартная скорость -

100 кГц).

Пример:

CONFIG

I2CDELAY = 0 ‘без задержки

CONFIG LCD, CONFIG LCDBUS, CONFIG LCDPIN

Действие:

CONFIG LCD – установить тип индикатора

CONFIG

LCDBUS

–

установить количество линий управления в шинном режиме (при

использовании установки «$LCD»). В 4-битном режиме индикатор должен подключаться к

линиям D4-D7 шины. Запись в индикатор в шинном режиме ведется командой MOVX A,@DPTR.

Синтаксис:

CONFIG LCDPIN – определить линии управления индикатором (не шинный режим).

CONFIG

LCD =

LCDtype LCDtype

– один из параметров в соответствии

с

типом

используемого индикатора (символов * строк). Можно применять: 40 * 4, 16 * 1, 16 * 2, 16 * 4, 16

* 4, 20 * 2 или 20 * 4. По умолчанию устанавливается - 16 * 2.

CONFIG LCDBUS = 4 - при использовании 4-битной шины.

CONFIG LCDBUS = 8 - при использовании 8-битной шины (по умолчанию).

RS=pin

CONFIG

LCDPIN=PIN

, DB4=pin, DB5=pin, DB6=pin, DB7=pin, E=pin,

– при использовании побитного режима управления индикатором (самого медленного).

pin - перечисленние имен портов подключенных к индикатору. Для управления индикатором

могут использоваться любые линии, адресуемые как биты. Или “CONFIG LCDPIN, …

“

– в

старой версии синтаксис был таким.

Пример 1:

‘Побитное управление индикатором

'ВНИМАНИЕ! Добавлен символ, дающий возможность переносить длинные

‘строки с помощью символа «_» (подчеркивателя):

CONFIG LCDPIN = PIN , DB4 = P1.1 , DB5 = P1.2 , DB6 = P1.3, _

DB7 = P1.4 , E=P1.5 , RS=P1.6

‘опред. подключение индикатора. Линия RW-Gnd

CONFIG LCD = 40 * 4 ’40 символов, 4 строки

Пример 2:

‘Подк. Индикатора на шину. RW-Gnd. RS-A0. E-инв. Wr(P3.6)

$LCD = &ha000

‘использовать адреса A000h и A001h

CONFIG

LCDBUS = 8 ‘шина 8-бит (подкл. D0-D7 соот. P0.0-Po.7)

Chip (модель кристалла)

93C46

93C56

93C57

93C66

Data bits (длина данных)

8

16

8

16

8

16

8

16

AL (параметр)

7

6

9

8

8

7

9

8

Действие:

Установить количество сервомоторов и их выводы управления

Синтаксис: Config SERVOS=number, SERVO1=pin, SERVO2=pin, SERVO3=pin

Number – число сервомоторов. Максимальное количество – 16

servo 1, servo2, servo 2, servo3 – имена выходов, присваемые выводам.

При использовании этой функции таймер 0 уже не может быть использован для других целей.

Пример:

Config SERVOS = 3, SERVO1 = P1.1 , SERVO2 = P1.2 , SERVO3 = P1.4

Pin - перечисленние имен портов подключенных к SPI. Могут использоваться любые линии,

адресуемые как биты. DIN – ввод данных. DOUT - вывод данных. CS - выбор кристалла. CLK

– тактирование данных. При Nocs =

0 – вывод CS не управляется после каждого байта – это

нужно делать вручную. При Nocs = 1 – привычное использование вывода CS.

Пример:

Config SPI=SOFT , DIN=P1.0 , DOUT=P1.1 , CS=P1.2 , CLK=P1.3

SPIOUT var , 1

‘send 1 byte

CONFIG TIMER0, TIMER1

Действие:

Установить следующие режимы таймера 0 или 1:

CONFIG

TIMERx = COUNTER – внешний генератор C/Tx=1

CONFIG

TIMERx = TIMER – внутренний генератор (Fкв/12) C/Tx=0

GATE = INTERNAL - внутреннее разрешение счета GATEx=0

GATE = EXTERNAL - внешнее разрешение счета GATEx=1

GATE = MODE=0,1,2 или 3 – режим таймера (соответственно описанию 8051)

Пример:

Config Timer0=Counter, Mode=1, Gate=Internal

Counter0 = 0 ‘сброс счетчика (Tl0 и Th0)

Start Counte ‘разрешим счет

CONFIG TIMER2

Действие:

Установить следующие режимы таймера 2:

CONFIG TIMER2 = COUNTER – внешний генератор C/T2=1

CONFIG TIMER2 = TIMER – внутренний генератор (Fкв/12 или Fкв/2) C/T2=0

]GATE = INTERNAL - внутреннее разрешение счета EXEN2=0

GATE = EXTERNAL - внешнее разрешение счета EXEN2=1

MODE = 0 - режим самозагрузки CP/RL2=0

MODE = 1 - режим захвата CP/RL2=1

MODE = 2 - режим генератора бодовой скорости RCLK=1 TCLK=1

MODE = 3 - генератор бод. только приемника RCLK=1 TCLK=0

MODE = 4 - генератор бод. только передатчика RCLK=0 TCLK=1

MODE = 5 - режим выдачи частоты T2OE=1

DIRECTION=UP - считать вперед (увеличивать) DCEN=1

DIRECTION=DOWN - считать назад (уменьшать) DCEN=0

Пример:

CONFIG TIMER2=COUNTER , GATE=INTERNAL , MODE=0 ‘Режим самозагрузки

CONFIG TIMER2=COUNTER , GATE=INTERNAL , MODE=0 , DIRECTION=UP

CONFIG TIMER2 = COUNTER , GATE = INTERNAL , MODE = 1 ‘Режим захвата

CONFIG TIMER2=TIMER , GATE=INTERNAL , MODE=2 ‘Бодовый генератор CONFIG

TIMER2=TIMER , GATE=INTERNAL , MODE=3 ‘Бод. генер. на прием CONFIG

TIMER2=TIMER , GATE=INTERNAL , MODE=4 ‘Бод.генер. на передачу CONFIG

TIMER2=TIMER , MODE=5

‘Выход частоты

Синтаксис: DIM Symbol AS Const Value

Symbol - имя константы. Value - цифровое значение

Const Symbol = Value

‘Ar = 5

Пример:

Dim Ar As Const 5

Dim Br As Const &B1001

‘Br =

9

Dim Cr As Const &hab00

‘Cr =

AB00H

COUNTERx

Записать значение непосредственно в счетчик таймера. При загрузке счетчик останавливается

Действие:

(записывается TRx=0), а затем счет разрешается снова (устанавливается TRx=1).

Синтаксис:

COUNTERX = var или var = COUNTERX

Var - переменная типа byte, Integer/Word variable или константа (последняя только при загрузке).

CounterX

- COUNTER0 , COUNTER1 или COUNTER2. Используйте СounterX = 0 для сброса

счетчика.. Счетчик может считать от 0 до 255 в режиме 2 (8-битный с самозагрузкой) и до 65535

в режиме 1 (16-битный).

Пример:

Dim A As Byte , C As Integer

Config Timer0 = Counter , Gate = Internal , Mode = 1

Counter0 = 0

‘очистить

Start Counter0

‘начать счет

Do

‘цикл

A = Inkey

‘прочитаем введеное

C = Counter0

‘считаем таймер

Print C

‘отпечатаем значение таймера

Loop Until A = 27 ‘пока не пришел символ escape продолжаем

End

Оператор:

COUNTER0 = 1000

Компилируется:

Clr TCON.4

Mov tl0,#232

Mov th0,#3

Setb TCON.4

CPEEK()

Возвращает значение кода по указанному адресу из памяти команд. Т.к. запись в память

Действие:

программ процессора модели 8051 невозможна, то операция и соответственно команда CPOKE,

Синтаксис:

имеющаяся в стандартном Бейсике, невозможна.

var = CPEEK( address )

Var -

переменная (байтовая), которая будет содержать

считанное значение. Address - переменная или константа (типа Word или Integer).

Пример:

Dim I As Integer , B1 As Byte

For I = 0 To 127

‘взять байт из памяти

B1 = Сpeek(i)

Printhex B1 ; «

« ; ‘показать

Next

DATA

Объявить блок непосредственных данных

Действие:

var , var2, var3[, varn] - числовые или

Синтаксис:

DATA var

, var2,

var3[,

varn]

строковые константы. Байтовые константы в любом виде, предусмотренном Bascom. Константы

типа Integer и Word должны быть со значком - %. Константы типа Long - со знаком &. Константы

с плавающей точкой - со знаком !. Компилятор позволяет размещить в одной строке разные типы

данных. Их разделение при считывании является задачей программиста.

Пример:

tab_byte:

‘byte data

Data 0 , 1 , 2 , 20 , &hFF , &b000101010

_tab_word:

‘integer

data Data 100% , 200% , 32345% , &ha0df , &b0001010001010101

_tab_long:

‘long data

Data 1000& , 22222222& , &h125690bc

_tab_sing:

‘single data

Data 1000! , 2000! , 3000! , 4000! , 5000!

_tab_string:

‘string data

Data «0123456789» , $35

‘and new format of the string data

_tab_mix:

‘mix of constant types on one line DATA «TEST» , 5 ,

Синтаксис:

WRITEEEPROM var [,

address ]

READEEPROM

var

[, address ] Var - любая

переменная BASCOM. Address - адрес EEPROM в диапазоне от 0 до 2047. Адрес можно не

указывать, он будет устанавливаться автоматически в порядке следования записей при

компиляции. При считывании переменной значение адреса будет вставляться компилятором

также автоматически, используя значение, полученное (вычисленное) ранее при ее записи.

Естественно, записи в этом случае будут производиться с адреса 000 или после последнего

указанного. Кроме того, при автоматическом выборе адреса данные можно вернуть только в тот

регистр, из которого они были записаны, и, соответственно, нельзя записать данные из одной

ячейки внутренней памяти в разные ячейки EEPROM.

Пример:

Dim S As String * 15 , S2 As String * 10

S = «Hello» : S2 = «test»

Dim L As Long

‘записать строки

L = 12345678 Writeeeprom S : Writeeeprom S2

Writeeeprom L

‘записать длинную переменную

S = «» : S2 = «» : L = 0

‘очистить переменные

Readeeprom L : Print L

Readeeprom S : Print S

Readeeprom S2 : Print S2

End

DEBOUNCE

Действие:

Производить периодическую проверку состояние битового порта, и когда ожидаемое изменение

уровня происходит, то осуществлять переход на указанную метку или вызывать указанную

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

оператору контроля уровня. Периодичность проверки уровня определяется директивой CONFIG

DEBOUNCE = ms.

[ , SUB]

Синтаксис:

DEBOUNCE Px.y , state , label

Px.y

–

имя

порта. При

state

=

0

переход происходит при установлении на

контролируемой линии низкого уровня и

при

state

=

1 оператор

ждет установления

высокого

уровня.

Label

-

адрес перехода (GOTO)

или

вызываемой

подпрограммы, если

имеется дополнительное указание SUB. Чтобы все работало правильно, необходимо к моменту

возврата из подпрограммы вернуть порт в исходное (неактивное) состоянии. Это же правило,

кстати, действует и при вызове внешних прерываний.

Пример:

CONFIG DEBOUNCE = 30

‘30mS

Do

‘Debounce P1.1 , 1 , Pr ‘здесь ждем поступления выс. уровня

Debounce P1.0 , 0 , Pr , SUB

‘

^----- вызывать как подпрограмму

‘

^----- метка перехода

‘

^---------- что ждем (здесь «0»)

‘

^---------------- имя порта, где ждем

Loop

Синтаксис:

DECLARE SUB Test[(var as type, var1 as type)] Test – имя процедуры.

Var, var1 - имена используемых переменных. Число переменных не должно превышать 10.

Тип переменных - Bit, Byte, Word/Integer, Long или String.

Пример:

Dim a As Byte, b1 As Byte, c As Byte

Declare Sub Test(a As Byte) ‘определение процедуры

A = 1 : b1 = 2: c = 3

Print a ; b1 ; c

‘Test b1 – можно записывать и так

Call Test(b1)

Print a ;b1 ; c

End

‘описание процедуры

Sub Test(a as byte)

A = b1 ; b1 = c ; c = a + b1

End Sub

DECR, INCR

Уменьшить или

увеличить переменную на единицу. Исполняется быстрее, чем оператор:

Действие:

Синтаксис:

var = var - 1. При воздействии на знаковые переменные эти операторы действуют с учетом знака.

DECR var INCR var Var – переменная типа: Byte, Integer, Word, Long, Single.

Пример:

Dim A As Byte A = 5

‘беззнаковое значение

Decr A : Print A

‘4

Incr A : Print A

‘5

DefBit, DefByte, Defint, DefWord

Действие:

Определить тип переменных. Равноценно определению с использование оператора Dim, однако,

Синтаксис:

возможности немного уже.

DEFBIT b1 – определить b1 как битовую переменную.

DEFBYTE c – C как однобайтовую

DEFINT I – I как типа Integer (двухбайтовая со знаком).

DEFWORD x – X как слово

Пример:

Defbit b : DefInt c ‘определить тип как бит и слово (integer)

Set b1

‘set bit to 1

C = 10

‘let c = 10

DEFLCDCHAR

Действие:

Определить изображение дополнительных символов с кодом от 0 до 7 или от 8 до 15 (те же

самые). Для того, чтобы новые символы начали действовать, необходимо выполнить команду

Синтаксис:

CLS. Для вывода дополнительных символов нужно применять функцию Chr().

DEFLCDCHAR

char,r1,r2,r3,r4,r5,r6,r7,r8

Char - код

(номер) определяемого

символа (0-7). r1-r8

Пример:

Deflcdchar 0,1,2,3,4,5,6,7,8 ‘определить спец. символ

Cls

‘очистка приводит в действие

Lcd Chr(0)

‘показать изображение

End

DELAY, WAIT , WAITMS

Delay - короткая на 100 мкс. WAIT -

Действие:

Ждать. Программные временные задержки (при 12 МГц):

на указанное число секунд. WAITMS - на указанное число миллисекунд

(значение в сек)

Синтаксис:

DELAY , WAIT time

(значение в мсек) , WAITMS time

Значение time может быть задано как константой, так и переменной.

Пример:

WAIT 3

‘ждать 3 сек

WAITMS 200

‘ждать 200 мс

DIM

Определить размерность переменных

Действие:

Синтаксис:

DIM var AS [XRAM/IRAM] type

Var

- любое имя, короткое или длинное. Переменная может быть

объявлена как

массив

переменных с индексом, например ar(n), и будет занимать n последовательных элементов.

Type

- тип переменной. Предусмотрены следующие значения:

Bit, Byte,

Word,

Integer, Long, Single

и String

XRAM – указывает, что переменная будет расположена во внешней памяти.

IRAM – располагает переменную во внетренней памяти (по умолчанию).

Для строковых переменных нужно обязательно указывать длину, например:

Dim s As XRAM String * n.

Строковая переменная займет в памяти n+1 байт. Еще одна особенность определения строковой

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

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

содержания, но не может (и не должна) превышать назначенной длины. Битовые переменные

могут располагаться только во внутренней памяти. Переменные могут определяться перед

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

зарезервирует место для переменных объявляемых позже.

Пример:

Dim B1 As Bit

‘бит может быть: 0 или 1

Dim A As Byte

‘байт от 0 до 255

Dim C As Integer

‘integer -32768 - +32767

Dim D As String * 10

‘строка длиной 10 символов

Dim ar(10) As Byte

‘массив из 10 байтовых переменных

Dim E As Const 5

‘константы

Dim F As Const &B1001B1

B1 = 1 : Set B1

‘назначить биты (assign bits)

A = 12 : A = A + 1

‘байты

C = -12 : C = C + 100

‘слова

Waitms E

‘ждать 5 мс

Print F : Print B1

End

Синтаксис:

DISABLE interrupt ,

ENABLE interrupt Interrupt - одно из имен источников

прерываний: INTERRUPTS, INT0, INT1, SERIAL, TIMER0, TIMER1, TIMER2 или

PCA.

‘enable the setting of interrupts

Пример:

ENABLE INTERRUPTS

ENABLE TIMER0

‘enable TIMER0

DISABLE SERIAL

‘disables the serial interrupt.

DISABLE INTERRUPTS

‘disable all interrupts

DO .. LOOP

Определить цикл. Операторы цикла DO и LOOP устанавливают необходимость безусловного

Действие:

повторения выполнения операторов, расположенных между ними. Прекращение цикла

происходит только при выполнении условий, заданных с помощью ключевого слова UNTIL. Из

цикла также можно выйти, с помощью операторов GOTO или EXIT из конструкции проверки

условий IF … END IF.

Синтаксис:

DO

Тело цикла

LOOP [ UNTIL expression ]

Expression - выражение условия прекращения цикла. Из цикла можно также выйти, применив

в теле циклической программы директиву EXIT DO или оператор GOTO.

Пример:

Dim A As Byte

‘начало цикла

DO

A = A + 1 : PRINT A ‘действия внутри цикла

LOOP UNTIL A = 10

‘повторять до A = 10

Print A

‘печатать, что получилось – 10

END

Остановить исполнение программы. Аналогично команде Stop. Компилятор запрещает все

Действие:

прерывания и ставит команду JMP саму на себя.

Синтаксис:

END

ERASE

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

Действие:

определена. Этот прием используется для создания временных (локальных) переменных, не

занимающих память. Уничтожать можно только последние переменные, расположенные в памяти

выше всего. Этот оператор нужно применять с осторожностью, т.к. стек автоматически

устанавливается выше блока переменных, и при переопределении не меняет своего положения

(автоматически). Возможно, в некоторых случаях, чтобы программа работала правильно,

придется вычислять значение стека и устанавливать его «вручную». При переопределении

переменных внешней памяти, естественно, таких проблем не существует.

Синтаксис:

ERASE var

Var - имя переменной

Пример:

Dim a1 as byte,a2 as byte,a3 as byte,a4 as byte,

F(var3,var4)

‘использование переменных

ERASE a3 : ERASE a4

‘теперь эти можно уничтожать.

Dim a5 as Byte

‘определение новой переменной на их место

‘теперь vars a1 and a2 нельзя уничтожать

EXIT

Выйти из одной из указанных программных конструкций: FOR..NEXT, DO..LOOP, WHILE

Действие:

..WEND или SUB..END SUB. Выход обычно осуществляется при проверке каких-либо условий.

Оператор EXIT отличается от оператора GOTO только тем, что адрес перехода устанавливается

Синтаксис:

автоматически на строку, следующую за последним оператором цикла.

EXIT [FOR] [DO]

В соответствии

с применяемой конструкцией цикла выбирается:

[WHILE] [SUB]

Пример:

DO

‘начать DO..LOOP

A = A + 1

‘некоторые действия

IF A = 100 THEN ‘проверить a = 100?

EXIT DO

‘выход из цикла DO..LOOP

END IF

‘конец условия IF..THEN

LOOP

‘конец цикла DO

FOR .. TO/DOWNTO .. STEP, NEXT

Действие:

Выполнить некоторые действия заданное число раз. Основой управления конструкцией

FOR…NEXT служит изменение указанной переменной от начального до конечного значения.

Синтаксис:

FOR var = start TO/DOWNTO end [STEP value]

Повторяемый блок

NEXT

Var - переменная счетчик. Start - начальное значение переменной. End - конечное значение

переменной. Value - значение шага изменения переменной.

Значение шага не должно быть

отрицательным. Переменная может увеличиваться или уменьшаться, в соответствии с

применяемой опцией TO или

DOWNTO. NEXT - оператор

замыкания цикла - переход к

следующему значению переменной. При шаге изменения переменной, равном единице, опция

STEP может опускаться. Типы допустимых переменных: var :

Byte, Integer, Word, Long, Single.

start: Byte, Integer, Word, Long, Single, Constant. end : Byte, Integer, Word, Long, Single, Constant.

step : Byte, Integer, Word, Long, Single, Constant.

Пример 1:

y = 10

‘сделать y=10

FOR a = 1 TO 10

‘делать 10 раз

FOR x = y DOWNTO 1 ‘вложенный цикл

PRINT x ; a

‘показывать

NEXT

‘следующее x (считаем обратно)

NEXT

‘следующее a (считаем вперед)

Пример 2:

Dim S as Single

‘другой пример

For S = 1 To 2 Step 0.1

FUSING()

Преобразовать значение переменной в формате с плавающей точкой в форматированную строку.

Действие:

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

Чтобы зафиксировать положение десятичной точки при индикации и улучшить восприятие

данных, применяется настоящая функция. Работает в большой модели памяти! Функция Fusing

имеет недостатки, главный из которых включение в форматированное число знака минус при

преобразовании отрицательных чисел. В последних версиях компилятора возможности этой

функции расширены.

Синтаксис:

var = Fusing( source, mask)

var – строка, которая будет беззнаковым результатом.

Source – переменная типа типа single, которая должна быть отформатирована.

Mask – маска результата . Например, ###.##, где знак есть цифра и указано положение

десятичной точки. Максимальное число цифр – семь (значащих). При использовании знака #

значение округляется. Чтобы округление не производилось, используйте после точки знаки &.

Если хотите выводить лидирующие нули, используйте перед точкой вместо # знак 0 (но похоже

нужно указывать на один нуль больше)

Пример:

$large

Dim X As Single , Y As Single , Result As Single

Dim I As Integer, Buf As String * 16

Input «Enter x» , X

‘эапрос двух значений

Input «Enter y» , Y

‘вычисления

Print «X+Y=» ; : Result = X + Y : Print Result

Print «X-Y=» ; : Result = X - Y : Print Result

Print «X/Y=» ; : Result = X / Y : Print Result

Print «X*Y=» ; : Result = X * Y : Print Result

Buf = Fusing(result , ##.##) ‘форматирование строки

‘Buf = Fusing(result , 000.##)‘форматирование строки c лидир. нулями

‘Buf = Fusing(result , ##.&&) ‘форматирование строки без округления

‘Buf = Fusing(result , 000.&&)‘и то и другое

Print Buf

‘печать строки

GETRC()

Getrc – определение времени заряда (до порога срабатывания) RC-цепочки, подключенной к

Действие:

любой линии порта. Функция использует таймер 0, который нужно инициализировать

соответствующим образом. Последовательная RC-цепочка включается между землей и питанием.

Линия порта включается между резистором и конденсатором. Время измеряется от момента

отпускания линии (отключения от земли) до достижения уровня «1». При использовании более

сложной схемы с внешним компаратором и аналоговым ключом можно получить более высокую

точность. Практическое применение: аналоговая клавиатура и АЦП, где порог срабатывания

определяется уровнем измеряемого сигнала.

Синтаксис:

Var = GETRC( pin )

Var – переменная (двухбайтовая), принимающая значение задержки. pin - имя любого битово

адресуемого порта.

Пример:

'функция GETRC() требует таймер 0 - конфигурируем его

Config Timer0 = Timer , Gate = Internal , Mode = 1

$baud = 9600

'указываем скорость и кварц

$crystal = 11059200

'место для приема

Dim W As Word

Do

'цикл

W = Getrc(p1.7)

'определили задержку

Print W : Wait 1

'показали ее, ждем и снова повторим

Loop 'С конденсатором C=10nF получим: 250 при

10K9, 198 - 9K02 '182 -

8K04, 166 - 7K, 154 - 6K02, 138 - 5K04, 122 - 4K04 '106 - 3K06, 86 -

2K16, 54 - 1K00 - все в одном байте. 'при увеличении величины емкости

задержка станет двухбайтовой

var = VAL(s). Var – цифровая переменная типа Byte, Integer, Word, Long, Single. S –

строковая переменная.

Пример:

Dim Ar As Integer, S As String * 10

‘получили

10

S = «000A» : Ar = Hexval(s) : Print Ar

S = «123» : Ar = Val(s) : Print Ar

‘получили

123

var – переменная, которая примает значения двух байт из четырех имеющихся в переменной S.

S – источник данных

Пример:

Dim L As Integer , Z As Long

L = &H101001

‘Z = 1001h

Z = LowW(L)

Z = HighW(L)

‘Z = 0010h

Slave - адрес I2C записанный в переменой типа byte, Word/Integer или в виде константы.

Var - переменная, куда будут помещены считанные данные из устройства I2C.

b2W - число записываемых байт. Не задавать очень много!

b2R - число считываемых байт. Также не задавать очень много!

Bytes - число байт для передачи.

‘reset variable

Пример:

x = 0

slave = &H40

‘адрес расширителя PCF8574

I2CRECEIVE slave, x

‘считали его порт

PRINT x

‘посмотрели

‘------------

‘10-местный буфер

Dim buf(10) as String

buf(1) = 1 : buf(2) = 2

‘2 ячейки иниц.

I2CRECEIVE slave , buf() , 2 , 1

‘запишем из и счит. Одну

Print buf(1)

‘посмотрим, что считали

‘------------

x = 5

‘запишем 5

I2CSEND slave , x

‘------------

Dim ax(10) As Byte

For a = 1 to 10

‘заполним пространство от 1 до 10

ax(a) = a

Next

‘? - резерв. переменная BASCOM

Bytes = 10

I2CSEND slave , ax() , bytes

‘запишем 10 байт

Var – переменная-приемник данных I2C-устройства. 8/9 - опция типа считывания. 8 - (ACK),

когда считывается не последний байт, т.е. считывание еще будет продолжаться. 9 - (NACK), если

это последний байт считываемой последовательности. Val - переменная-источник данных или

константа. Функции записи и считывания работают через аккумулятор, поэтому для экономии

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

Пример:

Dim Addressw As Const 160 ‘адрес микросхем типа 24Cxx

Dim Wadr As Word

‘адрес считываемой переменной

Dim Fld As Single

‘приемник данных

Rds_24c: $asm

mov A , {wadr + 1} ;готовим старший байт, cодержащий

Rl A

;старшие разряды адреса

Orl A , #{Addressw}

;добавим код микросхемы

Mov B , A

$end Asm

‘старт

I2cstart

I2cwbyte B

‘первый байт режима

$asm

mov A , {wadr + 0}

$end Asm

‘младший адрес в EEPROM

I2cwbyte Acc

Set B.0

‘переключим в режим считывания

I2cstart

‘повторим старт

I2cwbyte B

‘байт режима

I2crbyte Acc , 8

‘считали 1-й байт с опцией ACK (8)

$asm

mov {Fld + 0} , A

$end Asm

‘2-й байт

I2crbyte Acc , 8

$asm

mov {Fld + 1} , A

$end Asm

‘3-й байт

I2crbyte Acc , 8

$asm

mov {Fld + 2} , A

$end Asm

‘последний байт с опцией NOACK (9)

I2crbyte Acc , 9

$asm

mov {Fld + 3} , A

$end Asm

‘стоп

I2cstop

Return

IDLE

Переводит процессор в режим останова (IDLE), выход из которого происходит только в случае

Действие:

Синтаксис:

любого прерывания или системного сброса.

IDLE

Пример:

Mc: ‘цикл ожидание бита, устанавливаемого в прерывании

Do

Idle ‘останов для снижения энергопотребления

If Bit_a=1 Then ‘проснулся и проверяет: есть событие?

Bit_a=0 : Goto Wba ‘да – отработать

End If

Loop

Wba:

Set P1.1 ‘действие, вызванное событием в прерывании

Goto Mc ‘обратно в цикл ожидания

IF A = 10 THEN

‘проверка

PRINT « This part is executed.»

‘это отпечатается

ELSE

PRINT « This will never be executed.»

THEN

PRINT «BIT 15 IS SET»

END IF

REM Пример использования в одной строке

IF THEN IF A.15 = 0 THEN PRINT «BIT 15=0»

ELSE PRINT «BIT 15=1»

END IF

Пример 2:

Dim X As Integer

‘новая возможность проверки – сравнение со значением символа

If X = "A" Then 'when X = 65 the test will pass

Пример 3:

‘новая возможность проверки – запись опертора в одну строку

If X = 10 Then Goto M1 Else Goto M2

Dim a As Byte

‘считать по адресу 8000h

a = INP(&H8000)

PRINT a

‘записать 1 по адресу 8000h

OUT &H8000,1

‘Будет следующий

генериться код последнего оператора:

INSTR ()

Возвращает значение позиции в строке, указанной для поиска подстроки (включения). Пока

Действие:

работает только во внутренней памяти.

Синтаксис: var = INSTR( start , string , substr )

var = INSTR( string , substr )

Var – числовая переменная, принимающая значение позиции типа byte и

возвращающая 0, если заданное включение не найдено. Start – параметр,

который может отсутствовать и задает первую позицию, с которой

начнется поиск. Если параметр не указан, поиск начинается с позиции 1.

String – имя строки, в которой ищется включение.

Substr – имя строки, содержащей искомое включение.

Пример:

Dim S As String * 10 , Z as String * 5

Dim bP as Byte

'строка, в которой ищем

s = "This is a test"

Z = "is"

‘эту строку

BP = Instr(s,z) : Print bP

'если ищем сначала – это позиция 6

INPUTBIN var1 [,varn] Prompt - приглашение (сообщение, которое будет выводится на

терминал перед вводом переменной).

Var, varn - переменные (их может быть несколько), значения которых вводятся.

NOECHO - опция, запрещающая эхо (передачи обратно введенных символов).

TIMEOUT – опция, указывающая на необходимость проверки времени ввода. В версии

компилятора старше 2.01 эту опцию перед использованием необходимо объявить директивой

$TIMEOUT

XX – параметр задержки до 2^31, по истечению которой произойдет возврат даже при отсутствии

ввода данных. Единица времени ожидания приблизительно равна 100 мкс(при 12 МГц). При

использовании этой опции компилятор занимает в памяти четыре байта для счетчика времени.

Пример:

$baud = 1200

‘порт должен быть настроен

$crystal = 12000000

‘будет применяться ввод с тайм-аутом!

$timeout

Dim V As Byte , B1 As Byte

Dim C As Integer , D As Byte

Dim S As String * 15

‘только если поддерживается XRAM

Input «Введите V» , V

‘вводить только десятичные цифры

Input B1

‘без запроса

Inputhex «Enter hex number (4 bytes)» , C ‘только шестнадц.

Print C

Inputhex «Enter hex byte (2 bytes)» , D ‘2 байта шестнадцатер.

Print D Input «More variables» , C , D ‘несколько переменных

Print C ; « » ; D

‘без эха

Input C Noecho

Input «Enter your name» , S

var – переменная

типа Byte, Integer, Word, Long или String. Если символ не введен,

возвращается нулевое значение

Пример:

DO

‘начать цикл

A = INKEY

‘проверить буфер

IF A > 0 THEN

‘есть символ? (>0)

PRINT A

‘да, показать его

END IF

‘замкнуть петлю

LOOP

A = Waitkey

‘здесь просто ждать символа

S = “asDFv”

'assign string

Z = LCASE(s)

'convert to lowercase

Print Z

'”asdfv”

Z = UCASE(s)

'convert to upper case

Print Z

'”ASDFV”

Acc = $h33

‘«3» в ACC

Call Write_lcd

‘на индикатор

Функция LCDHEX посылает значение переменной на индикатор в шестнадцатеричном виде

(каждый байт в виде двух символов от 00 - FF).

Синтаксис:

LCD var

LCDHEX var

Var – выводимая переменная или константа. Тип:

Byte, Integer, Word, Long, Single, Constant.

Можно показывать несколько переменных, отделяя их знаком « ; » :

LCD a ; b1 ; «constant»

‘поставить курсор

Пример:

Ar = 65 : Locate 2 , 1

Lcd «*» : Lcd « = » ; Ar

‘увидим «* = A»

Ar = &HBF : Clr : LCDHEX Ar

‘увидим «BF»

* определяется типом индикатора

Пример:

Dim a As Byte

‘мигать курсором

Cursor Blink

a = 255 : Lcd a : Cursor Off

‘невидимый курсор

Display Off : Wait 1 : DISPLAY On

‘выключить индикацию на 1 с

Locate 1 , 10 : LCD «Hello» ‘начиная с 10

позиции вывести сообщение

Cls : LCD «Very long text» ‘очистить и написать снова

Shiftlcd Left : Wait 1 : Shiftlcd Right :

LCD a : Lowerline ‘сдвигать

CD a : Upperline

LEFT(), MID(), RIGHT()

Действие:

Функции разделения строковых (текстовых) переменных: LEFT() - возвращает значение самого

левого символа (или несколько символов cлева). MID() - возвращает значение символа из

середины строки (или несколько средних символов). Может заменить часть строки символами

другой переменной. RIGHT - возвращает значение самого правого символа (или несколько

правых символов). Строковые переменные, применяемые в этих операциях, должны быть одного

типа, т.е. располагаться или во внутренней памяти или во внешней. Длина переменных,

Синтаксис:

используемых при этих операциях, может быть различной.

var = Left(var1 , n ) – взять символы слева

var = RIGHT(var1 ,st ) – взять символы справо

var = MID(var1 ,st [,l] ) – взять символы из середины

MID(var ,st [, l] ) = var1 – вставить символы в середину строки

var – строка результата операции. Var1 – исходная строка. N – число забираемых символов.

Тип n : Byte, Integer, Word, Long, Constant.

St – стартовая позиция (с слева. Крайний слева

символ – первый). L – число извлекаемых или вставляемых символов.

Пример:

Dim s As XRAM String * 15, z As XRAM String * 15

S = «ABCDEFG» : z = Left(s,5) : Print z

‘ABCDE

S = «ABCDEFG» : z = Right(s,2) : Print z

‘FG

S = «ABCDEFG» : z = Mid(s,2,3): Print z

‘BCD

Z = «12345» : Mid(s,2,2) = z : Print s

‘A12DEFG

LEN()

Функция возвращает длину строки. Под длиной строки имеется в виду число символов,

Действие:

загруженной строки, а не длина буфера, определенного как строковая переменная. Применяется

Синтаксис:

совместно в операциях преобразования строк.

Var = LEN( string )

Var – цифровая переменная, принимающая значение длины

строки. String – строка, длина которой вычисляется.

Пример:

Dim S As String * 12 , A As Byte

‘буфер на 12 символов

S = «test» : A = Len(s) : Print A ‘а длина переменной только 4

LOAD TIMER

Записывает значение в таймер, работающий в режиме самозагрузки (записывает в регистры,

Действие:

определяющие частоту переполнения).

Синтаксис:

LOAD TIMER , value

TIMER – имя одного из таймеров: TIMER0, TIMER1 или TIMER2.

Value – переменная

или

константа. Задаваемое значение определяет интервал времени (в

режиме ON TIMERx и MODE 2), по истечении которого наступит прерывание. Диапазон

значений – от 1 до 255 для TIMER0, TIMER1 и от 1 до 65535 для TIMER2. Директива LOAD

корректирует загружаемое значение: TLx = THx = (256 - value) – внимание! записывает

одинаковые значения! RCAP2L , RCAP2H = (65536 - value) Для загрузки непосредственно

задаваемого значения (без корректировки) применять оператор COUNTERx .

Пример:

LOAD TIMER0, 100

‘загрузить 100

LOOKUP, LOOKUPSTR

Действие:

LOOKUP - возвращает числовое значение, считанное из таблицы.

LOOKUPSTR - возвращает строку из таблицы, содержащей строковые данные (разной длины).

Синтаксис:

Var = LOOKUP(value , label)

Var = LOOKUPSTR(value , label)

Var – имя переменой, в которую помещается значение из таблицы. Типы переменных var: Byte,

Integer, Word, Long, Single

Value – имя переменной, содержащей индекс (смещение по таблице). Первый элемент имеет

индекс (базу) = 0 (без смещения). Все элементы таблицы должны быть одинакового размера! И

соответствовать типу принимающей переменной! Иначе произойдет ошибка - нарушение

синхронизации. BASCOM не проверяет это соответствие! Для функции LOOKUPSTR количество

строк в таблице не должно превышать 256, а длина самих строковых констант может быть

различной. Типы переменных: value: Byte, Integer, Word, Long, Constant.

Label – метка начала таблицы (адрес).

Пример:

DIM b1 As Byte , I as Integer

‘b1=2 - первый элемент 0-й!!!

b1 = Lookup(1, dta)

I = Lookup(0,DTA2)

‘I=1000

Dim s as string, idx as Byte

Idx = 0 : s = LookupStr(idx,Sdata)

Print s

‘S=»This»

DTA:

Data 1,2,3,4,5