Лабораторна робота №7

Лабораторна робота №7

Тема: Програмування з використанням компоненту ListBox на основі

властивостей Items і ItemIndex.

Мета: Отримання практичних навиків використання компоненту ListBox

палітри компонентів Standart на основі властивостей Items і ItemIndex.

Теоретичні відомості

Змінна — це область пам'яті, в якій знаходяться дані, якими оперує програма. Коли програма маніпулює з даними, вона, фактично, оперує вмістом елементів пам'яті, тобто змінними.

Щоб програма могла звернутися до змінної (області пам'яті), наприклад,

для того, щоб отримати початкові дані для розрахунку по формулі або зберегти результат, змінна повинна мати ім'я. Ім'я змінній дає програміст.

Як ім'я змінної можна використовувати послідовність з букв латинського алфавіту, цифр і деяких спеціальних символів. Першим символом в імені змінної повинна бути буква. Пропуск в імені змінної використовувати не можна.

Слід звернути увагу на те, що компілятор мови Delphi не розрізняє прописні і рядкові букви в іменах змінних, тому імена SUMMA, Summa і summa

позначають одну і ту ж змінну.

Бажано, щоб ім'я змінної було логічно пов'язане з її призначенням.

У мові Delphi кожна змінна перед використанням повинна бути оголошена. За допомогою оголошення встановлюється не тільки факт існування змінної, але і задається її тип, чим вказується і діапазон допустимих значень.

Змінна оголошується в розділі оголошення змінних var.

У загальному вигляді інструкція оголошення зміної виглядає так:

var

Ім'я : тип;

де:

ім'я — ім'я змінної;

1

тип — тип даних, для зберігання яких призначена змінна.

Приклад:

var

а : Real;

b : Real;

i : Integer;

Уприведених прикладах оголошені дві змінні типу real і одна змінна типу integer.

Утексті програми оголошення кожної змінної, як правило, поміщають на окремому рядку.

Якщо в програмі є декілька змінних, що відносяться до одного типу, то імена цих змінних можна перерахувати в одному рядку через кому, а тип змінних вказати після імені останньої змінної через двокрапку, наприклад:

Var

а,b,с : Integer;

x1,x2 : Real;

Компонент Delphi ListBox - це компонент, що використовується для зберігання і обробки текстової інформації. Значок компоненту ListBox

знаходиться на вкладці Standard (рис. 7.1).

Рисунок 7.1 Компонент ListBox на вкладці Standart

Кожен рядок Delphi ListBox зберігає рядок даних в форматі String.

Вигляд ListBox на етапі конструювання та на формі в робочій програмі (Рис.7.2)

2

Властивість ItemIndex задає номер вибраного елементу списку. Якщо жоден з елементів не вибраний, то значення властивості рівне мінус одиниці.

Список може бути сформований під час створення форми або під час роботи програми.

Для формування списку під час створення форми треба у вікні Object Inspector вибрати властивість Items і клацнути на кнопці запуску редактора списку рядків (рис. 7.3).

Рисунок 7.3. Кнопка запуску редактора списку

У діалоговому вікні String List Editor, що відкриється потрібно ввести список, набираючи кожен елемент списку в окремому рядку. Після введення чергового елементу списку для переходу до нового рядка необхідно натиснути клавішу <Enter>. Після введення останнього елементу клавішу <Enter>

натискати не треба. Завершивши введення списку, слід клацнути на кнопці ОК.

Постановка задачі

Створіть програму, що виконує наступні дії. Після запуску програми з’являється зображення аналогічне тому, що зображено на рисунку 7.1.

4

5.Оберіть ListBox2 і зробіть з ним аналогічну роботу, введіть назви фізичних величин: «Напруга», «Опір», «Сила струму», «Потужність».

Збережіть набраний текст під ім’ям Fiz_2.txt.

6.Вставте в розділі реалізації після ключового слова implementation

об’явлення змінних:

:Byte;

7.Створіть наступні процедури обробки подій:

7

CountC:=CountC+1;

if CountC=CountN then ShowMessage('Тест закінчено.

Бали : '+ FloatToStr(CountR/CountN * 5 )+' (правильних

відповідей: '+IntToStr(CountR)+')'); ListBox2.Itemindex:=-1; ActiveControl:=ListBox1;

end;

Коментар

Якщо обраний запис в другому вікні, то його номер порівнюється на відповідність з раніше обраним номером першого вікна (оператор Case). В залежності від результата порівняння видається повідомлення про правильність відповіді, а потім перевіряється чи на всі питання отримано відповідь.

В кінці змінюється властивість ListBox2.ItemIndex для того, щоб вибрати виділення обраного запису в другому вікні і потім робить активним об’єкт ListBox1, тобто після закінчення введення фокус перейде в вікно введення ListBox1.

8.Збережіть проект остаточно, запустіть і протестуйте його.

Завдання для самостійного виконання

1.Списки ListBox1 і ListBox2 зробіть почергово доступними після натиснення

клавіши Enter.

Підказка. Встановіть значення False властивості Enabled компоненту ListBox2,

а в процедуру KeyPressed, що відноситься до ListBox1, додати рядки:

ListBox2.Enabled := True;

ListBoxl.Enabled := False;

2.Внести зміни в програму, щоб при правильному виборі назви фізичної

величини слово в лівому списку зникало.

Підказка. В процедуру KeyPressed, що відноситься до ListBox2, додати:

ListBox1.Items.Delete(Num1);

ListBox1.Items.Insert(Num1, '');

8

Тут видаляється рядок і вставляється на її місце порожній, щоб зберегти відповідність між записами в двох вікнах.

Крім того необхідно в процедуру KeyPressed, що відноситься до ListBox1,

додати:

If (Key=#13) and

(ListBox1.Items.Strings[ListBox1.ItemIndex]<>'') Then...

для того, щоб не розглядався вибір порожнього рядка.

3.Зробіть доступними списки ListBox1 і ListBox2 не тільки після натиснення клавіши Enter, але і по клацанню миші.

4.Збільшіть кількість фізичних величин до 10. Наприклад: довжина (метр), маса

(кілограм), час (секунда), сила світла (кандела), кількість речовини (моль),

частота (герц).

Внесіть необхідні зміни до програми.

5.Введіть додаткову кнопку «Повторити», яка дозволить повторно виконати завдання, відновив списки ListBox1.

Підказка В процедуру обробки натиснення кнопки «Повторити» додати:

CountC:=0;

CountR:=0;

Num1:=0;

Num2:=0;

ListBox2.ItemIndex:=-1;

ListBox1.Items.LoadFromFile('Fiz_1.txt');// повторне

завантаження файлу

ListBox1.SetFocus;

9

Лістинг програми unit Unit7; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

Dialogs, StdCtrls, Buttons; type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

ListBox1: TListBox;

ListBox2: TListBox;

Label3: TLabel;

Label4: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure ListBox1KeyPress(Sender: TObject; var Key: Char);

procedure ListBox2KeyPress(Sender: TObject; var Key: Char);

procedure BitBtn2Click(Sender: TObject); private

{Private declarations } public

{Public declarations }

end;

var

Form1: TForm1;

implementation

10