Razrabotka Sbalansirovannoi Sistemy Pokazatelei Metodika Ver (1)
Razrabotka Elektronnogo Interaktivnogo Uchebnometodicheskogo
description
Transcript of Razrabotka Elektronnogo Interaktivnogo Uchebnometodicheskogo
. .
- 1: 8.1
050703 2010
...3
1 .5
1.1 .....5
1.2 ....6
1.3 .6
1.4 ..8
1.5 ..9
2 ...11
2.1 11
2. 2 ..11
2.3 ..12
2.4 .12
2.5 .19
2.6 .21
2.6.1. ..21
2.6.2. 24
2.6.3. ..26
3 ...28
4 .50
5 55
5.1 55
5.2 .56
..........61
.62
.
. . . , , , , [1]. , , .
, , , , [2]. , . - :1. 1: .
2. 1: 90 % .
3. 1: 8.1.
: flash , .
- 1: 8.1.
, :
1. , .
2. .
3. , , .
4. .
5. , , : , , 1: 8.1.6. , , .
- , 1: 8.1 Flash , , . .
- .1
1.1
- 1: 8.1 - 1: 8.1.
, . 1: 8.1. , , , , , :
- , , ;
- , ;
- ;- , 1: 8.1 ;- , 1: 8.1;
- , ;- , , 1: 8.1. , , . :
- 1: 8.1;
- ;- , ;
- , ;
- , ;
- , .1.2
- 1: 8.1 . . . .
, . .
, , .
1.3
- 1: 8.1. 1: 8.1.
(, ), . . , , , . - , -. [3]. , , .
, . 1: 8.1. .
, , [4].
, 1: 8.1 .
. , .
, , , 1: 8.1, 1: 8.1.
- -, . - .
:
1) , ;
2) , ;
3) , , , .
, , , , . [5]. , - , .. , . , , , , . 1.4
, . . :
1. 1: 8.1. , . , .
2. .
3. . , , .
4. . .
5. , .
6. . .
7. . .
8. , , .
"". , , , .
, , .
IBM Windows 95/98/XP/NT, (, , ). , . .
, .1.5
. - . , , , - .
, , . - [6]. , , , , , .
, Microsoft Windows. 1024 768 , 16 32 . , , . :
1. Intel Pentium 3 AMD Duron 800 MHz.
2. 512 Mb.3. 500 1 .4. SVGA 1024*768 .5. .
:1. Windows 9x\2000\.2. Microsoft Windows XP Serves Pack 2 .3. Flash Player 6 .2
2. 1
- 1: 8.1. :
- , , . , 1: 8.1. . ;
- - , , . , ;
- , . , ;
- . , .2.2
, , :
- , , ;
- , , . , ;
- , . , , . , , , , [7].2.3
:
1. Intel Pentium 3 AMD Duron 800 MHz.
2. 512 Mb.3. 500 1 .4. SVGA 1024*768 . :1. Windows 9x\2000\.2. Microsoft Windows XP Serves Pack 2.
3. Flash Player 6 ( flash ).2.4
Adobe Photoshop , . , , .
Adobe Photoshop , , , , , , . Adobe Photoshop , [8].
(, , , , RGB CMYK). Photoshop , . Adobe Photoshop , , 1.
1. Adobe Photoshop
Adobe Photoshop , , , Adobe Photoshop , .
- Macromedia Flash 2004. Macromedia Flash , , - -, , , , . Macromedia Flash , web-, XML ECMAScript, , . 2.
2 . Macromedia Flash MX 2004
: 1. , , - - , , .2. , web-, XML ECMAScript, , , .3. , Macromedia Flash MX 2004 . -.4. , . , -, .5. EPS PDF, .6. Flash- Macromedia Flash Player Macromedia Flash Player 7.7. , . -, , .
8. ActionScript 2.0.9. , , (CSS) Macromedia Flash. 10. , . Unicode Strings [9]. MS ss. MS Access . :
- , . , , ;
- MS Access (, , , , , , , , );
- , Microsoft Office, , OLE;
- [10].
Microsoft Office Access Microsoft Access Microsoft. , , . , . , . . VBA, Access , 3.
3. Microsoft Access 2003 ss , , , . *.mdb. , , , . mbd - , Microsoft , Access , .
Borland - RAD - Rapid Application Developement. Borland [11].
Delphi . Delphi , , . Delphi, , : , , . Delphi , Delphi , , [12]. 4.
4. Borland Delphi
Delphi - Pascal Borland. Pascal , . Pascal : , Visual Basic, , , , . - C++ Pascal [13]. Pascal Borland . , - . , (4GL) , 3GL.
. , ( , , ): , , . ., ( ) [14].
, Delphi, , .
Visual Component Library (VCL). VCL , , , , . , : , , . .
VCL , Windows, , Windows . Delphi , . , , . , Delphi .
, , , . , , [15].
, .
1. TLabel . , Font . , .
2. TEdit - Windows . .
3. TButton - . Delphi . TButton , .
4. TRadioButton . .
5. TBitBtn - TButton, (glyph). TBitBtn (bkClose, bkOK ), . , .
6. TImage - . BMP, ICO, WMF. , EXE .
7. TTimer - , OnTimer , Interval. 1 65535 [16]. TShockwaveFlash flash- WebBrowser html .2.5 , . [17]. . [18].
- , MS Access 5.
5. MS Access , , , . 1 Rezult, , . 1 Rezult
(*- )
Kod (*) -
User 50
Data/-
Resultat50
2 Users, , , , . :
2
Users
(*- )
Login (*)30
Password 30
Fam30
Imya20
Otch30
Group20
3 Vopros, .
3
Vopros
(*- )
Code (*)-
Tekst255
ans1255
ans2255
ans3255
ans4255
ans5255
2.6
2.6.1
- , . .
(TForm). , TImage.
, , , , .
. 5 . , : procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
PlaySound('Audio\movve.wav', 0,SND_Async);
end.
, , . :
procedure TForm1.btnUchebnikMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image3.Visible := False;
Image2.Visible := True;
end;procedure TForm1.btnUchebnikMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image3.Visible := True;
Image2.Visible := False;
if (X > 0) and (X < 193) and (Y > 0) and (Y < 49) then
begin
Form1.Hide; Form6.show;
end;
end. , . , , , :procedure TForm4.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form4.Image3.Visible:=False; Form4.Image2.Visible:=True;end; procedure TForm4.Label4MouseLeave(Sender: TObject);
begin
Form4.Image2.Visible:=False; Form4.Image3.Visible:=True;
end. flash TShockwaveFlash :
procedure TForm16.FormShow(Sender: TObject);
begin
ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'Flash/1-1.swf';
ShockwaveFlash2.Movie := ExtractFilePath(Application.ExeName) + 'Flash/Button2.swf';
ShockwaveFlash3.Movie := ExtractFilePath(Application.ExeName) + 'Flash/Button1.swf';
end. html TWebBrowser OnCreate, , .
procedure TForm9.FormCreate(Sender: TObject);
begin
Form9.WebBrowser1.Navigate(ExpandUNCFileName('HTML/Links/1.html'));
end; html , :
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,1);
end; :
procedure TForm8.BitBtn2Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW,1);
end. html , , :procedure TForm3.BitBtn3Click(Sender: TObject);
const
CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
CmdTarget : IOleCommandTarget;
vaIn, vaOut: OleVariant;
PtrGUID: PGUID;
begin
New(PtrGUID);
PtrGUID^ := CGID_WebBrowser;
if WebBrowser1.Document nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget nil then
try
CmdTarget.Exec( PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
finally
CmdTarget._Release;
end; except end;
Dispose(PtrGUID);
end. , , , . , html :
, :
procedure TForm3.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form3.WebBrowser1.Navigate(ExpandUNCFileName ('HTML/Glossary/.html'));
end; :
procedure TForm3.SpeedButton2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form3.WebBrowser1.Navigate(ExpandUNCFileName ('HTML/Glossary/.html'));
end. flash , , .procedure TForm11.Label4Click(Sender: TObject);
begin
WinExec ('Video/2/1CV8Tren.exe', SW_SHOW);
end.2.6.2 . , , . , , , , :if (Form12.ADOTable1.Lookup('Login',Login.Text,'Login')Login.Text) then
begin
ShowMessage(' !');
end;
if (Form12.ADOTable1.Lookup('Login',Login.Text,'Login')=Login.Text) and (Form12.ADOTable1.Lookup('Login',Login.Text,'Password')Password.Text) then
begin
ShowMessage(' !'); :
if (Form12.ADOTable1.Lookup('Login',Login.Text,'Login')=Login.Text) and (Form12.ADOTable1.Lookup('Login',Login.Text,'Password')=Password.Text)
then
begin
Application.Initialize;
Application.CreateForm(TForm13, Form13);
if Form5.Login.Text='Administrator' then
begin
Form13.Caption:=' ';
Form13.Label13.Caption:=Login.Text;
Form5.Hide; Form13.Show;
End else
Form13.Caption:=' - '+ Form5.Login.Text;
Form13.Label13.Caption:=Login.Text;
Form5.Hide; Form13.Show;
end. , . , :
procedure TForm12.Label4Click(Sender: TObject);
begin
adotable1.Filtered:=true;
if dbtext1.Caption='' then begin
adotable1.Insert;
adotable1Login.Value:=Login.Text;
adotable1Password.Value:=edit1.Text;
adotable1Fam.Value:=edit2.Text;
adotable1Imya.Value:=edit3.Text;
adotable1Otch.Value:=edit4.Text;
adotable1Group.Value:=edit5.Text;
adotable1.Post;
ShowMessage(' !');
Login.Text:='';
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:='';Edit5.Text:='';
Form12.Close;
End else begin
ShowMessage(' !');
end;
adotable1.Filtered:=false; end.2.6.3
, . .
:Form1.hide;
adoconnection1.Connected:=true;
randomize;
t:=0;
for e1:=0 to 42 do begin
if stringgrid1.Cells[e1,0]='' then begin
e2:=random(300)+1;
for e3:=0 to e1-1 do
if stringgrid1.Cells[e3,0]=inttostr(e2) then t:=1;
if t=0 then
stringgrid1.Cells[e1,0]:=inttostr(e2)else t:=0;
end; end;
t:=0;
for e1:=0 to 42 do begin
if stringgrid1.Cells[e1,0]='' then begin
e2:=random(300)+1;
for e3:=0 to e1-1 do
if stringgrid1.Cells[e3,0]=inttostr(e2) then t:=1;
if t=0 then
stringgrid1.Cells[e1,0]:=inttostr(e2)else t:=0;
end; end;
e2:=301;
for e1:=0 to 40 do begin
if stringgrid1.Cells[e1,0]='' then begin
stringgrid1.Cells[e1,0]:=inttostr(e2);
e2:=e2+1; end; end;
dd:=0; p1:=0; p2:=0;
b:=strtoint(stringgrid1.Cells[dd,0]); , , .
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
if label5.Caption=label23.Caption then
begin
Form13.label22.Caption:='';
label22.Visible:=true;
p1:=p1+1;
end else begin
label22.Caption:='';
label22.Visible:=true;
p2:=p2+1;
end;
timer1.Enabled:=true;
end;
. , . .3
- 1: 8.1 Install.exe. , . . , , 6.
6.
, , , , , , . , , 7.
7.
1 8.1.exe. 8.
8.
- , .
. 1: 8.1. , 9, , .
9.
:
- , 1: 8.1. , .- , , . . , . 10.
10.
. , . , , . . , . , . . , . 12 , , 1: 8.1. , 1: 8.1, . , , , , , . , 11.
11. , , 12, , 1: 8.1.
12.
, . . . , , 13, .
13.
.
, , , , . , . 14:
14. , , , . , 15.
15. :
- , 1: 8.1
- , 5 , , , 1: 8.1, ( , 1: 8.1) 1: 8.1.
, 16.
16. 17.
17. , .
- .
, .
18, :
- ;
- ;
- ;
- .
.
18.
. 1: 8.1. , 19.
19.
, , , 1: 8.1. , , - .
20. , . , , .
20.
. . , , . - , , . 21. , , , , - , 1: 8.1.
21. 22, :
- 1:;
- .
22. flash , Flash Player, 6 . , , , 1:. 1:, 23, 1: 8.1 , 1: 8.1, , . , 1:, - .
23. 1: . 24.
, , , , , .
24.
, Macromedia Flash Player 6 . , 25. , 1: 8.1. , .
Backspace.
25. . , , , , . , , . , Ctrl + F, , . , 26, , , 1: 8.1. . .
26. - 27.
27. -
. . 28.
28.
. , , 29.
29. , , 30.
30. , , . , . 31.
31.
, . , , , 32, , .
32. , , 33, .
33. . . 34.
34.
, , . . , , .
. , , . 35.
35. . , 36, , .
36. , , . , Administrator P@r0l. . . , , . , . 37.
37. , .
F1, .
4 - , , .
, , . , [19].
, , , , , . , 50(60 . , , , . , , . , - . , 70 . , , . , . - 30 - 30 [20].
. . . . - 1,2% 1,5% . .
. . .
. :
, 50 200 /2;
40 ;
, ( ). ;
;
, [21]. . , Mitsubishi Panasonic, , , . , , - , Electron LaCie. , . ( , ), . ( ) , . , , , . ( 30 70 ) - - ( 15 50 ). . , , . . [22].
, , . : 50-70 . .
: 5-10 15-20 . , .
. .
, .
: , , (90 .). :
, . ( , ). , , . - . ( , , .)
, , , , ( ).
, , . [20]. , ( ) , , . 36 . (, , ). : , , - . . , , , , .
, , , . , , .
, , , . (, , , - , ), . , , , .
( ) . , , . , [23]. , - . , . , , .
. . , .
:
, , , ;
- ;
, , , - .
: , , , .
, , , . , . , , .., , , .
, , , . , , . , , . , . (, ..) , , .5
5.1
- .
. , , . ( , ..), , , , . , , , , .
, ( , , ) . , . . , .
, , :- ( );
- ;
- . . , , . .
- 1: 8.1.
, .
5.2
: , ( ), , .
(1) , . = + + (1) - ;
- ;
- ;
- . (2) .=t * T (2) (3) (t), (t), - (t), - (t), (t).t = t + t + t + t + t (3) , Q. Q = 920. . , (4).t = Q * B /(75...85 * K) (4)B - , (B=1,2..5);
K - . 2 0,8.
:t = 940 * 3/(80 * 0.8) = 44 (-). : t = Q/(60...75 * K) = 940/(65*0.8) = 18 (-). - : t = Q /(60...75 * K) = 940/(65*0.8) = 18 (-). : t = Q/(60...75 * K) = 940/(65*0.8) = 18 (-). (5) (tA), 1,5.t = 1,5 * tA (5) (6). tA = Q/(40...50 * K) = 940/(45*0.8) = 26 (-) (6) .t = 1,5*26= 39 (-). :t = 44+18+18+18+39 = 137(-). (6) .t = t + t (6)t = 18 + 39 = 57 . . , , , . 45 000 . 8- , 5- 270 ./ ( 21 ). : = 137 * 270 = 36990 . , (7) , (/). = ( + ) (7) - (8) () (). = / (8) () . 4 . 119. = 8*(365-119) - 52*4 = 1760 . (9) () (). = * (9) 12.5%.
(10) () (). = + (10) , 110000 , 1% . = 1% * = 0,01 * 110000 = 1100 . : = 110000 + 1100 = 111100 ./. : = 111100 * 0.125= 13888 ./. . (11) - () (t). = * t (11) (12) (), 1* (), (). = * * * (12) 1* 11,39 ., 2010 . = 0.22 = 0.98. : = 0.22*1760*11,39*0.98 = 4322 . : = 13888+4322= 18210 . - : = 18210/ 1760 = 10,35 . . = 10,35* 57 = 589,95 . . - , , .. 12 330 . (1). = 36990 + 589,95 + 12330 = 49 909,95. 49910 . , .
, . , , 1: 8.1, . , ; ; .
- 1: 8.1. , . , . , . , - , , , . , - , . : , 1: 8.1, , , , , , .
: ;
, ;
;
;
;
. , , , . .
1 .. . - .: . 2003. . 21-23.2 .. . .: , 2008. . 45.3 .. . : , 2004. . 42.4 .., . . , 2005 . C. 117120.5 .., .. : , , . - .: . 2003. . 13-15.
6 .., , : ( ), 2000. - C. 5271.7 .., .. : . / . .. . - , 1991. . 62.8 .., .. . . .: , 2001. - C. 33.9 .. Macromedia Flash MX. . .: -, 2003. C. 1825.10 . . Microsoft Access: . .: , 2005, . 149-153.11 . Delphi. .: . 2003. . 75.
12 .. Delphi 7: , 2004. . 457-495.
13 .. Delphi 7. . .: , 2002. .52.14 ., ., Delphi 7, , . .: -, 2003 . . 302305.15 . Delphi 7. : BHV, 2002. . 316-345.
16 .., .. Delphi 7. .: -, 2003. . 5977.17 . ., . , , -: , 2002. C. 214218.
18 ., ., . : , , . . . .: , 2000. - . 45-48.19 . //. .- 4 2003. - .36.
20 .. // .. / .., .. .-., 2001.- . 114-129. 21 .. /.. // .-2003.-5.- . 77-80.
22 . /. // .-2000.-5.- .13-15.23 .., .., . . . .: - , 2008. . 87.
PAGE 56