ть числовий тип
Integer . Тут
x, y - координати точки;
dx, dy - прирости координат;
n - лічильник кроків;
i - лічильник циклу уповільнення;
x =- 20,
y=- 10 початкові координати.
Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 7 буде мати вигляд:
Option ExplicitSub Command1_Click () x, y, dx, dy, n, i As Integer. Scale (- 2000, 2500) - (2000, - 2500)=- 20: y=- 10=1=1: dy=1n lt; 50000x=- 2000 Or x=2000 Then dx=- dxy=- 2500 Or y=2500 Then dy=- dy. DrawWidth=20.PSet (x, y), vbRedi=1 To 10000: Next. Cls=x + dx: y=y + dy=n + 1SubSub Command2_Click ()
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer7 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer7.frm.
. Після збереження форми слід зберегти проект. В Visual Basic це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer6 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer7.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . Після чого натиснути кнопку « Старт ». У вікні малюнка з'являється рушійна точка.
. Для завершення роботи програми необхідно натиснути кнопку « ФІНІШ » (або значок «закрити» на формі) або виконати команду Run/End .
В якості прикладу розглянемо переміщення окружності по формі з правого верхнього кута в нижній лівий кут.
Приклад 8. Шарик. Розрахувати рух окружності з зростаючим діаметром, скачується по похилій лінії і зобразити графічно.
Рішення. Робота в?? полняется в наступній послідовності:
1. Запустити Visual Basic за допомогою меню Window/Пуск/Програми. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно заповнити необхідними компонентами, за допомогою яких можна буде виконати необхідні дії.
. Для створення програми необхідно використовувати наступні об'єкти управління:
для завершення роботи програми необхідна одна кнопка Command1. Це буде кнопка « Фініш »;
для виведення малюнка можна використовувати вікно малюнка PictureBox1.
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі елементи.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни:
Command1Caption= Фініш
Заготівлю форми для прикладу 8 зі зміненими властивостями і результат роботи програми дивіться на рис. 1.8.
