Технико-экономические показатели
Поможем в ✍️ написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Предполагаемая потребность: ежедневно

Стадии и этапы разработки

Стадии разработки

Разработка должна быть проведена в шесть стадий:

1. Разработка технического задания;

2. Анализ требований;

3. Рабочее проектирование;

4. Программирование;

5. Тестирование;

6. Внедрение.

Порядок контроля и приемки

Сдача проводится на базе колледжа преподавателю информационных дисциплин Заливахе Анастасии Владимировне.

Календарный график выполнения работ проекта «Разработка прогарммного продукта для тестирования специалистов по защите информации».

Содержание работ График работ Отметка о выполнении Подпись руководителя
1.Постановка задачи 12.02.18  
2.Определение и уточнение требований к техническим средствам 13.02.18- 15.02.18  
3.Определение требований к программе 15.02.18– 18.02.18  
4.Определение входных и выходных данных 19.02.18– 22.02.18  
5.Разработка алгоритма решения задачи 23.02.18– 28.02.18  
6.Разработка структуры программы 01.03.18– 04.03.18  
7.Написание программного кода 05.03.18– 11.03.18  
8.Тестирование и отладка программы 12.03.18– 18.03.18  
9.Оформление документации по программе 19.03.18– 21.03.18  

ПРИЛОЖЕНИЕ – В ДОКУМЕНТИРОВАННЫЙ ЛИСТИНГ ПРОГРАММНЫХ МОДУЛЕЙ

unit Unit1;

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Menus, jpeg;

type

TForm1 = class(TForm)

pnl1: TPanel;

ScrollBox1: TScrollBox;

rg1: TRadioGroup;

rg2: TRadioGroup;

rg3: TRadioGroup;

rg4: TRadioGroup;

btn3: TButton;

rg5: TRadioGroup;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

rg6: TRadioGroup;

img2: TImage;

pnl2: TPanel;

lbl1: TLabel;

pnl4: TPanel;

img1: TImage;

pnl3: TPanel;

img3: TImage;

btn2: TButton;

btn1: TButton;

btn4: TButton;

btn5: TButton;

btn10: TButton;

btn11: TButton;

btn9: TButton;

btn8: TButton;

btn7: TButton;

btn6: TButton;

btn12: TButton;

btn13: TButton;

btn14: TButton;

btn15: TButton;

btn16: TButton;

ScrollBox2: TScrollBox;

ScrollBox3: TScrollBox;

ScrollBox4: TScrollBox;

lbl8: TLabel;

lbl9: TLabel;

lbl10: TLabel;

rg7: TRadioGroup;

rg8: TRadioGroup;

rg9: TRadioGroup;

rg10: TRadioGroup;

lbl11: TLabel;

lbl12: TLabel;

lbl13: TLabel;

lbl14: TLabel;

lbl15: TLabel;

rg11: TRadioGroup;

rg12: TRadioGroup;

rg13: TRadioGroup;

rg14: TRadioGroup;

rg15: TRadioGroup;

rg16: TRadioGroup;

rg17: TRadioGroup;

rg18: TRadioGroup;

rg19: TRadioGroup;

rg20: TRadioGroup;

lbl16: TLabel;

lbl17: TLabel;

lbl18: TLabel;

lbl19: TLabel;

lbl20: TLabel;

lbl21: TLabel;

lbl22: TLabel;

lbl23: TLabel;

lbl24: TLabel;

lbl25: TLabel;

lbl26: TLabel;

rg21: TRadioGroup;

rg22: TRadioGroup;

rg23: TRadioGroup;

lbl27: TLabel;

lbl28: TLabel;

lbl29: TLabel;

rg24: TRadioGroup;

rg25: TRadioGroup;

rg26: TRadioGroup;

lbl30: TLabel;

lbl31: TLabel;

lbl32: TLabel;

rg27: TRadioGroup;

rg28: TRadioGroup;

rg29: TRadioGroup;

lbl33: TLabel;

lbl34: TLabel;

lbl35: TLabel;

rg30: TRadioGroup;

lbl36: TLabel;

lbl37: TLabel;

lbl38: TLabel;

rg31: TRadioGroup;

lbl39: TLabel;

rg32: TRadioGroup;

rg33: TRadioGroup;

lbl41: TLabel;

rg34: TRadioGroup;

lbl40: TLabel;

lbl42: TLabel;

rg35: TRadioGroup;

rg36: TRadioGroup;

lbl43: TLabel;

lbl44: TLabel;

rg37: TRadioGroup;

rg38: TRadioGroup;

lbl45: TLabel;

lbl46: TLabel;

rg39: TRadioGroup;

rg40: TRadioGroup;

lbl47: TLabel;

lbl48: TLabel;

lbl49: TLabel;

lbl50: TLabel;

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure cbb1Change(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure btn7Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

procedure btn9Click(Sender: TObject);

procedure btn12Click(Sender: TObject);

procedure btn13Click(Sender: TObject);

procedure btn11Click(Sender: TObject);

procedure btn10Click(Sender: TObject);

procedure btn16Click(Sender: TObject);

procedure btn15Click(Sender: TObject);

procedure btn14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ball:integer;

const otv:array[1..40]of byte=(0,2,2,0,1,2,0,1,1,1,1,2,2,1,0,1,1,2,0,0,0,1,2,0,0,0,0,1,0,2,0,0,0,0,0,0,0,0,1,0);

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);

begin

Form1.Caption:=' Тестирование ';

btn4.Visible:=True;

btn5.Visible:=True;

btn1.Visible:=false;

btn11.Visible:=True;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

pnl2.Visible:=True;

lbl1.Visible:=True;

ball:=0;

 if rg1.ItemIndex=otv[1] then inc(ball);

 if rg2.ItemIndex=otv[2] then inc(ball);

 if rg3.ItemIndex=otv[3] then inc(ball);

 if rg4.ItemIndex=otv[4] then inc(ball);

 if rg5.ItemIndex=otv[5] then inc(ball);

 if rg6.ItemIndex=otv[6] then inc(ball);

 if rg7.ItemIndex=otv[7] then inc(ball);

 if rg8.ItemIndex=otv[8] then inc(ball);

 if rg9.ItemIndex=otv[9] then inc(ball);

 if rg10.ItemIndex=otv[10] then inc(ball);

lbl1.caption:='Правильных ответов '+IntToStr(ball)+'/10';

end;

procedure TForm1.cbb1Change(Sender: TObject);

var

i:Integer;

begin

case 1 of

0:ScrollBox1.Visible:=True;

end;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

Form1.Caption:=' Выбор теста ';

btn5.Visible:=False;

pnl3.Visible:=True;

btn10.Visible:=True;

btn11.Visible:=True;

pnl3.top:=80;

end;

procedure TForm1.btn5Click(Sender: TObject);

var

ans :integer;

begin

btn11.Visible:=True;

randomize;

ans:=random(5);

case ans of

0: btn6.Click;

1: btn7.Click;

2: btn8.Click;

3: btn9.Click;

end;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

Form3.Show;

btn11.Visible:=True;

end;

procedure TForm1.btn6Click(Sender: TObject);

begin

Form1.Caption:=' Тест №1';

ScrollBox1.Visible:=True;

ScrollBox2.Visible:=False;

ScrollBox3.Visible:=False;

ScrollBox4.Visible:=False;

btn3.Visible:=True;

btn14.Visible:=False;

btn15.Visible:=False;

btn16.Visible:=False;

lbl1.Visible:=True;

lbl10.Visible:=False;

lbl9.Visible:=False;

lbl8.Visible:=False;

pnl2.Visible:=True;

btn3.Top:=272;

btn3.Left:=824;

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

Form1.Caption:=' Тест №2';

ScrollBox1.Visible:=False;

ScrollBox2.Visible:=True;

ScrollBox3.Visible:=False;

ScrollBox4.Visible:=False;

btn3.Visible:=False;

btn14.Visible:=False;

btn15.Visible:=False;

btn16.Visible:=True;

pnl2.Visible:=True;

lbl1.Visible:=False;

lbl10.Visible:=True;

lbl9.Visible:=False;

lbl8.Visible:=False;

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

Form1.Caption:=' Тест №3';

ScrollBox1.Visible:=False;

ScrollBox2.Visible:=False;

ScrollBox3.Visible:=True;

ScrollBox4.Visible:=False;

btn3.Visible:=False;

btn16.Visible:=False;

btn15.Visible:=False;

btn14.Visible:=True;

pnl2.Visible:=True;

lbl1.Visible:=False;

lbl10.Visible:=False;

lbl9.Visible:=False;

lbl8.Visible:=True;

btn14.Top:=272;

btn14.Left:=824;

end;

procedure TForm1.btn9Click(Sender: TObject);

begin

Form1.Caption:=' Тест №4';

ScrollBox1.Visible:=False;

ScrollBox2.Visible:=False;

ScrollBox3.Visible:=False;

ScrollBox4.Visible:=True;

btn3.Visible:=False;

btn16.Visible:=False;

btn14.Visible:=False;

btn15.Visible:=True;

pnl2.Visible:=True;

lbl1.Visible:=False;

lbl10.Visible:=False;

lbl9.Visible:=True;

lbl8.Visible:=False;

btn15.Top:=272;

btn15.Left:=824;

end;

procedure TForm1.btn12Click(Sender: TObject);

begin

btn12.Visible:=False;

pnl4.Visible:=False;

btn13.Visible:=True;

img2.Width:=1086;

img2.Left:=0;

end;

procedure TForm1.btn13Click(Sender: TObject);

begin

btn12.Visible:=True;

pnl4.Visible:=true;

btn13.Visible:=False;

img2.Width:=857;

img2.Left:=224;

end;

procedure TForm1.btn11Click(Sender: TObject);

begin

btn4.Visible:=False;

btn5.Visible:=False;

btn10.Visible:=False;

btn11.Visible:=False;

btn3.Visible:=False;

btn14.Visible:=False;

btn15.Visible:=False;

btn16.Visible:=False;

pnl3.Visible:=False;

pnl2.Visible:=False;

ScrollBox1.Visible:=False;

ScrollBox2.Visible:=False;

ScrollBox3.Visible:=False;

ScrollBox4.Visible:=False;

lbl1.Visible:=True;

btn1.Visible:=True;

btn2.Visible:=True;

end;

procedure TForm1.btn10Click(Sender: TObject);

begin

btn10.Visible:=False;

btn3.Visible:=False;

btn14.Visible:=False;

btn15.Visible:=False;

btn16.Visible:=False;

pnl3.Visible:=False;

pnl2.Visible:=False;

ScrollBox1.Visible:=False;

ScrollBox2.Visible:=False;

ScrollBox3.Visible:=False;

ScrollBox4.Visible:=False;

btn4.Visible:=True;

btn5.Visible:=True;

end;

procedure TForm1.btn16Click(Sender: TObject);

begin

ball:=0;

 if rg11.ItemIndex=otv[11] then inc(ball);

 if rg12.ItemIndex=otv[12] then inc(ball);

 if rg13.ItemIndex=otv[13] then inc(ball);

 if rg14.ItemIndex=otv[14] then inc(ball);

 if rg15.ItemIndex=otv[15] then inc(ball);

 if rg16.ItemIndex=otv[16] then inc(ball);

 if rg17.ItemIndex=otv[17] then inc(ball);

 if rg18.ItemIndex=otv[18] then inc(ball);

 if rg19.ItemIndex=otv[19] then inc(ball);

 if rg20.ItemIndex=otv[20] then inc(ball);

lbl10.caption:='Правильных ответов '+IntToStr(ball)+'/10';

end;

procedure TForm1.btn15Click(Sender: TObject);

begin

ball:=0;

 if rg31.ItemIndex=otv[31] then inc(ball);

 if rg32.ItemIndex=otv[32] then inc(ball);

 if rg33.ItemIndex=otv[33] then inc(ball);

 if rg34.ItemIndex=otv[34] then inc(ball);

 if rg35.ItemIndex=otv[35] then inc(ball);

 if rg36.ItemIndex=otv[36] then inc(ball);

 if rg37.ItemIndex=otv[37] then inc(ball);

 if rg38.ItemIndex=otv[38] then inc(ball);

 if rg39.ItemIndex=otv[39] then inc(ball);

 if rg40.ItemIndex=otv[40] then inc(ball);

lbl9.caption:='Правильных ответов '+IntToStr(ball)+'/10';

end;

procedure TForm1.btn14Click(Sender: TObject);

begin

ball:=0;

 if rg21.ItemIndex=otv[21] then inc(ball);

 if rg22.ItemIndex=otv[22] then inc(ball);

 if rg23.ItemIndex=otv[23] then inc(ball);

 if rg24.ItemIndex=otv[24] then inc(ball);

 if rg25.ItemIndex=otv[25] then inc(ball);

 if rg26.ItemIndex=otv[26] then inc(ball);

 if rg27.ItemIndex=otv[27] then inc(ball);

 if rg28.ItemIndex=otv[28] then inc(ball);

 if rg29.ItemIndex=otv[29] then inc(ball);

 if rg30.ItemIndex=otv[30] then inc(ball);

lbl8.caption:='Правильных ответов '+IntToStr(ball)+'/10';

end;

end.

end.

unit Unit2;

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm3 = class(TForm)

pnl1: TPanel;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

pnl2: TPanel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

 

Дата: 2018-12-21, просмотров: 422.