Тестирующий комплекс по теме "Информационные технологии"
Автор работы: Пользователь скрыл имя, 02 Апреля 2012 в 13:20, курсовая работа
Описание
Цель данной курсовой работы: разработка тестирующего комплекса в среде Delphi.
В соответствии с целью работы были поставлены и решены следующие основные задачи:
1. Обследование и разработка технического задания
2. Построение блок-схемы программы
3. Разработка программы.
Содержание
ВВЕДЕНИЕ……………………………………………………………………3
ГЛАВА I. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
1.1 Что такое тест……………………………………………………………….5
1.2 Виды электронных тестов………………………………………………….8
1.3 Компоненты, используемые в программе…………………………………9
ГЛАВА II. РАЗРАБОТКА ТЕСТИРУЮЩЕГО КОМПЛЕКСА
2.1 Формализация задачи……………………………………………………….12
2.2 Исходные данные, искомые результаты и форма их представления….13
2.3 Алгоритм решения задачи и его описание………………………………14
2.4 Программа на алгоритмическом языке………………………………….15
2.5 План отладки программы…………………………………………………17
2.6 Инструкции по работе с программой……………………………………19
ЗАКЛЮЧЕНИЕ………………………………………………………………….21
СПИСОК ЛИТЕРАТУРЫ………………………………………………………22
ПРИЛОЖЕНИЕ
Работа состоит из 1 файл
тестирующий комплекс курсовая работа.docx
— 1,005.53 Кб (Скачать документ)procedure TForm1.Button23Click(Sender: TObject);
begin
if RadioGroup23.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup23.ItemIndex=3 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox24.Visible:=false;
GroupBox25.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button24Click(Sender: TObject);
begin
if RadioGroup24.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup24.ItemIndex=3 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
Memo1.Lines.Clear; //очищаем информационное окно
memo1.Font.Size:=12;
//меняе шрифт в окне и записываем
туда результат
memo1.Lines.Add(#13#10+'Данные
о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя:
'+Edit1.Text+#13#10+'Вариант №3'+#13#10+'Количество
баллов: '+inttostr(r)+' из 8');
memo1.Lines.SaveToFile(Edit2.Text+'_вариант_3'+'.txt');
//сохраняем результата в txt файл
Panel1.Visible:=false; //скрываем панели с вопросами
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
end;
end;
procedure TForm1.Button25Click(Sender: TObject);
begin
if RadioGroup25.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup25.ItemIndex=1 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox26.Visible:=false;
GroupBox27.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button26Click(Sender: TObject);
begin
if RadioGroup26.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup26.ItemIndex=2 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox27.Visible:=false;
GroupBox28.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button27Click(Sender: TObject);
begin
if RadioGroup27.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup27.ItemIndex=0 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox28.Visible:=false;
GroupBox29.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button28Click(Sender: TObject);
begin
if RadioGroup28.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup28.ItemIndex=3 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox29.Visible:=false;
GroupBox30.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button29Click(Sender: TObject);
begin
if RadioGroup29.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup29.ItemIndex=3 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox30.Visible:=false;
GroupBox31.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button30Click(Sender: TObject);
begin
if RadioGroup30.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup30.ItemIndex=0 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox31.Visible:=false;
GroupBox32.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button31Click(Sender: TObject);
begin
if RadioGroup31.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup31.ItemIndex=3 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
GroupBox32.Visible:=false;
GroupBox33.Visible:=true; //переходим к следующему вопросу
end;
end;
procedure TForm1.Button32Click(Sender: TObject);
begin
if RadioGroup32.ItemIndex=(-1) then ShowMessage('не выбран ни один из вариантов ответов')
else
begin
if RadioGroup32.ItemIndex=2 then //если выбран правильный вариант ответа, то
r:=r+1; //записываем в результат + 1 балл
Memo1.Lines.Clear; //очищаем информационное окно
memo1.Font.Size:=12;
//меняе шрифт в окне и записываем
туда результат
memo1.Lines.Add(#13#10+'Данные
о тестировании:'+#13#10+'Фамилия: '+Edit2.text+#13#10+'Имя:
'+Edit1.Text+#13#10+'Вариант №4'+#13#10+'Количество
баллов: '+inttostr(r)+' из 8');
memo1.Lines.SaveToFile(Edit2.Text+'_вариант_4'+'.txt');
//сохраняем результата в txt файл
Panel1.Visible:=false; //скрываем панели с вопросами
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
end;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label3: TLabel;
Label2: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
end.