Об'єкт CheckBox використовують для створення незалежного дво- чи трипозиційного прапорця: увімкнено/вимкнено(/недоступ-ний). Для цього об'єкта визначені такі двД нові властивості:

Властивість |

Опис властивості |

Приклади значень

Value |

Стан прапорця |

Grayed (недоступний), Unchecked (вимкнений), Checked (увімкнений)

MousePointer |

Вигляд вказівника миші на об'єкті |

Arrow (стрілка), Cross (хрест)

11.Встановіть прапорці "На екран" та "У масив" у положення "увімкнено".

Для цього виокремте ці об'єкти та змініть значення їхніх власти-востей Value на Checked. 12.Введіть назви команд головного меню форми (рис. 11-13).

Команди головного меню, як і інші компоненти Visual Basic, є об'єктами. Для створення команд виберіть елемент головного меню Tools => Menu Editor. У вікні, що з'явиться, введіть назви команд меню (властивість Caption) і їхні імена (властивість Name), щоразу натискаючи на кнопку "Next":

Caption |

Name

Обчислення Протабулювати Очистити поле виведення Кінець Про програму Кінець |

mnuCalc mnuTabul mnuClear mnuFinish mnuAbout mnuEnd

Задайте ієрархію команд за допомогою стрілок: Я (підпорядкувати та Ш (вивести із підпорядкування). Змінити послідовніст команд можна за допомогою стрілок: Ш та *. 13*.3апрограмуйте команду "Очистити поле виведення" головного меню

Клацніть на команді головного меню форми "Очистити поле вив€ дення", не запускаючи програму на виконання. З'явиться заготов ка процедури реакції на подію виклику цієї команди. У ній запи шіть команду присвоєння порожнього рядка для очистки пол; редагування Textl:

Private Sub mnuClear_Click() Textl. Text = "" End Sub

14

15*

І |

fr. Запрограмуйте команду "Кінець" головного меню, скористаї шись стандартною процедурою End:

Private Sub mnuEnd ClickQ End End Sub

Збережіть виконану на даний момент форму у своїй папь ;File=»Save Project). '.Запустіть створену програму та дослідіть її роботу.

Поекспериментуйте з багаторядковим полем редагування Text! вводячи та коректуючи у ньому будь-який текст. Зверніть уваг на те, що в цьому вікні можна виконувати такі ж дії з текстом як і в текстовому редакторі: виокремлювати фрагмент тексту копіювати, переносити чи вилучати фрагмент. Витріть текст з

.-;. (:,:

допомогою команди головного меню "Очистити поле виведення". Закінчіть роботу програми, клацнувши на команді "Кінець". Іб.Запрограмуйте команду "Протабулишати".

Виконайте команду "Протабулювати" з головного меню форми, клацнувши на ній один раз. З'явиться заготовка процедури, яку заповніть так:

Private Sub mnuTabul_Click() Dim x, у As Double 'x - ордината, у - значення ф-їі Dim NewLine, Space As String

NewLine = Chr(13) + Chr(lO) 'Символ "Enter" Space = Chr(9) 'Символ "Tab" Textl. Text = "X" + Space + "Y" + NewLine 'Шапка таблиці

For x = Text2.Text To TextS.Text Step Text4.Text у = Sin(x) + 1 If Checkl. Value = Checked Then 'Якщо встановлений * 'прапорець "На екран" 'Друкуємо рядок таблиці Textl. Text = Textl. Text + Str(x) + _ Space + Str(Format$(y, "0.0000")) + NewLine End If 'Кінець Якщо Next 'Кінець циклу End Sub 'Кінець процедури

ІТ.Виконайте програму і поекспериментуйте з різними значен-нями лівої, правої межі та кроку зміни аргумента. Закрийте вікно програми "Табулювання функції".

18.3бережіть створену програму у своїй папці.

19.Продемонструйте створену форму викладачеві. Закінчіть роботу.

Задача 3.L Модифікуйте реалізацію програми, передбачивши \ можливість табулювання функції і її похідної. Вибір варіанта табулювання (з похідною чи без неї) здійснити за допомогою додаткового прапорця.

Підказка. Виконайте такі дії:

• вставте у форму об'єкт типу CheckBox (прапорець), надайте його властивості Caption значення "Похідна", ; виберіть для підпису один із кирилізованих шрифтів 12-го і розміру, вирівняйте вставлений об'єкт.

• змініть програмний код кнопки "Протабулювати", викорис-tL тавши в тексті її процедури такі команди:

If CheckBoxN.Value=Checked Then 'Якщо прапорець похідної встановлений Textl.Text = "X" + Space + "Y" + Space + "Y"' +_ NewLine 'Рядок містить підписи для стовпців аргументи, 'значення функції та її похідної Else 'Якщо прапорець не встановлений Textl.Text = "X" + Space + "Y" + NewLine 'Рядок містить лише підписи для стовпців 'аргументи та значення функції End If • • •

'У циклі табулювання: у = Sin(x) + 1 'Обчислюємо значення функції yl = Cos(x) 'Обчислюємо значення похідної If CheckBoxN. Checked Then 'Якщо прапорець N 'встановлений Textl.Text = Textl.Text + Str(x) + Space + Str(Format$(y, "0.0000")) + Space + Str(Format$(yl, "0.0000")) + NewLine 'Формуємо символьний рядок з аргументи, значення 'функції і її похідної, між якими є декілька пропусків Else 'Якщо прапорець не встановлений • • • 'Фрагмент процедури із п. 16

Задача 3.2. Визначити кількість значень функції більших, ніж 0,5 і менших, ніж 1.

Задача 3.3. Передбачте у створеній програмі додаткову можливість1 для визначення максимального та мінімального значень функції.

Підказка. У тілі процедури кнопки "Протабулювати", скорис-тайтеся такими командами:

'На початку процедури: max = Sin(a) + 1

• • •

'У циклі табулювання: If max<y Then max = у End If

• • •

'Після циклу табулювання: Textl.Text = Textl.Text + Str(max)

в

1 Задача 3.4. Змініть процедуру команди "Протабулювати" так, г щоб для увімкненого прапорця "У масив" виведення результатів виконувалось в одновимірний масив.

Задача 3.5 (побудова графіка). Виконайте команду "Compoконтекстового меню панелі компонентів, і в одержаному вікні на закладці Controls встановіть прапорець у позиції ChartFX 2.0 OLE Custom Control =» Ok. Вставте у форму об'єкт ChartFX Ш (діаграма) для побудови графіка функції. Виберіть контекстове меню Properties