Innocenty Enikeew
0016569dac
PAS
|
10 лет назад | |
|---|---|---|
| .. | ||
| CCONTR.PAS | 10 лет назад | |
| CCONTR.TPU | 10 лет назад | |
| COOLKEY.TPU | 10 лет назад | |
| COOLMICE.TPU | 10 лет назад | |
| CORE.PAS | 10 лет назад | |
| CORE.TPU | 10 лет назад | |
| CoolKey.pas | 10 лет назад | |
| CoolMice.pas | 10 лет назад | |
| EGAVGA.BGI | 10 лет назад | |
| EGAVGA.OBJ | 10 лет назад | |
| GDI.pas | 10 лет назад | |
| TEST.PAS | 10 лет назад | |
| TestProc.pas | 10 лет назад | |
| UI.EXE | 10 лет назад | |
| UI.PAS | 10 лет назад | |
| UI2.EXE | 10 лет назад | |
| UI2.PAS | 10 лет назад | |
| WIN2K2.PAS | 10 лет назад | |
| WIN2K2.TPU | 10 лет назад | |
| WMs.pas | 10 лет назад | |
| WTypes.pas | 10 лет назад | |
| cur2.asm | 10 лет назад | |
| cursors.asm | 10 лет назад | |
| cursors.cur | 10 лет назад | |
| errors.pas | 10 лет назад | |
| lines.pl | 10 лет назад | |
| my_mem.pas | 10 лет назад | |
| procW2K2.pas | 10 лет назад | |
| readme.txt | 10 лет назад | |
| todo.txt | 10 лет назад | |
readme.txt
-᪨ 㤠⢥ 孨᪨ 㭨
孨 ⨪
ᮢ ࠡ:
" ⥬ ᮢ 㦨"
饣 㯯 1084/1
९⥫ : ७ ॥
21 2002 .
1.
-===================-
A. 3 筨 - ⥩訥 Lambda1,2,3 (L1=2, L2=1, L3=5).
B. 5 .
樯 - 浪 㯫, 뢠 ᠬ ன
樯 롮ન - LIFO.
C. ਡ, ⥩訩, ६ 㦨 Lam1 <= Lambda <= Lam2
(Lam1 = 1, Lam2=5, 蠣 0.4)
室 ।:
a. ⭮ ⪠ 筨, 㭪
⥭ᨢ ਡ. 譮 - 10%, ⥫ ࢠ - 0.8
b. ⥬ , 㭪 ⥭ᨢ ਡ.
2. 㪮⢮ 짮⥫
-=============================-
. ணࠬ ⢫ 믮 ணࠬ 䠩 UI.EXE
. । ⥣ ⥬ ࠬ
⥬ 뢮 १⮢.
. ࠢ ᥬ ⠬ 䥩 ⢫
⨯ "".
. ᪠ 室 ⭮
⮢ 䥩 ⨯ "" "OK".
⮬ 筥 , , ᨬ ⥪饣 ०,
(. 㭪 - "") 䨪 (, 饬 ࠢ
ࠡ祩 ) 筥 ⮡ࠦ १⮢.
襭 , 뢠
.
. 筮 ४饭 室 "" ""
"STOP". ⮬ 䨪 த ⮡ࠦ
㦥 ᬮ 祭 ⥪⮢ 䠩 ᠭ
१ (. 㭪 -""). 室 ணࠬ ᯮ
, ᠭ "Exit".
. 室 ࠬ ᯮ .. " ",
䥩 אַ㣮쭮 , 뢥 ⥪⮬
ॠ騥 "" ⨪쭮 - -
, 饣 ।, ⥪
짮⥫ ᨬ. ६饭 ⢫
Left, Right, Home, End, ⠪
, 㤠 ॡ ६ .
ࠢ ० ⮡ࠦ/ࠡ ᯮ ..
"䫠" (CheckBox) 2 ﭨ (/몫). ﭨ
"" । ⥪⮬ ⭮ ⮡ࠦ
"" (ᨬ ५ ). ﭨ "䫠"
室 ⭮ ⨥ ⥪
.
. ணࠬ ।⠢ 騥 :
- 'Veroyatn' - ॡ㥬 譮 .
祭 . ଥ (. 0.1), ⠪ 業⭮
(. 10%)
- 'Dov. Int' - ॡ㥬 ⥫ ࢠ. (. 0.82)
- 'Beg. Lam prib' - 砫쭠 ﬡ ਡ. ﬡ
ᯮ ⠤筮 ० (. 㭪 "")
- 'End Lam prib' - 筠 ﬡ ਡ ( . ⫠. ०)
- 'Steps' - 権, ﬡ ਡ 砫쭮
筮
- 'Buf size' - ꥬ .
- 'Lambda 1'(2,3) - ﬡ 筨.
⫠筮 ० "KMIN",
㪠뢠 ॡ㥬 ॠ権. ॠ権
⠪ ॠ権 ଠ쭮 ०.
. ணࠬ 2 ० ࠡ - ଠ ० ⫠.
ଠ쭮 ० ணࠬ 蠥 ⠢ ,
䨪 ⮡ࠦ ᨬ, ॡ㥬 .
⫠筮 ० ந室 ﭭ
ਡ, ⮡ࠦ 䨪 ᨬ ⭮ ⪠
ॠ権.
४祭 ० ⢫ "䫠" Test Mode,
. "" ⨢ ⫠ ०.
. ࠢ ⮡ࠦ १⮢ ⢫
"䫠"
'Ist Potk ()' 'Ist MatO ()',
- ᮮ⢥饣 筨,
- ᮮ⢥饩 ਢ 䨪
Potk - ⭮ ⪠ ' 筨
MatO - ⥬ ----\\----
⨥ 䫠 ᮡ /⨥ 䨪
ᮮ⢥饩 ਢ, 祬 ᤥ (
᪠ , , 砭).
䨪 (X, ਧ. ),
ଠ쭮 ० - ⥪ ﬡ ਡ, ⫠筮 -
ॠ樨.
न - ࠧ. 䨪 ⭮⥩ 0% 100%,
䨪 . - ࠢ⠡ ६ .
. ଠ쭮 ० ࠡ
⥪饬 ᥠ ᮧ ⥪⮢ , result.,
- ᪠. ⮬ 䠩 樨 뢮
१ . 䠩 ᬮ 室
ணࠬ.
!!
୮ ᪥ 㦥 騥 䠩,
⥪ ⮢ - 묨.
3.
-===============-
ᮢ ࠡ ॠ । Turbo Pascal ᯮ짮
ꥪ⭮-ਥ ணࠬ, ᯮ짮 ᮡ⢥
⥪.
⮨ 䠩, ᠭ .
ᠭ ਢ 䠩 "WIN2k2.PAS", ⠪ 䠩
"core.pas" "ui.pas" ⢥ ਥ.
UI.PAS - ணࠬ. 室 ᪠.
CORE.PAS - ᭮ ࠡ稩 ணࠬ. ᠭ ꥪ
⭮襭 .
------ ⠢ ⥪ -----
WIN2k2.pas - ᭮ ⠢ -䥩᭮ ⥪.
WTypes.inc - ᠭ ᭮ ⨯
procW2K2.inc - ᭮ 㭪権 ⥪
WMs.inc - ᭮ ⠭
errors.inc - 訡
GDI.inc - . ᪨ 㭪権
cursors.asm \ ᯮ㥬 . ᯮ짮 室 -
cur2.asm / COM 䠩 २ cursors.cur
(2 ࠧ ᨨ)
egavga.obj - 㥬 ᭮ ⥪ ࠩ egavga.bgi
CoolKey.pas - ࠡ ன, ᯮ ᮡ⢥
ࠡ稪 ୮ 뢠 (INT 09)
CoolMice.Pas - ࠡ . 䥩 INT 33h
CContr.pas - , ࠡ騩 ⥪ Win2k2, ॠ騩
⠭ 䥩
(EditBox, Button, CheckBox, Label, XYPlot)
4. Win2k2
-==================-
ᠭ ண ⮣ ᮧ
᮪孮᪨ ᪨ 䥩ᮢ ன
筮. ᭮ 뫠 ᪠ ப⭮
樮 ⥬ Windows ਨ 95. - ⪠ ᮧ ..
⥪ ⭮襭 Win32 API. ⥬
ࠡ⪨ ᮮ饭 (messages), ணࠬ
। ⢮ 㣮.
⨯ 㭪権, ⥬ Windows.
ॠ樨 ᯮ ࠡ
ன .
---------------------------
ࠢ 饭.
Windows 95, Win32 API - ࣮ ન Microsoft Corp.
ᠭ 室 ⥫㠫쭮 ᮡ⢥
ᯮ짮 ᮣ ⨬.
孨 ⨪
ᮢ ࠡ:
" ⥬ ᮢ 㦨"
饣 㯯 1084/1
९⥫ : ७ ॥
21 2002 .
1.
-===================-
A. 3 筨 - ⥩訥 Lambda1,2,3 (L1=2, L2=1, L3=5).
B. 5 .
樯 - 浪 㯫, 뢠 ᠬ ன
樯 롮ન - LIFO.
C. ਡ, ⥩訩, ६ 㦨 Lam1 <= Lambda <= Lam2
(Lam1 = 1, Lam2=5, 蠣 0.4)
室 ।:
a. ⭮ ⪠ 筨, 㭪
⥭ᨢ ਡ. 譮 - 10%, ⥫ ࢠ - 0.8
b. ⥬ , 㭪 ⥭ᨢ ਡ.
2. 㪮⢮ 짮⥫
-=============================-
. ணࠬ ⢫ 믮 ணࠬ 䠩 UI.EXE
. । ⥣ ⥬ ࠬ
⥬ 뢮 १⮢.
. ࠢ ᥬ ⠬ 䥩 ⢫
⨯ "".
. ᪠ 室 ⭮
⮢ 䥩 ⨯ "" "OK".
⮬ 筥 , , ᨬ ⥪饣 ०,
(. 㭪 - "") 䨪 (, 饬 ࠢ
ࠡ祩 ) 筥 ⮡ࠦ १⮢.
襭 , 뢠
.
. 筮 ४饭 室 "" ""
"STOP". ⮬ 䨪 த ⮡ࠦ
㦥 ᬮ 祭 ⥪⮢ 䠩 ᠭ
१ (. 㭪 -""). 室 ணࠬ ᯮ
, ᠭ "Exit".
. 室 ࠬ ᯮ .. " ",
䥩 אַ㣮쭮 , 뢥 ⥪⮬
ॠ騥 "" ⨪쭮 - -
, 饣 ।, ⥪
짮⥫ ᨬ. ६饭 ⢫
Left, Right, Home, End, ⠪
, 㤠 ॡ ६ .
ࠢ ० ⮡ࠦ/ࠡ ᯮ ..
"䫠" (CheckBox) 2 ﭨ (/몫). ﭨ
"" । ⥪⮬ ⭮ ⮡ࠦ
"" (ᨬ ५ ). ﭨ "䫠"
室 ⭮ ⨥ ⥪
.
. ணࠬ ।⠢ 騥 :
- 'Veroyatn' - ॡ㥬 譮 .
祭 . ଥ (. 0.1), ⠪ 業⭮
(. 10%)
- 'Dov. Int' - ॡ㥬 ⥫ ࢠ. (. 0.82)
- 'Beg. Lam prib' - 砫쭠 ﬡ ਡ. ﬡ
ᯮ ⠤筮 ० (. 㭪 "")
- 'End Lam prib' - 筠 ﬡ ਡ ( . ⫠. ०)
- 'Steps' - 権, ﬡ ਡ 砫쭮
筮
- 'Buf size' - ꥬ .
- 'Lambda 1'(2,3) - ﬡ 筨.
⫠筮 ० "KMIN",
㪠뢠 ॡ㥬 ॠ権. ॠ権
⠪ ॠ権 ଠ쭮 ०.
. ணࠬ 2 ० ࠡ - ଠ ० ⫠.
ଠ쭮 ० ணࠬ 蠥 ⠢ ,
䨪 ⮡ࠦ ᨬ, ॡ㥬 .
⫠筮 ० ந室 ﭭ
ਡ, ⮡ࠦ 䨪 ᨬ ⭮ ⪠
ॠ権.
४祭 ० ⢫ "䫠" Test Mode,
. "" ⨢ ⫠ ०.
. ࠢ ⮡ࠦ १⮢ ⢫
"䫠"
'Ist Potk ()' 'Ist MatO ()',
- ᮮ⢥饣 筨,
- ᮮ⢥饩 ਢ 䨪
Potk - ⭮ ⪠ ' 筨
MatO - ⥬ ----\\----
⨥ 䫠 ᮡ /⨥ 䨪
ᮮ⢥饩 ਢ, 祬 ᤥ (
᪠ , , 砭).
䨪 (X, ਧ. ),
ଠ쭮 ० - ⥪ ﬡ ਡ, ⫠筮 -
ॠ樨.
न - ࠧ. 䨪 ⭮⥩ 0% 100%,
䨪 . - ࠢ⠡ ६ .
. ଠ쭮 ० ࠡ
⥪饬 ᥠ ᮧ ⥪⮢ , result.,
- ᪠. ⮬ 䠩 樨 뢮
१ . 䠩 ᬮ 室
ணࠬ.
!!
୮ ᪥ 㦥 騥 䠩,
⥪ ⮢ - 묨.
3.
-===============-
ᮢ ࠡ ॠ । Turbo Pascal ᯮ짮
ꥪ⭮-ਥ ணࠬ, ᯮ짮 ᮡ⢥
⥪.
⮨ 䠩, ᠭ .
ᠭ ਢ 䠩 "WIN2k2.PAS", ⠪ 䠩
"core.pas" "ui.pas" ⢥ ਥ.
UI.PAS - ணࠬ. 室 ᪠.
CORE.PAS - ᭮ ࠡ稩 ணࠬ. ᠭ ꥪ
⭮襭 .
------ ⠢ ⥪ -----
WIN2k2.pas - ᭮ ⠢ -䥩᭮ ⥪.
WTypes.inc - ᠭ ᭮ ⨯
procW2K2.inc - ᭮ 㭪権 ⥪
WMs.inc - ᭮ ⠭
errors.inc - 訡
GDI.inc - . ᪨ 㭪権
cursors.asm \ ᯮ㥬 . ᯮ짮 室 -
cur2.asm / COM 䠩 २ cursors.cur
(2 ࠧ ᨨ)
egavga.obj - 㥬 ᭮ ⥪ ࠩ egavga.bgi
CoolKey.pas - ࠡ ன, ᯮ ᮡ⢥
ࠡ稪 ୮ 뢠 (INT 09)
CoolMice.Pas - ࠡ . 䥩 INT 33h
CContr.pas - , ࠡ騩 ⥪ Win2k2, ॠ騩
⠭ 䥩
(EditBox, Button, CheckBox, Label, XYPlot)
4. Win2k2
-==================-
ᠭ ண ⮣ ᮧ
᮪孮᪨ ᪨ 䥩ᮢ ன
筮. ᭮ 뫠 ᪠ ப⭮
樮 ⥬ Windows ਨ 95. - ⪠ ᮧ ..
⥪ ⭮襭 Win32 API. ⥬
ࠡ⪨ ᮮ饭 (messages), ணࠬ
। ⢮ 㣮.
⨯ 㭪権, ⥬ Windows.
ॠ樨 ᯮ ࠡ
ன .
---------------------------
ࠢ 饭.
Windows 95, Win32 API - ࣮ ન Microsoft Corp.
ᠭ 室 ⥫㠫쭮 ᮡ⢥
ᯮ짮 ᮣ ⨬.