чи значення зазначених вище властивостей, або використовуючи метод
Scale. За заданими координатами верхнього лівого та нижнього правого кута обчислюються значення ScaleHeight і ScaleWidth . Застосування методу Scale без параметрів відновлює вихідний масштаб вікна форми і повертає початок координат у верхній лівий кут (0,0) .
Для створення екранних зображень використовуються графічні методи Pset, Line, Circle, дозволяють малювати окремі точки, лінії і прямокутники, дуги на екрані.
Метод Pset застосовується до тих же об'єктів, до яких застосуємо метод Scale . Синтаксис запису методу наступний:
lt; Ім'я Об'єкту gt ;. Pset ( lt; х gt ;, lt; y gt;) [, lt; колір gt;]
де х, у - координати точки.
Колір - це число, яке задає той чи інший колір. Якщо позиція «колір» відсутній, то за замовчуванням колір=0 (тобто чорний колір).
Якщо перед Pset не використовувалася метод Scale, то за замовчуванням використовуються абсолютні координати об'єкта.
Приклад 1. Обертання Марса навколо Сонця. Скласти програму, яка дозволяє показати обертання Марса навколо Сонця .
Рішення. Робота виконується в наступній послідовності:
1. Запустити Visual Basic за допомогою меню Window/Пуск/Програми. У вікні New Project вибрати Стандартний.EXE вкладки New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно заповнити необхідними компонентами, за допомогою яких можна буде виконати необхідні дії.
. Для створення програми необхідно використовувати наступні об'єкти управління:
для виконання функцій обчислення необхідна одна кнопка Command1 . Це буде « Старт ». Друга кнопка Command2 виконує функцію завершення роботи програми - кнопка « Фініш »;
для виведення малюнка обертання Марса навколо Сонця можна використовувати вікно малюнка PictureBox1.
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі елементи.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни:
Command1Caption= Старт Command2Caption= Фініш
Заготівлю форми для прикладу 1 зі зміненими властивостями і результат роботи програми дивіться на рис. 1.1.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code .
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click . Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End .
Аналогічні дії виконуємо щодо інших об'єктів управління.
. Програмний код для прикладу 1 буде мати вигляд:
Private Sub Command1_Click () x As Single. Scale (- 12, 12) - (12, - 12). DrawWidth=20x=- 10 To 10 Step 0.001. Cls. DrawWidth=50.PSet (0, 0), vbYellow. DrawWidth=20.PSet (...
