asyan.org
добавить свой файл
1
Практична робота №4. Створення, збереження, запуск проекту за заданим зразком.
Мета роботи. Відпрацювати навички запуску Visual Basic, створення проекту за зразком, запуску проекту на виконання та збереження проекту.
Виконання програми.
Повторити правила ТБ.
1. Запустити Visual Basic.




2. Створити проект «Цікава форма».



Для цього потрібно: 1. змінити назву форми і вікна форми

2. Створити об’єкт Напис – Label1

3. Проти властивості Caption написати Цікава форма.

4.Розмістити на формі кнопку Command1 – Проти властивості Caption - Вихід
5.
Запрограмувати кнопку Вихід – Двічі клацнути на кнопку.

Private Sub Command1_Click()

End

End Sub

6. Розмістити на формі кнопку Command2 – Проти властивості Caption - Змінити текст.
7.
Запрограмувати кнопку Змінити текст – Двічі клацнути на кнопку-
Private Sub Command2_Click()

Label1.Caption = "Моя перша комп'ютерна програма "

End Sub

8. Стиснемо форму по висоті і ширині. Розмістити на формі кнопку Command3 – Проти властивості Caption - Стиснути форму. Проти Name написати - cmdShrink
9.
Запрограмувати кнопку Стиснути форму – Двічі клацнути на кнопку.

Private Sub cmdShrink_Click()

frmFormFun.Height = frmFormFun.Height - 100

frmFormFun.Width = frmFormFun.Width - 100

End Sub

10.Розтягнемо форму по ширині та висоті. . Розмістити на формі кнопку Command4 – Проти властивості Caption – Розтягнути форму. Проти Name написати – cmdGrow
11. Запрограмувати кнопку Розтягнути форму - Двічі клацнути на кнопку.

Private Sub cmdGrow_Click()

frmFormFun.Height = frmFormFun.Height + 100

frmFormFun.Width = frmFormFun.Width + 100

End Sub

12. Поміняємо колір форми на червоний. Розмістити на формі кнопку Command5 – Проти властивості Caption – Червоний колір. Проти Name написати – cmdRed

13. Запрограмувати кнопку Червоний колір - Двічі клацнути на кнопку.

Private Sub cmdRed_Click()

frmFormFun.BackColor = vbRed

End Sub

14. Аналогічно поміняємо колір форми на зелений.

Private Sub cmdGreen_Click()

frmFormFun.BackColor = vbGreen

End Sub
15. Поставте на форму (малюнок ) об’єкт Image. Виберіть малюнок.

16. Поруч з малюнком поставте на форму об’єкт Напис -Label2
17. Двічі клацніть на малюнок і у вікні коду процедури обробки події напишіть код:

Private Sub Image1_Click()

Label2.Caption = "Герої мультфільма"

End Sub
18. Увага! Щоразу перевіряйте роботу кнопки.
19. Збережіть проект: Створіть папку з вашим іменем. File – Make Project - Cтворення EXE-файла.
або Save Project.
Самостійно! Доставити кнопки для зміни кольору форми.