Form1 (Code) вибрати в списку
General назва
кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для
Command1 з ініціюванням для неї події
Click . Значення
m, n користувач повинен ввести в вікна
Text1 ,
Text2 . Але в текстовому вікні дані виходять також текстові, типу
Single . Тому використовуємо функцію
Val () для перекладу в числовий тип
Single , що оголошений для змінних
m, n на початку програми в операторі
Dim . Для виведення значень
x, t, y використовується функція
Round () , яка округлює кількість знаків після коми до трьох.
. Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 1 (див. Блок - схему лінійного обчислювального процесу на рис. 2.2.) Буде мати вигляд:
Private Sub Command1_Click ()
Rem Лабораторна робота 1-1, варіант 15
Dim m, n, x, t, y As Single=Val (Text1. Text)=Val (Text2. Text)=EXP (-SQR (N/M)) t=LOG (M/SQR (N) ) + 7.21y=(COS (x ^ 2-SQR (t)) + SIN (xt ^ (1/3)))/(SIN (tx ^ (1/4)) ^ 2 + 1.731) Text3. Text=Round (x, 3). Text=Round (t, 3). Text=Round (y, 3) SubSub Command2_Click () Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer1-1 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer1-1.frm.
13. Після збереження форми слід зберегти проект. В VISUAL BASIC це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer1-1 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer1-1.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . У полі Text1 потрібно ввести значення m , в поле Text2 - значення m - після чого натиснути кнопку « Старт ». У вікнах Text3 , Text4 і Text5 з'явилися значення x, t, y . Для завершення роботи програми слід натиснути кнопку « Фініш ».
Процедури користувача. Розрізняють два типи користувальницьких процедур:
1) процедури типу функція ( Function );
2) процедури типу підпрограми ( Sub ).
Синтаксис запису для Function наступний:
Function lt; Ім'я функції gt; ( lt; аргумент1 gt; As lt; тип gt; (, lt; аргумент2 gt; As lt; тип gt ;, ...)] As lt; тип gt;
де lt; аргумент1 gt ;, lt; аргумент2 gt; і т.д. - формальні параметри процедури.
Приклад 2. Обчислити значення функції
,
де, m - номер варіанта, n - останнє значення номера групи.
Рішення. Робота виконується в наступній послідовності:
. Запустити VISUAL BASIC. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно заповнити необхідними компонентами, за допомогою яких можна буде виконати необхідні обчислення.
. По-перше, необхідні елементи, які будуть використовуватися для введення даних m і n. Використовуємо для цієї мети елементи Text1 і Text2 . По-друге, необхідні елементи, в яких будуть відображені результати обчислення z. Використовуємо для цієї мети елементи Text3 .
. Для оформлення написів для позначення текстових вікон Text1 , Text2 і Text3 можна використовувати мітки Label1 , Label2 і Label3 відповідно.
. Щоб процедура користувача була доступна на всіх формах додатки, її текст слід записати в спеціальному вікні Module - модуль програми. Програмний код такої програми буде зберігатися в файлах додатки з розширенням *. Bas .
Function fnf (x As Single, y As Single) As Single=Cos (x ^ 2 + y ^ 2) Function
6. Для виконання функцій обчислення необхідна одна кнопка Command1 . ...
