Змодифiкуйте проект, щоб отримати всi результати без його перезапускiв
Лабораторна робота № 21
Виконав студент групи КІ-12
Ковалишин В.Р.
Прийняв викладач _____________________Хамець М.Й.
Мета роботи: Ознайомитися із введенням та виведенням даних на формi: застосування текстового поля (TextBox) для введення даних, використання функції InputBox для введення даних, використання елемента керування ListBox (список) для виведення даних.
Хід роботи:
Задача про планети. Є три планети: Земля, Марс, Венера. Знаючи радiус планети, обчислити довжину екватора i площу поверхнi кожної планети.
Математична модель. Моделлю задачi є куля, де, знаючи радiус r, потрiбно знайти довжину кола l i площу поверхнi кулi s.
Метод розв’язування. З курсу математики вiдомо, що l = 2pr, s = 4/3pr2.
Алгоритм. Алгоритм розв’язування задачi такий:
Ввести r
l = 2*рi*r
s = 4/3*рi*r2
Вивести l, s Повторити попереднi пункти ще двiчi.
Iнтерфейс проекту (рис. 3).
1. Увiйдіть в середовище i створіть новий проект з назвою Планети
2. На формi Form1 “Планети”, зверху i праворуч вiд середини розташуйте поле Техt1 для введення значення радiуса планети. Лiворуч вiд поля помiстіть напис Label1 “Радiус:”. Під ним розташуйте кнопку Вutton1 “Обчислити”, а пiд кнопкою – два поля Техt2 та Техt3 для отримання результатiв. Над полями розташуйте написи Label2 «Екватор:» та Label3 «Площа поверхнi:», а пiд ними – кнопку Вutton2 «Кiнець». По черзi вибирайте елементи i, користуючись клавiшами переміщення курсору, вирiвняйте їх, як на рис. 3.
3. Саму форму запрограмуйте, так, щоб при запуску змінювався колір заливки.
4. Кнопку «Обчислити» програмуйте так:
5. Пiсля запуску проекту текстовi поля порожнi. Фокус розмiщений у першому текстовому полi. Сюди введіть значення радiуса першої планети.
Виконайте проект ще двiчi, вводячи щоразу радiуси двох iнших планет.
7. Запрограмуйте кнопку «Кiнець» набравши одну команду End.
Змодифiкуйте проект, щоб отримати всi результати без його перезапускiв
9. А код кнопки «Очистити» створіть так:
10. Тепер натисніть на кнопку «Обчислити» ще раз, введіть радiус i отримайте дані щодо другої планети. Пiсля цього знову натисніть кнопки «Очистити» I «Обчислити».
11. Створіть ще один проект з назвою КУБ
12. Аналогічно до попередньої задачі, розв’яжіть задачу для знаходження об’єму куба зі стороною а.
13. Запустіть проект та переконайтесь у правильності обчислень.
14. Збережіть проект у своїй папці.
15. Продемонструйте створені програми викладачеві. Закінчіть роботу.
Контрольнi запитання
1. Для чого призначений елемент керування – текстове поле (ТехtВох)?
2. Як записати функцію InputBox у довгій і короткій формі?
3. Для чого використовується елемент керування ListBox (список)?
4. Якими методами володiє список ListBox?