Об'єкт Властивість Встановлене значення

Imagel Stretch True (Істина)

(Можливість розтягання)

Picture (Малюнок) c:\-шлях до файлу

Label1 Font (Шрифт) Times New Roman, Bold, 14 point

Textl TabStop False

(Табуляція)

Command1 Caption (Напис) Закрити

Form2 Caption (Напис) Значення

По завершенні встановлених властивостей вашої форми повинна виглядати так, як показано на рисунку.

Тепер зберегти новий проект і нову форму. Як вам відомо, Visual Basic вимагає, щоб кожна форма була збережена у виді власного файлу. Проте, форму можуть використовувати кілька проектів. Перш ніж зберегти форму Form2, переконайтеся, що вона є активна, чи виділена.

8. У меню File (Файл) клацнути на команді Save As (Зберегти як) для Form2. З'явиться діалогове вікно Save File As (Зберегти файл як).

9. Зберегти форму Form2 під ім'ям My.frm.

Друга форма буде збережена на диску і зареєстрована у вікні Project (Проект). Ви можете переключатися між формами за допомогою мишею виділивши ім’я форми у вікні Project (Проект) або меню View Object (Об'єкт).

10. Клацнути на Form1, потім клацнути на команді Save As (Зберегти як) для збереження форми Form1. Введіть ім'я MyWordListfrm, потім натиснути Enter.

11. У меню File (Файл) клацнути на команді Save Project As (Зберегти проект як), потім зберегти проект під ім'ям Myltalian2.vbp. Тепер модифікувати процедуру Text1_DblClick для відображення нової форми.

Доступ до другої форми в процедурі

1. Клацнути на першій формі, потім двічі клацнути на об'єкті List1 у формі.

У вікні Code буде відображений текст процедури обробки переривання

List1_DblClick. У цій процедурі існує структура умовного вибору Select Case, що використовує функцію MsgBox, для відображення значення виділеного італійського слова. Ця структура визначає обране слово зі списку і привласнює змінні Def значення, що відповідає перекладу цього слова. При бажанні придивіться уважніше до структури з умовою.

2. Прокрутити вниз вікно Code з текстом процедури. З'явиться наступний рядок з використанням функції MsgBox

MsgBox (Def),, List1 .Text

3. Вилучити функцію MsgBox і ввести замість неї наступні оператори:

Load Form2

Form2. Label1= List1.Text

Form2.Text1 = Def

Form2.Show

Об’єкт з ім'ям Form2 відповідає новій формі у вашій програмі. Перший оператор завантажує форму Form2 у пам'ять. Після завантаження форми в пам'ять ви можете змінити властивості форми і підготувати її до відображення. Оператор у наступному рядку поміщає копію виділеного італійського слова в перше поле виведення форми Form2. У третьому рядку змінній Def ( яка зберігає значення слова в перекладі) призначається текстове поле нової форми. Текстове поле використовується для виведення в нього досить довгих значень слів. Якщо значення займає поле цілком, з'являються смуги прокручування, що дає можливість переглянути весь рядок. Нарешті, команда Show відображає закінчену форму на екрані.

Тепер додаємо оператор для кнопки Закрити у формі Form2, що служить для закриття форми.

4. Закрити вікно Code, клацніть на формі Form2 (чи відобразите її за допомогою вікна Project (Проект), потім двічі клацніть на кнопці Закрити. Об'єкти в різних формах можуть мати однакові імена.

5. Ввести у текст процедури наступний оператор:

Form2.Hide

Цей оператор використовує ключове слово Hide, щоб зробити форму Form2 невидимою, коли користувач клацне на кнопці Закрити. Оскільки форма Form2 є немодальною, користувач може переключатися між формами Form1 і Form2 у процесі виконання програми. Користувач може закрити форму Form2, клацнувши на кнопці Закрити.

6. Клацнути на кнопці Save Project (Зберегти проект) для збереження зміненого проекту.

7. Клацнути на кнопці Start (Пуск) для запуску програми.

8. Двічі клацнути на дієслові «cucinare» у списку. Програма відобразить значення слова в другій формі. Тепер спробуємо переключатися між формами.

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

10. Клацнути на кнопці Закрити в другій формі. Програма сховає форму.

11. Клацнути на кнопці Вихід у першій формі. Робота буде довершена, і Visual Basic завантажити обидві форми.

Контрольні запитання.

1. Як використати другу форму в програму?

2. Які ви знаєте оператори керування формами?

Завдання для самостійного розв’язку.

1. Створити програму-презентація фірми.

2. Створити програму Анкета групи, з анкетними даними про студентів групи.

ПРАКТИЧНА РОБОТА 10

Робота з масивами чисел

1. МЕТА РОБОТИ

Вивчення технології роботи з масивами.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Виконати задачі, для самостійної роботи.

Теоретичний матеріал

Приклад: створимо програму, використавши масив з фіксованими границями для збереження температури за тиждень. Форма повинна виглядати так, як показано на рисунку. У меню Project вибрати Add Module (додати модуль) і відкрити його для створення стандартного модуля й оголошення в ньому масиву. Увести наступні оператори:

Option Base 1

Public Temperatures(7) As Variant

Оператор Option Base 1 встановлює значення 1 для початкового індексу масиву.

Для першої кнопки ввести:

Private Sub Command1_Click()

Cls

Prompt$ = " ввести найбільшу температуру"

For і% = 1 To 7

Title$ = "День" & і%

Temperatures(i%) = InputBox(Prompt$, Title$)

Next i%

End Sub

Для другої кнопки:

Private Sub Command2_Click()

Print "Найбільше значення температури за тиждень"

For і% = 1 To 7

Print "день"; і%, Temperatures(і%)

total! = total! + Temperatures(i%)

Next i%

Print

Print "середнє значення температури"; total! / 7

End Sub

Запустити програму. Клацнути на кнопці Введення. Введіть у вікно InputBox сім значень температур. Клацнути на кнопці “Вихід”. Для третьої кнопки в процедурі ввести END.

Приклад: Скласти програму сортування масиву

Модуль:

Option Base 1

Public d(5) As Integer

Текст програми

Private Sub Command1_Click()

Print " Заданий масив"

For i = 1 To 5

d(i) = 6 - i

Print d(i)

Next i

For j = 1 To 5

For i = 1 To 4

If d(i) > d(i + 1) Then c = d(i): d(i) = d(i + 1): d(i + 1) = c

Next i

Next j

Print " Масив після сортування"

For i = 1 To 5

Print d(i)

Next i

End Sub

Контрольні запитання.

1. Що таке масив?

2. Як оголосити масив?

Завдання для самостійного розв’язку.

1. Створити програму для обчислення середнього бала групи за результатами сесії.

2. Знайти найкращого студента в групі.

3. Знайти найгіршого студента групи.

4. Вивести список студентів середній бал яких >4.

5. Вивести список студентів середній бал яких <4.5.

6. Вивести список студентів, у яких середній бал=5.

7. Вивести список студентів, які мають бал менше середнього.

8. За даними задачі 8 визначити суму максимального прибутку.

9. За даними задачі 8 визначити суму мінімального прибутку.

ПРАКТИЧНА РОБОТА 11

Побудова графіка функції

1. МЕТА РОБОТИ

Вивчення технології побудови графіка функції.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Скласти схему алгоритму розв’язку задачі відповідно до варіанта завдання.

Теоретичний матеріал

Виконайте команду Components контекстного меню панелі компо-нентів. В отриманому меню на закладці Controls встановити прапорець в позиції ChartFX 2.0 OLE Custom Control=>Ok. Встановити на форму об’єкт ChartFX (діаграма) для побудови графіка функції. Виберіть контекстне меню Properties цього об’єкту і на вкладці Appearance в списку Gallery Type виберіть піктограму потрібного графіку.

Private Sub Command1_Click()

Dim x As Double

Dim n, i, cod As Long

x = 0

n = 200

cod = Chartfx1.OpenDataEx(COD_VALUES, 1, n)

For i = 0 To n - 1

Chartfx1.Value(i) = Sin(x) + 1 будуємо графік

Chartfx1.Legend(i) = x

‘ формуємо легенду

x = x + 0.5

‘ наступне значення х

Next

Chartfx1.CloseData (COD_VALUES)

End Sub

Контрольні запитання.

1.За допомогою якого компонента будується графік функції?

2.Які властивості цього компонента використовуються?

Завдання для самостійного розв’язку.

1. Побудувати графіки функцій:

a) y=cos(x); b) y=x² +5

ПРАКТИЧНА РОБОТА 12