Программы по организации практических занятий по криптографическим дисциплинам

1. позволяет полностью провести весь курс обучения по дисциплине «Криптографические протоколы» на компьютере (включая лекции, лабораторные работы и контроль усвоения материала);

2. данная программа управляется легко и интуитивно понятно, что тоже является немаловажным фактором при общении с пользователями;

3. дает студентам возможность изучать лекционный материал и выполнять практические задания в домашних условиях;

4. результаты прохождения тестирования сохраняются в текстовый файл;

5. интерфейс программы был разработан в соответствии с педагогическими стандартами, цветовая палитра не содержит резких перепадов цветовой гаммы и цветов, которые способствуют быстрому утомлению глаз и не позволяют сосредоточиться на изучаемом материале.

Таким образом, внедрение данного программного продукта в практику позволит существенно повысить качество образования и облегчить труд преподавателя, дав тем самым возможность к дальнейшему повышению качества знаний.

Поставленная задача решена, цель диссертационной работы достигнута.



СПИСОК ЛИТЕРАТУРЫ

1. Алферов А. П., Зубов А. Ю., Кузьмин А. С, Черемушкин А. В. Основы криптографии: учебн. пособие. - М.: Гелиос АРВ, 2005. - 480 с.

2. Атанасян С.Л. Формирование информационной образовательной среды педагогического вуза: Дис... д-ра пед. наук. - М., 2009. - 509 с.

3. Бабаш А.В., Шанкин Г.П. История криптографии. Часть I. -- М.: Гелиос АРВ, 2002. -- 240 с.

4. Баричев С.Г., Гончаров В.В., Серов Р.Е. Основы современной криптографии. -- М.: Горячая линия -- Телеком, 2002. -- 175 с.

5. Бобровский С.И. Delphi 7. Учебный курс. - Спб.: Питер, 2007. - 736 с.: ил.

6. Введение в криптографию/Под общей ред. В.В. Ященко. - М.: МЦНМО, 1998. - 272 с.

7. Венбо Мао Современная криптография: теория и практика.: Пер. с англ. - М.: Издательский дом «Вильямс», 2005. - 768 с.: ил.

8. Вильям Столлингс. Криптография и защита сетей: принципы и практика - М.: Вильямс, 2001. - 368 с.

9. Герасименко В. А. Защита информации в автоматизированных системах обработки данных., кн. 1, 2 - М.: Энергоатомиздат, 1994.

10. Жельников В. Кpиптогpафия от папиpуса до компьютеpа. -- М.: ABF, 1996. -- 335 с.

11. Журнал «Открытое образование» №3 2003, «Способы представления знаний для дистанционного образования»

12. Картыгин С.А., Тихонов А.Ф., Тихонова А.Н. Visual FoxPro 7. М.: ЗАО «Изд-во БИНОМ», 2002

13. Лебедев А.Н. Visual FoxPro 9- М.: НТ Пресс, 2005. - 328 с.: ил. - (Самоучитель).

14. Малюк, А.А.Введение в защиту информации в автоматизированных системах.Учебное пособие - М.: Горячая линия - Телеком, 2001 -148 с.

15. Мамаев Е.В. Администрирование MS SQL Server 7.0. СПб.: БХВ - Санкт-Петербург, 2000.

16. Мирошниченко А.С. Императивное и объектно-ориентированное программирование на Turbo Pascal и Delphi - Одесса: ВМВ,2007. - 408 с.

17. Молдовян А. А., Молдовян Н. А., Советов Б. Я. Криптография - СПб.: «Лань», 2000. - 508 с.

18. Молдовян, А.; Молдовян, Н.; Советов, Б. Криптография - СПб.: Лань, 2001. - 224 с.

19. Нечаев В.И. Элементы криптографии (Основы теории защиты информации). -- М.: Высшая школа, 1999. -- 109 с.

20. Нильс Фергюсон, Брюс Шнайер Практическая криптография = Practical Cryptography: Designing and Implementing Secure Cryptographic Systems. -- М.: «Диалектика», 2004. -- 432 с.

21. Новиков С.В. «Принципы разработки Интернет учебников // «Информатика и образование» №10 - 2001 г.

22. Новиков С.В. «Электронные учебники для ПЭВМ» // Москва-2004г.

23. Омельченко Л.Н., Шевякова Д.А. Самоучитель Visual FoxPro 9.0. - Спб.:БХВ - Петербург, 2005. - 608 с.:ил.

24. Основы криптозащиты АСУ. Под ред. Б. П. Козлова - М.: МО, 1996.

25. Патрикеев Ю. Н. «Объектно-ориентированное программирование» - Спб.: Питер, 2004. - 436 с.: ил.

26. Полат Е.С., Бухаркина М.Ю., Моисеева М.В., Петров А.Е. Новые педагогические и информационные технологии в системе образования: Учебное пособие для студентов педвузов и системы повышения квалификации пед.кадров. - М.: Академия, 2000. - 272 с.

27. Ростовцев А. Г., Маховенко Е. Б. Введение в криптографию с открытым ключом. - СПб. : Мир и Семья, 2001. - 336 с.

28. СанПиН 2.2.2/2.4.1340-03 Гигиенические требования к персональным электронно-вычислительным машинам и организации работы

29. Сухарев М.В. Основы Delphi. Профессиональный подход - СПб.: Наука и Техника, 2004. - 600 с.: ил.

30. Ухлинов А. М. Управление безопасностью информации в автоматизированных системах - М.: МИФИ, 1996. - 334 с.

31. Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов - Спб.: Питер, 2007. - 640 с.: ил.

32. Христочевский С.А. «Информационные и коммуникационные технологии в образовании» // «Информатика и образование» // №2 - 2000г.

33. Черемушкин А. В. Криптографические протоколы. Основные свойства и уязвимости : учебное пособие для студ. учреждений высш. проф. образования. - М.: Издательский центр «Академия», 2009. - 272 с.

34. Шапорев Д.С. Visual FoxPro. Уроки программирования - СПб.: БХВ-Петербург, 2005. - 480 с.

35. Якишев В.А. «Основы объектно-ориентированного программирования» - Спб.: Питер, 2002. - 287 с.: ил.

36. Ярочкин, В.И. Информационная безопасность - М.: Академический Проект, 2008. - 544 с.

37. Сервер http://www.softportal.com/get-4214-uchebnik-po-visual-foxpro.html



ПРИЛОЖЕНИЕ 1

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls,TKF,LRF,test,Help;

type

TForm1 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

procedure Image8Click(Sender: TObject);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormActivate(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

KDir:String;

Ex_comp:boolean;

NButon:integer;

Procedure DM_komp;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2: begin

Image5.Picture.LoadFromFile('Img\TH.jpg');

end;

3:begin

Image6.Picture.LoadFromFile('Img\LR.jpg');

end;

4:begin

Image7.Picture.LoadFromFile('Img\TS.jpg');

end;

5:begin

Image8.Picture.LoadFromFile('Img\Help.jpg');

end;

end;

Ex_comp:=true;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

DM_komp;

Form1.KDir:=GetCurrentDir;

Ex_comp:=false;

NButon:=0;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

Image2.Left:=Form1.Width-Image2.Width;

Image2.Top:=Form1.Height-Image2.Height;

Image4.Left:=Form1.Width-Image4.Width-10;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

TKForm.Show;

end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image5.Picture.LoadFromFile('Img\TH1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

LR.Show;

end;

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image6.Picture.LoadFromFile('Img\LR1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

Ftesting.Show;

end;

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image7.Picture.LoadFromFile('Img\TS1.jpg');

NButon:=4;

Ex_comp:= false;

end;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

HLForm.Show;

end;

procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image8.Picture.LoadFromFile('Img\Help1.jpg');

NButon:=5;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit TKF;

interface

uses

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

Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw, StdCtrls;

type

TTKForm = class(TForm)

Image5: TImage;

Image4: TImage;

ScrollBox1: TScrollBox;

WebBrowser1: TWebBrowser;

Image1: TImage;

Image3: TImage;

ComboBox1: TComboBox;

Image6: TImage;

procedure Image6Click(Sender: TObject);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image3Click(Sender: TObject);

procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1Click(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

Procedure DM_komp;

end;

var

TKForm: TTKForm;

implementation

{$R *.dfm}

uses Unit1,Tmini;



Procedure TTKForm.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2:Image1.Picture.LoadFromFile('Img\OGL.jpg');

3:Image3.Picture.LoadFromFile('Img\VZ.jpg');

5:Image6.Picture.LoadFromFile('Img\MT.jpg');

end;

Ex_comp:=true;

end;

end;

procedure TTKForm.FormActivate(Sender: TObject);

begin

Ex_comp:=false;

NButon:=0;

if Form1.KDir[Length(Form1.KDir)] ='\' then

WebBrowser1.Navigate(Form1.KDir+'TEORH\index\Index.html') else

WebBrowser1.Navigate(Form1.KDir+'\TEORH\index\Index.html');

end;

procedure TTKForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure TTKForm.FormResize(Sender: TObject);

begin

Image4.Left:=TKForm.Width-Image4.Width-10;

ScrollBox1.Width := TKForm.Width-20;

ScrollBox1.Height := TKForm.Height-170;

Image1.Top:=TKForm.Height-Image1.Height-10;

Image3.Top:=TKForm.Height-Image3.Height-10;

Image6.Top:=TKForm.Height-Image6.Height-10;

ComboBox1.Top:=TKForm.Height-ComboBox1.Height-20;

end;

procedure TTKForm.Image1Click(Sender: TObject);

begin

if Form1.KDir[Length(Form1.KDir)] ='\' then

WebBrowser1.Navigate(Form1.KDir+'TEORH\index\Index.html') else

WebBrowser1.Navigate(Form1.KDir+'\TEORH\index\Index.html');

end;

procedure TTKForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\OGL1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;



procedure TTKForm.Image3Click(Sender: TObject);

begin

try

WebBrowser1.GoBack;

except

end;

end;

procedure TTKForm.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image3.Picture.LoadFromFile('Img\VZ1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TTKForm.Image4Click(Sender: TObject);

begin

Close;

end;

procedure TTKForm.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

procedure TTKForm.Image6Click(Sender: TObject);

begin

MTF.ShowModal;

end;

procedure TTKForm.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image6.Picture.LoadFromFile('Img\MT1.jpg');

NButon:=5;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit LRF;

interface

uses

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

Dialogs, OleCtrls, SHDocVw, jpeg, ExtCtrls;

type

TLR = class(TForm)

Image4: TImage;

ScrollBox1: TScrollBox;

WebBrowser1: TWebBrowser;

Image6: TImage;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image5: TImage;

Image8: TImage;

Image7: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

procedure Image13Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

Ex_comp:boolean;

NButon:integer;

indlr:integer;

Nlr:integer;

LRVB:boolean;

Spec:array of integer;

Procedure DM_komp;

Procedure LoadNS;

end;

var

LR: TLR;

implementation

{$R *.dfm}

uses Unit1;

procedure TLR.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

Procedure TLR.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2: begin

Image1.Picture.LoadFromFile('Img\VZ.jpg');

end;

3:begin

Image2.Picture.LoadFromFile('Img\SP.jpg');

end;

4:begin

Image3.Picture.LoadFromFile('Img\VP.jpg');

end;

5:begin

Image5.Picture.LoadFromFile('Img\SLR.jpg');

end;

6:begin

Image8.Picture.LoadFromFile('Img\HTMIMG\LR1.jpg');

end;

7:begin

Image7.Picture.LoadFromFile('Img\HTMIMG\LR2.jpg');

end;

8:begin

Image9.Picture.LoadFromFile('Img\HTMIMG\LR31.jpg');

end;

9: begin

Image10.Picture.LoadFromFile('Img\HTMIMG\LR4.jpg');

end;

10:begin

Image11.Picture.LoadFromFile('Img\HTMIMG\LR5.jpg');

end;

11:begin

Image12.Picture.LoadFromFile('Img\HTMIMG\LR6.jpg');

end;

12:begin

Image13.Picture.LoadFromFile('Img\HTMIMG\LR7.jpg');

end;

end;

Ex_comp:=true;

end;

end;

Procedure TLR.LoadNS;

begin

if Form1.KDir[Length(Form1.KDir)] ='\' then

WebBrowser1.Navigate(Form1.KDir+'LABR\LR'+IntToStr(Nlr)+'_'+IntToStr(indlr)+'.mht') else

WebBrowser1.Navigate(Form1.KDir+'\LABR\LR'+IntToStr(Nlr)+'_'+IntToStr(indlr)+'.mht');

end;

procedure TLR.FormActivate(Sender: TObject);

var

FileS:integer;

F:TextFile;

i:integer;

begin

LRVB:=false;

AssignFile(F,Form1.KDir+'\LABR\Sps.inf');

reset(F);

FileS:=0;

while Not EOF(f) do begin

SeTlength(Spec,FileS+1);

Readln(F,Spec[FileS]);

inc(FileS);

end;

closeFile(f);

LRVB:=false;

WebBrowser1.Navigate('');

WebBrowser1.Align:=alNone;

WebBrowser1.Left:=100;

WebBrowser1.top:=100;

WebBrowser1.Height:=10;

WebBrowser1.Width:=10;

WebBrowser1.Visible:=false;

end;

procedure TLR.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

DM_komp;

end;

procedure TLR.FormResize(Sender: TObject);

begin

Image4.Left:=Lr.Width-Image4.Width-10;

ScrollBox1.Width := Lr.Width-20;

ScrollBox1.Height := Lr.Height-180;

Image1.Top:=Lr.Height-Image1.Height-10;

Image2.Top:=Lr.Height-Image2.Height-10;

Image3.Top:=Lr.Height-Image3.Height-10;

Image5.Top:=Lr.Height-Image5.Height-10;

end;

procedure TLR.Image1Click(Sender: TObject);

begin

if LRVB then begin

dec(indlr);

if indlr=0 then begin

indlr:=Spec[Nlr-1];

end;

LoadNS;

end;

end;

procedure TLR.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\VZ1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

procedure TLR.Image2Click(Sender: TObject);

begin

if LRVB then begin

indlr:=1;

LoadNS;

end;

end;

procedure TLR.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image2.Picture.LoadFromFile('Img\SP1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TLR.Image3Click(Sender: TObject);

begin

if LRVB then begin

inc(indlr);

LoadNS;

if indlr = Spec[Nlr-1] then

indlr:=0;

end;

end;

procedure TLR.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image3.Picture.LoadFromFile('Img\VP1.jpg');

NButon:=4;

Ex_comp:= false;

end;

end;

procedure TLR.Image4Click(Sender: TObject);

begin

close;

end;

procedure TLR.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

procedure TLR.Image5Click(Sender: TObject);

begin

LRVB:=false;

WebBrowser1.Navigate('');

WebBrowser1.Align:=alNone;

WebBrowser1.Left:=100;

WebBrowser1.top:=100;

WebBrowser1.Height:=10;

WebBrowser1.Width:=10;

WebBrowser1.Visible:=false;

end;

procedure TLR.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image5.Picture.LoadFromFile('Img\SLR1.jpg');

NButon:=5;

Ex_comp:= false;

end;

end;

procedure TLR.Image8Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=1;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image8.Picture.LoadFromFile('Img\HTMIMG\LR11.jpg');

NButon:=6;

Ex_comp:= false;

end;

end;

procedure TLR.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image7.Picture.LoadFromFile('Img\HTMIMG\LR21.jpg');

NButon:=7;

Ex_comp:= false;

end;

end;

procedure TLR.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image9.Picture.LoadFromFile('Img\HTMIMG\LR3.jpg');

NButon:=8;

Ex_comp:= false;

end;

end;

procedure TLR.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image10.Picture.LoadFromFile('Img\HTMIMG\LR41.jpg');

NButon:=9;

Ex_comp:= false;

end;

end;

procedure TLR.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image11.Picture.LoadFromFile('Img\HTMIMG\LR51.jpg');

NButon:=10;

Ex_comp:= false;

end;

end;

procedure TLR.Image7Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=2;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image9Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=3;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image10Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=4;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image11Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=5;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image12Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=6;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image12.Picture.LoadFromFile('Img\HTMIMG\LR61.jpg');

NButon:=11;

Ex_comp:= false;

end;

end;

procedure TLR.Image13Click(Sender: TObject);

begin

LRVB:=true;

Nlr:=7;

indlr:=1;

WebBrowser1.Left:=0;

WebBrowser1.Top:=0;

WebBrowser1.Visible:=true;

WebBrowser1.Align:=alClient;

LoadNS;

end;

procedure TLR.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image13.Picture.LoadFromFile('Img\HTMIMG\LR71.jpg');

NButon:=12;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit HELP;

interface

uses

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

Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw;

type

THLForm = class(TForm)

Image5: TImage;

Image4: TImage;

ScrollBox1: TScrollBox;

WebBrowser1: TWebBrowser;

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

Procedure DM_komp;

end;

var

HLForm: THLForm;

implementation

{$R *.dfm}

uses Unit1;

Procedure THLForm.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

end;

Ex_comp:=true;

end;

end;

procedure THLForm.FormActivate(Sender: TObject);

begin

Ex_comp:=false;

NButon:=0;

if Form1.KDir[Length(Form1.KDir)] ='\' then

WebBrowser1.Navigate(Form1.KDir+'Help\Help.mht') else

WebBrowser1.Navigate(Form1.KDir+'\Help\Help.mht');

end;

procedure THLForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure THLForm.FormResize(Sender: TObject);

begin

Image4.Left:=HLForm.Width-Image4.Width-10;

ScrollBox1.Width := HLForm.Width-20;

ScrollBox1.Height := HLForm.Height-170;

end;

procedure THLForm.Image4Click(Sender: TObject);

begin

Close;

end;

procedure THLForm.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit test;

interface

uses

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

Dialogs, jpeg, ExtCtrls,TVFXPRO,TV, StdCtrls, TVNEWR;

type

TFtesting = class(TForm)

Image4: TImage;

Image6: TImage;

Image8: TImage;

Image1: TImage;

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Image2: TImage;

procedure Image2Click(Sender: TObject);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

Fam:string;

Name:string;

Ot:string;

GR:string;

Procedure DM_komp;

end;

var

Ftesting: TFtesting;

implementation

{$R *.dfm}

Procedure TFtesting.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2:Image8.Picture.LoadFromFile('Img\Tsub.jpg');

3:Image1.Picture.LoadFromFile('Img\TPV.jpg');

4:Image2.Picture.LoadFromFile('Img\Tnevr.jpg');

end;

Ex_comp:=true;

end;

end;

procedure TFtesting.FormActivate(Sender: TObject);

begin

DM_komp;

Ex_comp:=false;

NButon:=0;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TFtesting.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure TFtesting.FormResize(Sender: TObject);

begin

Image4.Left:=Ftesting.Width-Image4.Width-10;

end;

procedure TFtesting.Image1Click(Sender: TObject);

begin

if (edit1.Text <> '')and(edit2.Text <> '')and

(edit3.Text <> '')and(edit4.Text <> '')then begin

Fam:=edit1.Text;

Name:=edit2.Text;

Ot:=edit3.Text;

GR:= edit4.Text;

TPVIGOR.Show;

end else ShowMessage('Введите свои данные!');

end;

procedure TFtesting.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\TPV1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TFtesting.Image2Click(Sender: TObject);

begin

if (edit1.Text <> '')and(edit2.Text <> '')and

(edit3.Text <> '')and(edit4.Text <> '')then begin

Fam:=edit1.Text;

Name:=edit2.Text;

Ot:=edit3.Text;

GR:= edit4.Text;

TNEWROZ.Show;

end else ShowMessage('Введите свои данные!');

end;

procedure TFtesting.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image2.Picture.LoadFromFile('Img\Tnevr1.jpg');

NButon:=4;

Ex_comp:= false;

end;

end;

procedure TFtesting.Image4Click(Sender: TObject);

begin

close;

end;

procedure TFtesting.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

procedure TFtesting.Image8Click(Sender: TObject);

begin

if (edit1.Text <> '')and(edit2.Text <> '')and

(edit3.Text <> '')and(edit4.Text <> '')then begin

Fam:=edit1.Text;

Name:=edit2.Text;

Ot:=edit3.Text;

GR:= edit4.Text;

TSUBD.Show;

TSUBD.Image2.Enabled:=true;

TSUBD.Image1.Enabled:=true;

end else ShowMessage('ВВедите свои данные!');

end;

procedure TFtesting.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image8.Picture.LoadFromFile('Img\Tsub1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit ResultF;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Gauges, StdCtrls;

type

TReS1 = class(TForm)

Image4: TImage;

Label1: TLabel;

Gauge1: TGauge;

Gauge2: TGauge;

Gauge3: TGauge;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormResize(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

PR:integer;

NPR:integer;

Prop:integer;

Procedure StatRez;

Procedure DM_komp;

end;

var

ReS1: TReS1;

implementation

{$R *.dfm}

uses TVFXPRO;

Procedure TReS1.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

end;

Ex_comp:=true;

end;

end;

Procedure TReS1.StatRez;

var

i:integer;

begin

PR:=0;

NPR:=0;

Prop:=0;

for I := 0 to Length(TSUBD.testArray)-1 do begin

if TSUBD.testArray[i].Otv and TSUBD.testArray[i].Tf then inc(PR)

else inc(NPR);

if not TSUBD.testArray[i].Otv then inc(Prop);

end;

Label2.Caption:='Правильных ответов: '+IntToStr(PR);

Label3.Caption:='Не правильных ответов: '+IntToStr(NPR);

Label4.Caption:='Пропущенно: '+IntToStr(Prop);

Gauge1.Progress:=Trunc((80/100)*PR);

Gauge2.Progress:=Trunc((80/100)*NPR);

Gauge3.Progress:=Trunc((80/100)*Prop);

end;

procedure TReS1.FormActivate(Sender: TObject);

begin

Ex_comp:= false;

//Res.Left:=(Screen.Width div 2) - (Res.Width div 2);

//Res.Top:=(Screen.Height div 2) - (Res.Height div 2);

StatRez;

end;

procedure TReS1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

TSUBD.Close;

end;

procedure TReS1.FormResize(Sender: TObject);

begin

Image4.Left:=TSUBD.Width-Image4.Width-10;

end;

procedure TReS1.Image4Click(Sender: TObject);

begin

close;

end;

procedure TReS1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}

unit Tmini;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, ResultF;

type

test = record

Vopros:string;

Otveti:array [0..8] of string;

Otv:boolean;

Tf:boolean;

end;

TMTF = class(TForm)

Image4: TImage;

Image6: TImage;

RichEdit1: TRichEdit;

Edit1: TEdit;

Image1: TImage;

RadioGroup1: TRadioGroup;

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure FormActivate(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

IndTestArray:integer;

testArray:array of test;

QIndex:integer;

Otvet:array [0..4,0..5] of integer;

n:integer;

LastQw:boolean;

Procedure DM_komp;

Procedure Open_Test(N_razd:integer);

Procedure GetQW;

Function TK(fl:boolean):boolean;

Procedure Res;

end;

var

MTF: TMTF;

implementation

{$R *.dfm}

uses TKF;

Procedure TMTF.Res;

var

i:integer;

OK:integer;

begin

OK:=0;

for i := 0 to 4 do

if testArray[i].Tf then

inc(OK);

RichEdit1.Lines.Clear;

if Ok = 5 then begin

RichEdit1.Lines.Add('Молодец, можешь приступать к следующей главе');

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length('Молодец, можешь приступать к следующей главе');

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

Richedit1.SelAttributes.Color:=ClGreen;

end;

if Ok = 4 then begin

RichEdit1.Lines.Add('Хорошо');

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length('Хорошо');

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

Richedit1.SelAttributes.Color:=clBlue;

end;

if Ok <= 3 then begin

RichEdit1.Lines.Add('Подучи и пройди тест еще раз');

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length('Подучи и пройди тест еще раз');

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

Richedit1.SelAttributes.Color:=clRed;

end;

end;

Function TMTF.TK(fl:boolean):boolean;

begin

testArray[QIndex].Otv:=FL;

if (RadioGroup1.ItemIndex) = Otvet[n,QIndex] then

testArray[QIndex].Tf:=true

else testArray[QIndex].Tf:=false;

end;

Procedure TMTF.GetQW;

var

i:integer;

begin

QIndex:=QIndex+1;

Richedit1.Lines.Clear;

RadioGroup1.Items.Clear;

Richedit1.Lines.Add(testArray[QIndex].Vopros);

Richedit1.Lines.Add(' ');

for I := 0 to 8 do

if testArray[QIndex].Otveti[i]<>'' then begin

Richedit1.Lines.Add(testArray[QIndex].Otveti[i]);

Richedit1.Lines.Add(' ');

RadioGroup1.Items.add(char(192+i));

end;

RadioGroup1.ItemIndex:=-1;

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length(testArray[QIndex].Vopros);

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

Richedit1.SelStart:=Length(testArray[QIndex].Vopros);

Richedit1.SelLength:=length(RichEdit1.Text);

Richedit1.SelAttributes.Size:=24;

Richedit1.SelLength:=0;

RadioGroup1.SetFocus;

end;

Procedure TMTF.Open_Test(N_razd:integer);

var

f:textFile;

begin

n:= N_razd;

case N_razd of

0:AssignFile(f,'TEST\MiniTest\1.txt');

1:AssignFile(f,'TEST\MiniTest\2.txt');

2:AssignFile(f,'TEST\MiniTest\3.txt');

3:AssignFile(f,'TEST\MiniTest\4.txt');

end;

reset(f);

IndTestArray:=0;

setLength(testArray,IndTestArray);

while not EOF(F) do begin

inc(IndTestArray);

setLength(testArray,IndTestArray);

readln(f,testArray[IndTestArray-1].Vopros);

readln(f,testArray[IndTestArray-1].Otveti[0]);

readln(f,testArray[IndTestArray-1].Otveti[1]);

readln(f,testArray[IndTestArray-1].Otveti[2]);

readln(f,testArray[IndTestArray-1].Otveti[3]);

readln(f,testArray[IndTestArray-1].Otveti[4]);

readln(f,testArray[IndTestArray-1].Otveti[5]);

readln(f,testArray[IndTestArray-1].Otveti[6]);

readln(f,testArray[IndTestArray-1].Otveti[7]);

readln(f,testArray[IndTestArray-1].Otveti[6]);

end;

closefile(f);

end;

Procedure TMTF.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2:Image1.Picture.LoadFromFile('Img\Otvet.jpg');

end;

Ex_comp:=true;

end;

end;

procedure TMTF.FormActivate(Sender: TObject);

begin

Ex_comp:= false;

Open_Test(TKForm.ComboBox1.ItemIndex);

QIndex:=-1;

GetQW;

LastQw:=false;

Otvet[0,0]:=1; Otvet[0,1]:=1; Otvet[0,2]:=0; Otvet[0,3]:=0; Otvet[0,4]:=1;

Otvet[1,0]:=0; Otvet[1,1]:=0; Otvet[1,2]:=0; Otvet[1,3]:=3; Otvet[1,4]:=1;

Otvet[2,0]:=2; Otvet[2,1]:=2; Otvet[2,2]:=0; Otvet[2,3]:=1; Otvet[2,4]:=1;

Otvet[3,0]:=1; Otvet[3,1]:=1; Otvet[3,2]:=2; Otvet[3,3]:=2; Otvet[3,4]:=0;

end;

procedure TMTF.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure TMTF.FormResize(Sender: TObject);

begin

Image4.Left:=MTF.Width-Image4.Width-10;

Richedit1.Width := MTF.Width - 15;

Richedit1.Height := MTF.Height - 300;

edit1.Left:= MTF.Width + 110;

Image1.Top:=MTF.Height-Image1.Height-10;

RadioGroup1.Width := MTF.Width - 15;

RadioGroup1.Top:=MTF.Height-RadioGroup1.Height-150;

end;

procedure TMTF.Image1Click(Sender: TObject);

begin

TK(true);

if QIndex = 4 then

begin

Res;

end;

if QIndex < 4 then begin

GetQW;

end;

end;

procedure TMTF.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\Otvet1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

procedure TMTF.Image4Click(Sender: TObject);

begin

close;

end;

procedure TMTF.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

end.

{----------------------------------------------------------------------------------------}

unit TV;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type

TTPVIGOR = class(TForm)

Image4: TImage;

Image6: TImage;

RichEdit1: TRichEdit;

Edit1: TEdit;

Image1: TImage;

Image2: TImage;

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure RichEdit1Click(Sender: TObject);

procedure RichEdit1Change(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure FormActivate(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

IndTestArray:integer;

testArray:array of string;

Otvet:array of boolean;

QIndex:integer;

Procedure DM_komp;

Procedure Open_Test;

Function TK(fl:boolean):boolean;

Procedure GetQW;

Procedure Itog;

end;

var

TPVIGOR: TTPVIGOR;

implementation

{$R *.dfm}

uses ResultF,Test;

Procedure TTPVIGOR.Itog;

var

N1,R1,IS1:integer;

N2,R2,IS2:integer;

N3,R3,IS3:integer;

N4,R4,IS4:integer;

F:TextFile;

begin

N1:=0;

if Otvet[0] then

N1:=N1+2;

if Otvet[12] then

N1:=N1+3;

if Otvet[24] then

N1:=N1+2;

if not Otvet[36] then

N1:=N1+3;

if Otvet[48] then

N1:=N1+10;

if Otvet[60] then

N1:=N1+5;

if not Otvet[72] then

N1:=N1+5;

ReS.Label24.Caption:=IntToStr(N1);

N2:=0;

if not Otvet[1] then

N2:=N2+3;

if Otvet[13] then

N2:=N2+2;

if Otvet[25] then

N2:=N2+2;

if not Otvet[37] then

N2:=N2+10;

if not Otvet[49] then

N2:=N2+5;

if Otvet[61] then

N2:=N2+5;

if Otvet[73] then

N2:=N2+3;

ReS.Label25.Caption:=IntToStr(N2);

N3:=0;

if Otvet[2] then

N3:=N3+10;

if Otvet[14] then

N3:=N3+5;

if Otvet[26] then

N3:=N3+2;

if Otvet[38] then

N3:=N3+2;

if Otvet[50] then

N3:=N3+5;

if Otvet[62] then

N3:=N3+1;

if not Otvet[74] then

N3:=N3+5;

ReS.Label26.Caption:=IntToStr(N3);

N4:=0;

if Otvet[3] then N4:=N4+2;

if Otvet[15] then N4:=N4+3;

if Otvet[27] then N4:=N4+5;

if Otvet[39] then N4:=N4+5;

if Otvet[51] then N4:=N4+10;

if Otvet[63] then N4:=N4+2;

if Otvet[75] then N4:=N4+3;

ReS.Label27.Caption:=IntToStr(N4);

R1:=0;

if Otvet[4] then R1:=R1+5;

if not Otvet[16] then R1:=R1+3;

if Otvet[28] then R1:=R1+10;

if Otvet[40] then R1:=R1+2;

if Otvet[52] then R1:=R1+2;

if Otvet[64] then R1:=R1+3;

if Otvet[76] then R1:=R1+5;

ReS.Label35.Caption:=IntToStr(R1);

R2:=0;

if Otvet[5] then R2:=R2+10;

if not Otvet[17] then R2:=R2+3;

if Otvet[29] then R2:=R2+3;

if Otvet[41] then R2:=R2+5;

if Otvet[53] then R2:=R2+2;

if Otvet[65] then R2:=R2+2;

if not Otvet[77] then R2:=R2+5;

ReS.Label34.Caption:=IntToStr(R2);

R3:=0;

if Otvet[6] then R3:=R3+2;

if Otvet[18] then R3:=R3+10;

if not Otvet[30] then R3:=R3+2;

if Otvet[42] then R3:=R3+5;

if Otvet[54] then R3:=R3+3;

if Otvet[66] then R3:=R3+3;

if not Otvet[78] then R3:=R3+5;

ReS.Label33.Caption:=IntToStr(R3);

R4:=0;

if Otvet[7] then R4:=R4+5;

if Otvet[19] then R4:=R4+5;

if Otvet[31] then R4:=R4+2;

if not Otvet[43] then R4:=R4+2;

if Otvet[55] then R4:=R4+3;

if Otvet[67] then R4:=R4+3;

if Otvet[79] then R4:=R4+10;

ReS.Label32.Caption:=IntToStr(R4);

IS1:=0;

if Otvet[8] then IS1:=IS1+3;

if Otvet[20] then IS1:=IS1+2;

if Otvet[32] then IS1:=IS1+5;

if not Otvet[44] then IS1:=IS1+5;

if Otvet[56] then IS1:=IS1+3;

if not Otvet[68] then IS1:=IS1+10;

if Otvet[80] then IS1:=IS1+2;

ReS.Label39.Caption:=IntToStr(IS1);

IS2:=0;

if Otvet[9] then IS2:=IS2+2;

if Otvet[21] then IS2:=IS2+3;

if not Otvet[33] then IS2:=IS2+2;

if Otvet[45] then IS2:=IS2+3;

if Otvet[57] then IS2:=IS2+5;

if Otvet[69] then IS2:=IS2+5;

if Otvet[81] then IS2:=IS2+10;

ReS.Label38.Caption:=IntToStr(IS2);

IS3:=0;

if Otvet[10] then IS3:=IS3+5;

if Otvet[22] then IS3:=IS3+3;

if Otvet[34] then IS3:=IS3+3;

if Otvet[46] then IS3:=IS3+5;

if Otvet[58] then IS3:=IS3+5;

if Otvet[71] then IS3:=IS3+2;

if Otvet[82] then IS3:=IS3+10;

ReS.Label37.Caption:=IntToStr(IS3);

IS4:=0;

if Otvet[11] then IS4:=IS4+3;

if Otvet[23] then IS4:=IS4+2;

if Otvet[35] then IS4:=IS4+5;

if Otvet[47] then IS4:=IS4+3;

if Otvet[59] then IS4:=IS4+2;

if Otvet[71] then IS4:=IS4+10;

if Otvet[83] then IS4:=IS4+5;

ReS.Label36.Caption:=IntToStr(IS4);

ReS.Label40.Caption:=IntToStr(N1+N2+N3+N4);

ReS.Label41.Caption:=IntToStr(R1+R2+R3+R4);

ReS.Label42.Caption:=IntToStr(IS1+Is2+Is3+Is4);

ReS.Label6.Caption:='Итоговый показатель уровня эмоционального выгорания:'+IntToStr(N1+N2+N3+N4+R1+R2+R3+R4+IS1+Is2+Is3+Is4);

if (N1+N2+N3+N4+R1+R2+R3+R4+IS1+Is2+Is3+Is4)>295 then

ReS.RichEdit2.Lines.LoadFromFile('TEST\PV\IR.rtf')

else

ReS.RichEdit2.Lines.LoadFromFile('TEST\PV\IR1.rtf');

AssignFile(F,'TEST\REZ.txt');

Append(f);

Writeln(F,'Студент: '+Ftesting.Edit1.Text+' '+Ftesting.Edit2.Text+' '+Ftesting.Edit3.Text);

Writeln(F,'Группа: '+Ftesting.Edit4.Text);

Writeln(F,'Тип теста: Психологическое выгорание');

Writeln(F,'РЕЗУЛЬТАТЫ:');

Writeln(F,'Переживание психотравмирующих обстоятельств '+IntToStr(N1));

Writeln(F,'Неудовлетворенность собой '+IntToStr(N2));

Writeln(F,'Загнанность в клетку'+IntToStr(N3));

Writeln(F,'Тревога и депрессия'+IntToStr(N4));

Writeln(F,' ');

Writeln(F,'Неадекватное избирательное эмоциональное реагирование '+IntToStr(R1));

Writeln(F,'Эмоционально-нравственная дезориентация '+IntToStr(R2));

Writeln(F,'Расширение сферы экономии эмоций'+IntToStr(R3));

Writeln(F,'Редукция профессиональных обязанностей'+IntToStr(R4));

Writeln(F,' ');

Writeln(F,'Эмоциональный дефицит '+IntToStr(Is1));

Writeln(F,'Эмоциональная отстраненность '+IntToStr(Is2));

Writeln(F,'Личностная отстраненность (Деперсонализация)'+IntToStr(Is3));

Writeln(F,'Психоматические и психовегетативные нарушения'+IntToStr(Is4));

Closefile(f);

end;

Procedure TTPVIGOR.GetQW;

var

i:integer;

begin

QIndex:=QIndex+1;

Richedit1.Lines.Clear;

Richedit1.Lines.Add('Вопрос №'+IntToStr(QIndex+1));

Richedit1.Lines.Add(testArray[QIndex]);

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length(testArray[QIndex]);

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

RichEdit1.Paragraph.Alignment:=taCenter;

end;

Procedure TTPVIGOR.Open_Test;

var

f:textFile;

begin

AssignFile(f,'TEST\PV\TV.txt');

reset(f);

IndTestArray:=0;

setLength(testArray,IndTestArray);

while not EOF(F) do begin

inc(IndTestArray);

setLength(testArray,IndTestArray);

readln(f,testArray[IndTestArray-1]);

end;

closefile(f);

end;

Function TTPVIGOR.TK(fl:boolean):boolean;

begin

Otvet[QIndex]:=FL;

end;

Procedure TTPVIGOR.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2:Image1.Picture.LoadFromFile('Img\da.jpg');

3:Image2.Picture.LoadFromFile('Img\net.jpg');

end;

Ex_comp:=true;

end;

end;

procedure TTPVIGOR.FormActivate(Sender: TObject);

begin

Ex_comp:= false;

QIndex:=-1;

Open_Test;

Setlength(Otvet,IndTestArray);

GetQW;

end;

procedure TTPVIGOR.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

edit1.SetFocus;

end;

procedure TTPVIGOR.FormResize(Sender: TObject);

begin

Image4.Left:=TPVIGOR.Width-Image4.Width-10;

Richedit1.Width := TPVIGOR.Width - 15;

Richedit1.Height := TPVIGOR.Height - 160;

edit1.Left:= TPVIGOR.Width + 110;

Image1.Top:=TPVIGOR.Height-Image1.Height-10;

Image2.Top:=TPVIGOR.Height-Image2.Height-10;

Image1.Left:=(TPVIGOR.Width div 2) - 80;

Image2.Left:=(TPVIGOR.Width div 2) + 80;

end;

procedure TTPVIGOR.Image1Click(Sender: TObject);

begin

if QIndex <> 83 then begin

TK(true);

GetQW;

end else begin

Itog;

ReS.Panel6.Visible:=false;

ReS.Panel1.Visible:=true;

ReS.ShowModal;

end;

end;

procedure TTPVIGOR.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\da1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

procedure TTPVIGOR.Image2Click(Sender: TObject);

begin

if QIndex <> 83 then begin

TK(false);

GetQW;

end else begin

Itog;

ReS.Panel6.Visible:=false;

ReS.Panel1.Visible:=true;

ReS.ShowModal;

end;

end;

procedure TTPVIGOR.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image2.Picture.LoadFromFile('Img\net1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TTPVIGOR.Image4Click(Sender: TObject);

begin

close;

end;

procedure TTPVIGOR.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

procedure TTPVIGOR.RichEdit1Change(Sender: TObject);

begin

edit1.SetFocus;

end;

procedure TTPVIGOR.RichEdit1Click(Sender: TObject);

begin

edit1.SetFocus;

end;

end.

{-----------------------------------------------------------------------------------------}

unit TVFXPRO;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, ResultF;

type

test = record

Vopros:string;

Otveti:array [0..8] of string;

Otv:boolean;

Tf:boolean;

end;

TTSUBD = class(TForm)

Image4: TImage;

Image6: TImage;

RichEdit1: TRichEdit;

Edit1: TEdit;

Image1: TImage;

Image2: TImage;

RadioGroup1: TRadioGroup;

Label1: TLabel;

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure FormActivate(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

IndTestArray:integer;

testArray:array of test;

Otvet:array [0..79]of byte;

QIndex:integer;

LastQw:boolean;

Procedure DM_komp;

Procedure Open_Test;

Procedure GetQW;

Function TK(fl:boolean):boolean;

end;

var

TSUBD: TTSUBD;

implementation

{$R *.dfm}

Function TTSUBD.TK(fl:boolean):boolean;

begin

testArray[QIndex].Otv:=FL;

if (RadioGroup1.ItemIndex) = Otvet[QIndex] then

testArray[QIndex].Tf:=true

else testArray[QIndex].Tf:=false;

end;

Procedure TTSUBD.GetQW;

var

i:integer;

begin

QIndex:=QIndex+1;

Richedit1.Lines.Clear;

RadioGroup1.Items.Clear;

Richedit1.Lines.Add(testArray[QIndex].Vopros);

Richedit1.Lines.Add(' ');

for I := 0 to 8 do

if testArray[QIndex].Otveti[i]<>'' then begin

Richedit1.Lines.Add(testArray[QIndex].Otveti[i]);

Richedit1.Lines.Add(' ');

RadioGroup1.Items.add(char(192+i));

end;

RadioGroup1.ItemIndex:=-1;

Richedit1.SelStart:=0;

Richedit1.SelLength:=Length(testArray[QIndex].Vopros);

Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];

Richedit1.SelStart:=Length(testArray[QIndex].Vopros);

Richedit1.SelLength:=length(RichEdit1.Text);

Richedit1.SelAttributes.Size:=24;

Richedit1.SelLength:=0;

RadioGroup1.SetFocus;

if (Qindex=79) or (Qindex = 80) then begin

LastQw:=true;

end;

end;

Procedure TTSUBD.Open_Test;

var

f:textFile;

begin

AssignFile(f,'TEST\VFXPRO\TFxpro.txt');

reset(f);

IndTestArray:=0;

setLength(testArray,IndTestArray);

while not EOF(F) do begin

inc(IndTestArray);

setLength(testArray,IndTestArray);

readln(f,testArray[IndTestArray-1].Vopros);

readln(f,testArray[IndTestArray-1].Otveti[0]);

readln(f,testArray[IndTestArray-1].Otveti[1]);

readln(f,testArray[IndTestArray-1].Otveti[2]);

readln(f,testArray[IndTestArray-1].Otveti[3]);

readln(f,testArray[IndTestArray-1].Otveti[4]);

readln(f,testArray[IndTestArray-1].Otveti[5]);

readln(f,testArray[IndTestArray-1].Otveti[6]);

readln(f,testArray[IndTestArray-1].Otveti[7]);

readln(f,testArray[IndTestArray-1].Otveti[6]);

end;

closefile(f);

end;

Procedure TTSUBD.DM_komp;

begin

if (not Ex_comp) then begin

sleep(100);

case NButon of

1:Image4.Picture.LoadFromFile('Img\exit.jpg');

2:Image1.Picture.LoadFromFile('Img\Otvet.jpg');

3:Image2.Picture.LoadFromFile('Img\Propusk.jpg');

end;

Ex_comp:=true;

end;

end;

procedure TTSUBD.FormActivate(Sender: TObject);

begin

Ex_comp:= false;

Open_Test;

QIndex:=-1;

GetQW;

LastQw:=false;

Otvet[0]:= 1;

Otvet[1]:= 1;

Otvet[2]:= 0;

Otvet[3]:= 1;

Otvet[4]:= 0;

Otvet[5]:= 1;

Otvet[6]:= 3;

Otvet[7]:= 1;

Otvet[8]:= 1;

Otvet[9]:= 2;

Otvet[10]:= 1;

Otvet[11]:= 0;

Otvet[12]:= 0;

Otvet[13]:= 0;

Otvet[14]:= 3;

Otvet[15]:= 2;

Otvet[16]:= 0;

Otvet[17]:= 1;

Otvet[18]:= 4;

Otvet[19]:= 2;

Otvet[20]:= 0;

Otvet[21]:= 2;

Otvet[22]:= 0;

Otvet[23]:= 2;

Otvet[24]:= 0;

Otvet[25]:= 1;

Otvet[26]:= 1;

Otvet[27]:= 1;

Otvet[28]:= 0;

Otvet[29]:= 4;

Otvet[30]:= 1;

Otvet[31]:= 2;

Otvet[32]:= 0;

Otvet[33]:= 2;

Otvet[34]:= 2;

Otvet[35]:= 2;

Otvet[36]:= 1;

Otvet[37]:= 2;

Otvet[38]:= 0;

Otvet[39]:= 1;

Otvet[40]:= 2;

Otvet[41]:= 0;

Otvet[42]:= 0;

Otvet[43]:= 0;

Otvet[44]:= 1;

Otvet[45]:= 1;

Otvet[46]:= 2;

Otvet[47]:= 0;

Otvet[48]:= 0;

Otvet[49]:= 0;

Otvet[50]:= 3;

Otvet[51]:= 0;

Otvet[52]:= 1;

Otvet[53]:= 0;

Otvet[54]:= 1;

Otvet[55]:= 1;

Otvet[56]:= 0;

Otvet[57]:= 2;

Otvet[58]:= 0;

Otvet[59]:= 2;

Otvet[60]:= 1;

Otvet[61]:= 0;

Otvet[62]:= 1;

Otvet[63]:= 2;

Otvet[64]:= 1;

Otvet[65]:= 2;

Otvet[66]:= 0;

Otvet[67]:= 2;

Otvet[68]:= 1;

Otvet[69]:= 0;

Otvet[70]:= 0;

Otvet[71]:= 3;

Otvet[72]:= 0;

Otvet[73]:= 1;

Otvet[74]:= 1;

Otvet[75]:= 1;

Otvet[76]:= 1;

Otvet[77]:= 2;

Otvet[78]:= 0;

Otvet[79]:= 2;

end;

procedure TTSUBD.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

DM_komp;

end;

procedure TTSUBD.FormResize(Sender: TObject);

begin

Image4.Left:=TSUBD.Width-Image4.Width-10;

Richedit1.Width := TSUBD.Width - 15;

Richedit1.Height := TSUBD.Height - 300;

edit1.Left:= TSUBD.Width + 110;

Image1.Top:=TSUBD.Height-Image1.Height-10;

Image2.Top:=TSUBD.Height-Image2.Height-10;

RadioGroup1.Width := TSUBD.Width - 15;

RadioGroup1.Top:=TSUBD.Height-RadioGroup1.Height-100;

Label1.Top:= TSUBD.Height-RadioGroup1.Height;

end;

procedure TTSUBD.Image1Click(Sender: TObject);

begin

TK(true);

if QIndex = 79 then

begin

ReS.Panel6.Visible:=false;

ReS.Panel1.Visible:=false;

ReS.ShowModal;

end;

if QIndex < 79 then begin

GetQW;

end;

end;

procedure TTSUBD.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image1.Picture.LoadFromFile('Img\Otvet1.jpg');

NButon:=2;

Ex_comp:= false;

end;

end;

procedure TTSUBD.Image2Click(Sender: TObject);

begin

TK(False);

if QIndex = 79 then

begin

ReS.Panel6.Visible:=false;

ReS.Panel1.Visible:=false;

ReS.ShowModal;

end;

if QIndex < 79 then begin

GetQW;

end;

end;

procedure TTSUBD.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image2.Picture.LoadFromFile('Img\Propusk1.jpg');

NButon:=3;

Ex_comp:= false;

end;

end;

procedure TTSUBD.Image4Click(Sender: TObject);

begin

close;

end;

procedure TTSUBD.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Ex_comp then begin

Image4.Picture.LoadFromFile('Img\exit1.jpg');

NButon:=1;

Ex_comp:= false;

end;

end;

end.

{-----------------------------------------------------------------------------------------}



unit TVNEWR;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type

TTNEWROZ = class(TForm)

Image4: TImage;

Image6: TImage;

RichEdit1: TRichEdit;

Edit1: TEdit;

Image1: TImage;

Image2: TImage;

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure RichEdit1Click(Sender: TObject);

procedure RichEdit1Change(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure FormActivate(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

Ex_comp:boolean;

NButon:integer;

IndTestArray:integer;

testArray:array of string;

Otvet:array of boolean;

QIndex:integer;

Procedure DM_komp;

Procedure Open_Test;

Function TK(fl:boolean):boolean;

Procedure GetQW;

Procedure Itog;

end;

var

TNEWROZ: TTNEWROZ;

implementation

uses ResultF,Test;

{$R *.dfm}

Procedure TTNEWROZ.Itog;

var

Kt:integer;

Kt1:integer;

i:integer;

F:TextFile;

begin

KT:=0;

KT1:=0;

for i := 0 to 39 do

begin

if Otvet[i] then

inc(KT);

end;

for i := 39 to 79 do

begin

if Otvet[i] then

inc(KT1);

end;

ReS.Gauge5.Progress:=Trunc((100/40)*KT);

ReS.Gauge4.Progress:=Trunc((100/40)*KT1);

if (((100/40)*KT)<50)or(((100/40)*KT1)<50) then begin

ReS.RichEdit1.Lines.LoadFromFile('TEST\PN\Y.rtf');

end else begin

ReS.RichEdit1.Lines.LoadFromFile('TEST\PN\N.rtf');

end;

AssignFile(F,'TEST\REZ.txt');

Append(f);

Writeln(F,'Студент: '+Ftesting.Edit1.Text+' '+Ftesting.Edit2.Text+' '+Ftesting.Edit3.Text);