Разработка автоматизированной системы тестирования

Автор работы: Пользователь скрыл имя, 27 Января 2013 в 09:50, курсовая работа

Описание

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

Содержание

Введение.
Глава 1. Теоретические основы понятия автоматизированная система тестирования.
Основные понятия, характеризующие автоматизированные системы тестирования.
Некоторые подходы к разработке автоматизированных систем тестирования.
Типы компьютерных тестов. Основные характеристики автоматизированных систем тестирования.
Инструментальные тестовые оболочки.
Глава 2. Разработка автоматизированной системы тестирования.
2.1. Постановка задачи.
2.2. Функциональная и логическая структура.
2.3. Алгоритм реализации проекта.
Вывод.
Заключение.
Список литературы.
Приложения.

Скачать (96.60 Кб) Сколько стоит заказать работу?

Работа состоит из 1 файл

теория полностью.doc

— 206.00 Кб (Скачать документ)

txt:=searchword(Memo1.Lines.Strings[num_str+1],2);

Memo3.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],3);

Memo4.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],4);

Memo5.Text:=txt;

end else

begin

ShowMessage('aaaa');

end;

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

Memo1.Clear;

Memo_que.Clear;

Memo1.Visible:=false;

Memo2.Enabled:=false;

Memo3.Enabled:=false;

Memo4.Enabled:=false;

Memo5.Enabled:=false;

If ((Edit1.Text='Ваша Фамилия') or (Edit1.Text='')) then begin_test.Enabled:=false

else begin_test.Enabled:=true;

end;

procedure clear_var();

var i:integer;

begin

count_que:=0;

count_false_ans:=0;

num_str:=0;

for i:=1 to 999 do

begin

txt_true_answer[i]:='';

txt_false_answer[i]:='';

true_answer[i]:=0;

answer[i]:=0;

mass[i]:='';

end;

procedure return_result();

var i:integer;

begin

count_false_ans:=0;

for i:=1 to count_que do

begin

if answer[i]<>true_answer[i] then

begin

count_false_ans:=count_false_ans+1;

mass[count_false_ans]:=('Вы ответели не верно на '+ inttostr(i) + ' вопрос. Верный ответ '+ txt_true_answer[i]);

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

If ((Edit1.Text='Ваша Фамилия') or (Edit1.Text='')) then begin_test.Enabled:=false

else begin_test.Enabled:=true;

if Length(Edit1.Text)>20 then

begin

MessageBox(Application.Handle,'Что то фамилия длиная','TEST', MB_OK);

Edit1.Text:='Ваша Фамилия';

end;

procedure TForm1.Memo2Click(Sender: TObject);

var

i:integer;

txt:string;

begin

answer[count_que]:=1;

num_str:=num_str+2;

if num_str>=(Memo1.Lines.Count) then

begin

return_result();

FormCreate(Sender);

// if count_false_ans>0then

begin

Memo_que.Text:=Edit1.Text+', Ваш результат';

for i:=1 to count_false_ans do

Memo_que.Lines.Add(mass[i]);

if (count_false_ans/count_que)<0.2 then Memo_que.Lines.Add('Вы ответили отлично')

else if (((count_false_ans/count_que)<0.4) and (0.2<(count_false_ans/count_que))) then Memo_que.Lines.Add('Вы ответили хорошо')

else if (count_false_ans/count_que)<0.4 then Memo_que.Lines.Add('Вы ответили удовлетворительно')

else Memo_que.Lines.Add('Вы ответили неудовлетворительно');

Memo_que.Lines.Add('Всего было вопросов '+ inttostr(count_que));

Memo_que.Lines.Add('Неверных ответов '+ inttostr(count_false_ans));

end;

clear_var();

Edit1.Text:='';

Edit1.Enabled:=true;

exit;

end;

count_que:=count_que+1;

Memo_que.Text:=inttostr(count_que)+')' + Memo1.Lines.Strings[num_str];

txt:=searchword(Memo1.Lines.Strings[num_str+1],1);

Memo2.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],2);

Memo3.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],3);

Memo4.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],4);

Memo5.Text:=txt;

end;

procedure TForm1.Memo3Click(Sender: TObject);

var

i:integer;

txt:string;

begin

answer[count_que]:=2;

num_str:=num_str+2;

if num_str>=(Memo1.Lines.Count) then

begin

return_result();

FormCreate(Sender);

// if count_false_ans>1then

begin

Memo_que.Text:=Edit1.Text+', Ваш результат';

for i:=1 to count_false_ans do

Memo_que.Lines.Add(mass[i]);

if (count_false_ans/count_que)<0.2 then Memo_que.Lines.Add('Вы ответили отлично')

else if (((count_false_ans/count_que)<0.4) and (0.2<(count_false_ans/count_que))) then Memo_que.Lines.Add('Вы ответили хорошо')

else if (count_false_ans/count_que)<0.4 then Memo_que.Lines.Add('Вы ответили удовлетворительно')

else Memo_que.Lines.Add('Вы ответили неудовлетворительно');

Memo_que.Lines.Add('Всего было вопросов '+ inttostr(count_que));

Memo_que.Lines.Add('Неверных ответов '+ inttostr(count_false_ans));

end;

clear_var();

Edit1.Text:='';

Edit1.Enabled:=true;

exit;

end;

count_que:=count_que+1;

Memo_que.Text:=inttostr(count_que)+')' + Memo1.Lines.Strings[num_str];

txt:=searchword(Memo1.Lines.Strings[num_str+1],1);

Memo2.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],2);

Memo3.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],3);

Memo4.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],4);

Memo5.Text:=txt;

end;

procedure TForm1.Memo4Click(Sender: TObject);

var

i:integer;

txt:string;

begin

answer[count_que]:=3;

num_str:=num_str+2;

if num_str>=(Memo1.Lines.Count) then

begin

return_result();

FormCreate(Sender);

// if count_false_ans>1then

begin

Memo_que.Text:=Edit1.Text+', Ваш результат';

for i:=1 to count_false_ans do

Memo_que.Lines.Add(mass[i]);

if (count_false_ans/count_que)<0.2 then Memo_que.Lines.Add('Вы ответили отлично')

else if (((count_false_ans/count_que)<0.4) and (0.2<(count_false_ans/count_que))) then Memo_que.Lines.Add('Вы ответили хорошо')

else if (count_false_ans/count_que)<0.4 then Memo_que.Lines.Add('Вы ответили удовлетворительно')

else Memo_que.Lines.Add('Вы ответили неудовлетворительно');

Memo_que.Lines.Add('Всего было вопросов '+ inttostr(count_que));

Memo_que.Lines.Add('Неверных ответов '+ inttostr(count_false_ans));

end;

clear_var();

Edit1.Text:='';

Edit1.Enabled:=true;

exit;

end;

count_que:=count_que+1;

Memo_que.Text:=inttostr(count_que)+')' + Memo1.Lines.Strings[num_str];

txt:=searchword(Memo1.Lines.Strings[num_str+1],1);

Memo2.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],2);

Memo3.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],3);

Memo4.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],4);

Memo5.Text:=txt;

end;

procedure TForm1.Memo5Click(Sender: TObject);

var

i:integer;

txt:string;

begin

answer[count_que]:=4;

num_str:=num_str+2;

if num_str>=(Memo1.Lines.Count) then

begin

return_result();

FormCreate(Sender);

// if count_false_ans>1then

begin

Memo_que.Text:=Edit1.Text+', Ваш результат';

for i:=1 to count_false_ans do

Memo_que.Lines.Add(mass[i]);

if (count_false_ans/count_que)<0.2 then Memo_que.Lines.Add('Вы ответили отлично')

else if (((count_false_ans/count_que)<0.4) and (0.2<(count_false_ans/count_que))) then Memo_que.Lines.Add('Вы ответили хорошо')

else if (count_false_ans/count_que)<0.4 then Memo_que.Lines.Add('Вы ответили удовлетворительно')

else Memo_que.Lines.Add('Вы ответили неудовлетворительно');

Memo_que.Lines.Add('Всего было вопросов '+ inttostr(count_que));

Memo_que.Lines.Add('Неверных ответов '+ inttostr(count_false_ans));

end;

clear_var();

Edit1.Text:='';

Edit1.Enabled:=true;

exit;

end;

count_que:=count_que+1;

Memo_que.Text:=inttostr(count_que)+')' + Memo1.Lines.Strings[num_str];

txt:=searchword(Memo1.Lines.Strings[num_str+1],1);

Memo2.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],2);

Memo3.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],3);

Memo4.Text:=txt;

txt:=searchword(Memo1.Lines.Strings[num_str+1],4);

Memo5.Text:=txt;

end;

end.

Информация о работе Разработка автоматизированной системы тестирования