ат тестування. При цьому заголовок вікна також змінюється. br/>В
. Розмістимо на формі такі компоненти:
Panel1 (Color = clBlack, Caption = ), BitBtn1 (розташована на панелі), RadioGroup1 (Caption = ) і Label1 (WordWrap = true, AutoSize = false, ширину і висоту мітки задайте приблизно як показано на малюнку, помістіть компонент на задній план - виберіть у контекстному меню Компонент - Зробити нижнім)
Властивості форми визначимо як у прикладі № 1. Змінимо також колір форми на clSliver. <В
. Змінимо також іконку програми. Для цього треба вибрати в меню Проект - Опції, перейти на вкладку Додаток і вказати шлях до файлу з розширенням ico. br/>В
3. Опишемо глобальні змінні: AppPath: array [0 .. 255] of char;
_file: AnsiString;: textFile;// текстовий файл, s: string; _v: integer ;//номер питання: array [1 .. 4] of integer;: integer ;//сума набраних балів
. Як і в попередньому прикладі визначимо директорію, де розташований здійсненний файл. У обробнику події OnCreate для форми напишемо: (255, AppPath);// визначаємо директорію, де розташований здійсненний файл
_file: = AppPath + ' test.txt';
try (f, _file);// пов'язуємо логічне і фізичне ім'я файлу (f);// відкриваємо файл для читання
except ('Файл не знайдено'); BitBtn1.Enabled: = false;
end;
. Створимо обробник OnShow для форми: (f, s)// зчитуємо рядок з файлу;
if not (s [1] = '&') then buf: = buf + s; s [1] = '&';. Caption: = buf;
6. У обробнику OnClick для кнопки BitBtn1 напишемо:
procedure TForm1.BitBtn1Click (Sender: TObject); k, i, j: integer;: array [1 .. 4] of string;: =''; k: = 0; RadioGroup1.Visible : = true; i: = 0; j: = 0;. Items.Clear;// очищаємо компонент_v: = n_v +1;. Caption: = 'Далі'; BitBtn1.Enabled: = false;
if not (s [1] = '#') then begin// якщо питання ще не закінчилися
repeat (f, s);: = k +1; k of
: label1.Caption: = s;// виводимо текст питання
2,4,6,8: Radiogroup1.Items.Add (s) ;//виводимо варіанти відповідей
3,5,7,9: begin: = i +1; bal [i]: = StrToInt (s) ;//заповнюємо масив балами
end;; (s [1] = '&') or (s [1] = '#');. Caption: = 'Питання №' + IntToStr (n_v);// міняємо заголовок вікна
end// вивід результатів тестаrepeat
readln (f, s);: = k +1; k of
, 4,6,8: begin j: = j +1; st [j]: = s; end;
, 5,7,9: begin: = i +1; bal [i]: = StrToInt (s);
end;; eof (f) ;//поки не буде досягнутий кінець файлу
label1.Caption: = 'Ви набрали' + IntToStr (sum) + 'балів' + # 13 + # 13;
if sum
7. Створимо обробник OnClick для RadioGroup1:. Enabled: = true;// якщо відповідь обраний, то кнопка доступна: = sum + bal [RadioGroup1.ItemIndex +1];// підсумовування набраних балів
Вимоги до оформлення звіту по контрольному завданню № 1.
Звіт оформлюється на аркушах формату А4 зі стандартним титульним листом В«Контрольна роботаВ» і повинен містити такі пункти:
1. Постановка завдання.
2. Опис структури та призначення тестів (перелік питань із зазначенням правильних відповідей).
. Поетапне опис процесу створення програми з прикладами В«скрін-шотівВ» програми і фрагментів вихідного коду.
Додатком до звіту є дискета, що містить робочу версію програми.
Завдання № 2
Тема: Створення ігрових програм
Постановка завдання:
Створити відповідно до варіанту ігрову програму. Оцінка за контрольну роботу залежить від ступеня складності та художнього оформлення інтерфейсу користувача. Обов'язкова вимога - наявність довідкової системи, в якій описуються правила гри. p align="justify"> Варіанти контрольних завдань:
Варіант № 1 Гра
