Тестирующий комплекс по теме "Информационные технологии"
Автор работы: Пользователь скрыл имя, 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 ПРИЛОЖЕНИЕ
if RadioGroup8.ItemIndex=0
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+'Вариант №1'+#13#10+'Количество
баллов: '+inttostr(r)+' из 8');
memo1.Lines.SaveToFile(Edit2.Text+'_вариант_1'+'.txt');
//сохраняем результата в txt файл
Panel1.Visible:=false;
//скрываем панели с вопросами
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
end;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
if RadioGroup9.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup9.ItemIndex=0
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox10.Visible:=false;
GroupBox11.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
if RadioGroup10.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup10.ItemIndex=2
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox11.Visible:=false;
GroupBox12.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
if RadioGroup11.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup11.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox12.Visible:=false;
GroupBox13.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
if RadioGroup12.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup12.ItemIndex=1
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox13.Visible:=false;
GroupBox14.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
if RadioGroup13.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup13.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox14.Visible:=false;
GroupBox15.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
if RadioGroup14.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup14.ItemIndex=0
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox15.Visible:=false;
GroupBox16.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
if RadioGroup15.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup15.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox16.Visible:=false;
GroupBox17.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
if RadioGroup16.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup16.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+'Вариант №2'+#13#10+'Количество
баллов: '+inttostr(r)+' из 8');
memo1.Lines.SaveToFile(Edit2.Text+'_вариант_2'+'.txt');
//сохраняем результата в txt файл
Panel1.Visible:=false;
//скрываем панели с вопросами
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
end;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
if RadioGroup17.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup17.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox18.Visible:=false;
GroupBox19.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
if RadioGroup18.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup18.ItemIndex=2
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox19.Visible:=false;
GroupBox20.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
if RadioGroup19.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup19.ItemIndex=1
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox20.Visible:=false;
GroupBox21.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
if RadioGroup20.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup20.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox21.Visible:=false;
GroupBox22.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
if RadioGroup21.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup21.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox22.Visible:=false;
GroupBox23.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button22Click(Sender: TObject);
begin
if RadioGroup22.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup22.ItemIndex=1
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox23.Visible:=false;
GroupBox24.Visible:=true;
//переходим к следующему вопросу