бережений з розширенням
Primer3-2.vbp. . Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . У полі Text1 потрібно ввести значення m , в поле Text2 - значення n - після чого натиснути кнопку « Старт ». У вікнах List1 і List2 з'явилася таблиця значень x, y . Для завершення роботи програми слід натиснути кнопку « Вихід ».
Приклад 6 . Скласти таблицю значень функції z=f (x; y) при зміні значень змінної x на відрізку [a, b] з кроком h , змінної y на відрізку [c, d] з кроком l :, де a =1, b =2, h = 0,2; c =2, d =4, l =0,4.
Рішення. Робота виконується в наступній послідовності:
. Запустити VISUAL BASIC. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно заповнити необхідними компонентами, за допомогою яких можна буде виконати необхідні обчислення.
. По-перше, необхідні елементи, які будуть використовуватися для введення даних m і n. Використовуємо для цієї мети елементи Text1 і Text2 . По-друге, необхідні елементи, в яких будуть відображені табличні значення x, y і z. Використовуємо для цієї мети елемент MSFlexGrid1 .
Для оформлення написів для позначення вікон Text1 і Text2 можна використовувати мітки Label1 і Label2 відповідно.
. Для виконання функцій обчислення необхідна одна кнопка Command1 . Це буде « Старт ». Друга кнопка Command2 виконує функцію завершення роботи програми - кнопка « Вихід ».
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
. Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі 7 елементів.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни: для Command1 змінити властивість Caption = Старт », для Command2 - властивість Caption = Вихід . Для решти елементів задати значення властивостей:
Text1. Text=
Text2. Text=
Label1. Caption=Введіть значення m=
Label2. Caption=Введіть значення n=
Заготівлю форми для прикладу 6 зі зміненими властивостями дивіться на рис. 2.10.
Рис. 2.6. Заготівля форми для прикладу 6 зі зміненими властивостями
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code . У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click . Значення m, n користувач повинен ввести в вікна Text1 , Text2 . Але в текстовому вікні дані виходять також текстові, типу Single . Тому використовуємо функцію Val () для перекладу в числовий тип Single , що оголошений для змінних m, n на початку програми в операторі Dim . Для виведення значень x, y і z використовується функція Round () , яка округлює кількість знаків після коми до трьох.
. Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 6 буде мати вигляд (див. Блок - схему циклічного обчислювального процесу на рис. 2.11):
Private Sub Command1_Click ()
Rem Лабораторна робота 3-3, варіант 15
m=Val (Text1. Text)=Val (Text2. Text). Row=0. Col=0. Text=«x= y =» y=2 To 4.01 Step 0.4. Row=0. Cols=MSFlexGrid1. Cols + 1. Col=MSFlexGrid1. Cols - 1. Text=CStr (y) yx=1 To 2.01 Step 0.2. Col=0. Rows=MSFlexGrid1. Rows + 1. Row=MSFlexGrid1. Rows - 2. Text=CStr (x) x=1y=2 To 4.01 Step 0.4=1x=1 To 2.01 Step 0.2=(x ^ 2 - y ^ 2 + m)/(x ^ 2 + y ^ 2)/ n=Round (z, 3). Col=i. Row=j. Text=CStr (z)=j + 1x=i + 1ySubSub Co...
