10 - i), vbBlack. PSet (- 15 + i, 10 - i), vbCyaniSubSub Picture2_Click () x As Single. Scale (- 20, 15) - (20, - 15). DrawWidth=5. Line (- 20, - 15) - (20, 15), vbBlue, B. Line (- 15, - 10) - (15, 10), vbGreen, B. Line (- 10, - 5)- (10, 5), vbBlack, B. Line (- 5, - 1) - (5, 1), vbCyan, BSubSub Picture3_Click () x As Single. Scale (- 20, 15) - (20, - 15). DrawWidth=2. Line (- 20, - 15) - (20, 15), vbBlue, BF. Line (- 15, - 10) - (15, 10), vbGreen, BF. Line (- 10, - 5) - (10, 5), vbBlack, BF. Line (- 5, - 1) - (5, 1), vbCyan, BFSubSub Picture4_Click (). Scale (- 20, 15) - (20, - 15). DrawWidth=2. Line (- 20, - 15) - (20, 15), vbGreen, BFx=- 10 To 10 Step 0.001. DrawWidth=4=10 * Cos (x) .PSet (x, y), vbRedxSubSub Command1_Click ()
End Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer2 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer2.frm.
. Після збереження форми слід зберегти проект. В Visual Basic це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer2 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer2.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . Після запуску програми користувач, почергово активізує малюнки.
. Для завершення роботи програми необхідно натиснути кнопку « ФІНІШ » (або значок «закрити» на формі) або виконати команду Run/End .
Синтаксис використання методу Circle (використовується для малювання кіл, еліпсів, дуг і секторів) наступний:
lt; Об'єкт gt ;. Circle (х, у), радіус, [колір], [start], [end], [aspect]
Де об'єкт - форма, вікно малюнка (PictureBox) , об'єкт печатки, на яких малюється коло, еліпс, дуга або сектор;
Circle - ключове слово;
х, у - координати центру (тип Single) ;
радіус - радіус (у використовуваній системі координат);
колір - RGB -колір лінії (може використовуватися функція RGB );
start, end використовуються при малюванні дуги і визначають в радіанах початковий і кінцевий кути дуги (діапазон - від - 2р до 2р ). Типово start дорівнює 0 , end - 2р . Для перекладу значень кутів з градусів в радіани використовується формула ГРАДУС * р/180 .
aspect - співвідношення радіусів по осях Х і Y при малюванні еліпса.
Для малювання сектора задаються негативні значення параметрів start і end . При малюванні проводяться радіальні лінії під кутом, заданими абсолютними значеннями параметра.
Приклад 3. Скласти програму, яка дозволяє змінити написання і колір геометричної фігури, типу квадрат, овал, коло, використовуючи стандартний елемент управління « фігура »- Shape.
Рішення. Робота виконується в наступній послідовності:
1. Запустити Visual Basic за допомогою меню Window/Пуск/Програми. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ». ...
