загрузка...
загрузка...
На головну

III етап. Складання програмного коду

  1. I етап. Підготовка спорядження та парашута в класі
  2. I. Підготовчий етап.
  3. I. Складання карти
  4. II етап. Аналіз позицій в конкурентній боротьбі
  5. II етап. Установка властивостей об'єктів
  6. IV етап. У літальному апараті

Більшість об'єктів, які створені, вже «знають», як працювати після запуску програми, і готові до прийому даних від користувача. Внутрішня функціональність створюваних об'єктів - одна з найпотужніших особливостей VBA.

У розробляється програмі необхідний код який буде обчислювати значення виразу за певною формулою за допомогою вводяться користувачем чисел і відображати результат обчислень.

Обчислювальна логіка може бути вбудована в додаток тільки за допомогою програмного коду, який точно визначає, що саме повинна робити програма на кожному етапі роботи. Програма управляється кнопками <Обчислити "і" END> (Кінець), тому програмний код буде пов'язаний з інформацією, що надходить від цих кнопок.

Для роботи з програмним кодом командної кнопки потрібно двічі по ній клацнути мишею. Наприклад, клацнемо по кнопці на формі. Після цього з'являється вікно «Cod» (Код), зображене на малюнку 30.

Малюнок 30 - Вид вікна «Код»

Блок коду, пов'язаний з приватним об'єктом інтерфейсу, називається процедурою події VBA. Тіло процедури укладено між операторами, що вказують на початок і кінець підпрограми.

Private Sub CommandButton2_Click ()

End Sub

Оператори тіла і процедури виконуються кожен раз, коли користувач активізує елемент інтерфейсу, асоційований з процедурою. В даному випадку подією є клацання миші (Click), але можуть бути і події іншого типу. (Їх можна побачити в випадаючому списку, клацнувши по стрілці праворуч написи Click).

Розробимо програмний код для кнопок <Обчислити "і" END>.

1 Відкрити список об'єктів у вікні «Code». Всі об'єкти інтерфейсу Обчислити з'являться в списку, як показано на малюнку 31.

Малюнок 31 - Вигляд списку об'єктів

2 Клацнути по рядку CommandButton1 в списку. З'явиться «порожня» процедура, пов'язана з кнопкою .

Незважаючи на те, що назва кнопки було змінено на <Обчислити>, в програмі її ім'я залишилося колишнім.

Слід мати на увазі, що у кожного об'єкта інтерфейсу може бути кілька асоційованих з ним процедур - по одній для кожного пов'язаного з цим об'єктом події. В даному випадку для кнопки задано тільки одна подія - клацання мишею.

3 Набрати наступні програмні рядки:

Private Sub CommandButton1_Click ()

Dim A, B, X, z1, z2, z3 As Single

A = Val (TextBox1.Text)

B = Val (TextBox2.Text)

X = Val (TextBox3.Text)

z1 = Abs (Log (X) / Log (10)) - Sqr (Abs (Cos (X) - Exp (X)))

z2 = Abs (Tan (Abs (A * X - B)) / Sin (Abs (X)) + B)

z3 = Atn (z2 / Sqr (Abs (1 - z2 ^ 2)))

Label1.Caption = Log (Abs (z1 * z3))

End Sub

Примітка. Функція Val перетворює текстовий аргумент в числове значення (за замовчуванням дані, введені в текстове поле, представляються як звичайний текст).

4 Двічі клацнути мишею по командній кнопці на формі (або вибрати рядок Command2 у вікні «Code».

5 Набрати програмну рядок процедури, пов'язаної з кнопкою . В даному випадку це один оператор End. Він використовується для зупинки програми і видалення її з екрану (рисунок 32).

Малюнок 32 - Програмний код, пов'язаний з командної кнопкою 1 і 2




Алгоритмізація та | ПРОГРАМУВАННЯ | End Function | End Sub 1 сторінка | End Sub 2 сторінка | End Sub 3 сторінка | End Sub 4 сторінка | End Sub 5 сторінка | End Sub 6 сторінка | Етап. Розробка користувальницького інтерфейсу |

загрузка...
© um.co.ua - учбові матеріали та реферати