5. Написание программного кода.

1. Написание программы – это описание на программном языке созданного ранннее алгоритма (см. выше).

Реализация первого блока алгоритмя – Начало – начинается с задание ее имени и области видимости. Посколько это модуль класса, то следуует определится, с какой процедурой будем иметь дело – Sub или Function. Это программа, значит, в названии будет использоваться слово Sub. Указываем область видимости программы – Private.

(Функция и подпрограмма, описанная с ключевым словом Public, доступны для всех процедур во всех модулях. Ключевое слово Private процедуры Function или процедуры Sub доступны только для других процедур только того модуля, в котором они описаны); указываем в названии ключевые фразы Кнопка1_Click(). Объединив все слова в одной строке, мы получим название нашей программы:

Private Sub Кнопка4_Click()

Данного синтаксиса следует придерживаться и для написания остальных программ, выполняемы по нажатию Кнопки.

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

2. После название программы начинается объявление переменных. В этой строке указывается имя переменной и ее тип. Синтаксис объявления переменой:

Локальные переменные:

Dim <var> As <type>, <var> As <Type>…

Глобальные переменные:

Public <var> As <type>, <var> As <Type>…,

где <var> - имя переменной,

<type> - встроенный тип данных переменной.

Примеры:

1. Dim a As Integer, b As Single, c As Single – Корректное объявление переменных;

2. Dim i, j, k As Integer – некорректное объявление переменных, в результате будет создано две переменные i, j типа Variant и одна переменная k типа Integer.

Как вы видите, здесь используется два оператора – Dim и As – после слова Dim идет имя переменной, после As – тип данных.

Объявим переменные для нашей программы:

Dim R As Single, S As Single, L As Single.

3. Следует указать, что будет использовать константа и ее значение:

Const P As Single = 3.14

4. Следующая строка – задание значений переменным, т.е. необходимо указать, откуда будут браться значения для переменных (в блок-схеме – ввод данных). В нашем случае таким источником послужит поле, которое мы создали в форме – Поле0 (для переменной R):

R = Поле0

Примечание: для задания значений переменных, кроме полей, также можно использовать функцию InputBox:

R = Val (InputBox ("Введите R ="))

5. Дальше в тексте программы описываются действия, которые необходимо выполнить, если известны значения переменных (в блок-схеме – блок действия):

S = P * R ^ 2

L = 2 * P * R

6. Для реализации блока алгоритма «Вывод данных» также используем созданные в форме поля – Поле 2 (переменная S) и Поле4 (переменная L):

Поле2 = S

Поле4 = L.

Примечание: для вывода значений переменных, кроме полей, также можно использовать функцию MsgBox:

MsgBox («R =» & R)

7. Заканчивается программа фразой End Sub (в блок-схеме – конец).

Таким образом, программа для вычисления окружности L и площадь круга S при заданном радиусе R, выполняющаяся при нажатии кнопки в форме Access будет иметь следующую структуру и текст:

Private Sub Кнопка4_Click()

Dim R As Single, S As Single, L As Single

Const P As Single = 3.14

R = Поле0

S = P * R ^ 2

L = 2 * P * R

Поле2 = S

Поле4 = L

End Sub