Тестирующий комплекс по теме "Информационные технологии"
Автор работы: Пользователь скрыл имя, 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 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;
//скрываем панели с вопросами