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

Сравнивая тестирование с прочими методами можно выделить следующие его особенности:

· оперативность получения оценки (например, по сравнению с письменным опросом);

· возможность чаще проводить контроль знаний (при наличии готового тестового материала);

· наличие моментальной обратной связи (просмотр тестируемым своих ошибок и правильных ответов), что привносит в процесс оценки знаний обучающий компонент;

· объективность оценки, то есть её независимость от симпатий и антипатий оценивающего лица;

· массовость (то есть тестовое задание может быть разработано однажды и использовано многократно);

· в общем случае, приблизительность оценки (например, по сравнению с грамотно проведённым собеседованием или опросом).

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

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

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

В данном курсовом проекте рассмотрен программный продукт “Тестирующая программа для контроля знаний обучающегося”. Он представляет собой вопросник из 2 вариантов по 5 вопросов с четырьмя вариантами ответов, определяющий уровень знаний обучающегося по предмету «Информатика».

Для разработки программы использовалась среда программирования Borland Delphi 7.0 под управлением Windows 7. Данная среда программирования позволяет создавать программы, состоящие из неограниченного количества модулей, поддерживает все современные технологии в области программирования, отвечает принципам объектно-ориентированного программирования. Создание программ в среде операционной системы Windows 7 обеспечивает удобный пользовательский интерфейс, совместимость практически со всеми видами периферийных устройств, обмен данными между различными приложениями операционной системы.

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

В соответствии с целью работы были поставлены и решены следующие основные задачи:

1. Обследование и разработка технического задания

2. Построение блок-схемы программы

3. Разработка программы.

4. Тестирование и устранение ошибок.

Информационной базой исследования является учебная литература по дисциплине «Программирование на языках высокого уровня», методическое пособие по написание курсовых работ по дисциплине “Программирование на языке высокого уровня”.

программирование delphi программа

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

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

Итак, процесс разработки программы для тестирования происходит описанным ниже образом:

1. Составление алгоритма программы (блок-схема);

2. Анализ исходных данных;

3. Выбор компонентов, которые будут использоваться для реализации программы;

4. Разработка интерфейса программы;

5. Программирование процедур и событий для компонентов программы

6. Отладка программного проекта и устранение ошибок и недочетов.

Таким образом, для решения задачи требуются следующие исходные (входные) данные: фамилия, имя студента (для сохранения результата в файл и вывода на экран), номер варианта; результат решения (выходные данные)- результат прохождения теста, время начала тестирования, время завершения теста.

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

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

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

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

2. Исходные данные, искомые результаты и форма их представления

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

Memo1: TMemo;

XPManifest1: TXPManifest;

StatusBar1: TStatusBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N7: TMenuItem;

Image1: TImage;

Panel1: TPanel;

N9: TMenuItem;

Timer_sys: TTimer;

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

Label1: TLabel;

ConfirmBut: TButton;

PcAnswer1: TPageControl;

PcAnswer2: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

TabSheet10: TTabSheet;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

Conf_v1: TSpeedButton;

Conf_v4: TSpeedButton;

Conf_v5: TSpeedButton;

Conf_v2: TSpeedButton;

Conf_v3: TSpeedButton;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label4: TLabel;

SaveDialog1: TSaveDialog;

Conf_v1Click2: TSpeedButton;

Conf_v2Click2: TSpeedButton;

Conf_v3Click2: TSpeedButton;

Conf_v4Click2: TSpeedButton;

Conf_v5Click2: TSpeedButton;

SaveGB: TButton;

procedure N9Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer_sysTimer(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure ConfirmButClick(Sender: TObject);

procedure Conf_v1Click(Sender: TObject);

procedure Conf_v2Click(Sender: TObject);

procedure Conf_v3Click(Sender: TObject);

procedure Conf_v4Click(Sender: TObject);

procedure Conf_v5Click(Sender: TObject);

procedure SaveGBClick(Sender: TObject);

procedure Conf_v1Click2Click(Sender: TObject);

procedure Conf_v2Click2Click(Sender: TObject);

procedure Conf_v3Click2Click(Sender: TObject);

procedure Conf_v4Click2Click(Sender: TObject);

procedure Conf_v5Click2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

rez:integer; //переменная для хранения результата тестирования

timena4, timekon:string; // переменные для хранения времени начала и конца тестирования

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm1.N9Click(Sender: TObject);

begin

Form3.Show; //показывает окно "О программе"

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Application.Terminate; //закрывает приложение при нажатии на кнопку "выход"

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[1].Text:='Тест не выбран'; //отображение в строке статуса режима

end;

procedure TForm1.Timer_sysTimer(Sender: TObject);

begin

StatusBar1.Panels[2].Text:=datetostr(now); //отображает дату и время в статусной строке

StatusBar1.Panels[3].Text:=timetostr(now);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

timena4:=''; //время начала теста обнуляется

timekon:=''; //время конца теста обнуляется

GroupBox1.Visible:=true; //показ панели для ввода данных

PcAnswer1.Visible:=false; //скрываем панели с вопросами

PcAnswer2.Visible:=false;

Memo1.Lines.Clear; //очищаем окно для отображения информации

end;

procedure TForm1.ConfirmButClick(Sender: TObject);

begin

if (Edit1.Text='') or (edit2.Text='') then ShowMessage('Заполните все поля!')

else //проверка все ли поля с данными заполнены

begin

timena4:=timetostr(now); //в переменную записывается время начала теста

Memo1.Lines.Add('*************************************'+#13#10+'Удачного тестирования,'+Edit1.Text+#13#10+'*************************************');

StatusBar1.Panels[5].text:=edit1.Text+' '+Edit2.Text;

Panel1.Enabled:=true;

Panel1.Visible:=true;

if ComboBox1.Text='Вариант №1' then //если выбран 1 вариант, то

begin

GroupBox1.Visible:=false; //скрываем панель для ввода данных

Memo1.Lines.Add('Вариант №1'); //выводим в информационное окно вариант

StatusBar1.Panels[1].Text:='Вариант №1'; //и в строку состояния

PcAnswer1.Visible:=true; //активируем окно с 1 вариантом

PcAnswer1.ActivePage:=TabSheet6; //переходим к первому вопросу

end

else

if ComboBox1.Text='Вариант №2' then //если выбран 2 вариант

begin

GroupBox1.Visible:=false; //скрываем панель для ввода данных

Memo1.Lines.Add('Вариант №2'); //выводим в информационное окно вариант

StatusBar1.Panels[1].Text:='Вариант №2'; //и в строку состояния

PcAnswer2.Visible:=true; //активируем окно со 2 вариантом

PcAnswer2.ActivePage:=TabSheet1; //переходим к первому вопросу

end

else //если вариант не выбран,

ShowMessage('Вариант не выбран!'); //выводим сообщение

end;

end;

procedure TForm1.Conf_v1Click(Sender: TObject);

begin

if RadioGroup6.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup6.ItemIndex=1 then //если выбран правильный вариант ответа, то

begin

rez:=rez+1; //записываем в результат + 1 балл

TabSheet6.Enabled:=false; //отключаем возможность изменения ответа

PcAnswer1.ActivePage:= TabSheet7; //переходим к следующему вопросу

end

else //при неверном ответе, также переходим к следующему вопросу, без балла

TabSheet6.Enabled:=false;

TabSheet7.Enabled:=true;

PcAnswer1.ActivePage:= TabSheet7;

end;

end;

procedure TForm1.Conf_v2Click(Sender: TObject);

begin

if RadioGroup7.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup7.ItemIndex=0 then

begin

rez:=rez+1;

TabSheet7.Enabled:=false;

PcAnswer1.ActivePage:= TabSheet8;

end

else

TabSheet7.Enabled:=false;

TabSheet8.Enabled:=true;

PcAnswer1.ActivePage:= TabSheet8;

end;

end;

procedure TForm1.Conf_v3Click(Sender: TObject);

begin

if RadioGroup8.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup8.ItemIndex=2 then

begin

rez:=rez+1;

TabSheet8.Enabled:=false;

PcAnswer1.ActivePage:= TabSheet9;

end

else

TabSheet8.Enabled:=false;

TabSheet9.Enabled:=true;

PcAnswer1.ActivePage:= TabSheet9;

end;

end;

procedure TForm1.Conf_v4Click(Sender: TObject);

begin

if RadioGroup9.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup9.ItemIndex=2 then

begin

rez:=rez+1;

TabSheet9.Enabled:=false;

PcAnswer1.ActivePage:= TabSheet10;

end

else

TabSheet9.Enabled:=false;

TabSheet10.Enabled:=true;

PcAnswer1.ActivePage:= TabSheet10;

end;

end;

procedure TForm1.Conf_v5Click(Sender: TObject);

begin

if RadioGroup10.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup10.ItemIndex=0 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet10.Enabled:=false;

Memo1.Lines.Clear; //очищаем информационное окно

memo1.Font.Size:=10; //меняе шрифт в окне и записываем туда результат memo1.Lines.Add('*************************************'+#13#10+'Данные о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя: '+Edit1.Text+#13#10+'Вариант №1'+#13#10+'Количество баллов: '+inttostr(rez)+' из 5'+#13#10+'Время начала работы: '+timena4+#13#10+'Время конца работы: '+timekon+#13#10+'*************************************');

memo1.Lines.SaveToFile(Edit2.Text+'_вариант_1'+'.txt'); //сохраняем результата в txt файл

SaveGB.Visible:=true; //активируем кнопку для сохранения вручную

end

else

TabSheet10.Enabled:=false;

Memo1.Lines.Clear;

memo1.Font.Size:=10;

memo1.Lines.Add('*************************************'+#13#10+'Данные о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя: '+Edit1.Text+#13#10+'Вариант №1'+#13#10+'Количество баллов: '+inttostr(rez)+' из 5'+#13#10+'Время начала работы: '+timena4+#13#10+'Время конца работы: '+timekon+#13#10+'*************************************');

memo1.Lines.SaveToFile(Edit2.Text+'_вариант_1'+'.txt');

SaveGB.Visible:=true;

end;

end;

procedure TForm1.SaveGBClick(Sender: TObject);

begin

if savedialog1.Execute then //при сохранении вручную содержимое информационного

memo1.Lines.SaveToFile(Savedialog1.FileName); //окна сохраняется в текстовый файл

end;

procedure TForm1.Conf_v1Click2Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup1.ItemIndex=3 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet1.Enabled:=false;

TabSheet2.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet2;

end

else

TabSheet1.Enabled:=false;

TabSheet2.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet2;

end;

end;

procedure TForm1.Conf_v2Click2Click(Sender: TObject);

begin

if RadioGroup2.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup2.ItemIndex=2 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet2.Enabled:=false;

TabSheet3.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet3;

end

else

TabSheet2.Enabled:=false;

TabSheet3.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet3;

end;

end;

procedure TForm1.Conf_v3Click2Click(Sender: TObject);

begin

if RadioGroup3.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup3.ItemIndex=1 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet3.Enabled:=false;

TabSheet4.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet4;

end

else

TabSheet3.Enabled:=false;

TabSheet4.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet4;

end;

end;

procedure TForm1.Conf_v4Click2Click(Sender: TObject);

begin

if RadioGroup4.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup4.ItemIndex=1 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet4.Enabled:=false;

TabSheet5.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet5;

end

else

TabSheet4.Enabled:=false;

TabSheet5.Enabled:=true;

PcAnswer2.ActivePage:= TabSheet5;

end;

end;

procedure TForm1.Conf_v5Click2Click(Sender: TObject);

begin

if RadioGroup2.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')

else

begin

if RadioGroup5.ItemIndex=0 then

begin

timekon:=timetostr(now);

rez:=rez+1;

TabSheet5.Enabled:=false;

Memo1.Lines.Clear;

memo1.Font.Size:=10;

memo1.Lines.Add('*************************************'+#13#10+'Данные о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя: '+Edit1.Text+#13#10+'Вариант №2'+#13#10+'Количество баллов: '+inttostr(rez)+' из 5'+#13#10+'Время начала работы: '+timena4+#13#10+'Время конца работы: '+timekon+#13#10+'*************************************');

memo1.Lines.SaveToFile(Edit2.Text+'_вариант_2'+'.txt');

SaveGB.Visible:=true;

end

else

TabSheet5.Enabled:=false;

Memo1.Lines.Clear;

memo1.Font.Size:=10;

memo1.Lines.Add('*************************************'+#13#10+'Данные о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя: '+Edit1.Text+#13#10+'Вариант №2'+#13#10+'Количество баллов: '+inttostr(rez)+' из 5'+#13#10+'Время начала работы: '+timena4+#13#10+'Время конца работы: '+timekon+#13#10+'*************************************');

memo1.Lines.SaveToFile(Edit2.Text+'_вариант_2'+'.txt');

SaveGB.Visible:=true;

end;

end;

end.