Практична робота 7. Створення програми з добавленням елементів Line (Відрізок) та Shape (Фігура)
Мета: Відпрацювати навички прийому роботи з лініями та фігурами в Visual Basic; пробудити в трудовій діяльності в трудовій діяльності прагнення до самостійного створення програмних проектів; формувати прагнення відповідально працювати.
Послідовність виконання роботи
Програма 1. Додавання графічних елементів за допомогою засобів Line(Відрізок) і Shape(Фігура).
У Visual Basic досить просто додати в програму художні зображення.
1. Клацніть на кнопці управління Label і створіть велике поле у верхній частині форми (рис. 7.1). У властивостях Caption встановите значення OOO "Kardif". Встановите для властивості Fore Color (колір символів) синій колір, а для властивості Font (Шрифт) жирний курсив розмір – 26.
2. Клацніть на кнопці управління Line і створіть відрізок під назвою, як показано на рисунку 7.1. Встановите властивості Border Width (Товщина) - 5, Border Color (Колір) – синій.
3. Тепер створіить у формі два графічні зображення у вигляді екранів.
Рисунок 7.1
4. Клацніть на кнопці управління Shape (Фігура) і створіть прямокутник в лівій частині форми. За допомогою властивості FullStyle (Тип заливки) ви можете зробити зображення вікна натуральнішим.
5. Знову клацніть на кнопці управління Shape (Фігура) і створіть другий прямокутник в лівій частині форми, частково накладений на перший. Встановите для фігур наступні властивості:
|
Об'єкт |
Властивості |
Встановлювані значення |
|
Shape1 |
Shape (Фігура) |
0 - 0 - Rectangle(прямокутник) |
|
FullColor (Колір заливки) |
Помаранчевий | |
|
FullStyle (Тип заливки) |
6 - Cross (Хрест) | |
|
BorderColor (Колір контура) |
Помаранчевий | |
|
Shape2
|
Shape (Фігура) |
4 - Rounded Rectangle (прямокутник з кутами, що округляють) |
|
FullColor (Колір заливки) |
Блакитний | |
|
FullStyle (Тип заливки) |
6 - Cross (Хрест) | |
|
BorderColor (Колір контура) |
Блакитний |
6. Створіть поле мітки в правій частині форми. Встановіть властивості Label2: Caption "Пластикові вікна і двері, теплі підлоги, опалювальні системи", Font – жирний курсив, 14, Aligment (1 – Right Justify) по правому краю.
7. Створіть 2 командних кнопки. Двічі клацніть по кнопці Quit і введіть End.
8. Зміните властивість Caption для форми на "Ласкаво просимо". Запустите програму.
Звіт
1. Відобразити рисунок вікна проекту.
2. Записати програму
Практична робота 8. Створення пограми за допомогою таймера
Мета: Закріпити відомі способи роботи з елементами управління; сприяти розвитку технічних умінь у процесі навчання; розвивати вміння застосовувати аналогію.
Послідовність виконання роботи
Програма 1. Створення цифрового годинника за допомогою таймера.
1.Створіть новий проект і клацніть на кнопці управління Timer. Створіть об'єкт – таймер. Створіть поле Label, як показано на рисунку 8. 1.
Рисунок 8.1
У властивостях встановите наступне:
|
Об'єкт |
Властивість |
Значення |
|
Label1 |
Caption |
Порожньо |
|
Font |
Times New Roman, Bold, 24 | |
|
Aligment |
2 - Center | |
|
Timer1 |
Interval |
1000 |
|
Enabel |
True | |
|
Form1 |
Caption |
Digital Clock |
Якщо потрібно використовувати художні ефекти, встановіть для властивості Picture об'єкту Form шлях до потрібного файлу графіки.
2. Двічі клацніть на об'єкті Timer і введіть наступного оператора
Label1.Caption=Time
3. Запустите програму.
Програма 2. Встановлення обмеження часу при введенні пароля.
1. Відкрийте новий проект. Створіть форму як показано на рисунку 8.2.
2. Форма повинна містити елементи: Text Box, Label, Command Button, Timer.
Рисунок 8.2
Встановіть вказані нижче властивості для вашої програми:
|
Об'єкт |
Властивість |
Встановлюване значення |
|
Text1
|
Text |
Порожньо |
|
Password Char |
*(*(символ при введенні пароля) | |
|
Label1 |
Caption |
Enter your password within 15 seconds |
|
Command1 |
Caption |
Try Password |
|
Timer1 |
Interval |
15000 |
|
Enabled |
True | |
|
Password |
Form1 |
Caption |
Двічі клацніть на об'єкті Timer і введіть оператори:
Private Sub Timer1_Timer()
MsgBox ("Sorry, Your time is up")
End
End Sub
Двічі клацніть на об'єкті Comand і введіть оператори:
Private Sub Command1_Click()
If Text1.Text = "secret" Then
Timer1.Enabled = False
MsgBox ("Welcome to the system")
End
Else MsgBox ("Sorry, friend, I don't know you")
End If
End Sub
Ця програма перевіряє, чи введено в поле введення пароля слово Secret. Якщо так, то таймер відключається, відображується запрошення і робота програми завершується. Якщо введений невірний пароль, користувачеві видається повідомлення про те, після чого він може ввести пароль. Але йому дається всього 15 секунд. Запустите програму. Введіть вірний або невірний пароль і подивитеся результати.
Звіт
1. Відобразити рисунок вікна проекту.
2. Записати програму