, . 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.
, . , ( ) . , .
|
|
'- , .
, . , , , .