форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
. Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі 24 елементів.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties. Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни: для Command1 змінити властивість Caption=Старт, для Command2 - властивість Caption=Фініш. Для решти елементів задати значення властивостей:
Label1.Caption=Введіть значення m=
Label2.Caption=Введіть значення n=
Label3.Caption=Висновок значення minx=
Label4.Caption=Висновок значення maxy=
Label5.Caption=Висновок значення sy=
Label6.Caption=Висновок значення sz=12.Caption=Висновок значення pz=
Label7.Caption=Висновок значення R=
Label8.Caption=Висновок значення P=
Label9.Caption=Вихідний масив X (i) .Caption=Вихідний масив Y (i) .Caption=Масив Z (i)
Заготівлю форми для прикладу 1 зі зміненими властивостями дивіться на рис. 1.11.
Рис. 1.11 Заготівля форми для прикладу 1 зі зміненими властивостями
9. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code.
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click. Значення m, n користувач повинен ввести в вікна Text1, Text2. Але в текстовому вікні дані виходять також текстові, типу Single. Тому використовуємо функцію Val () для перекладу в числовий тип Single, що оголошений для змінних m, n на початку програми в операторі Dim. Для виведення значень minx, maxy, sy, sz, R, P, використовується функція Round (), яка округлює кількість знаків після коми до трьох.
. Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End.
. Програмний код для прикладу 1 (див. Блок - схему лінійного обчислювального процесу на рис. 1.12.) Буде мати вигляд:
Private Sub Command1_Click () Розрахунково-графічна робота 3-1, варіант 13
Dim X (10), Y (10), Z (10), XB (10), YB (10), ZB (10) As Single, i As Integerm, n, sy, sz, pz, minx, maxy, P, R As Single=Val (Text1.Text)=Val (Text2.Text) i=1 To 10 (i)=30 * Rnd - 30 * Rnd (i)=Str (Round (X (i), 3)). AddItem (XB (i)) ii=1 To 10 (i)=50 * Rnd - 50 * Rnd (i)=Str (Round (Y (i), 3)). AddItem (YB (i) ) i=X (1) i=2 To 10X (i) lt; minx Then=X (i) Ifi.Text=Round (minx, 3)=Y (1) i=2 To 10Y (i) gt; maxy Then=Y (i) Ifi.Text=Round (maxy, 3) i=1 To 10minx lt; maxy Then (i)=(X (i) - Y (i)) ^ 2/mminx gt; maxy Then (i)=(X (i) + Y (i))/n (i)=X (i)/Y (i) IfZB (i)=Str (Round (Z (i), 3)). AddItem (Z (i)) i
sy=0i=1 To 7=sy + Y (i) i.Text=Round (sy, 3)=0i=4 To 10=sz + Z (i) i.Text=Round (sz, 3) =1i=1 To 10=pz * (Z (i)/(X (i) + Y (i))) ^ 2i.Text=Round (pz, 3) Int ((13 * m - n)/2) lt; (13 * m - n)/2 Then R=sz Else R=sy.Text=Round (R, 3)=R * Abs (m * pz) ^ (1/3) .Text=Round (P, 3) SubSub Command2_Click () Sub
12. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer1, і натиснути клавішу «Enter». Форма Form1 буде збережена у файлі з розширенням Primer1.frm.
13. Після збереження форми слід зберегти проект. У VISUAL BASIC це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As -Зберегти проект. Слід набрати те ж ім'я Primer1-1 і натиснути клавішу «Enter». Файл проекту буде збережений з розширенням Primer1-1.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run? Start або Shift + F5. У полі Text1 потрібно ввести значення m, в поле Text2 - значення m - після чого натиснути кнопку «Старт». У вікнах Text3, Text4, Text5, Text6, Text7, Text8, List1, List2 і List3 з'явилися значення minx, maxy, sy, sz, R, P,. Для завершення роботи програми слід натиснути кнопку «Фініш».
Рис. 1.12. Блок - схема обчислювального процесу
Введення вихідних даних m, n,.
