Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
делфи_лаб_каз.doc
Скачиваний:
1
Добавлен:
01.04.2025
Размер:
478.21 Кб
Скачать

«Анықтама» атты жобасын құру

Орындалу уақыты: 2 сағ Рейтинг: 1 балл

Жұмыстың мақсаты

ListBox (тізім) компонентін қолдануын және ақпаратты енгізуге арналған қосымша редакторлармен жұмыс жасауын үйрену

Жұмыстың орындалу тәртібі:

1 Кезең. Delphi бағдарламасын жүктеу және жобаны құру

  1. Delphi жүктеңіз.

  2. Жаңа жобаны құрыңыз. Формаға «Анықтама» деген атты беріңіз.

2 Кезең. Формаға компоненттерді енгізу

  1. Формаға ListBox компонентін, үш Label белгісін және BitBtn батырмасын орналастырыңыз ( Standard парағынан),.

  2. ListBox компонентін форманың сол жағына үш Label белгісін, BitBtn батырмасын форманың оң жақтағы төменгі бұрышына орналастырыңыз.

3Кезең. Компоненттердің қасиеттеріне түзетулерді енгізу және оқиғаларды өңдеу процедурасын құру

  1. Келесі амалдарды орындаңыз:

белгіленген объект

Object Inspector

қасиеттің/оқиғаның аты

орындалатын амалдар

BitBtn1

Properties

Kind

bk Close

Caption

«Шығу»

Label1

Properties

Caption

RGB форматындағы түс жазу анықтамасы» жазбасын енгізіңіз

Label2

Properties

Caption

«RGB түс форматын» енгізу

Label3

Properties

Caption

«Атауды өшіру және түс кодын» енгізу

4Кезең.Бағдарламаны сақтау және іске қосу

  1. Бағдарламаның коды мен жобасын келесі аттарымен сақтаңыз. fam3.pas және pr_fam3.dpr Менің құжатым – Студент бумасы.

  2. Бағдарламаны іске қосып тестілеңіз, одан кейін жоба «Шығу» батырмасы арқылы жабыңыз.

5Кезең. ListBox1 компонентімен жұмыс жасау

  1. ListBox1объектісін белгілеңіз, Items қасиетін табығыз, оның оң жағындағы үш нүктелі батырмасын шертіңіз. Пайда болған терезеде келесі түстерді енгізіңіз, әрқайсысын жаңа жолда жазаңыз: black, white, red, green, azure, blue, purple, yellow, brown, orange, violet, gray.

  2. Енгізген мәтінді color.txt деп сақтаңыз. Ол үшін тышқанның оң жақ батырмасын шертіп, Save командасын таңдаймыз. ОК батырмасын басыңыз.

  3. Келесі амалдарды орындаңыз:

белгіленген объект

Object Inspector

қасиеттің және оқиғаның аты

амалдар

ListBox1

Events

OnKeyPress

if key = 13 then

case ListBox1.ItemIndex of

0: Label3.Caption := ‘черный 000000’;

1: Label3.Caption := ‘белый FFFFFF’;

2: Label3.Caption := ‘красный FF0000’;

3: Label3.Caption := ‘зеленый 00FF00’;

4: Label3.Caption := ‘бирюзовый 00FFFF’;

5: Label3.Caption := ‘синий 0000FF’;

6: Label3.Caption := ‘фиолетовый FF00FF’;

7: Label3.Caption := ‘желтый FFFF00’;

8: Label3.Caption := ‘коричневый 996633’;

9: Label3.Caption := ‘оранжевый FF8000’;

10: Label3.Caption := ‘лиловый 8000FF’;

11: Label3.Caption := ‘серый A0A0A0’;

end;

  1. Жобаны сақтап, оны тексеріңіз.