Оператор Sub...End Sub
Оператор Sub...End Sub
Назначение:
Определяет процедуру, которую можно вызвать из другой процедуры оператором Call.
Синтаксис:
Sub subroutine [ ([ByVal] parameter As var_type [, ... ]) ] statement_list
End Sub
где
subroutine – имя процедуры; parameter – имя параметра процедуры;
var_type – стандартный в MapBasic тип переменных (например, Integer) или сложноопределенный тип, заранее объявленный оператором Type;
statement_list – список (от 0 и более) операторов процедуры.
Предупреждение:
Вы не можете использовать оператор Sub... End Sub в окне MapBasic.
Описание:
Оператор Sub... End Sub описывает процедуру в MapBasic. Как только sub-процедура определена, к ней можно обращаться из любой другой части программы оператором Call.
Каждая процедура, задаваемая оператором Sub... End Sub, должна быть заранее объявлена оператором Declare Sub.
Каждая подпрограмма может иметь или не иметь параметры, значения которых передаются из процедуры, вызвавшей эту sub-процедуру. В дальнейшем параметры используются процедурой наравне с локальными переменными, имена и типы которых объявляются оператором Dim.
Параметры для подпрограммы задаются списком через запятую, где каждый параметр определяется следующим образом:
[ByVal] parameter As var_type
где parameter – имя параметра. Каждое такое определение параметра процедуры должно быть уникально.
Если при определении параметра процедуры ключевое слово ByVal не участвует, то это значит, что параметр определен ссылкой ("by reference"). То есть программа, вызывая процедуру, параметры которой заданы ссылкой, должна использовать только имена переменных в качестве параметров вызова. Вы не можете передавать константы или выражения (такие как "Москва") ссылкой. Впоследствии, если sub-процедура изменила значения этих параметров, то также изменятся значения переменных, использовавшихся как параметры вызова в операторе Call. Таким образом, параметр, передаваемый ссылкой, позволяет не только доставлять значение из вызывающей процедуры, но и возвращать значение обратно в этом же параметре.
Справочник MapBasic |
603 |
Оператор Sub...End Sub
Если при объявлении использовалось ключевое слово ByVal, то параметр процедуры определен для передачи процедуре значением ("by value"). Программа, вызывая процедуру, параметры которой заданы значением, может использовать как имена переменных, так и константы или выражения в качестве параметров вызова. Однако, если изменить значение такого параметра в теле процедуры, новое значение нельзя будет вернуть в вызывающий модуль. Параметр, определенный как "значение", не может передавать массивы, значения переменных сложного типа, созданного оператором Type и объявленных в предложении Alias.
Sub-процедура может обрабатывать массивы. В списке параметров массив объявляется с помощью пустых скобок, следующих за именем переменной. В следующем примере в процедуре "ListProcessor" объявлен в качестве параметра массив целых величин "items".
Sub ListProcessor(items( ) As Integer)
При вызове такой процедуры оператором Call параметром вызова должно быть имя массива переменных целого типа без круглых скобок.
Следует помнить, что, если в процедуре объявляется локальная переменная с таким же именем, как у существующей уже глобальной переменной, то значение последней недоступно для использования в этой процедуре. Под данным именем в процедуре используется только локальная переменная.
Предложение Exit Sub заканчивает работу sub-процедуры.
Пример:
Процедура Cube возводит число в куб (в третью степень) и возвращает результат. Процедура имеет два параметра: первый для возводимого степень вещественного числа, второй для результата.
Declare Sub Main
Declare Sub Cube(ByVal original As Float, cubed As Float)
Sub Main
Dim x, result As Float
Call Cube(2, result)
' переменная result теперь имеет значение: 8 (2 x 2 x 2) x = 1
Call Cube(x + 2, result)
' переменная result теперь имеет значение: 27 (3 x 3 x 3) End Sub
Sub Cube (ByVal original As Float, cubed As Float)
cubed = original ^ 3 End Sub
Смотрите также:
Call, Declare Sub, Dim, Exit Sub, Function... End Function, Global
604 |
Справочник MapBasic |
Предложение Symbol
Предложение Symbol
Назначение:
Задание стиля символа для точечного объекта.
Синтаксис (вариант 1 8 версия для символов MapInfo 3.0):
Symbol(shape, color, size )
где
shape – целое число, величина типа Integer, от 31 или больше, задающий символ из стандартного набора MapInfo (значение 31 задает невидимый символ);
color – целочисленный код цвета в системе RGB (смотрите описание функции RGB( )); size – целое число, величина типа Integer, размер символа в точках от 1 до 48.
Синтаксис (вариант 2 8 версия для символа из шрифта TrueType):
Symbol(shape, color, size, fontname, fontstyle, rotation )
где
shape – целое число, величина типа Integer, от 31 или больше, задающий символ из шрифта TrueType (значение 31 задает невидимый символ);
color – целочисленный код цвета в системе RGB (смотрите описание функции RGB( )); size – целое число, величина типа Integer, размер симвла в точках от 1 до 48;
fontname – строка с именем шрифта TrueType (например, “WingDings”);
fontstyle – целочисленный код, величина типа Integer, управляющий написанием шрифта; rotation – вещественное число, угол поворота в градусах.
Синтаксис (вариант 3 8 версия для символа из растрового файла):
Symbol(filename, color, size, customstyle )
filename – строка до 31 символа длиной с именем растрового файла (файл должен находиться в каталоге, заданном пользователем);
color – целочисленный код цвета в системе RGB (смотрите описание функции RGB( )); size – целое число, величина типа Integer, размер симвла в точках от 1 до 48;
customstyle – целочисленный код типа Integer, управляющий цветом и фоном символа.
Синтаксис (вариант 4):
Symbol symbol_expr
где
symbol_expr – выражение, результат которого есть величина типа Symbol, например, переменная типа Symbol или MakeSymbol(shape, color, size).
Описание:
Предложение Symbol позволяет задавать стиль символа для точечного объекта. Предложение не является отдельным оператором, но входит в состав многих операторов, работающих с точечными объектами. Например, в операторе Create Point предложение определяет стиль символа для нового объекта. Если предложение Symbol в этом операторе опущено, то будет использован текущий стиль символа, установленный в среде MapInfo.
Некоторые операторы MapBasic (такие как Alter Object...Info OBJ_INFO_SYMBOL) используют выражение типа Symbol как параметр без ключевого слова Symbol.
Справочник MapBasic |
605 |
Предложение Symbol
Стандартный набор символов MapInfo 3.0
В следующей таблице показаны символы и соответствующие им коды из стандартного набора, который используется в первом варианте синтаксиса предложения Symbol.
Стандартный набор символов состоит из символов, имеющих код от 31 до 67, однако пользователь может изменять и дополнять этот набор, используя приложение SYMBOL, программу, написанную на MapBasic и поставляемую в стандартном пакете MapInfo.
Символы шрифта TrueType
Если Вы задаете символ из шрифта TrueType, то параметр fontstyle управляет написанием символа:
Значение fontstyle |
Написание |
0 |
Нормальное |
1 |
Жирное |
16 |
Черная кайма |
32 |
Оттененное |
256 |
Белая кайма |
Для задания двух или более стилей написания коды складываются. Например, для того, чтобы получить символ жирного и оттененного написания, параметр fontstyle должен быть равен 33. Написание 16 и 256 взаимоисключают друг друга.
606 |
Справочник MapBasic |
Предложение Symbol
Растровый символ
Если Вы задаете новый символ, то параметр customstyle управляет, какими будут цвет и фон символа:
Значение customstyle |
Стиль символа |
0 |
Не действуют режимы из группы “Эффекты” диалога “Стиль символа”, |
|
и символ появляется таким, какой он есть. Все белые пикселы растра |
|
прозрачны. |
1 |
Действует режим “Добавить фон”; все белые пикселы растра |
|
непрозрачны. |
2 |
Действует режим “Покрасить одним цветом”; все не белые точки растра |
|
закрашены одним цветом. |
3 |
Установлены оба флажка (действуют оба режима). |
Пример:
Оператор Set Map может использовать предложение Symbol. В примере назначается стиль символов для показа точечных объектов первого слоя карты в виде кружочков (символ номер 34), закрашенных красным и размером в 18 пунктов.
Include ”mapbasic.def”
Set Map
Layer 1 Display Global
Global Symbol MakeSymbol(34,RED,18)
Смотрите также:
MakeFontSymbol( ), MakeCustomSymbol( ), MakeSymbol( ), StyleAttr( )
Справочник MapBasic |
607 |
Функция Tan( )
Функция Tan( )
Назначение:
Вычисляет тангенс.
Синтаксис:
Tan(num_expr)
где num_expr – численное выражение.
Величина, полученная в результате:
Вещественное число. Величина типа Float.
Описание:
Функция Tan( ) возвращает тангенс от числа, полученного в результате вычисления num_expr. Число num_expr является угловой величиной в радианах.
Для перевода градусов в радианы число необходимо умножить на DEG_2_RAD. Для обратного конвертирования используется коэффициент RAD_2_DEG. Чтобы Ваша программа могла использовать эти коэффициенты конвертирования, она должна содержать оператор Include "MAPBASIC.DEF".
Пример:
Include "mapbasic.def"
Dim x, y As Float
x = 45 * DEG_2_RAD y = Tan(x)
'y равно 1,
'так как тангенс от 45 градусов равен 1
Смотрите также:
Acos( ), Asin( ), Atn( ), Cos( ), Sin( )
Справочник MapBasic |
613 |
Функция TempFileName$( )
Функция TempFileName$( )
Назначение:
Возвращает имя, которое можно использовать при создании временного файла.
Синтаксис:
TempFileName$(dir)
где
dir – строка с маршрутом (диск+каталог), где будет создан временный файл; пустая строка ("") задает системный каталог для создания временных файлов.
Величина, полученная в результате:
Строка. Величина типа String.
Описание:
Функция TempFileName$( ) используется, когда Вам необходимо создать временный файл, но Вы не знаете, какое имя ему дать.
Если Вы вызвали функцию TempFileName$( ), MapBasic вернет строку с полным уникальным именем файла. Сама функция TempFileName$( ) не создает временный файл. Создать файл Вы можете оператором Open File.
Если параметр dir задан пустой строкой (""), то полное имя файла будет включать в себя системный каталог для временных файлов, например, "G:\TEMP\~MAP0023.TMP".
При работе в сети возможна ситуация, когда два пользователя одновременно могут создать временный файл на одном и том же месте, с одинаковым именем. Если Вы пробуете создать файл с именем и на каталоге, которые Вы получили от функции TempFileName$( ), может возникнуть конфликтная ситуация, потому что файл уже существует, так как другой пользователь сети успел создать его после того, как Ваша программа вызвала функцию TempFileName$( ), и до оператора создания файла. Для снижения вероятности такой конфликтной ситуации выполняйте оператор Open File непосредственно сразу после вызова функции TempFileName$( ). Для снижения вероятности сетевых конфликтов создайте обработчик ошибок и поместите оператор OnError после оператора Open File.
Смотрите также:
FileExists( )
614 |
Справочник MapBasic |