Файл: Способы представления данных в информационных системах.pdf

3.5 Тестирование программы

В своей работе программа использует базу вопросов и ответов. В данном проекте база данных с вопросами и ответами храниться в текстовом файле Programm.TXT. Программа должна найти указанный файл. Для этого в параметре командной строки необходимо указать имя выше обозначенного файла (см. рисунок 4).

Рисунок 4 – Настройка программы

После запуска исполняемого файла перед пользователем откроется главное окно программы, представленное на рисунке 5.

Рисунок 5 – Главное окно программы

Главное окно программы содержит меню, которое включает в себя три пункта:

1. Тестирование;

2. Тренировочный режим;

3. Выход.

Первый режим предполагает запуск традиционной процедуры тестирование – в окне выводятся вопросы и варианты ответа на тестирование (см. рисунок 6).

Следующий режим – тренировочный (см. рисунок 7, 8). Для запуска тестирования в тренировочном режиме программа потребует ввод пароля. При выборе любого из доступных вариантов тестирования, другой режим становится недоступным.

На рисунке 9 скриншот окна с результатами тестирования.

Рисунок 6 – Тестирование в обычном режиме

Рисунок 7 – Тестирование в тренировочном режиме, ввод пароля

Рисунок 8 - Тестирование в тренировочном режиме

Рисунок 9 – Результаты тестирования

Рисунок 10 – Сведения о программе

Заключение

По условию задачи было расмотреть способы представления данных в информационных системах, как теоритические и практическое применение (разработать ИС). Программа подразумевает выбор правильного варианта ответа из представленных посредствам переключателя. Каждый правильный ответ приносит пользователю один балл. По окончанию тестирования, когда пользователь ответит на все вопросы, программа подсчитывает количество баллов и отображает результат тестирования с оценкой. В программе предусмотрен вариант пробного тестирования, где правильные варианты ответа выделены другим цветом. Доступ к пробному тестированию предоставляется по паролю. Вопросы и варианты ответа к тесту хранятся в отдельном текстовом файле.

Курсовая работа состоит из трех глав. В первой главе теоритические моменты по теме КР и во второй главе описание практическе применение, а также осуществлялась разработка эскизного и технического проектов программы. Для этого были произведены следующие действия: изучены назначение и область применения программы, изучены технические характеристики и постановка задачи; описан алгоритм работы создаваемой программы; описана организация входных и выходных данных; сделан и обоснован выбор состава технических и программных средств.

Во третьей главе курсовой работу осуществлялась непосредственно разработка приложения. Для этого были произведены следующие действия: сделано описание программы; описан процесс разработки приложения; дана спецификация программы; произведено тестирование программы.

Созданная программа представляет собой программу для тестирования, которая предназначена для использования в сфере образования.

Интерфейс программы представляет собой главное окно программы, в котором содержится строка меню. При выборе режима тестирования перед пользователям появляются переключатели и варианты ответа, а также кнопка для перехода к следующему вопросу/окончание тестирования.

Разработка программы осуществлялась в среде визуального программирования Delphi, которое отличается относительной простотой и богатым функционалом приобретая с каждым годом все больше и больше поклонников.

В процессе создания курсовой работы все поставленные цели были достигнуты, все поставленные задачи выполнены.

Список использованных источников

1. Афонин В.Л., Моделирование систем: учебно-практическое пособие [Текст] / В.Л. Афонин - М.: Интернет-Университет Информационных Технологий (ИНТУИТ), 2016. – 232 с.
2. Баженова И.Ю., Основы проектирования приложений баз данных [Текст] / И.Ю. Баженова - М.: Интернет-Университет Информационных Технологий (ИНТУИТ), 2016. – 261 с.
3. Голицына О.Л., Базы данных. Учебное пособие. Гриф УМО вузов России [Текст] / О.Л. Голицына - М.: Форум, 2014. – 400 с.
4. Голицына О.Л., Основы проектирования баз данных. [Текст]: Учебное пособие / О.Л. Голицына - М.: Форум, 2016. – 416 с.
5. Дадян Э.Г., Методы, модели, средства хранения и обработки данных [Текст] / Э.Г. Дадян - М.: Инфра-М, 2017. – 268 с.
6. Джесси Р., Проектирование баз данных [Текст] / Р. Джесси - М.: VSD, 2013. – 100 с.
7. Долганова О.В., Моделирование бизнес-процессов. Учебник и практикум для академического бакалавриата [Текст] / О.В. Долганова - М.: Издательство: Юрайт, 2016. – 289 с.
8. Иванова Г.С., Объектно-ориентированное программирование [Текст] / Г.С. Иванова - М.: Московский Государственный Технический Университет (МГТУ) имени Н.Э. Баумана, 2014. – 456 с.
9. Илюшечкин В.М., Основы использования и проектирования баз данных. Учебник для СПО [Текст] / В.М. Илюшечкин - М.: Юрайт, 2016. – 213 с.
10. Информатика для гуманитариев: учебник и практикум для академического бакалавриата [Текст] / Г.Е. Кедрова [и др.]; под ред. Г.Е. Кедровой. - М.: Издательство Юрайт, 2016. - 439 с.
11. Казиев В.М., Введение в анализ, синтез и моделирование систем. Учебное пособие [Текст] / В.М. Казиев - М.: Интернет-Университет Информационных Технологий (ИНТУИТ), 2014. – 244 с.
12. Кириллов В.В., Введение в реляционные базы данных. Учебник (+ CD-ROM) [Текст] / В.В. Кириллов - М.: БХВ-Петербург, 2017. – 464 с.
13. Козлов В., Системный анализ, оптимизация и принятие решений. Учебное пособие [Текст] / В. Козлов - М.: Проспект, 2016. – 76 с.
14. Кумскова И.А., Базы данных. Учебник. Гриф МО РФ [Текст] / И.А. Кумскова - М.: КноРус, 2016. – 400 с.
15. Мовчан Д.А., InterBase и Delphi. Клиент-серверные базы данных [Текст] / Д.А. Мовчан - М.: ДМК-Пресс, 2015 г. – 536 с.
16. Назаров С.В., Архитектура и проектирование программных систем [Текст] / С.В. Назаров - М.: Инфра-М, 2016. – 376 с.
17. Новиков Б.В., Настройка приложений баз данных. Гриф УМО МО РФ [Текст] / Б.В. Новиков - М.: БХВ-Петербург, 2012.
18. Озерова М.Е., Программирования в среде Delphi [Текст] / М.Е. Озерова - М.: Нобель Пресс, 2014. – 110 с.
19. Туманов В., Основы проектирования реляционных баз данных [Текст] / В. Туманов - М.: Интернет-Университет Информационных Технологий (ИНТУИТ), 2014. – 420 с.

Приложение А

Фрагмент программного кода

unit test01;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Flag: Boolean=false;

implementation

{$R *.dfm}

var

f: TextFile;

nq: integer;

right: integer;

level: array[1..4] of integer;

mes: array[1..4] of string;

buf: string;

function NextQw : boolean;

begin

if flag=true then

begin

Form1.Label2.font.color:=clblack;

Form1.Label3.font.color:=clblack;

Form1.Label4.font.color:=clblack;

end;

if not EOF(f) then

begin

Readln(f,buf);

Form1.Label1.Caption := buf;

Readln(f,buf);

Form1.Label2.Caption := buf;

Readln(f,buf);

Form1.RadioButton1.Tag := StrToInt(buf);

if (Form1.RadioButton1.Tag=1) and (flag=true) then

Form1.Label2.font.color:=clred;

Readln(f,buf);

Form1.Label3.Caption := buf;

Readln(f,buf);

Form1.RadioButton2.Tag := StrToInt(buf);

if (Form1.RadioButton2.Tag=1) and (flag=true) then

Form1.Label3.font.color:=clred;

Readln(f,buf);

Form1.Label4.Caption := buf;

Readln(f,buf);

Form1.RadioButton3.Tag := StrToInt(buf);

if (Form1.RadioButton3.Tag=1) and (flag=true) then

Form1.Label4.font.color:=clred;

nq:= nq + 1;

Form1.Button1.Enabled := False;

Form1.RadioButton1.Checked := False;

Form1.RadioButton2.Checked := False;

Form1.RadioButton3.Checked := False;

NextQw := TRUE;

end

else NextQw := FALSE;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

buf: string;

i: integer;

begin

if Button1.Caption = 'Завершить' then Close;

if RadioButton1.Checked then

right := right + RadioButton1.Tag;

if RadioButton2.Checked then

right := right + RadioButton2.Tag;

if RadioButton3.Checked then

right := right + RadioButton3.Tag;

if not NextQW then

begin

Button1.Caption := 'Завершить';

RadioButton1.Visible := False;

RadioButton2.Visible := False;

RadioButton3.Visible := False;

Label2.Visible := False;

Label3.Visible := False;

Label4.Visible := False;

buf := 'Тестирование завершено.' + #13 +

'Правильных ответов: ' + IntToStr(right) +

' из ' + IntToStr(nq) + '.' + #13;

i:=1;

while (right < level[i]) and (i < 4) do

inc(i);

buf := buf + mes[i];

Label1.AutoSize := TRUE;

Label1.Caption := buf;

end;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Button1.Enabled := True;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Button1.Enabled := True;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Button1.Enabled := True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N1Click(Sender: TObject);

var

i: integer;

fname : string;

begin

{ Если программа запускается из Delphi,

то имя файла теста надо ввести в

поле Parameters диалогового окна

Run Parameters, которое становится

доступным в результате выбора в меню

Run команды Parameters.}

N1.Enabled:=false;

N2.Enabled:=false;

Label1.Visible:=true;

Label2.Visible:=true;

Label3.Visible:=true;

Label4.Visible:=true;

RadioButton1.Visible:=true;

RadioButton2.Visible:=true;

RadioButton3.Visible:=true;

Button1.Visible:=true;

fname := ParamStr(1); // взять имя файла теста

if fname = '' then

begin

ShowMessage('В командной строке запуска программы' +#13+

'надо указать имя файла теста.');

Application.Terminate; // завершить программу

end;

AssignFile(f,fname);

try

Reset(f); // эта инструкция может вызвать ошибку

except

on EInOutError do

begin

ShowMessage('Ошибка обращения к файлу теста: ' + fname);

Application.Terminate; // завершить программу

end;

end;

Readln(f,buf);

Form1.Caption := buf;

for i:=1 to 4 do

begin

Readln(f,buf);

mes[i] := buf;

Readln(f,buf);

level[i] := StrToInt(buf);

end;

right := 0;

nq := 0;

NextQW;

end;

procedure TForm1.N2Click(Sender: TObject);

var

MyPwd: string;

begin

MyPwd:=InputBox('Тест студент', 'Введите пароль','');

if MyPwd='123' then

begin

flag:=true;

N1Click(self);

end

else

showmessage('Вы ввели не правильный пароль!');

end;

end.