Лабораторна робота №7
Тема: Робота зі списками у Delphi.
Мета роботи: вивчити правила роботи з компонентами TListBox і TСomboBox. Написати програму для вивчення властивостей, методів та подій для простих та комбінованих списків.
Розробка проекту «Гороскоп»
Завдання. Створити програму, яка виконуватиме такі дії: користувач обирає зі списку ListBox знак зодіаку. В результаті на форму виводяться сприятливі та несприятливі дні для цього знаку зодіаку і в компоненті Image відображається малюнок, який відповідає обраному знаку зодіаку. Програма закінчує роботу при натисненні на кнопці «Вихід». написати програму так, щоб вхідні дані про сприятливі та несприятливі дні для всіх знаків зодіаку були задані в масиві. Зробити так, щоб при наведені курсору на поле компонента ListBox з’являлась підказка про те, що треба робити далі.
Хід роботи
Алгоритм розробки проекту
Створити папку С:\Delphi\lab_7_1.
Завантажити середовище візуального програмування Delphi.
Розмістити на формі візуальні компоненти Label1, Label2, Label3, Label4, Label5, BitBtn1, Image1, ListBox1 встановити значення властивостей компонентів, описати порядок опрацювання подій згідно з таблицею.
Компонент |
Вкладка вікна «інспектора об’єктів » (Object Inspector) |
Властивість (Properties)/Подія (Events) |
Значення властивості /обробка події (тіло процедури обробки події |
Forma1 |
Properties |
Caption (заголовок форми) |
Гороскоп |
Color (колір форми) |
За вибором |
||
Label1 |
Properties |
Caption |
Гороскоп на літо 2008 |
Font |
Шрифт, колір, розмір за вибором |
||
Label2 |
Properties |
Caption |
Сприятливі дні |
Font |
Шрифт, колір, розмір за вибором |
||
Label3 |
Properties |
Caption |
Чисте поле |
Font |
Шрифт, колір, розмір за вибором |
||
Label4 |
Properties |
Caption |
Несприятливі дні |
Font |
Шрифт, колір, розмір за вибором |
||
Label5 |
Properties |
Caption |
Чисте поле |
Font |
Шрифт, колір, розмір за вибором |
||
BitBtn1 |
Properties |
Kind |
bkClose |
Image1
|
Properties |
AutoSize |
false – розміри змінюватись не можуть |
Stretch |
True |
||
Picture |
Не має |
||
ListBox1 |
Properties |
Items |
Овен, Тілець, Близнюки, Рак, Лев, Діва, Терези, Скорпіон, Стрілець, козеріг, водолій, Риби |
Events |
Onclick |
const l1:array[0..11] of string=('1-26 червня, 10-20 липня, 1-10 серпня', '1-2 червня, 1-20 липня, 1-10 серпня','10-16 червня, 10-20 липня, 1-10 серпня', '1-26 червня, 10-25 липня, 1-10 серпня','1-26 червня, 10-20 липня, 4 серпня', '1-2 червня, 10-20 липня','1-26 червня, 10-20 липня, 1-10 серпня', '1-26 червня, 1 липня, 1-15 серпня','1-26 червня, 1-10 серпня', '1-26 червня, 10-20 липня, 1-10 серпня','',''); l3:array[0..11] of string=('26 серпня','26 серпня','26 серпня','20 серпня','2 серпня','12 серпня','5 серпня', '6 серпня','27 серпня','29 серпня','30 серпня','12 серпня'); begin label3.Caption:=l1[listbox1.itemindex]; label5.Caption:=l3[listbox1.itemindex]; case listbox1.ItemIndex of 0: image1.Picture.LoadFromFile('oven.bmp'); 1: image1.Picture.LoadFromFile('til.bmp'); 2:image1.Picture.LoadFromFile('bliz.bmp'); 3: image1.Picture.LoadFromFile('rak.bmp'); 4:image1.Picture.LoadFromFile('lev.bmp'); 5:image1.Picture.LoadFromFile('diva.bmp'); 6:image1.Picture.LoadFromFile('terez.bmp'); 7:image1.Picture.LoadFromFile('skorp.bmp'); 8:image1.Picture.LoadFromFile('str.bmp'); 9:image1.Picture.LoadFromFile('koz.bmp'); 10:image1.Picture.LoadFromFile('vodolej.bmp'); 11:image1.Picture.LoadFromFile('ribi.bmp'); end; end; |
Підказка. Файли *.bmp повинні бути записані у поточну папку проекту у папці С:\Delphi\lab_7_1.
Зберегти проект у папці С:\Delphi\lab_7_1.
Запустити проект та перевірити правильність його виконання.