повнити необхідними компонентами, за допомогою яких можна буде виконати необхідні обчислення. Для створення програми необхідно використовувати наступні об'єкти управління.
. Для виконання функцій обчислення необхідна одна кнопка Timer . Друга кнопка Command1 виконує функцію завершення роботи програми - кнопка « Фініш ».
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі елементи.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни: для Command1 змінити властивість Caption = Фініш .
Заготівлю форми для прикладу 10 зі зміненими властивостями дивіться на рис. 1.10.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code .
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки 2 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click . Для Command1 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 10 буде мати вигляд:
Option Explicitr=150grad=0.0174532x0, y0, hr, mn, sc As IntegerSub Form_Initialize (). Height=(Form1. Height - Form1. ScaleHeight) + _
(r + 5) * 2 * Screen. TwipsPerPixelY. Width=(Form1. Width - Form1. ScaleWidth) + _
(r + 5) * 2 * Screen. TwipsPerPixelX=r + 75: y0=r + 75=90 - Hour (Time) * 30 - (Minute (Time)/12) * 6=90 - Minute (Time) * 6=90 - Second (Time) * 6. Interval=1000. Enabled=True. ScaleMode=3. BackColor=vbYellowSubstrelka (x0, y0, a, s As Integer) x1, y1 As Integer=Round (x0 + s * Cos (a * grad))=Round (y0 - s * Sin (a * grad) ) (x0, y0) - (x1, y1) SubStrelki (). DrawWidth=3. ForeColor=Form1. BackColorstrelka (x0, y0, hr, r - 50) strelka (x0, y0, mn, r - 20) strelka (x0, y0, sc, r - 8)=90 - Hour (Time) * 30 - (Minute (Time )/12) * 6=90 - Minute (Time) * 6=90 - Second (Time) * 6. DrawWidth=4. ForeColor=RGB (0, 0, 0) strelka (x0, y0, hr, r - 50 ). DrawWidth=3strelka (x0, y0, mn, r - 20). DrawWidth=1. ForeColor=RGB (200, 0, 0) strelka (x0, y0, sc, r - 8): Beep (175, 270), vbYellow «Visual Basic» SubSub Form_Paint () x1, y1, a, h As Integer=0=3a lt; 360=Round (x0 + r * Cos (a * grad))=Round (y0 - r * Sin (a * grad)) a Mod 30=0 Then (x1, y1) - (x1 + 5, y1 + 5) , vbBlue, BF=x0 + Round ((r + 20) * Cos (2 * a * 3.14/360)) - 7=y0 + Round ((r + 20) * Sin (2 * a * 3.14/360))- 7=vbBlue=11h=h + 1h=13 Then h=1 (x1, y1) - (x1 + 2, y1 + 2), vbBlue, BFIf=a + 6StrelkiSubSub Timer1_Timer () StrelkiSubSub Command1_Click ()
End Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer10 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer10.frm.
. Після збереження форми слід зберегти проект. В Visual Basic це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer10 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer10.vbp.
. Тепер запустити проект на виконання. Вибираємо команду ...
