Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
3 УМКД ОМ каз СРСП.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
3.14 Mб
Скачать

1. Тапсырманың орындалуы:

Программаны шақыру:

Программаны шақырғаннан кейін орындаушы тышқан немесе бағыттаушы арқылы терминдердің аттарын таңдап «Ввод» пернесіне басады.

Программа өз жұмысын «Выход» пернесі арқылы аяқтайды.

Сурет 23.3

Түсіндірме. Бұл жұмыста Standard компоненттер палитрасында орналасқан ListBox (тізім) компоненті, ақпаратты енгізуге арналған редактор және таңдау алгоритмі қолданылады (оператор Case).

2. Программаның орындалу жоспары

  1. Жаңа жоба ашамыз. Формаға «Анықтама» деген атпен жазамыз.

  2. Формаға Сурет 2-ге қатысты компоненттерді орналастырамыз.

Сурет 23.4

  1. Проектіні ат қойып сақтаймыз мысалы, Pr4.pas немесе Project4.dpr

  2. Программаны шақырамыз ,соңында проект терезесін «Выход» кнопкасымен жабамыз.

  3. Келесі әрекеттерді орындаймыз:

Белгіленген компоненттер

Объектілі инспектор терезесі

Қасиеттері

нің аты

Әрекет

Image1

Параметры

(Properties)

Left

20

Top

20

Height

150

Width

150

Picture

Сурет орналастырыңыз

Stretch

True

ListBox1

Параметры

(Properties)

Height

150

Width

150

Top

20

Cursor

crHandPoint

Label1

Параметры

(Properties)

Caption

Атын өшіріңіз

AutoSize (изменение размера в зависимости от текста в Caption)

False

WordWrap (разрыв строки)

True

Alignment (выравнивание текста)

taCenter

Height

Width

Сәйкес өлшемді орнатыңыз

  1. ListBox1белгісін белгілейміз, Object Inspector терезесінен Items қасиетін таңдап,оң жағында орналасқан үш нүктелі белгіні басамыз. Ашылған терезеге Сурет 3 бойынша терминдердің аттарын енгіземіз, әрқайсысы жаңа жолдан жазамыз.

Жазылған тексті Termin.txt. атымен сақтаймыз. Ол үшін тышқанның оң жақ кнопкасын басып Save (сақтау) командасын орындаймыз.Құрылған редактордан шығу үшін ОК кнопкасына басамыз.

Сурет 23.5

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

Белгіленген компоненттер

Объектілі инспектор терезесі

Қасиеттері

нің аты

Әрекет

ListBox1

Events

OnKeyPress

If key=#13 then

case ListBox1.ItemIndex of

0:Label1.Caption:='Аномально высокая чувствительность (гиперчувствительность) иммунной системы к безобидным для организма веществам (аллергенам), приводящая к воспалительной реакции, порой опасной для жизни';

1:Label1.Caption:='Симптом печеночной патологии - желтоватый оттенок кожи, конъюнктивы и белков глаз';

2:Label1.Caption:='Комплекс процессов, запускаемых в организме при появлении в нем болезнетворных микробов (бактерий, вирусов и т.п.) и раковых клеток. Ведет к нейтрализации и уничтожению';

3:Label1.Caption:='Биологический катализатор - белок, обеспечивающий протекание в организме специфической биохимической реакции, синтеза того или иного типа необходимых молекул';

4:Label1.Caption:='Жироподобное вещество (липид), входящее в состав клеточных мембран и желчи, а также постоянно циркулирующее в крови в составе липопротеинов. Его избыток повышает риск атеросклероза.';

end;

  1. Жобаны сақтаймыз, тексеруге жібереміз.