Контролююча програма-тест в Delphi Пори року (стр. 2 из 2)

Зберігаємо та компілюємо проект.

III. Написання кодів

1. Для того, щоб написати код, потрібно два раза клацнути на потрібний компонент або переключитися на Unit.

2. Натискаємо на вихід та пишемо ( де стоїть курсор) close;

3. Створюємо форму для довідки. Fail ----- New ----- Form

4. Змінюємо назву її в довідка. На формі надрукуємо інструкцію через елемент Label, також вставляємо картинку.

5. Повернемось на форму – Тест Пори року, клацнемо по довідці та вставимо.

Добавлюємо в usesUnit2.

Не забуваємо зберігати та компілювати.

6. Результат.

Вводимо лічильник: Ball

Перемінна величина: integer

Записуємо це після varв код.

7. Кликнем по результату.

Записуємо код.

Пояснення:

Ми рахуємо бали.

Ball:=Ball+1;

Де стоїть ItemIndex=3, це значить, що правильна відповідь 4, рахунок йде з 0.

Не забуваємо зберігати та компілювати.

Ось тепер і все!

Запускаємо програму та любуємося результатами.

IV. Алгоритм реалізації роботи

Алгоритм реалізації навчальної програми «Тест «Пори року»

Запуск програми «Тест «Пори року» здійснюється таким чином: необхідно відкрити папку, що містить дану програму, і знайти виконуваний файл Тест пори року.exe. На цьому файлі слід виконати подвійне клацання лівою клавішею маніпулятора миша.

Проект програми складається з файлу проекту, що містить необхідні конструкції для виконання (малюнок 1).

Малюнок 1

Вся наступна інформація по роботі з програмою міститься в довідці

Файл -Довідка (малюнок 2)

Малюнок 2

Висновки

В результаті проведення дослідницької роботи була отримана контролююча програма, названа « Тест «Пори року » яка зайняла на обласному заочному конкурсі на кращу програму для ПЕОМ в 2008р. ІІІ місце ( І та ІІ місця присудено не було).

Нами було проведено дослідження компонентів програмного середовища BorlandDelhi 7.0, які використовувались при створенні програми.

В результаті дослідження було виявлено наступні недоліки отриманого програмного продукту:

1. Програму не можна редагувати, вносити зміни.

2. Враховуються тільки правильні відповіді, тобто учень не може взнати, де він допустив помилку в тестуванні.

Однак, крім недоліків програми є і переваги в цього програмного продукту.

1. Програма цікава тим, що до кожного запитання можна вставити малюнок, який служить підказкою для учня.

2. Програмний продукт потребує мінімум системних ресурсів копютера. Мінімальна конфігурація:

- PSDOS. DRDOS версія 3.0 або старше,

- EGA / (S) VGA монітор,

- близько 6400 Kb памяті,

- процесолр і 8086. / 88 або вище.

Список використаних джерел

1.Джефф Дантеманн «Программирование в среде Delphi», К., 1995. -

608с.

2.Джон Матчо, Девід Фолкнер «Delphi», М., 1995. – 464с.

3.Рей Конопка «Создание оригинальных компонент в среде Delphi», К.,

1996. – 512с.

4.Том Сван «Основы программирования в Delphi для », К., 1996. – 480с.

5.Иллюстрировонный самоучитель по Delphi 7 для начинающих.

6. Сайти інтернету:

www. Polep Builder. sbn. dz

http: // delphix. biz/

http: // delphi 4 all. narod. Ru/

http: // www. Delphi sources.

www. prizrak. ws

http:// delphi land. net

http:// programmersforum. ru

Додаток 1

Текст програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

Label1: TLabel;

RadioGroup1: TRadioGroup;

Image1: TImage;

Label2: TLabel;

RadioGroup2: TRadioGroup;

Image2: TImage;

Label3: TLabel;

RadioGroup3: TRadioGroup;

Image3: TImage;

Label4: TLabel;

RadioGroup4: TRadioGroup;

Image4: TImage;

Label5: TLabel;

RadioGroup5: TRadioGroup;

Image5: TImage;

Label6: TLabel;

RadioGroup6: TRadioGroup;

Image6: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Ball: integer;

implementation

Uses

Unit2;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Ball:=0;

if RadioGroup1.ItemIndex=-1