«Сұхбат» атты жобаны құру

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

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

Edit енгізу жолы мен OnKeyPress оқиғалар өңдеушісімен жұмыс істеп үйрену.

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

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

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

5. Келесі әрекеттерді орындайтын бағдарлама құрыңыз. Бағдарлама жүктелгеннен кейін қолданушы өзінің атын жарқырауыш мәтіндік мезгегіші бар тік төртбұрышқа енгізіп, мысалы, Нурлан есімі болсын, Enter п.ернесін басу.

: «Нурлан, сен оқығанды жақсы көресің бе?». Деген сұрақ шығады. Егер қолданушы «Иә», батырмасын басса, «Жарайсың !», деген сөз шығады. Егер «Жоқ» батырмасын басса, онда «Неге ? оқу керек » сөйлем шығады.

Бағдарламадан шығу үшін «Шығу» батырмасын шерту керек.

6. Жаңа жоба құрыңыз. Формаға «Сұхбат» атын беріңіз.

2 Кезең. Қосымшаға компонеттерді орналастыру

5. Формаға үш Label белгісін, екі Button батырмасын, Edit компонетін және BitBtn батырмасын қойыңыз.

6. Екі белгіні және Edit компонетін форманың жоғарғы бөлігіне, одан кейін көлденең түзу бойымен екі Button батырмасын төменрек, сол жағынан үшінші Label белгісін, форманың еің төменгі жағының ортасына BitBtn батырмасын орналастырыңыз.

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

10. Келесі әрекеттерді орындаңыз:

белгіленген объект	Object Inspector	қасиеттің және оқиғаның аты	орындалатын амалдар
BitBtn1	Properties	Caption	«шығу»
		Kind	bk Close
Label1	Properties	Caption	«Өз атыңызды енгізіңіз және Enter басыңыз» жазуді енгізіңіз
Edit1	Events	OnKeyPress	if key = 13 then begin Label2.Caption := Edit1.Text + ‘, сен оқуды жақсы көресің бе?’; end;
Button1	Properties	Caption	«Иә»
	Events	OnClick	Label3.Caption := ‘Жәрайсың!’
Button2	Properties	Caption	«жоқ»
	Events	OnClick	Label3.Caption := ‘Неге? Оқу керек.’;

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

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

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

5 Кезең. Компоненттер қасиеттерін өзгерту

1. «Иә» және «Жоқ» батырмаларын Enter батырмасын шертіп, ат енгізгеннен кейін ғана іске қосылатындай етіп жасаңыз.

Бұл үшін «Иә» және «Жоқ» батырмаларын Enabled қасиетінің мәнін бірдей False етіп орнатыңыз, ал EditKeyPress процедурасына қосыңыз

Button1.Enabled := true;

Button2.Enabled := true;

2. Сұхбатты қайталау мүмкіндігін қамтамасыз ету үшін Edit1, Label2, Label3 объектілерінің атын өшіріңіз. Ол үшін формаға тағы бір BitBtn батырмасын орналастырыңыз. Kind қасиетінің bkRetry мәнін және Caption қасиетінің «Қайталау» мәнін орнатыңыз. «Қайталау» батырмасын басу арқылы бос жолдарын бағдарламалы түрде бағдарламалардың жазуы мен аттарының орнына енгізіңіз:

Label2.Caption := ‘ ‘;

Label3.Caption := ‘ ‘;

Edit1.Text := ‘ ‘;

3. Сұзбатты қайталағанда енгізу жолы қайтадан белсенді болатындай етіп жасаңыз.

Ол үшін келесі команданы енгізу керек:

Form1.ActiveControl := Edit1

4. Нәтижесін оқытушыға көрсетіңіз

5.Delphi бағдарламасынан шығыңыз.

Бақылау сұрақтары

15. Осы жобада қоданған компонетер формаға қалай орналастырылғанын айтып беріңіз?

16. Жобаға Edit енгізу жолы қалай қолданылады?

17. Батырманың аты қалай өзгертіледі?

18. Жазуды қалай енгізеді?

19. OnClick және OnKeyPress оқиғаларын орындағанда не болады?

20. Атты енгізіп, батырманы басқанна кейін ғана батырма іске қосылуын қалаай жұзеге асырады?

Тілдер және бағдарламалау технологиясы

№ 4 зертханалық жұмыс