.


:




:

































 

 

 

 


-




 

, . Delphi. , ', Windows.

 

, . Delphi. , Windows.

 

The project on " Psychological tests " is a program which allows user to determine his type of informational metabolism. This program was created in the development environment Delphi. There are necessary minimum system requirements; the program is intended for use on office and school computers with Windows.

υ.4

1. ...5

1.1. ..5

1.2. - ȅ6

1.3. .....................7

1.4. ֲ Ѕ......................9

2. 腅12

腅...16

ί ˲ȅ...17

. ˳ 腅.18


 

. , , . , -. - , 70- . 㳿, 㳿, .

Ҳ . , Ҳ , , . , . , , :

1) , ;

2) , ;

3) ,

, , Ҳ .


, , :

1) , ;

2) (, , );

3) , ';

4) , ' , , Windows;

, Delphi.

 

 


-

- 1.1.

. 1.1. -


, . 10 , ᒺ .

1.1.

(unit main)
.
.
ϳ .

1.2. ϳ

ϳ (units user, que, que2, que3, rezult)
.
: : Ҳ .
.

 

1.3.

(unit pas)
.
.
.

1.4.

(unit admin)
, , .
.
.

1.5.

(unit data)
³ .
.

1.6.

(unit help)
.
.
.

:

1.7.

procedure Nameform.showhelp(c,s:string); , s. .
procedure TStartForm.AdminButtonClick(Sender: TObject); pasForm ( ).
procedure TStartForm.UserButtonClick(Sender: TObject); UserForm.
procedure TUserForm.DownButtonClick(Sender: TObject); ( ( 6 100)).
procedure TUserForm.FormClose(Sender: TObject; var Action: TCloseAction);   procedure TQuetionForm.FormClose(Sender: TObject; var Action: TCloseAction);   Tquetion2Form.FormClose(Sender: TObject;var Action: TCloseAction);   procedure TpasForm.FormClose(Sender: TObject; var Action: TCloseAction); 䳿.
procedure TQuetionForm.FormCreate(Sender: TObject);   procedure Tquetion2Form.FormCreate(Sender: TObject);   procedure Tquetion3Form.FormCreate(Sender: TObject); .
procedure TQuetionForm.nextClick(Sender: TObject); , , users.txt, quetion2Form.
procedure Tquetion2Form.Button1Click(Sender: TObject); , , users.txt, quetion3Form.
procedure Tquetion3Form.nextClick(Sender: TObject); , , users.txt, rezultForm.
procedure TrezultForm.FormShow(Sender: TObject); , .
procedure TpasForm.Button1Click(Sender: TObject); , , , AdminForm.
procedure TAdminForm.ClearButtonClick(Sender: TObject); users.txt.
TAdminForm.ChangeButtonClick(Sender: TObject); .

 


(). . , 2.1:

. 2.1.

 

 

. 2.2.

, , 2.2. . , . , . :

 

. 2.3. 1

:

 

. 2.4.

 

 

. 2.5.

 

:

. 2.6. 2 . 2.7. 3

:

. 2.8.

, , :

. 2.9. . 2.10.

`111`, . , .

䳿 :

. 2.11.

ij . ij :

. 2.12.


, . , ( ) . , .

'- , .

, . , , , .






:


: 2016-07-29; !; : 629 |


:

:

,
==> ...

1828 - | 1810 -


© 2015-2024 lektsii.org - -

: 0.028 .