о знаходиться цей елемент, враховуючи при цьому його розміри.
Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі елементи.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни:
Command1Caption= Фініш
Заготівлю форми для прикладу 9 зі зміненими властивостями і результат роботи програми дивіться на рис. 1.9.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code .
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click . Для Command1 буде виконуватися одна дія - закрити програму. Це виконує команда End .
Аналогічні дії виконуємо щодо інших об'єктів управління.
. Програмний код для прикладу 9 буде мати вигляд:
Private Sub Picture1_Click (). Scale (- 20, 15) - (20, - 15) i=1 To 5 Step 1j=1 To 10 Step 0.01j. DrawWidth=30.PSet (- 15, - 10), vbRed.PSet (15, - 10), vbRed.PSet (15, 10), vbRed.PSet (- 15, 10), vbRed. DrawWidth=60.PSet (0, 0), vbYellowj=1 To 10 Step 0.01j. DrawWidth=30.PSet (- 15, - 10), vbYellow.PSet (15, - 10), vbYellow.PSet (15, 10), vbYellow.PSet (- 15, 10), vbYellow. DrawWidth=60.PSet (0, 0), vbRediSubSub Command1_Click ()
End Sub
Рис. 2.3. Миготливі зображення. Заготівля форми для прикладу 9 зі зміненими властивостями і результат роботи програми
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer9 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer9.frm.
. Після збереження форми слід зберегти проект. В Visual Basic це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer9 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer9.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . При запуску програми на екрані з'являються чотири «точки» в кутах квадрата, пофарбовані в червоний колір, і п'ята «точка» жовтого кольору вдвічі більшого розміру в центрі екрану. У цій програмі червоний і жовті кольори змінюються певною частотою. В результаті виходять червоні миготливі точки.
. Для завершення роботи програми необхідно натиснути кнопку « ФІНІШ » (або значок «закрити» на формі) або виконати команду Run/End .
Звукові сигнали
Миготіння точки можна супроводити звуковими сигналами. Для цього використовують оператор BEEP стандартної частоти і тривалості.
Приклад 10. Стрілочні годинник. Скласти програму для побудови стрілочних годин (рис. 1.10).
Рішення. Робота виконується в наступній послідовності:
1. Запустити Visual Basic за допомогою меню Window/Пуск/Програми. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно за...
