MapBasic. Руководство пользователя

Подождите немного. Документ загружается.

Глава 4: Основы языка MapBasic

MapBasic Руководство пользователя

Чтобы изменить стандартный порядок применения операторов языка

MapBasic, надо использовать группировку с помощью скобок.

Например, чтобы в приведенном примере сначала выполнялось

сложение, его нужно переписать следующим образом:

x = (2 + 3) * 4

В данной таблице приведены приоритеты операторов языка MapBasic.

Операторы, перечисленные в одной строке, имеют одинаковый

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

ранее других. Операторы с одинаковым приоритетом выполняются в

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

которые выполняются справа налево.

Циклы и другие управляющие операторы

Управляющие операторы определяют порядок выполнения других

операторов. В языке MapBasic имеется три типа управляющих

операторов:

• Условные операторы позволяют пропускать выполнение

некоторых операторов в программе на языке MapBasic

(например, If...Then, GoTo).

• Операторы цикла позволяют повторять группу операторов

несколько раз (например, For...Next, Do...While).

• Другие специальные управляющие операторы (End Program и

др.).

Высший приоритет:

Низший приоритет:

скобки

возведение в степень

отрицание

сложение, деление, Mod, целочисленное деление,

сложение, вычитание, склеивание строк (&)

географические операторы, операторы сравнения,

Not

And

Глава 4: Основы языка MapBasic

60 MapBasic Руководство пользователя

Оператор If...Then

Оператор If...Then языка MapBasic очень похож на условные операторы

If...Then в других языках программирования. В операторе If...Then

проверяется истинность условия; если оно истинно, MapBasic

выполняет операторы, расположенные после ключевого слова Then. В

следующем примере MapBasic выдает сообщение об ошибке и вызывает

процедуру reset_counter, если значение счетчика слишком мало:

If counter < 0 Then

Note "Ошибка: Счетчик слишком мал."

Call reset_counter

End If

В операторе If...Then может также присутствовать предложение Else.

Если условие ложно, то MapBasic выполняет операторы,

расположенные после ключевого слова Else, вместо того, чтобы

выполнять операторы, расположенные после ключевого слова Then.

Вот пример использования предложения Else.

If counter < 0 Then

Note "Ошибка: Счетчик слишком мал."

Call reset_counter

Else

Note "Счетчик в порядке."

End If

В операторе If...Then

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

предложений ElseIf. Предложение ElseIf предназначено для проверки

дополнительных условий. Если в условном операторе присутствует

предложение ElseIf и проверявшееся условие ложно, то MapBasic

проверит условие из предложения ElseIf, например:

If counter < 0 Then

Note "Ошибка: Счетчик слишком мал."

Call reset_counter

ElseIf counter > 100 Then

counter = 100

Note "Ошибка: Значение счетчика (100) слишком

велико."

Else

Note "Счетчик в порядке."

End If

Внимание: Отметим, что ключевое слово ElseIf пишется слитно.

Оператор If...Then может содержать несколько предложений

ElseIf,

Глава 4: Основы языка MapBasic

MapBasic Руководство пользователя

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

если Вам нужно проверить несколько условий, Вы можете

использовать оператор

Do...Case (см. описание ниже) вместо

оператора

If...Then со множеством предложений ElseIf.

Оператор Do Case

Оператор Do Case выполняет набор проверок, чтобы установить,

какому из предусмотренных значений равно текущее значение

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

своя последовательность операторов.

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

текущий месяц. Если текущий месяц относится к первому кварталу

(ЯнварьФевральМарт), то текстовой переменной присваивается

константа “Первый квартал года". Аналогично, если текущий месяц

относится ко второму кварталу, то текстовой переменной

присваивается константа “Второй квартал года“ и т.д.

Dim current_month, quarter As SmallInt,

report_title As String

current_month = Month( CurDate() )

' В данный момент значение переменной current_month

равно 1,

' если текущим месяцем является январь, 2 – февраль

и т.д.

Do Case current_month

Case 1, 2, 3

' Если текущий месяц – 1 (янв), 2 (фев) или 3

(март),

' Сейчас первый квартал.

' Присвоить соответствующее значение.

report_title = "Первый квартал года"

quarter = 1

Case 4, 5, 6

report_title = "Второй квартал года"

quarter = 2

Case 7, 8, 9

Глава 4: Основы языка MapBasic

62 MapBasic Руководство пользователя

report_title = "Третий квартал года"

quarter = 3

Case Else

' Если текущий месяц имеет номер вне диапазона от

1 до 9,

' то сейчас – четвертый квартал.

report_title = "Четвертый квартал года"

quarter = 4

End Case

Внимание: Обратите внимание на предложение Case Else в конце

оператора

Do Case. Case Else – необязательное предложение. Если

оператор

Do Case содержит предложение Case Else и текущее

значение выражения не равно ни одному из значений,

перечисленных в предложениях

Case, MapBasic выполнит

операторы, расположенные после предложения

Case Else.

Предложение

Case Else должно быть последним предложением

оператора

Do Case.

Оператор GoTo

Оператор GoTo используется для перехода в заданное место программы

с того места, где встретился оператор

GoTo. В операторе GoTo

указывается метка перехода; оператор

GoTo не будет работать, если в

той же процедуре, где находится оператор перехода, нет метки с таким

именем. Метка – это имя, сопоставленное некоторой строке программы

и расположенное в начале этой строки; после имени метки должно

стоять двоеточие (в операторе

GoTo это двоеточие ставить не надо).

If counter < 0 Then

GoTo get_out

End If

...

get_out:

End Program

Многие профессиональные программисты не одобряют использование

операторов перехода типа

GoTo. Полноценное использование

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

If...Then,

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

GoTo. Так

что Вы можете обходиться и без

GoTo.

Глава 4: Основы языка MapBasic

MapBasic Руководство пользователя

Оператор For...Next

Оператор For...Next определяет цикл, выполняющийся заданное число

раз. Каждое повторение состоит в том, что MapBasic выполняет все

операторы, находящиеся между

For и Next.

Перед использованием цикла

For...Next Вы должны объявить имя

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

счетчика. Надо указать начальное и конечное значения этого счетчика.

После выполнения каждого повтора (после каждой итерации) MapBasic

будет увеличивать счетчик на заданную величину (шаг цикла).

Стандартный шаг цикла равен единице (1); чтобы задать другой шаг,

следует использовать необязательное предложение

Step.

Ниже приводится пример использования цикла

For...Next для

увеличения всех элементов некоторого массива:

Dim monthly_sales(12), grand_total As Float,

next_one As SmallInt

...

For next_one = 1 To 12

grand_total = grand_total +

monthly_sales(next_one)

Начиная выполнять оператор

For...Next, MapBasic присваивает

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

MapBasic присвоит переменной next_one единицу. Затем MapBasic

выполняет операторы, расположенные до ключевого слова

Next. После

каждой итерации цикла MapBasic увеличивает переменнуюсчетчик.

Если счетчик меньше либо равен заданному Вами конечному значению

(в примере, если next_one меньше или равна 12), MapBasic выполняет

следующую итерацию цикла.

Выполнение оператора

For...Next прерывается, если встретился

оператор

Exit For. Это позволяет при необходимости немедленно

остановить цикл.

Внимание: Если цикл For...Next использует явно заданные

вещественные значения (например,

For i = 0.1 to 1.0 Step 0.1), то

такой цикл может выполняться в MapInfo для Macintosh иначе, чем

в MapInfo для Windows или UNIX (т.е. может быть выполнено разное

число итераций на Macintosh и PC под Windows). Это возможно изза

особого способа обработки плавающих вещественных чисел в

компьютерах Macintosh.

Подробнее о цикле For...Next см. Справочнике MapBasic.

Глава 4: Основы языка MapBasic

64 MapBasic Руководство пользователя

Оператор Do...Loop

Оператор Do...Loop выполняет группу операторов, пока заданное в нем

условие остается истинным, либо пока условие остается ложным.

Возможны различные виды оператора

Do...Loop, в зависимости от того,

когда Вы хотите проверять условие цикла: до или после выполнения

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

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

Dim sales_total, new_accounts(10) As Float,

next_one As SmallInt

next_one = 1

sales_total = sales_total + new_accounts(next_one)

next_one = next_one + 1

Loop While next_one <= UBound(new_accounts)

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

раз, поскольку условие проверяется лишь в конце цикла (после

выполнения первой итерации).

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

условие проверяется в начале цикла, операторы в теле цикла могут не

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

условие уже ложно, операторы в теле цикла

Do...Loop не будут

выполнены ни разу.

Dim sales_total, new_accounts(10) As Float,

next_one As SmallInt

next_one = 1

Do While next_one <= UBound(new_accounts)

sales_total = sales_total + new_accounts(next_one)

next_one = next_one + 1

Loop

В обоих приведенных примерах оператора

Do...Loop используется

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

While; поэтому оба цикла выполняются до тех пор,

пока указанное после этого ключевого слова условие остается

истинным. С другой стороны, в операторе

Do...Loop можно

использовать ключевое слово

Until вместо ключевого слова While. Если

оператор

Do...Loop содержит предложение Until, то цикл выполняется,

пока контрольное условие остается ложным.

Выполнение оператора

Do...Loop прерывается, если обнаружен

оператор

Exit Do. Это позволяет при необходимости немедленно

остановить цикл.

Глава 4: Основы языка MapBasic

MapBasic Руководство пользователя

Завершение выполнения программы

Оператор End Program прерывает выполнение MapBasicприложения,

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

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

End Program также закрывает все

файлы, открытые в процессе работы приложения (с помощью

оператора

Open File), но не закрывает открытые таблицы.

Оператор

End Program не обязательно следует выполнять в каждой

программе. В некоторых ситуациях Вам, наоборот, следует не

выполнять оператор

End Program. Например, Ваше приложение

добавляет свои меню к системе меню MapInfo и Вы хотите, чтобы это

приложение оставалось активным в течение всего сеанса работы с Map

Info, поскольку пользователь должен иметь доступ к меню Вашего

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

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

End Pro-

gram, поскольку End Program остановит выполнение приложения и

удалит все созданные Вашим приложением меню. Подробное

обсуждение пользовательских меню Вы найдете в главе 6 "Создание

пользовательского интерфейса".

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

MapInfo

Оператор End MapInfo не только останавливает работу приложения

MapBasic (так, как это делает оператор

End Program), но также и

закрывает MapInfo.

Оператор End Program не требуется. Есть ситуации, кеогда надо

осторожно пользоваться оператором End Program. Например, если

Ваше приложение добавляет разделы меню к меню MapInfo, то может

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

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

End Program, поскольку End Program завершит работу приложения и

удалит его меню из главного меню. Подробнее об этом написано в Главе

6, Создание пользовательского интерфейса.

Завершение работы приложения и MapInfo

Оператор End MapInfo завершает работу приложения (как и End

Program), и затем завершает сеанс работы MapInfo.

Процедуры

Глава 4: Основы языка MapBasic

66 MapBasic Руководство пользователя

Процедура (или подпрограмма) представляет собой основную

структурную единицу программы на языке MapBasic. Типичная

программа на MapBasic состоит из нескольких процедур; каждая такая

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

конкретную задачу. Разбиение программы на процедуры придает

Вашей программе модульную структуру, делает ее удобнее для

дальнейшей разработки и поддержки.

Процедура Main

Каждая программа на MapBasic должна содержать по крайней мере

одну процедуру, а именно процедуру со стандартным именем

Main.

При запуске приложения на MapBasic, автоматически начинает

выполняться процедура

Main из данного приложения.

Следующий пример программы демонстрирует синтаксис объявления

и тела процедуры

Main. В этом примере процедура Main выполняет

один только оператор

Note:

Declare Sub Main

Sub Main

Note "Привет от MapBasic!"

End Sub

Оператор

Declare Sub указывает MapBasic, что в программе встретится

процедура с заданным именем. Каждой процедуре в программе должен

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

Declare Sub. Причем

оператор

Declare Sub должен предшествовать телу объявляемой

процедуры. Обычно все операторы

Declare Sub располагаются в самом

начале программы.

Вспомним, что в главе 3 мы говорили, что программа на MapBasic

может состоять только из одной строки. Например, фрагмент:

Note "Привет от MapBasic'а!"

является завершенной программой на MapBasic, которую можно

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

равно содержит процедуру

Main, однако, в таких случаях мы говорим,

что процедура

Main задана неявно (в примере же выше она была задана

явно).

Вызов процедуры

При компиляции приложения MapInfo автоматически начинает с

вызова процедуры

Main (независимо от того, явно или неявно она

присутствует в программе). Затем процедура

Main может вызывать

другие процедуры с помощью оператора

Call. Вот пример программы,

состоящей из двух процедур: процедуры

Main и процедуры с именем

announce_date.

Глава 4: Основы языка MapBasic

MapBasic Руководство пользователя

Declare Sub Main

Declare Sub announce_date

Sub Main

Call announce_date( )

End Sub

Sub announce_date

Note "Сегодня " + Str$( CurDate() )

End Sub

Вызов процедур, имеющих параметры

Как и другие BASICподобные языки, MapBasic позволяет создавать

процедуры с параметрами. Если процедура имеет параметры, то при ее

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

процедуры в операторе

Sub...End Sub.

Ниже приводится пример, в котором процедура check_date имеет один

параметр (типа Date). Эта процедура проверяет, давно ли прошла дата,

указанная в качестве параметра (прошло более 180 дней); если прошло

более 180 дней, то процедура устанавливает значение параметра

равным текущей дате.

Declare Sub Main

Declare Sub check_date(last_date As Date)

Sub Main

Dim report_date As Date

report_date = "01/01/94"

Call check_date( report_date )

' В данный момент переменная report_date

' может содержать текущую дату (в зависимости

' от результата работы процедуры check_date).

End Sub

Sub check_date(last_date As Date)

Dim elapsed_days As SmallInt

elapsed_days = CurDate() – last_date

If elapsed_days > 180 Then

last_date = CurDate()

End If

End Sub

Глава 4: Основы языка MapBasic

68 MapBasic Руководство пользователя

Передача параметров ссылкой

По умолчанию все параметры процедур в MapBasic передаются

ссылкой. При этом применяются следующие правила:

В операторе

Call все параметры, передаваемые в процедуру,

должны быть именами переменных.

Если в вызываемой процедуре передаваемому ссылкой параметру

присваивается новое значение, то изменяется значение

соответствующей внешней переменной. Другими словами,

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

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

Так, в последнем приведенном нами примере в операторе

Call в

качестве фактического параметра была указана переменная типа Date

report_date:

Call check_date( report_date )

В процедуре check_date соответствующий (формальный) параметр

носил имя last_date. Когда в процедуре check_date формальному

параметру last_date присваивается текущая дата (last_date =

CurDate( ) ), MapBasic автоматически изменяет и значение

фактического параметра report_date в процедуре

Main.

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

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

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

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

не заводили переменных нужного типа).

Как и в других BASICподобных языках, в языке MapBasic Вы можете

использовать передачу параметров значением вместо передачи

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

применить ключевое слово

ByVal перед именем соответствующего

параметра в операторе

Sub...End Sub.

При передаче параметра значением действуют следующие правила:

• В операторе

Call (фактические) параметры не обязательно

должны быть именами переменных. Вы можете использовать в

операторе

Call как имена переменных, так и константы и

вообще любые выражения.

• Если в вызываемой процедуре передаваемому значением

формальному параметру присваивается новое значение, то это

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

(фактический параметр) в вызывающей процедуре. Иными

словами, передачу значением нельзя

использовать для

изменения значения фактического параметра.