товувати мітки
Label1 ,
Label2 ,
Label3 і
Label4 відповідно.
. Для виконання функцій обчислення необхідна одна кнопка Command1 . Це буде « Старт ». Друга кнопка Command2 виконує функцію завершення роботи програми - кнопка « Фініш ».
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
. Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі 10 елементів.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни: для Command1 змінити властивість Caption = Старт », для Command2 - властивість Caption = Фініш ». Для решти елементів задати значення властивостей:
Text1. Text=
Text2. Text=
Text3. Text =. Text =. Caption=Введіть значення m
Label2. Caption=Введіть значення n
Label3. Caption=Висновок значення x
Label4. Caption=Висновок значення y
Заготівлю форми для прикладу 3 зі зміненими властивостями дивіться на рис. 2.4.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code .
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click . Значення m, n користувач повинен ввести в вікна Text1 , Text2 . Але в текстовому вікні дані виходять також текстові, типу Single . Тому використовуємо функцію Val () для перекладу в числовий тип Single , що оголошений для змінних m, n на початку програми в операторі Dim . Для виведення значень x, y використовується функція Round () , яка округлює кількість знаків після коми до трьох.
Рис. 2.3. Заготівля форми для прикладу 3 зі зміненими властивостями
. Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 3 буде мати вигляд (див. Блок - схему разветвляющегося обчислювального процесу на рис. 2.5.):
Private Sub Command1_Click ()
Rem Лабораторна робота 2-1, варіант 15
Dim m, n, x, y As Single=Val (Text1. Text)=Val (Text2. Text)=3 * Cos (m/n) x lt; 0 Then=x ^ 2 + 3 * x - 7x gt;=0 And x lt; 1 Then=2 * x - 1=Exp (x) If. Text=Round (x, 3). Text=Round (y, 3) SubSub Command2_Click ()
End Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer2-1 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer2-1.frm.
. Після збереження форми слід зберегти проект. В VISUAL BASIC це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer2-1 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer2-1.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . У полі Text1 потрібно ввести значення m , в поле Text2 - значення n - після чого натиснути кнопку « Старт ». У вікнах Text3 і Text4 з'явилися значення x, y . Для завершення роботи програми слід натиснути кнопку « Фініш ».
Циклічні обчислювальні процеси мовою VISUAL BASIC
Циклічним називається обчислювальний процес, в якому окремі етапи рішення задачі багаторазово повторюються за рахунок передачі управління на початок цієї групи етапів. Циклічні алгоритми застосовуються при вирішенні завдань на табулювання функцій (складання таблиці значень функції), на обчислення суми і творів, з обробки масивів.
Оператори циклу. Викори...
