Разработка тестирующего комплекса по теме "Технологии программирования"

Были проведены следующие тесты для проверки правильности работы приложения:

1) проверка правильности ввода личных данных в программу;

2) проверка выбора номера варианта и вывода соответствующих вопросов;

3) проверка соответствия вариантов ответов в каждом вопросе теста;

4) проверка правильности подсчета и вывода результата;

5) проверка правильности сохранения в файл.

На основании проведенных тестов делается вывод о корректности работы разработанного приложения.

2.4. Инструкции по работе с программой

Запуск программы производится путем открытия файла. При запуске программы запускается главное окно (рис. 1).

Рис. 1. Главное окно программы

После запуска программы в верхней части окна нужно выбрать вариант теста (первый уровень или повышенный). После этого появляется вопрос и 3 варианта ответа. Нужно выбрать вариант ответа, нажав мышью на него. Затем нужно нажать кнопку «Далее». После этого программа переходит к следующему вопросу. Аналогично нужно выбрать вариант ответа и так далее. После ответа на последний вопрос выведется  сообщение, что тест завершен и будет видно количество   правильных ответов (рис.2).

Рис. 2

Перед тестированием или после него можно ознакомиться с теоретическими основами по теме «Технология программирования», нажав кнопку «Справка» и далее переход по ссылке. Для выхода из программы тестирования достаточно нажать кнопку «Выход».

2.5. Анализ полученных результатов и выводы

Была разработана тестирующая программа по теме «Технология программирования», состоящая из 9 вопросов первого уровня и 10 вопросов повышенного уровня и на каждый вопрос по 3 варианта ответа.

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

Программа может применяться для контроля усвоения материала по дисциплине «Программирование».

Таким образом, разработанная тестирующая программа позволяет протестировать пользователя на знание основных понятий тиехнологии программирования. Эта программа содержит компоненты, позволяющие легко ответить на вопрос только одним нажатием клавиши мыши на нужном варианте. Все остальное, включая вывод вопросов и ответов и результатов тестирования, выполняет сама программа без участия тестируемого.

Заключение

В результате выполнения данной курсовой работы был разработан тестирующий комплекс по технологии программирования. Было проведено исследование компонентов программной среды Borland Delphi 7.0, которые использовались при создании данной программы, что позволило более эффективно их использовать.

В результате исследования были выявлены следующие достоинства у получаемого программного продукта и использования тестирующей программы:

1.            Программный продукт малотребователен к системным ресурсам компьютера. Минимальная конфигурация: процессор – не ниже Pentium, оперативная память – не ниже 16 Mb, операционная система – Windows 95 / 98/ Me / NT / 2000 / XP;

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

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

4.            Разработанная  программа легка в изучении, и дает достаточно необходимых знаний для создания тестирующих программ.

Кроме достоинств были выявлены следующие недостатки полученной программы:

1.            Невозможность вернуться к предыдущему вопросу тестирующей программы;

2.            Жесткая привязка к линейке операционных систем Windows.

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

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

Список используемой литературы

1.      Дарахвелидзе П.Г., Марков Е.П. Delphi – среда визуального программирования. –СПб.:BHV-Санкт-Петербург, 1996. -352с.

2.      Епанешников А., Епанешников В. Программирование в среде Delphi 2.0. Учебное пособие. В 4-х частях. Ч.1. Описание среды. –М.:ДИАЛОГ-МИФИ, 1997. -235с.

3.      Епанешников А., Епанешников В. Программирование в среде Delphi 2.0. Учебное пособие. В 4-х частях. Ч.2. Язык Object Pascal 9.0. –М.:ДИАЛОГ-МИФИ, 1997. -319с.

4.      Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. –М.:Нолидж, 1997. -616с.

5.      Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. Учебное пособие. –М.:Нолидж, 1997. -432с.

6.      Фаронов В.В. Delphi 4. Учебный курс. –М.: Нолидж, 1999. -447с.

7.      Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня: Учебник для ВУЗов

8.      Епанешников А. Программирование в среде Turbo-Pascal 7.0 / А. Епанешников, В. Епанешников. – М.: Диалог-МИФИ, 1993;

9.      Брукшир Дж. Гленн. Введение в компьютерные науки. – М.: Вильямс, 2001;

10. Вирт Н. Алгоритмы и структуры данных. – М.: Мир, 2005.

11. Т. Пратт, М. Зелковиц. – СПб.: Питер, 2002;

12. Архангельский А. Я. Программирование в Delphi 7. – М.: Бином, 2005;

13. Самуйлов С. В. Разработка программ в среде Турбо-Паскаля 7.0. Лабораторный практикум. – Пенза, 1996;

14. Марченко А. И. Программирование в среде Turbo Pascal 7.0 / Т. 1. – М.: Мир, 2007;

15. А.Ф. Верлань, Н.В. Апатова "Информатика 10-11кл.", Киев 2001

16. Коффман Э., серия: "Руководство разработчика.", Изд.: Диалектика: Киев, 2002 г.,

17. Кассера Винфрид и Фолькер "Turbo Pascal 7.0" 2003 г., Изд.: ДиаСофт;

18. http://www-2net.spbstu.ru/CD_ED/method-rec/ . Особенности разработки учебных материалов. Статья. 2001.

ПРИЛОЖЕНИЕ

Исходный код программы

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    Button1: TButton;

    AnswerGroup: TRadioGroup;

    GroupBox1: TGroupBox;

    Question: TLabel;

    TestBox: TComboBox;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure LoadQuestion(Index: integer);

    procedure FormCreate(Sender: TObject);

    procedure LoadTest(Index: integer);

    procedure TestBoxCloseUp(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

  public

  end;

const

  TestName='Test_';

  max=1000;

var

  Form1: TForm1;

  QuestionText: array [0..max] of string;

  AnswerQuestion: array [0..max] of byte;

  QuestionText1: array [0..max] of string;

  QuestionText2: array [0..max] of string;

QuestionText3: array [0..max] of string;

  Ball: integer=0;                     

  now: integer=0;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  if AnswerQuestion[now]=AnswerGroup.ItemIndex+1 then 

  inc(ball);

  AnswerGroup.ItemIndex:=-1; 

  inc(now);                  

  LoadQuestion(now); 

end;

procedure TForm1.LoadQuestion(Index: integer);

begin

if QuestionText[Index]<>'' then

  begin

  AnswerGroup.Items.Clear;

  Question.Caption:=QuestionText[Index];

  AnswerGroup.Items.Add(QuestionText1[index]);

  AnswerGroup.Items.Add(QuestionText2[index]);

  AnswerGroup.Items.Add(QuestionText3[index]);

  end

  else // иначе сообщаем что тест завершен

  begin

  showmessage('Тест завершен'+#13+'Правильных ответов: '+inttostr(ball));

  button1.Enabled:=false;

  button2.Enabled:=true;

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  s: Tstrings;

  i: Integer;

begin

  i:=0;

  while FileExists(ExtractFilePath(application.ExeName)+TestName+inttostr(i)+'.txt') do 

  begin

  application.ProcessMessages;

  s:=tstringlist.Create;       

  s.LoadFromFile(ExtractFilePath(application.ExeName)+TestName+inttostr(i)+'.txt');

    if s.Text<>'' then

    TestBox.Items.Add(s.Strings[0]);

  s.Free; 

  inc(i); 

  end;

end;

procedure TForm1.LoadTest(Index: integer);

var

  s: Tstrings;

  j, h: Integer;

begin

  h:=0;

  s:=tstringlist.Create;   s.LoadFromFile(ExtractFilePath(application.ExeName)+TestName+inttostr(Index)+'.txt');

    if s.Text<>'' then

    begin

    form1.Caption:=s.Strings[0];

      for j := 1 to s.Count - 1 do

      begin

        if s.Strings[j]='__________' then 

        begin

        QuestionText[h]:=s.Strings[j+1];

        QuestionText1[h]:=s.Strings[j+2];

        QuestionText2[h]:=s.Strings[j+3];

        QuestionText3[h]:=s.Strings[j+4];

        AnswerQuestion[h]:=strtoint(s.Strings[j+5]);

        inc(h);

        end

      end;

    end;

  s.Free;

  LoadQuestion(now);

end;

procedure TForm1.TestBoxCloseUp(Sender: TObject);

begin

  ball:=0;

  now:=0;

  button1.Enabled:=true;

  button2.Enabled:=false;

  LoadTest(TestBox.ItemIndex);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.