2015-05-13
251
| Скласти проект, що дозволяє побудувати графіки функцій y=Sin(x) та y=Cos(x). | |||||
| № | Операції | Дії розробника | |||
| 1. | Розробка інтерфейсу: Ескіз екранної форми буде вміщувати дві командні кнопки: для побудови графіків функцій у графічному вікні та для закінчення роботи, і об¢єкт PictureBox. | ||||
| 2. | Завантажити Visual Basic | >Пуск>Программы>Visual Basic | |||
| 3. | Надати ім’я формі | Ввести до поля Name вікна властивостей значення FRMGraf, до поля Caption значення Побудова графіків функцій. | |||
| 4. | Розташувати на формі об’єкти відповідно до ескізу інтерфейсу, враховуючи їх розмір та розміщення на ескізі. | (PictureBox на панелі елементів) – для створення графічного зображення (Command Button На панелі елементів) – для розміщення кнопок керування | |||
| Для PictureBox | Для CommandButton | ||||
| Name | PicGraf | Name | CmdStart | ||
| BackColor | За власним смаком | Caption | Побудувати графіки | ||
| Name | CmdEnd | ||||
| Caption | Вихід | ||||
| 5. | Написати програмний код для командної кнопки CmdStart | Private Sub CmdStart_Click() PicGraf.Scale (-10, 10)-(10,-10) ‘ось абсцис PicGraf.Line (-10, 0)- (10,0) For I = -9 To 9 PicGraf.Pset (I, 0), vbWhite PicGraf.Print I Next I ‘ось ординат PicGraf.Line (0,-10)- (0,10) For I = -9 To 9 PicGraf.Pset (0,I), vbWhite PicGraf.Print I Next I ‘графік, побудований точками For x = -9 To 9 Step 0.1 y=Sin(x) PicGraf.Pset (x, y), vbRed Next x ‘графік у вигляді неперервної лінії PicGraf.Pset (-9,Cos(-9)), vbBlue For x = -9 To 9 Step 0.1 y=Cos(x) PicGraf.Line -(x, y), vbBlue Next x End Sub | |||
| 6. | Написати програмний код для командної кнопки CmdEnd. | Private Sub CmdEnd_Click() End End Sub | |||
| 7. | Налагодження програми.Запустити проект на виконання, якщо необхідно, виправити помилки | >►(Start) на панелі інструментів для початку роботи >■ (End) на панелі інструментів або звертання до командної кнопки Вихід для завершення роботи | |||
| 8. | Збереження проекту.Зберегти проект та форму у власній папці. | >Файл>Сохранить в меню або відповідна кнопка на панелі інструментів, вказати власну папку для збереження | |||
| 9. | Створити виконавчий додаток. | >File >Make.exe, вказати власну папку для збереження, ввести і’мя MyProg3. | |||
| 10. | Закрити вікно Visual Basic | >r | |||
| 11. | Завантажити проект MyProg3.Exe на виконання | > MyProg3.Exe у власній папці | |||
Завдання для самостійної роботи
|
|
|
1. В графічне вікно додати текст з назвою графіків, що побудовані.
2. Внести такі зміни до програми, щоб побудова графіків відбувалась в діапазоні від -2p до 2p.
3. Побудувати графік функції y=tg(x) (або y=ctg(x), або y=1/x), враховуючи, що такі функції визначені не для кожного значення аргументу.
4. Побудувати графік функції y=f(x), де f(x) – будь-який арифметичний вираз за власним вибором.
Практична робота 3.
