Глава 4. Размещение общей процедуры в проекте

Размещение общей процедуры в проекте. Общая проце­дура может входить в состав программного модуля одной из форм проекта (в файл с расширением frm). Общая процедура может быть также размещена в стандартном программном модуле (файле с расширением bas).

Область видимости процедуры. Общие и событийные про­цедуры могут быть локальными и глобальными. Локальная процедура доступна только внутри данного программного модуля и не может быть вызвана из другого модуля. Напри­мер, локальная общая процедура, размещенная в програм­мном модуле некоторой формы, не может быть вызвана из программного модуля другой формы. Локальная процедура задается с помощью ключевого слова Private:

Private Sub ИмяПроцсдуры программный код End Sub

Глобальные процедуры доступны, то есть могут быть вы­званы, из всех программных модулей проекта. Глобальная процедура задается с помощью ключевого слова Public (по умолчанию, если перед ключевым словом Sub отсутствуют ключевые слова, процедура является глобальной):

Public Sub ИмяПроцедуры программный код End Sub

Область видимости переменной. Переменные также могут быть локальными и глобальными (открытыми). Локальная переменная доступна только внутри процедуры или програм­много модуля и к ней невозможно обращение из другой про­цедуры или модуля. Локальная переменная определяется с помощью ключевого слова Dim.

Если переменная определена перед процедурой, то она может быть вызвана только в этой процедуре; если она определена перед программным модулем в области (Gene-ral)(Declaration) программного кода, то она может быть вы­звана только в этом модуле.

К глобальным переменным может быть произведено обра­щение из всех программных модулей проекта. Глобальная переменная определяется с помощью ключевого слова Glo­bal в области (General)(Declaration) программного кода.

Создадим проект, который наглядно продемонстрирует (с использованием графических методов) возможности ис­пользования общих процедур.

Основы алгоритмизации и программирования ___________________________ 207

Пусть проект будет включать три формы. На первую фор­му должен выводиться рисунок простейшего домика, кото­рый будет состоять из стены (прямоугольник) и крыши (тре­угольник). На второй и третьей форме должны рисоваться несколько домиков различных размеров.

Программный модуль, реализующий рисование домика на первой форме, будет состоять из двух событийных проце­дур. Систему координат и масштаб зададим с помощью ме­тода Scale, а для рисования стены и крыши будем исполь­зовать графический метод Line.

JRj Проект «Рисование домика»

1. Разместить на форме frml две командные кнопки
стс1Стена и стсЖрыша и создать для них событийные
процедуры рисования стены и крыши:

Private Sub cmdCTeHa_Click()

Scale (0, 170)-(350, 0)

frml. Line (20, 100)-(220, 20),, В