Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:БД книги 2 / материалы по FoxPro / GL20
.PAS ѓ‹Ђ‚Ђ 20.
‘Ћ‚…ђ…Ќ‘’‚“…Њ €Ќ’…ђ”…‰‘ ЏЋ‹њ‡Ћ‚Ђ’…‹џ
„ўҐ ЇаҐ¤л¤гйЁҐ Ј« ўл ᮧ¤ «Ё ЇаҐ¤Ї®бл«ЄЁ ¤«п а бᬮв२п вЁЇ®ўле
б।бвў ЁвҐа䥩б , а §а Ў®вЄг Є®в®а®Ј® ҐаҐ¤Є® ва вЁвбп Ў®«ми п
з бвм ўаҐ¬ҐЁ Їа®Ја ¬¬Ёбв . ђ бб¬ ваЁў Ґ¬лҐ ў ¤ ®© Ј« ўҐ аҐиҐЁп
"ў бвЁ«Ґ WINDOWS" Ї®§ў®«по⠨⥣аЁа®ў вм ў Ґ¤Ёл© Їа®бв® гЇа ў«пҐ¬л©
ЁвҐадҐ©б ®ЎкҐЄвл а §®Ј® § 票п: Є®ЇЄЁ 4 вЁЇ®ў, ўҐавЁЄ «млҐ
¬Ґо, ®Ў« б⨠। ЄвЁа®ў Ёп, BROWSE-в Ў«Ёжл. ЏаЁ н⮬ Ґ ЁбЄ«оз овбп
б«®¦лҐ «®ЈЁзҐбЄЁҐ бўп§Ё ¬Ґ¦¤г ®ЎкҐЄв ¬Ё, Ёе ЇҐаҐбва®©Є Ё ЇҐаҐ бва®©Є .
20.1. Ќ § з Ґ¬ Є®¬ ¤лҐ Є« ўЁиЁ
‚ 㤮Ў®¬ ¤«п Ї®«м§®ў вҐ«п ЁвҐа䥩бҐ, Єа®¬Ґ бЁбвҐ¬л ®Є® Ё
¬Ґо, Ўлў ов § ¤Ґ©бвў®ў л Є« ўЁиЁ-Є®¬ ¤л. €е ¦ вЁҐ ў«ҐзҐв
ўлЇ®«ҐЁҐ § ЄаҐЇ«Ґле § Ё¬Ё Є®¬ ¤, ®Ўлз® нв® ®Ўа йҐЁп Є Ў«®Є ¬
ўлЇ®«ҐЁп вЁЇЁзле ®ЇҐа жЁ©. Ќ § 票Ґ Є« ўЁи Ї®Є §лў ов ў
®в¤Ґ«м®© бва®ЄҐ (Ё«Ё бва®Є е) нЄа (®Є ) - Є« ўЁи®¬ в Ў«®.
Ќ ЇаЁ¬Ґа, в Є®© бва®Є®© ¬®¦Ґв Ўлвм <‚лаC> ў ®ЇжЁпе TITLE<‚лаC> Ё
FOOTER<‚лаC>. Љ« ўЁиг Їа®ЎҐ« Ўг¤Ґ¬ ®Ў®§ з вм Є Є Space.
Љ®¬ ¤л ON KEY, ON ESCAPE. Љ®¬ ¤ ON KEY <Љ®¬ ¤ > § з Ґв
ўлЇ®«ҐЁҐ <Љ®¬ ¤л> ЇаЁ ¦ вЁЁ «оЎ®© Є« ўЁиЁ. ON ESCAPE <Љ®¬ ¤ >
§ з Ґв <Љ®¬ ¤г> "ЇҐаб® «м®" Є« ўЁиҐ Esc, Ґб«Ё ¤Ґ©бвўгҐв
гбв ®ўЄ SET ESCAPE ON (гбв ®ўЄ Ї® 㬮«з Ёо). Ћв¬Ґг нвЁе
§ 票© Їа®Ё§ў®¤пв Є®¬ ¤л ON KEY, ON ESCAPE ЎҐ§ аЈг¬Ґв®ў.
Ќ®ў®Ґ § 票Ґ ®в¬ҐпҐв ЇаҐ¤л¤г饥.
Љ®¬ ¤ ON KEY =<‚лаN> <Љ®¬ ¤ > § з Ґв <Љ®¬ ¤г> Є« ўЁиҐ
б INKEY-Є®¤®¬ (б¬. Ї.1.8, ЇаЁ«®¦ҐЁҐ 4), а ўл¬ <‚лаN>. „Ґ©бвўгҐв
«Ёим ®¤® в Є®Ґ § 票Ґ - Ї®б«Ґ¤ҐҐ, в.Ґ. ЄвЁў ®¤ Є« ўЁи .
"ЌҐа §Ў®азЁў®бвм" Є®¬ ¤л ON KEY «ҐЈЄ® Ї®Їа ўЁ¬ . Џгбвм нв®
Ўг¤Ґв Є®¬ ¤ ON KEY Do Proc. Џа®жҐ¤гаг Proc бва®Ё¬ Ї® б奬Ґ
PROCEDURE Proc
Key = LastKey()
DO CASE
CASE Key = <INKEY-Є®¤1>
<„Ґ©бвўЁп, ЇаҐ¤гб¬ ваЁў Ґ¬лҐ ¤«п Є« ўЁиЁ б INKEY-Є®¤®¬1>
CASE Key = <INKEY-Є®¤2>
<„Ґ©бвўЁп, ЇаҐ¤гб¬ ваЁў Ґ¬лҐ ¤«п Є« ўЁиЁ б INKEY-Є®¤®¬2>
. . .
ENDCASE
Љ®¬ ¤ ON KEY LABEL. Ћ § ЇЁблў Ґвбп б«Ґ¤гойЁ¬ ®Ўа §®¬:
ON KEY LABEL <€¬п Є« ўЁиЁ> <Љ®¬ ¤ >. ‚ ®в«ЁзЁҐ ®в ўлиҐа бᬮваҐле
Є®¬ ¤ Є®¬ ¤ ¬Ё ON KEY LABEL ¬®¦® ЄвЁўЁа®ў вм ҐбЄ®«мЄ® Є« ўЁи
б а §«Ёзл¬ ¤Ґ©бвўЁҐ¬. €¬п Є« ўЁиЁ, ЇаЁ¬Ґа PGUP, CTRL+END, ALT+E,
б®ўЇ ¤ Ґв б ЇаЁпвл¬Ё ®Ў®§ 票ﬨ. ђҐЈЁбва ЎгЄў ЎҐ§а §«ЁзҐ.
‹оЎ п Є®ЇЄ ¬лиЁ ®Ў®§ з Ґвбп MOUSE, «Ґў п (Їа ў п) Є®ЇЄ -
LEFTMOUSE (RIGHTMOUSE). ЏаЁ¬Ґа: ON KEY LABEL CTRL+X DO XXX. ‚ в Ў«.
20.1 ¤ л ®Ў®§ зҐЁп Є« ўЁи, ®в«ЁзлҐ ®в Ё§®Ўа ¦Ґле Ёе бЁ¬ў®«®ў.
’ Ў«Ёж 20.1
----------------------------------------------------------------------
Љ « ў Ё и € ¬ п Љ « ў Ё и € ¬ п
----------------------------------------------------------------------
‘в५Є ў«Ґў® LEFTARROW Shift+Tab BACKTAB
‘в५Є ўЇа ў® RIGHTARROW { LBRACE
‘в५Є ўўҐае UPARROW } RBRACE
‘в५Є ўЁ§ DNARROW Џа®ЎҐ« SPACEBAR
----------------------------------------------------------------------
Ќ § зҐлҐ Є« ўЁиЁ ¤Ґ©бвўгов Ґ в®«мЄ® ў б®бв®пЁЁ ®¦Ё¤ Ёп.
‘«гз ©®Ґ Ёе ¦ вЁҐ ¬®¦Ґв ЇаҐаў вм Є Є®©-«ЁЎ® Їа®жҐбб Ё ўл§ў вм
Ґг¬Ґб⮥ ўлЇ®«ҐЁҐ § 祮© Є®¬ ¤л, ЇаЁ¬Ґа, ўл§®ў
ўбЇ®¬®Ј ⥫쮣® Ў«®Є . —в®Ўл нв®Ј® Ґ Їа®Ёб室Ё«®, б«Ґ¤гҐв
бў®ҐўаҐ¬Ґ® ®в¬Ґпвм Ёе § 票п.
Ћв¬Ґ Є« ўЁиле § 票©. ‘⥪ § 票©. "€¤ЁўЁ¤г «мго"
®в¬Ґг ॠ«Ё§гҐв Є®¬ ¤ ON KEY LABEL <€¬п Є« ўЁиЁ>. —в®Ўл а §®¬
®в¬ҐЁвм ўбҐ § 票п, ЁбЇ®«м§гов Є®¬ ¤г ON KEY (б¬. ўлиҐ).
Ћв¬Ґг § 票© ४®¬Ґ¤гҐвбп ®бгйҐбвў«пвм ЇаЁ в®¬ ®ЎкҐЄвҐ, Є
Є®в®а®¬г ®Ё "ЇаЁЇЁб л". Ќ ЇаЁ¬Ґа, ЇаЁ ўл室Ґ Ё§ ®Є 㦮
ўлЇ®«пвм ᮮ⢥вбвўгойЁ© Ў«®Є ўл室 , ў з «Ґ Є®в®а®Ј® - ®в¬Ґ
§ 票© Є« ўЁи. Љ®¬ ¤ PUSH KEY CLEAR § Ї®¬Ё Ґв ў б⥪Ґ
⥪гйЁҐ § 票п. …б«Ё гЄ § ваЁЎгв CLEAR, в® ®¤®ўаҐ¬Ґ®
®Ё ®в¬Ґповбп. ‚®ббв ®ў«ҐЁҐ § 票©, еа Ё¬ле ў б⥪Ґ,
ўлЇ®«пҐв Є®¬ ¤ POP KEY ALL. …б«Ё ¤ ваЁЎгв ALL, ў®ббв ®ў«ҐЁо
ЇаҐ¤иҐбвўгҐв ®в¬Ґ ўбҐе ⥪гйЁе § 票©. ‘⥪ (Ё¬Ґ® б⥪)
ЁбЇ®«м§гҐвбп Ї®в®¬г, зв® Ў«®Є ¬®¦Ґв ўл§ў вм Ї®Ў«®Є, Ї®¤Ў«®Є -
¤агЈ®© Ї®¤Ў«®Є, Ё ў Є ¦¤®¬ Ё§ Ёе - бў®Ё § зҐЁп Є« ўЁи.
•а Ё¬лҐ ў б⥪Ґ § зҐЁп Ё§ў«ҐЄ овбп ў Ї®ап¤ЄҐ, ®Ўа ⮬
§ Ї®¬Ё Ёо, з⮠ᮮ⢥вбвўгҐв Ї®ап¤Єг ў®§ўа в Ё§ Ў«®Є ў Ў«®Є.
ЏаЁ¬Ґа 20.1.
<Ќ § 票Ґ Є« ўЁи ў Ј« ў®¬ Ў«®ЄҐ>
. . .
DO Proc1 && ‚맮ў Їа®жҐ¤гал Proc1
. . . && ‡¤Ґбм ў®ўм ¤Ґ©бвўгов § зҐЁп Ј« ў®Ј® Ў«®Є
PROCEDURE Proc1
PARAM <Џ а ¬Ґвал>
PUSH KEY CLEAR && Ћв¬Ґ § 票© Ј« ў®Ј® Ў«®Є
<Ќ § 票Ґ Є« ўЁи, ¤Ґ©бвўгойЁе ў Proc1>
. . .
DO Proc2
. . .
ON KEY && ЋЄ®з ⥫м п ®в¬Ґ § 票©, ᤥ« ле ў Proc1
. . .
POP KEY && ‚®ббв ®ў«ҐЁҐ § 票© Ј« ў®Ј® Ў«®Є
RETURN && ‚®§ўа в ў Ј« ўл© Ў«®Є Ё§ Proc1
PROCEDURE Proc2
PARAM <Џ а ¬Ґвал>
PUSH KEY CLEAR && Ћв¬Ґ § 票©, ᤥ« ле ў Proc1
<Ќ § 票Ґ Є« ўЁи, ¤Ґ©бвўгойЁе ў Proc2>
. . .
ON KEY && Ћв¬Ґ ⥪гйЁе § 票© Є« ўЁи
. . .
POP KEY && ‚®ббв ®ў«ҐЁҐ § 票©, ᤥ« ле ў Proc1
RETURN && ‚®§ўа в ў Ў«®Є Proc1
„ л© Їа®бв®© ЇаЁ¬Ґа б«г¦Ёв Ё««обва жЁҐ© б«Ґ¤гойЁе Ё¤Ґ©:
"®вўҐвб⢥®бвм" § ў®ббв ®ў«ҐЁҐ Є« ўЁиле § 票© ҐбҐв
Ў«®Є, Є®в®ал© Ёе ўаҐ¬п ®в¬Ґп«. Ћ ¤®«¦Ґ ®в¬Ґпвм б®Ўб⢥лҐ
§ 票п (бў®ҐўаҐ¬Ґ®). …б«Ё ®Ё ¤Ґ©бвўгов ¤® Є®ж ҐЈ® а Ў®вл,
Є®¬ ¤л ON KEY, POP KEY ¬®¦® § ¬ҐЁвм ®¤®©: POP KEY ALL.
Ћв¬Ґ Ё ў®ббв ®ў«ҐЁҐ ®в¤Ґ«м®Ј® § зҐЁп Є« ўЁиЁ. ”гЄжЁп
ON ('KEY',<€¬п Є« ўЁиЁ>) ў®§ўа й Ґв бЁ¬ў®«мго бва®Єг - § ЇЁбм
§ 祮© Є®¬ ¤л. …Ґ ¬®¦® § Ї®¬Ёвм, § ⥬ ®в¬ҐЁвм § 票Ґ,
в ¬, Ј¤Ґ ¤ ®Ґ § 票Ґ ¤® ў®ббв ®ўЁвм, ЇаЁ¬ҐЁвм Є®¬ ¤г
ON KEY LABEL б ¬ Єа®Ї®¤бв ®ўЄ®©.
€бЇ®«м§®ў ЁҐ дгЄжЁЁ READKEY() ЇаЁ । ЄвЁа®ў ЁЁ. ”гЄжЁп
READKEY() ў®§ўа й Ґв зЁб«®, ЁбЇ®«м§гҐ¬®Ґ ¤«п ®Ї®§ Ёп Є« ўЁиЁ,
¦ в®© ЇаЁ ўл室Ґ Ё§ Є®¬ ¤ APPEND, BROWSE, CREATE, EDIT (CHANGE),
INSERT, MODIFY Ё READ. Ќ Ї®¬Ё Ґ¬, зв® ўл室 Ё§ READ ¬®¦Ґв Їа®Ё§®©вЁ
Ї® Є« ўЁиҐ "бв५Є ўўҐае" ("бв५Є ўЁ§") ЇаЁ Ї®ЇлвЄҐ Ї®ЄЁгвм ЇҐаў®Ґ
(Ї®б«Ґ¤ҐҐ) GET-Ї®«Ґ. ’®в ¦Ґ нд䥪⠢맮ўҐв Є« ўЁи PgUp (PgDn).
‚ в Ў«ЁжҐ 20.2 Ї®Є § л ўбҐў®§¬®¦лҐ Є« ўЁиЁ ўл室 Ё ¤«п Є ¦¤®©
¤ л 2 зЁб« : зЁб«ЁвҐ«м ЇаҐ¤бв ў«пҐв зЁб«®, ў®§ўа й Ґ¬®Ґ, Ґб«Ё
Ё§¬ҐҐЁ© ¤ ле Ґ Ўл«®, § ¬Ґ ⥫м - Ґб«Ё ®Ё Їа®Ё§®и«Ё.
’ Ў«Ёж 20.2
-----------------------------------------------------------------
Љ« ўЁи ўл室 Љ®¤ ў®§ўа в Љ« ўЁи ўл室 Љ®¤ ў®§ўа в
----------------------------------------------------------------
<-, Ctrl+H, Ctrl+S 0/256 Esc 12/268
->, Ctrl+L 1/257 Ctrl+W, Ctrl+End 270
Home 2/258 Enter 15/271
End 3/259 ЋЇжЁп TIMEOUT 20/276
Tab 5/261 Ctrl+Home 33/289
PgUp 6/262 Ctrl+PgUp 34/290
PgDn 7/263 Ctrl+PgDn 35/291
Ctrl+<- 8/264 F1 36/292
-----------------------------------------------------------------
ђ бᬮваЁ¬ Їа®бв®© гзҐЎл© ЇаЁ¬Ґа ЇаЁ¬ҐҐЁп Readkey().
ЏаЁ¬Ґа 20.2. ‚ § ўЁбЁ¬®бвЁ ®в ᮤҐа¦ Ёп ⥪г饩 § ЇЁбЁ ҐҐ
¤ лҐ ®Ўа Ў влў овбп Ў«®Є®¬ Obr Ё«Ё ® Ї®¬Ґз Ґвбп г¤ «ҐЁҐ,
Ё«Ё ў Ґ© ®зЁй Ґвбп Ї®«Ґ Pr. „«п ўлЇ®«ҐЁп ¤Ґ©бвўЁп Ўг¤Ґ¬
Ї®ЄЁ¤ вм ®Є® । ЄвЁа®ў Ёп, § ўҐаи п READ Є« ўЁи ¬Ё Ctrl+Home
(ЇҐаҐе®¤ Є Ў«®Єг Obr), Ctrl+PgUp (Ї®¬ҐвЄ г¤ «ҐЁҐ), Ctrl+PgDn
(®зЁбвЄ Ї®«п Pr ў § ЇЁбЁ), Enter (ЇҐаҐе®¤ Є ®зҐаҐ¤®© § ЇЁбЁ),
End (§ ўҐа襨Ґ ўбҐЈ® Їа®жҐбб ). ЌҐ®Ўе®¤Ё¬ жЁЄ«, ўЄ«оз ойЁ© Є®¬ ¤г
BROWSE.
USE Student
DO WHILE .T.
BROWSE NOWAIT ;
TITLE "Ctrl+Home-®Ўа Ў®вЄ ,Ctrl+PgUp-г¤ «ҐЁҐ,Ctrl+PgDn-®зЁбвЄ Pr"
READ
Key = Readkey()
DO CASE
CASE Key = 15 .OR. Key = 271 && „«п Є« ўЁиЁ Enter
SKIP
CASE Key = 33 .OR. Key = 289 && „«п Є« ўЁи Ctrl+Home
DO Obr
CASE Key = 34 .OR. Key = 290 && „«п Є« ўЁи Ctrl+PgUp
DELETE
CASE Key = 35 .OR. Key = 291 && „«п Є« ўЁи Ctrl+PgDn
REPLACE Pr WITH Space(5)
CASE Key = 3 .OR. Key = 259 && „«п Є« ўЁиЁ End
EXIT && ‚л室 Ё§ жЁЄ«
ENDCASE
ENDDO
USE && ‡ ЄалвЁҐ Ў §л Ё г¤ «ҐЁҐ BROWSE-®Є
PROCEDURE Obr
? Famil && €¬Ёв жЁп ®Ўа Ў®вЄЁ
‡ ¤ ЁҐ 20.1. ђҐ «Ё§г©вҐ § ®ў® ЇаЁ¬Ґа 20.2, ЁбЇ®«м§гп дгЄжЁо
LastKey() ў¬Ґбв® ReadKey(). ‡ 票п INKEY-Є®¤®ў ¤ л ў ЏаЁ«®¦ҐЁЁ 3.
20.2. €§гз Ґ¬ б।бвў ЁвҐадҐ©б ў бвЁ«Ґ WINDOWS
GET-Є®¬ ¤л Ї®§ў®«пов ᮧ¤ ў вм в Є §лў Ґ¬лҐ WINDOWS-®ЎкҐЄвл:
Є®ЇЄЁ-ЇҐаҐЄ«оз ⥫Ё, ҐўЁ¤Ё¬лҐ, ⥪бв®ўлҐ Ё ᥫҐЄвЁўлҐ Є®ЇЄЁ,
а ¤Ё®-Є®ЇЄЁ, ¬Ґо-бЇЁбЄЁ, бЄалвлҐ POPUP-¬Ґо. ђ бᬮваЁ¬ ЁбЇ®«м§гҐ¬лҐ
ў Ёе ®ЇжЁЁ GET-Є®¬ ¤.
ЋЇжЁп DEFAULT <‚ла> ᮧ¤ Ґв Ё ЁЁжЁ «Ё§ЁагҐв GET-ЇҐаҐ¬Ґго (Ґ
пў«пойгобп н«Ґ¬Ґв®¬ ¬ ббЁў , Ї®«Ґ¬ Ѓ„) б зЁб«®ўл¬ Ё«Ё бЁ¬ў®«мл¬
§ 票Ґ¬ <‚ла>, Ґб«Ё ® Ґ Ўл« ᮧ¤ а ҐҐ. …йҐ Ў®«миЁҐ
ў®§¬®¦®бвЁ ¤«п бЁ¬ў®«м®© GET-ЇҐаҐ¬Ґ®© ᮧ¤ Ґв дгЄжЁп M ў GET-
и Ў«®Ґ. Ћ Ё¬ҐҐв ўЁ¤ M <‘ЇЁб®Є бва®Є>. ‚ GET-Ї®«Ґ ЇаҐ¤кпў«пҐвбп
1-п бва®Є Ё§ бЇЁбЄ , Ґб«Ё GET-ЇҐаҐ¬Ґ п а ҐҐ Ґ Ї®«гзЁ« § 票п.
Ќ ¦Ё¬ п Є« ўЁиг Їа®ЎҐ« , ¬®¦® "Їа®ЄагвЁвм" <‘ЇЁб®Є бва®Є> ў GET-Ї®«Ґ.
Ћбв ®ўЁў ўлЎ®а, ўл ¦Ё¬ ҐвҐ Enter, Ё ўЁ¤Ё¬ п бва®Є бв ®ўЁвбп § 票Ґ¬
GET-ЇҐаҐ¬Ґ®©. ЏаЁ¬Ґа: @ 3,3 GET Sezon PICTURE "@M ‡Ё¬ ,‚Ґб ,‹Ґв®,ЋбҐм".
‚ ®ЇжЁЁ VALID ЇаҐ¤гᬮв८ ЁбЇ®«м§®ў ЁҐ Є Є <‚лаL>, в Є Ё
<‚лаN>, ЇаЁзҐ¬ § 票Ґ <‚лаN>, а ў®Ґ 0, ЇаҐЇпвбвўгҐв ўл室㠨§ GET-Ї®«п.
…б«Ё <‚лаN> - дгЄжЁп Ї®«м§®ў ⥫п, ® ¤®«¦ Ґ в®«мЄ® ў®§ўа й вм 0
ў б«гз Ґ ®Ў а㦥Ёп ®иЁЎЄЁ, ® Ё б®®Ўй вм ® Ґ©, ЁЎ® ўв®¬ вЁзҐбЄ п
ўл¤ з б®®ЎйҐЁп Ґ ЇаҐ¤гᬮвॠ. ‡ 票Ґ <‚лаN>, Ў®«м襥 (¬Ґм襥)
г«п, ®§ з Ґв Їа®¤ўЁ¦ҐЁҐ <‚лаN> GET-Ї®«Ґ© ўЇҐаҐ¤ ( § ¤) Ї®
®в®иҐЁо Є ¤ ®¬г GET-Ї®«о. ‚л室 § а ¬ЄЁ Ї®б«Ґ¤®ў ⥫м®бвЁ
GET-Ї®«Ґ© ®§ з Ґв § ўҐа襨Ґ а Ў®вл READ. Ћв¤Ґ«м® Ё§®Ўа ¦ Ґ¬лҐ
н«Ґ¬Ґвл (Є®ЇЄЁ, ЇгЄвл ¬Ґо) WINDOWS-®ЎкҐЄв®ў а бб¬ ваЁў овбп Є Є
®в¤Ґ«млҐ GET-Ї®«п.
ЋЇжЁп SIZE <‚лаN1>, <‚лаN2>, <‚лаN3> ᮧ¤ Ґв Ґбв ¤ а⮥ GET-Ї®«Ґ
- "®Є®иЄ®" ўлб®в®© <‚лаN1> Ё иЁаЁ®© <‚лаN2> (зЁб«® бва®Є Ё зЁб«®
бв®«Ўж®ў). <‚лаN1> § ЇаҐйҐ® ®ЇгбЄ вм, ¤ ¦Ґ Ґб«Ё ўлб®в ¦ҐбвЄ® § ¤
ў бЁб⥬Ґ: § ЇЁблў ов «оЎ®Ґ зЁб«®. <‚лаN3> § ¤ Ґв Їа®¬Ґ¦гв®Є ¬Ґ¦¤г
н«Ґ¬Ґв ¬Ё б®бв ўле WINDOWS-®ЎкҐЄв®ў, ЇаЁ¬Ґа, Є®ЇЄ ¬Ё. Џ® 㬮«з Ёо
ў ўҐавЁЄ «м®¬ Ё§¬ҐаҐЁЁ ® а ўҐ 0, ў Ј®аЁ§®в «м®¬ - 1.
ЋЇжЁп DISABLE (ENABLE) § ЇаҐй Ґв (а §аҐи Ґв) ¤®бвгЇ Є GET-Ї®«о,
ЇаЁ¬Ґа Є WINDOWS-®ЎкҐЄвг, Ї®Є Ґ Ўг¤Ґв ¤ Є®¬ ¤
SHOW GET <ЏҐаҐ¬Ґ п> ENABLE (SHOW GET <ЏҐаҐ¬Ґ п> DISABLE). ’ ЄЁ¬
®Ўа §®¬, а Ў®в п б ®¤Ё¬ WINDOWS-®ЎкҐЄв®¬, ўл ¬®¦ҐвҐ гЇа ў«пвм
¤®бвгЇ®бвмо ¤агЈЁе б Ї®¬®ймо дгЄжЁ© Ї®«м§®ў ⥫п, ᮤҐа¦ йЁе
гЄ § лҐ Є®¬ ¤л.
ЌЁ¦Ґ Ї®ўбҐ¬Ґбв® ЁбЇ®«м§гҐвбп ®ЇжЁп PICTURE (б®Єа 饨Ґ - PICT),
® ў¬Ґбв® ҐҐ Ё«Ё ап¤г б Ґо ¬®¦® ЁбЇ®«м§®ў вм Ё ®ЇжЁо FUNCTION.
‚Ё¤ WINDOWS-®ЎкҐЄв § ¤ ов бЁ¬ў®« ¬Ё-®ЇаҐ¤Ґ«ЁвҐ«п¬Ё ў б ¬®¬ з «Ґ
GET-и Ў«® (ў ®ЇжЁЁ PICTURE Ї®б«Ґ § Є @). ‚ в Ў«ЁжҐ 20.3 ¤ л
бЁ¬ў®«л-®ЇаҐ¤Ґ«ЁвҐ«Ё Ё Є«озЁ-®ЇжЁЁ, Ё¤гйЁҐ § Ё¬Ё. €¬Ґовбп б«Ґ¤гойЁҐ
Є«озЁ: T (N) - ўлЎ®а ў WINDOWS-®ЎкҐЄвҐ § ўҐаи Ґв (Ґ § ўҐаи Ґв)
а Ў®вг Є®¬ ¤л READ; H (V) - н«Ґ¬Ґвл а §¬Ґй овбп Ї® Ј®аЁ§®в «Ё (Ї®
ўҐавЁЄ «Ё). Љ«озЁ N, V ®Ўлз® ¤Ґ©бвўгов Ї® 㬮«з Ёо, ®¤ Є® ¤«п
Ў®«м襩 Ј«п¤®бвЁ Ўг¤Ґ¬ Ёе § ЇЁблў вм. ‚®§¬®¦л Є®¬ЎЁ жЁЁ Є«о祩:
TH, NV Ё в.Ї. ‘«Ґ¤гойЁ¬Ё ў GET-и Ў«®Ґ, Ї®б«Ґ ®Ўп§ ⥫쮣® Їа®ЎҐ« , Ё¤гв
бва®ЄЁ-ЇаЁЈ« 襨п (Ґб«Ё ®Ё ЁбЇ®«м§говбп). ЏаЁЈ« 襨п а §¤Ґ«повбп
§ Є®¬ ";". ‚ Ёе ¬®Јгв Ўлвм "Ј®апзЁҐ" ЎгЄўл, Ёе ®Ў®§ з ов § Є ¬Ё
\< б«Ґў ®в ЎгЄўл. ‡ Є ¬Ё \\ (б«Ґў ) ®Ў®§ з ов ЇаЁЈ« 襨п, Є®в®алҐ
Ґ ¬®Јгв Ўлвм ўлЎа л.
’ Ў«Ёж 20.3
-------------------------------------------------------------------
WINDOWS-®ЎкҐЄв ЋЇаҐ¤Ґ«ЁвҐ«м „®ЇгбЄ овбп ...
-------------------------------------------------------------------
Љ®ЇЄ -ЇҐаҐЄ«оз ⥫м (Check Boxes) *‘ N,T; \<, \\
ЌҐўЁ¤Ё¬лҐ Є®ЇЄЁ (Invisible Buttons) *I H,V; N,T; \\
’ҐЄбв®ўлҐ Є®ЇЄЁ (Push Buttons) * H,V; N,T; \<, \\
‘Ґ«ҐЄвЁўлҐ Є®ЇЄЁ (Radio Buttons) *R H,V; N,T; \<, \\
‘Єал⮥ POPUP-¬Ґо (Popups) ^ N,T; \<, \, \\
‘ЇЁбЄЁ ¬Ґо (Lists) & N,T
-------------------------------------------------------------------
ЋбгйҐбвў«пп ў WINDOWS-®ЎкҐЄвҐ ўлЎ®а, Ї®«м§®ў вҐ«м ў®§¤Ґ©бвўгҐв
§ 票Ґ GET-ЇҐаҐ¬Ґ®© Ё, Їа®вЁў, Ёб室®Ґ ҐҐ § 票Ґ
®ЇаҐ¤Ґ«пҐв з «м®Ґ ўЁ§г «м®Ґ б®бв®пЁҐ WINDOWS-®ЎкҐЄв .
‡ 票Ґ GET-ЇҐаҐ¬Ґ®© ЁбЇ®«м§гҐвбп ¤«п гЇа ў«ҐЁп (®Ўа Ў®вЄЁ),
ЇаЁ¬Ґа ў бвагЄвгॠDO CASE, «ЁЎ® Ё¦Ґ Є®¬ ¤л READ (Ґб«Ё ўлЎ®а
§ Є зЁў Ґв а Ў®вг READ), «ЁЎ® ў Ї®«м§®ў ⥫мбЄ®© дгЄжЁЁ ®ЇжЁЁ
VALID. “б«®ўЁ¬бп ўл¤Ґ«пвм ®ЇжЁЁ, ®Ўп§ ⥫млҐ ў ®ЇаҐ¤Ґ«пҐ¬®¬ ®ЎкҐЄвҐ.
Љ®ЇЄ -ЇҐаҐЄ«оз ⥫м (Check Boxes) нЄа Ґ ўлЈ«п¤Ёв Є Є
[X] <ЏаЁЈ« 襨Ґ> Ё«Ё [ ] <ЏаЁЈ« 襨Ґ>
(б«Ґў Ї®Є § ® ҐҐ ўЄ«о祮Ґ б®бв®пЁҐ, ЁЎ® X - бЁ¬ў®«-Ї®¤вўҐа¦¤ҐЁҐ).
<ЏаЁЈ« 襨Ґ> Ґ ®Ўп§ ⥫м®. Љ®ЇЄг ᮧ¤ Ґв Є®¬ ¤
@ Y,X GET <ЏҐаҐ¬Ґ п> PICT<‚лаC> <ЋЇжЁЁ> ,
€б室®Ґ б®бв®пЁҐ Є®ЇЄЁ § ўЁбЁв ®в § 票п <ЏҐаҐ¬Ґ®©>, Є®в®а п
¬®¦Ґв Ўлвм зЁб«®ў®© (0 Ё«Ё 1) Ё«Ё «®ЈЁзҐбЄ®©. ‡ 票п 1, .T.
ᮮ⢥вбвўгов ўЄ«о祮¬г б®бв®пЁо. Ќ ¦ вЁп Є« ўЁиЁ Enter Ё«Ё Space,
Є®ЇЄЁ ¬лиЁ, "Ј®ап祩" ЎгЄўл ЇаЁЈ« иҐЁп ЇҐаҐЄ«оз ов Є®ЇЄг ў
Їа®вЁў®Ї®«®¦®Ґ б®бв®пЁҐ: X § ¬ҐпҐвбп Їа®ЎҐ«®¬ Ё ®Ў®а®в.
…б«Ё ЇҐаҐЄ«оз вм Є®ЇЄг Ґ 㦮, ®зҐаҐ¤®© GET-®ЎкҐЄв ЇҐаҐе®¤пв
б Ї®¬®ймо Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬ Ё«Ё ¬лиЁ.
ЏаЁ¬Ґа 20.3. ‘®§¤ ¤Ё¬ Є®ЇЄг [ ] ЌЂЏђЂ‚‹…Ќ€… ЌЂ ‡Ђ—…’ ‚›„ЂЌЋ .
@ 5,8 GET Napr PICT '@*CT \<ЌЂЏђЂ‚‹…Ќ€… ЌЂ ‡Ђ—…’ ‚›„ЂЌЋ' DEFAULT 0
READ && ЃҐ§ Є®¬ ¤л READ ЄвЁўЁ§ жЁЁ Є®ЇЄЁ Ґ Ўг¤Ґв
ЌҐўЁ¤Ё¬лҐ Є®ЇЄЁ (Invisible Buttons) ᮧ¤ Ґв Є®¬ ¤
@ Y,X GET<ЏҐаҐ¬Ґ п> PICT<‚лаC> SIZE<‚лаN1>,<‚лаN2>,<‚лаN3> <ЋЇжЁЁ>,
®ЇаҐ¤Ґ«пой п ®¤г Ё«Ё ҐбЄ®«мЄ® ®Ў« б⥩ нЄа (Є®Ї®Є)
а §¬Ґа®¬ <‚лаN1> x <‚лаN2> (Ї® 㬮«з Ёо а §¬Ґа Є®ЇЄЁ 0 е 0).
’ҐЄгй п ®Ў« бвм ўл¤Ґ«Ґ 梥⮬. ЏаЁ ЇҐаҐе®¤Ґ Є ®зҐаҐ¤®© Є®ЇЄҐ (б
Ї®¬®ймо Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬ Ё«Ё ¬лиЁ) нв®в 梥⮢®© ¬ аЄҐа
ЇҐаҐ¬Ґй Ґвбп, " Єалў п" б«Ґ¤гойго ®Ў« бвм. „® ўлЇ®«ҐЁп Є®¬ ¤л
READ нвЁ ®Ў« бвЁ ¬®¦® «®¦Ёвм ⥪бвл Ё Ёе ®Ја ЁзЁвм. € Їа®вЁў,
¤«п Ё¬Ґо饣®бп аЁбгЄ , б奬л, ЇЁЄв®Ја ¬¬л ¬®¦® ᤥ« вм Ї®¤е®¤пйЁҐ
®ЇЁб Ёп ®Ў« б⥩ (Є®Ї®Є), зв®Ўл ўлЎ®а вҐе Ё«Ё Ёле ¤Ґ©бвўЁ© бв «
Ј«п¤ҐҐ.
“ ҐўЁ¤Ё¬ле Є®Ї®Є "ҐўЁ¤Ё¬лҐ ЇаЁЈ« 襨п": ў GET-и Ў«®Ґ
Ё§®Ўа ¦ овбп «Ёим а §¤Ґ«ЁвҐ«Ё ";". Џ® Ёе зЁб«г ®ЇаҐ¤Ґ«пҐвбп зЁб«®
Є®Ї®Є. €е ¤® ®в¤Ґ«пвм Їа®ЎҐ«®¬ ®в бЁ¬ў®« -®ЇаҐ¤Ґ«ЁвҐ«п *I (®в
ЎгЄў-Є«о祩, Ґб«Ё ®Ё Ґбвм). ЏаЁ¬Ґа: PICT "@*IH ;;\\". Џ®Є § ®
ᮧ¤ ЁҐ «ЁҐ©ЄЁ Ё§ ваҐе Є®Ї®Є, ЇаЁзҐ¬ Ї®б«Ґ¤пп Ґ¤®бвгЇ .
„«п § ЇаҐйҐЁп ¤®бвгЇ Є® ўв®а®© Є®ЇЄҐ § ЄЁ \\ 㦮 Ўл«® Ўл
Ї®бв ўЁвм ¬Ґ¦¤г § Є ¬Ё ";".
”ЁЄбЁагп ўлЎ®а Є®ЇЄЁ, ¦Ё¬ ов Space (¬ аЄҐа Ґ© ®бв Ґвбп)
Ё«Ё Enter (¬ аЄҐа ЇҐаҐе®¤Ёв б«Ґ¤гойго Є®ЇЄг), ЇаЁ н⮬ GET-
ЇҐаҐ¬Ґ п Ї®«гз Ґв § 票Ґ ®¬Ґа ўлЎа ®© Є®ЇЄЁ.
ЏаЁ¬Ґа 20.4. ‚뢥¤Ґ¬ «ЁҐ©Єг Ё§ 4 Є®Ї®Є, Ё¬ҐойЁе а §¬Ґа 3 е 5,
Ё§®Ўа §Ёў Ёе жЁдал 2, 3, 4, 5. ‚лЎ®а ЇҐаў®© Є®ЇЄЁ § ЇаҐвЁ¬.
ЏҐаҐе®¤л ¬Ґ¦¤г Є®ЇЄ ¬Ё "§ жЁЄ«Ё¬" (®ЇжЁп CYCLE ў Є®¬ ¤Ґ READ).
* Ѓ«®Є Cena Ё¬ЁвЁагҐв ®Ўа Ў®вЄг ўлЎ®а
* „«п ўл室 Ё§ READ ¦Ё¬ ©вҐ Є« ўЁиг Esc
@ 5,3 GET k PICT "@*IH \\;;;" SIZE 3,5,3 DEFAULT 1 ; &&"1"- § 票Ґ k
VALID Cena() MESSAGE "ЌЂ‡ЌЂ—њ ‘…Ѓ… Ћ–…ЌЉ“"
@ 6,5 SAY "2 3 4 5" && Ќ ¤ЇЁбЁ ў ®Ў« бвпе Є®Ї®Є
@ 5,3 TO 7,7 && ЋЎа ¬«ҐЁҐ 1-© Є®ЇЄЁ
@ 5,11 TO 7,15 && Ё ўбҐе
@ 5,19 TO 7,23 && б«Ґ¤гойЁе
@ 5,27 TO 7,31 && Є®Ї®Є
READ CYCLE
FUNCTION Cena
@ 9,0 && ЋзЁбвЄ 9-© бва®ЄЁ
@ 9,1 SAY "ЏЋ‹“—Ђ‰"
DO CASE
CASE k=2 && ‚лЎа "3"
@ 9,10 SAY "Џџ’…ђЉ“"
CASE k=3 && ‚лЎа "4"
@ 9,18 SAY "—…’‚…ђЉ“"
CASE k=4 && ‚лЎа "5"
@ 9,26 SAY "’ђЋ‰Љ“"
ENDCASE
RETURN && ЋвбгвбвўЁҐ ўла ¦ҐЁп а ў®бЁ«м® ў®§ўа вг .T.
—в®Ўл ᤥ« вм ҐўЁ¤Ё¬лҐ Є®ЇЄЁ а §®Ј® а §¬Ґа Ё Їа®Ё§ў®«м®Ј®
Ї®«®¦ҐЁп, Ёе § ¤ о⠮⤥«мл¬Ё GET-Є®¬ ¤ ¬Ё. "‘Єў®§го 㬥а жЁо"
®ЇЁб ле в ЄЁ¬ ®Ўа §®¬ Є®Ї®Є ®ЎҐбЇҐзЁў Ґв Їа®Ја ¬¬Ёбв.
‘«Ґ¤гойЁҐ ¤ўҐ GET-Є®¬ ¤л ®ЇаҐ¤Ґ«пов ¤ўҐ Є®«®ЄЁ Є®Ї®Є (®д®а¬«ҐЁҐ
Ґ Ї®Є §лў Ґ¬). —в®Ўл Ё¬ЁвЁа®ў вм Ёе бЄў®§го 㬥а жЁо, ў Ў«®Є F
®Ўа Ў®вЄЁ ўлЎ®а ўв®а п GET-Є®¬ ¤ ЇҐаҐ¤ Ґв ®¬Ґа k, 㢥«ЁзҐл©
зЁб«® Є®Ї®Є «Ґў®Ј® бв®«Ўж :
@ 5,3 GET k PICT "@*I ;;" SIZE 3,5,1 DEFAULT 1 VALID F(k)
@ 5,9 GET k PICT "@*I \\;;" SIZE 3,8,1 DEFAULT 1 VALID F(k+3)
ЏҐаў п Є®ЇЄ 2 бв®«Ўж ᤥ« Ґ¤®бвгЇ®© ¤«п ўлЎ®а . —в®Ўл
ᤥ« вм ®¤г Ё§ Є®Ї®Є Є®ЇЄ®© ўл室 Ё§ READ, ҐҐ 㦮 ®ЇаҐ¤Ґ«пвм
®в¤Ґ«м®© GET-Є®¬ ¤®©, гЄ § ў ў GET-и Ў«®Ґ Є«оз T: PICT "@*IT".
‡ ¤ ЁҐ 20.2. Џ®бвன⥠ЇЁЄв®Ја ¬¬г - ¤®¬ЁЄ б вагЎ®©, ®Є ¬Ё,
¤ўҐамо, ®ЇЁиЁвҐ ҐўЁ¤Ё¬лҐ Є®ЇЄЁ, ®Ў« бвЁ Є®в®але б®ўЇ ¤ ов б "вагЎ®©",
"®Є®¬", "¤ўҐамо", Ё § ЇЁиЁвҐ Їа®Ја ¬¬г, ўлў®¤пйго б«®ў "вагЎ ",
"®Є®", "¤ўҐам" ЇаЁ ўлЎ®аҐ ᮮ⢥вбвўгойЁе Є®Ї®Є. Џа®йҐ ўбҐЈ®
ЇЁЄв®Ја ¬¬г Ё§®Ўа §Ёвм ў Є®бвагЄжЁЁ TEXT ... ENDTEXT, ЁбЇ®«м§гп
бЁ¬ў®«л ЇбҐў¤®Ја дЁЄЁ.
20.3. €бЇ®«м§гҐ¬ Є®¬ ¤л READ CYCLE, SHOW GETS.
’ҐЄбв®ўлҐ Ё ᥫҐЄвЁўлҐ Є®ЇЄЁ
ЋЇжЁп CYCLE ў Є®¬ ¤Ґ READ ЇаҐЇпвбвўгҐв ўл室㠨§ Є®¬ ¤л, Є®Ј¤
®Ўа Ў®в Ї®б«Ґ¤Ё© (ЇҐаўл©) GET-®ЎкҐЄв Ё § ¤ ® ЇҐаҐ¬ҐйҐЁҐ Є GET-
®ЎкҐЄвг б ҐбгйҐбвўгойЁ¬ Ў®«миЁ¬ (¬ҐмиЁ¬) ®¬Ґа®¬. Џа®Ёб室Ёв
ЇҐаҐе®¤ Є ЇҐаў®¬г (Ї®б«Ґ¤Ґ¬г) GET-®ЎкҐЄвг. ќв® Ї®§ў®«пҐв ®бгйҐбвў«пвм
®Ўа Ў®вЄг ¬®ЈЁе § ЇЁбҐ© Ѓ„ Ё«Ё ¬®ЈЁе н«Ґ¬Ґв®ў ¬ ббЁў ЎҐ§ ўҐиҐЈ®
жЁЄ« . Ќг¦® «Ёим Ї®§ Ў®вЁвмбп ® д ЄвЁзҐбЄ®¬ ЇҐаҐе®¤Ґ Є ®зҐаҐ¤®©
§ ЇЁбЁ (®ў®¬г н«Ґ¬Ґвг) Ё ®Ў®ў«ҐЁЁ GET-Ї®«Ґ©. Џ®б«Ґ¤ҐҐ ўлЇ®«пҐвбп
Є®¬ ¤®© SHOW GETS ¤«п GET-®ЎкҐЄв®ў ЄвЁў®© Є®¬ ¤л READ, 室пйЁебп
ў гЄ § ®¬ ®ЄҐ Ё«Ё ў® ўбҐе § ¤Ґ©бвў®ў ле Ґо ®Є е.
GET-Є®¬ ¤л - ®ЇаҐ¤Ґ«ҐЁп ⥪бв®ўле Ё ᥫҐЄвЁўле Є®Ї®Є ў®
¬®Ј®¬ б室л. Ќ ЇаЁ¬Ґа, GET-ЇҐаҐ¬Ґ п ¬®¦Ґв Ўлвм Є Є бЁ¬ў®«м®©,
в Є Ё зЁб«®ў®©. ‚ 1-¬ б«гз Ґ ўлЎ®а Є®ЇЄЁ ўҐ¤Ґв Є § ҐбҐЁо ў GET-
ЇҐаҐ¬Ґго ⥪бв ЇаЁЈ« 襨п, ў® 2-¬ - ®¬Ґа ўлЎа ®© Є®ЇЄЁ.
‚лЎ®а Є®ЇЄЁ Їа®Ё§ў®¤пв Є« ўЁиҐ© Space Ё«Ё Enter (б¬. ўлЎ®а ҐўЁ¤Ё¬®©
Є®ЇЄЁ ў Ї. 20.2). ЏҐаў® з «м® ¬ аЄҐа 室Ёвбп 1-© Є®ЇЄҐ.
ЋЇжЁп SIZE (б¬. Ї.20.2) Ґ®Ўп§ ⥫м , ЁЎ® ўлб®в Є®ЇЄЁ - 1,
¤«Ё ®ЇаҐ¤Ґ«пҐвбп ¤«Ё®© ЇаЁЈ« 襨п. ‘ Ї®¬®ймо ®ЇжЁЁ SIZE ¬®¦®
§ ¤ вм Ў®«миго ¤«Ёг, ЇаЁ¬Ґа "Ї®¤а ўпвм" Є®ЇЄЁ, Ё 㢥«ЁзЁвм
Їа®¬Ґ¦гвЄЁ ¬Ґ¦¤г Ё¬Ё.
‘ ⥪бв®ўл¬Ё ("ваЁЈЈҐал¬Ё") Є®ЇЄ ¬Ё ўл § Є®¬л Ї® бЁб⥬л¬
¬Ґо: в Є®ўл Є®ЇЄЁ <OK>, <Cancel>. €е ®Ја ЁзЁў ов гЈ«®ўлҐ бЄ®ЎЄЁ.
ЏаЁ¬Ґа гЄ § Ёп Є®Ї®Є: PICT "@*H OK;Cancel". …б«Ё Ўл ®Ё Ўл«Ё
ᥫҐЄвЁўл¬Ё, 㦮 Ўл«® Ўл «Ёим ўбв ўЁвм бЁ¬ў®« R Ї®б«Ґ § Є *.
Ћб®ЎҐ®б⨠⥪бв®ўле Є®Ї®Є. ‚ ®в«ЁзЁҐ ®в ᥫҐЄвЁўле Є®Ї®Є
Ї® 㬮«з Ёо ¤Ґ©бвўгҐв Є«оз T, в.Ґ. ўлЎ®а Є®ЇЄЁ § ўҐаи Ґв а Ў®вг
READ. Ћ¤ Ё§ Є®Ї®Є ¬®¦Ґв Ўлвм Escape-Є®ЇЄ®©, ўлЎЁа Ґ¬®©
Є« ўЁиҐ© Esc. …Ґ ЇаЁЈ« 襨Ґ ¤® зЁ вм § Є ¬Ё \?. ’ Є¦Ґ
Ґ¤Ёб⢥®© ¬®¦Ґв Ўлвм бЄ®ЎЄ Ї® 㬮«з Ёо ( з «млҐ § ЄЁ ҐҐ
ЇаЁЈ« 襨п \!), ўлЎЁа Ґ¬ п Є« ўЁи ¬Ё Ctrl+Enter. Ћ ўл¤Ґ«пҐвбп
¤ў®©л¬Ё гЈ«®ўл¬Ё бЄ®ЎЄ ¬Ё.
ЏаЁ¬Ґа 20.5. Џ®бва®Ё¬ б«Ґ¤го饥 ¬Ґо б Escape-Є®ЇЄ®© <‚›•Ћ„>:
<‘Ћ‡„ЂЌ€… ЊЂ‘‘€‚Ђ> <ЋЃђЂЃЋ’ЉЂ> <<‚›‚Ћ„ ЊЂ‘‘€‚Ђ>> <‚›•Ћ„>
@ 5,9 GET k DEFAULT 1 VALID F() ; && Ѓ«®Є F ў ЇаЁ¬ҐаҐ Ґ Ї®Є §
PICT "@* \<‘Ћ‡„ЂЌ€… ЊЂ‘‘€‚Ђ;\<ЋЃђЂЃЋ’ЉЂ;\!‚›‚Ћ„ ЊЂ‘‘€‚Ђ\?‚›•Ћ„"
READ
„«п ¤ўге ЇҐаўле Є®Ї®Є § зҐл "Ј®апзЁҐ" ЎгЄўл ‘, Ћ, ваҐвмп
- ᤥ« Є®ЇЄ®© Ї® 㬮«з Ёо. Љ®ЇЄ <‚›•Ћ„> §¤Ґбм ®§ з Ґв
®в¬Ґг ¤Ґ©бвўЁ©, ЁЎ® ўл室 Ё§ READ Їа®Ё§®©¤Ґв ЇаЁ ¦ вЁЁ «оЎ®©
Є®ЇЄЁ (ЇаЁ н⮬ Ўг¤Ґв ўлЇ®«Ґ Ў«®Є F ®Ўа Ў®вЄЁ ўлЎ®а ). …б«Ё
ЇаҐ¤Ї®« Ј Ґвбп Ї®®зҐаҐ¤®Ґ ЁбЇ®«м§®ў ЁҐ ҐбЄ®«мЄЁе Є®Ї®Є, в®
"¤®«Ј®ЁЈа о饥" ¬Ґо ᮧ¤ Ґвбп б Є«о箬 N, ў®§¬®¦®бвм ўл室 Ё§
READ ®ЎҐбЇҐзЁў ов Є« ўЁиЁ (в Ў«. 20.2) Ё«Ё Є®¬ ¤ ў Ў«®ЄҐ F.
‘Ґ«ҐЄвЁўлҐ (а ¤Ё®-) Є®ЇЄЁ Ё§®Ўа ¦ овбп ў ўЁ¤Ґ
( )<Џђ€ѓ‹Ђ…Ќ€…>, ЇаЁзҐ¬ <ЏаЁЈ« 襨Ґ> Ґ ®Ўп§ ⥫м®. Њ®¦Ґв Ўлвм
" ¦ в®©" «Ёим ®¤ Ё§ Ёе (Є Є Ё Є« ўЁи ўв®¬®ЎЁ«м®Ј®
а ¤Ё®ЇаЁҐ¬ЁЄ - ®вбо¤ Ё §ў ЁҐ "а ¤Ё®-Є®ЇЄЁ"). "Ќ ¦ вЁҐ", в.Ґ.
ўлЎ®а Є®ЇЄЁ ®в®Ўа ¦ Ґвбп Ї®пў«ҐЁҐ¬ в®зЄЁ ў ҐҐ Ё§®Ўа ¦ҐЁЁ (в.Ґ. ў
бЄ®ЎЄ е). Ћв¬ҐзҐ в®зЄ®© ¬®¦Ґв Ўлвм «Ёим ®¤ Є®ЇЄ , ЇҐаў® з «м®
®в¬ҐзҐ Є®ЇЄ , ®¬Ґа Ё«Ё ЇаЁЈ« 襨Ґ Є®в®а®© б®ўЇ ¤ Ґв б Ёб室л¬
§ 票Ґ¬ GET-ЇҐаҐ¬Ґ®©. …б«Ё ЇаЁбгвбвўЁҐ в®зЄЁ Ґ¦Ґ« ⥫м®,
§ ¤ ў ©вҐ г«Ґў®Ґ Ёб室®Ґ § 票Ґ. Џ® 㬮«з Ёо ¤Ґ©бвўгҐв Є«оз N.
ЏаЁ¬Ґа 20.6. ‘®§¤ ¤Ё¬ «ЁҐ©Єг Є®Ї®Є ( )2 ( )3 ( )4 ( )5
б 楫мо § ҐбҐЁп ўлЎа ®© ў Ґ© ®жҐЄЁ Є Є нЄ§ ¬Ґ жЁ®®© ў
⥪гйго § ЇЁбм бв㤥в . ” ¬Ё«Ёп бв㤥⠢лᢥ稢 Ґвбп ў ⮬ ¦Ґ
®ЄҐ (нЄа Ґ). „«п Їа®¤ўЁ¦ҐЁп Ї® Ѓ„ Ўг¤Ґ¬ ЁбЇ®«м§®ў вм ⥪бв®ўлҐ
Є®ЇЄЁ <‚ЇҐаҐ¤>, <Ќ § ¤>. ЋЎйҐҐ зЁб«® Ї®«гзҐле ¤ў®ҐЄ, в஥Є,
зҐвўҐа®Є, ЇпвҐа®Є Ўг¤Ґв § ҐбҐ® ў н«Ґ¬Ґвл M[1],M[2],M[3],M[4]
ᮮ⢥вб⢥®.
SET TALK OFF
DECLARE M[4]
M = 0 && “бв ®ўЄ бзҐвзЁЄ®ў ў 0
USE Student
ACCEPT "‚ўҐ¤ЁвҐ Ё¬п Ї®«п Ѓ„ " TO Name && €¬п Ї®«п ¤«п еа ҐЁп ®жҐЄЁ
CLEAR
@ 3,15 SAY "Џђ…„Њ…’: "+ Name && €¬п Ї®«п ®Ў®§ з Ґв ¤ЁбжЁЇ«Ёг
@ 5,10 SAY "” ¬Ё«Ёп Ё.®.: " GET Famil WHEN .F.
@ 7,10 SAY "ЋжҐЄ : " GET k PICT "@*RH 2 ;3 ;4 ;5 " DEFAULT 0 VALID F()
@ 9,25 GET L PICT "@*NV \<‚ЇҐаҐ¤;\<Ќ § ¤;\<Љ®Ґж" DEFAULT 1 VALID G()
READ CYCLE
? M[1],M[2],M[3],M[4] && ‚лў®¤ зЁб« ¤ў®ҐЄ, в஥Є, зҐвўҐа®Є, ЇпвҐа®Є
FUNCTION F
REPLACE &Name WITH k+1 Џђ…„Њ…’: PHYSICS
M[k] = M[k] + 1
RETURN 5-k ” ¬Ё«Ёп Ё.®. ЃҐ¤Ґа-‡ ¤г ©бЄЁ© Ћ.ќ.
FUNCTION G ЋжҐЄ : ( ) 2 (.) 3 ( ) 4 ( ) 5
DO CASE
CASE L=1 <‚ЇҐаҐ¤>
SKIP <Ќ § ¤>
CASE L=2 <Љ®Ґж>
SKIP -1
CASE L=3 && „«п Є®ЇЄЁ "Љ®Ґж"
CLEAR READ && ‚л室 Ё§ Ґпў®Ј® жЁЄ« READ
ENDCASE
k = 0 && Џ®¤Ј®в®ўЄ Є Ї®Є §г б«Ґ¤го饩 § ЇЁбЁ
SHOW GETS && ЋЎ®ў«ҐЁҐ GET-Ї®«Ґ© ЇаЁ ЇҐаҐе®¤Ґ Є ®ў®© § ЇЁбЁ
RETURN 3
Џа®Ја ¬¬ вॡгҐв Ї®пᥨ©. ЏаҐ¤гб«®ўЁҐ .F. § ЇаҐй Ґв ўе®¤
Єгаб®а ў Ї®«Ґ Famil - ¬ в ¬ ¤Ґ« вм ҐзҐЈ®. Џ®б«Ґ ўлЎ®а ®жҐЄЁ
¬ аЄҐа ЇаЁи«®бм Ўл ЇҐаҐ¬Ґй вм, Їа®ЇгбЄ п ®бв ўиЁҐбп ᥫҐЄвЁўлҐ Є®ЇЄЁ.
Њл Ё§ЎҐ¦ «Ё нв®Ј®, гЄ § ў ЇҐаҐе®¤ ў GET-Ї®«Ґ "‚ЇҐаҐ¤" б Ї®¬®ймо
ў®§ўа й Ґ¬®Ј® § зҐЁп Ў«®Є F (®® 1 Ў®«миҐ зЁб« Їа®ЇгбЄ Ґ¬ле
Ї®«Ґ©). Ђ «®ЈЁзл© ЇаЁҐ¬ ЇаЁ¬ҐҐ ЇаЁ ўлЎ®аҐ ⥪бв®ў®© Є®ЇЄЁ: б
Ї®¬®ймо § 票п 3, ў®§ўа й Ґ¬®Ј® дгЄжЁҐ© G, гЄ § ЇҐаҐе®¤ Є 3-¬г
GET-Ї®«о ®в®бЁвҐ«м® ⥪г饣®. ‚ ®вбгвбвўЁҐ ®ЇжЁЁ CYCLE Їа®Ё§®иҐ« Ўл
ўл室 Ё§ READ, ў ¤ ®¬ б«гз Ґ ¬л Ї®Ї ¤ Ґ¬ Ї®«Ґ Famil
(Їа®ЇгбЄ Ґ¬®Ґ) Ё«Ё ба §г Є®ЇЄг "2".
—в®Ўл Ґ ўлᢥ稢 вм в®зЄг ( ), Ї®Є Ґ ўлбв ў«Ґ ®жҐЄ , ў
®ЇжЁЁ DEFAULT § ¤ "г«Ґў п" Є®ЇЄ . Ћ¤ Є® ЇаЁ ЇҐаҐе®¤Ґ Є § ЇЁбЁ
б«Ґ¤го饣® бв㤥в нв в®зЄ Ґ Ёб祧Ґв, Ґб«Ё ¬л Ґ Ї®§ Ў®вЁ¬бп ®
г«Ґў®¬ § 票Ё k ў Ў«®ЄҐ G.
‘ЇҐжЁ «м п Є®¬ ¤ CLEAR READ ॠ«Ё§гҐв ўл室 Ё§ Ґпў®Ј® жЁЄ«
READ, Є®Ј¤ L = 3, в.Ґ. ўлЎа Є®ЇЄ <Љ®Ґж>.
‡ ¤ ЁҐ 20.3. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г б ®ЇаҐ¤Ґ«ҐЁп¬Ё ᥫҐЄвЁўле
Є®Ї®Є "Џ®Ґ¤Ґ«мЁЄ", "‚в®аЁЄ", "‘। ", "—ҐвўҐаЈ","ЏпвЁж " Ё
⥪бв®ўле Є®Ї®Є <1 ᬥ >, <2 ᬥ > (ўбҐЈ® ЁбЇ®«м§г©вҐ 2
GET-Є®¬ ¤л). Џа®Ја ¬¬ Ї®б«Ґ Ї®¬ҐвЄЁ ᥫҐЄвЁў®© Є®ЇЄЁ Ё ўлЎ®а
⥪бв®ў®© ¤®«¦ ўлЇ®«Ёвм "®Ўа Ў®вЄг": ўлў®¤ ⥪бв®ў ЇаЁЈ« 襨©
нвЁе 2 Є®Ї®Є.
20.4. €бЇ®«м§гҐ¬ бЄалвлҐ POPUP-¬Ґо Ё бЇЁбЄЁ-¬Ґо.
ЋЎ« б⨠। ЄвЁа®ў Ёп
POPUP-¬Ґо §лў Ґвбп бЄалвл¬, Ґб«Ё «Ёим ®¤Ё ҐЈ® ЇгЄв
ЇаҐ¤кпў«Ґ нЄа Ґ, ў "®Є®иЄҐ". Љ®Ј¤ вॡгҐвбп, ¬Ґо а бЄалў ов
Ї®«®бвмо, ў®¤п ҐЈ® Єгаб®а Ё ¦Ё¬ п Enter Ё«Ё Space. ЏгЄвл
¬Ґо ¬®Јгв Ўлвм § ¤ л Є Є ЇаЁЈ« иҐЁп ў ®ЇжЁЁ PICT (б¬. ўлиҐ).
ЌҐ®Ўлз® "Ї®ўҐ¤ҐЁҐ" GET-ЇҐаҐ¬Ґ®©, Є®в®а п ¬®¦Ґв Ўлвм зЁб«®ў®©
Ё«Ё бЁ¬ў®«м®©. …Ґ Ёб室®Ґ § 票Ґ § ¤ Ґв ®¬Ґа ЇгЄв (зЁб«®)
Ё«Ё ⥪бв ЇгЄв (бЁ¬ў®«м®Ґ § 票Ґ), ЇаҐ¤к塞®Ј® ў "®Є®иЄҐ".
…б«Ё в Є®Ј® ⥪бв Ґв ў бЇЁбЄҐ ЇгЄв®ў, ® ¤®Ў ў«пҐвбп ў ¬Ґо Є Є
Ї®б«Ґ¤Ё© (ўаҐ¬Ґл©) ЇгЄв. „«п а бЄалвЁп ¬Ґо ¦Ё¬ ов Enter Ё«Ё
Space. Љ®Ј¤ ў а бЄал⮬ ¬Ґо Їа®Ё§ўҐ¤Ґ ўлЎ®а, GET-ЇҐаҐ¬Ґ п
ЇаЁЁ¬ Ґв § 票Ґ (®¬Ґа Ё«Ё ⥪бв) ўлЎа ®Ј® ЇгЄв , Є®в®ал©
®бв Ґвбп нЄа Ґ (ў "®Є®иЄҐ").
‘Єал⮥ POPUP-¬Ґо д®а¬ЁагҐвбп Є®¬ ¤®©
@ Y,X GET<ЏҐаҐ¬Ґ п> PICT<‚лаC> FROM<Њ ббЁў> RANGE<‚лаN1>,<‚лаN2> <ЋЇжЁЁ>
Љ®¬ ¤ д®а¬Ёа®ў Ёп бЇЁбЄ -¬Ґо, Єа®¬Ґ Ё®Ј® бЁ¬ў®« -®ЇаҐ¤Ґ«ЁвҐ«п,
¬®¦Ґв ᮤҐа¦ вм ¤®Ї®«ЁвҐ«м® ®ЇжЁо POPUP <€¬п POPUP-¬Ґо>.
ЏаЁ¬Ґа 20.7.
k = "‡ «ЄЁ¤ ….…." && ЌЁ¦Ґ д®а¬ЁагҐвбп бЄал⮥ ¬Ґо
@ 6,8 GET k PICT "@^ ѓ «ЄЁ Ђ.Ђ.;Њ «ЄЁ Ѓ.Ѓ.;Џ «ЄЁ ‚.‚.;— «ЄЁ „.„."
READ
‚ "®Є®иЄҐ" Ї®пўЁвбп ⥪бв "‡ «ЄЁ¤ ….….", а бб¬ ваЁў Ґ¬л© Є Є
Ї®б«Ґ¤Ё© ЇгЄв ¬Ґо, ®б®ў®Ґ ᮤҐа¦ ЁҐ Є®в®а®Ј® - ў ®ЇжЁЁ PICT.
ЋЇжЁп SIZE Ґ ®Ўп§ ⥫м , ЁЎ® ўлб®в <‚лаN1> ЁЈ®аЁагҐвбп,
иЁаЁ <‚лаN2> ®ЇаҐ¤Ґ«пҐвбп Ї® 㬮«з Ёо б ¬л¬ ¤«Ёл¬ ЇгЄв®¬.
ЏгЄвл бЄалв®Ј® ¬Ґо Ё бЇЁбЄ -¬Ґо ¬®Јгв Ўлвм § ¤ л ў ¬ ббЁўҐ.
ќв® Ў®«ҐҐ ЈЁЎЄЁ© ў аЁ в, в Є Є Є Ё ЇгЄвл, Ё Ёе зЁб«® ¬®¦® Ё§¬Ґпвм.
‚ ®ЇжЁЁ RANGE <‚лаN1> гЄ §лў Ґв н«Ґ¬Ґв, б Є®в®а®Ј® зЁ Ґвбп ¬Ґо,
<‚лаN2> ®Ў®§ з Ґв зЁб«® ЁбЇ®«м§гҐ¬ле н«Ґ¬Ґв®ў. Џ® 㬮«з Ёо
®¤®¬Ґал© ¬ ббЁў ЁбЇ®«м§гҐвбп Ї®«®бвмо, ў ¤ўг¬Ґа®¬ - ЁбЇ®«м§гҐвбп
1-© бв®«ЎҐж. „«п ¤ўг¬Ґа®Ј® ¬ ббЁў <‚лаN1> § ЇЁблў ов Є Є ЇаЁўҐ¤Ґл©
Ё¤ҐЄб (б¬. Ї. 15.5) н«Ґ¬Ґв . ‚ н⮬ б«гз Ґ ЁбЇ®«м§гҐвбп бв®«ЎҐж
¬ ббЁў б гЄ § л¬ н«Ґ¬Ґв®¬.
ЋЎа вЁ¬бп Є ЇаЁ¬Ґаг 20.6 б 楫мо ¬®¤ҐаЁ§ жЁЁ Їа®Ја ¬¬л.
‡ ЇЁиҐ¬ ¤ўг¬Ґал© ¬ ббЁў, ў ЇҐаў®¬ бв®«ЎжҐ Є®в®а®Ј® §ў Ёп
зЁб«®ўле Ї®«Ґ© Ѓ„, ў® ўв®а®¬ - §ў Ёп ᮮ⢥вбвўгойЁе ЇаҐ¤¬Ґв®ў:
Physi ”€‡€ЉЂ
Chemi •€Њ€џ
Matem ЊЂ’…ЊЂ’€ЉЂ.
Ѓг¤Ґ¬ ўлў®¤Ёвм ў бЄал⮥ ¬Ґо 2-© бв®«ЎҐж, н«Ґ¬Ґвл 1-Ј® -
ЁбЇ®«м§®ў вм ў ¬ Єа®Ї®¤бв ®ўЄҐ Є®¬ ¤л REPLACE (б¬. Їа®Ја ¬¬г
ЇаЁ¬Ґа 20.6). ’ҐЇҐам Ї®«м§®ў вҐ«м Ё§Ў ў«Ґ ®в Ґ®Ўе®¤Ё¬®бвЁ
ўў®¤ , ЁвҐа䥩б бв « Ј«п¤ҐҐ, ®¤®бва®з®Ґ ¬Ґо Ґ
§ Ја®¬®¦¤ Ґв нЄа .
DECLARE M[5], A[3,2]
M = 0
A[1] = "Physi" && ‡¤Ґбм ў¬Ґбв® ЇаЁўҐ¤Ґ®Ј® Ё¤ҐЄб ¬®¦®
A[2] = "”€‡€ЉЂ" && ЁбЇ®«м§®ў вм ®¬Ґа бва®ЄЁ Ё бв®«Ўж
A[3] = "Chemi"
A[4] = "•€Њ€џ"
A[5] = "Matem"
A[6] = "ЊЂ’…ЊЂ’€ЉЂ"
SET TALK OFF
CLEAR
USE Student
@ 1,55 GET i PICT "@^" FROM A RANGE 2 DEFAULT 1 && ЏаЁўҐ¤Ґл© Ё¤ҐЄб 2
READ
@ 3,15 SAY "Џђ…„Њ…’: "+ A[i,2]
@ 5,10 SAY "” ¬Ё«Ёп Ё.®.: " GET Famil WHEN .F.
@ 7,10 SAY "ЋжҐЄ : " GET k PICT "@*RH 2 ;3 ;4 ;5 " DEFAULT 0 VALID F()
@ 9,25 GET L PICT "@*NV \<‚ЇҐаҐ¤;\<Ќ § ¤;\<Љ®Ґж" DEFAULT 1 VALID G()
READ CYCLE
? M[1],M[2],M[3],M[4] && ‚лў®¤ зЁб« ¤ў®ҐЄ, в஥Є, зҐвўҐа®Є, ЇпвҐа®Є
FUNCTION F
REPLACE &A[i,1] WITH k+1 && ‡ ҐбҐЁҐ ®жҐЄЁ ў Ї®«Ґ б Ё¬ҐҐ¬ &A[i,1]
M[k] = M[k] + 1
RETURN 5-k && Ѓ«®Є G ¬Ё Ґ Ї®Є § , ЁЎ® ® Ґ ЇаҐвҐаЇҐ« Ё§¬ҐҐЁ©
‘ЇЁбЄЁ-¬Ґо. ќвЁ ¬Ґо ЇаҐ¤кпў«повбп нЄа Ё«Ё Їг⥬ ЄвЁў жЁЁ
GET-Є®¬ ¤®© а ҐҐ ®ЇЁб ®Ј® POPUP-¬Ґо, Ё«Ё Їг⥬ ўлў®¤ бЇЁбЄ
ЇгЄв®ў Ё§ гЄ § ®Ј® ¬ ббЁў . „®бв в®з® ў Ї®б«Ґ¤Ґ© Їа®Ја ¬¬Ґ
§ ¬ҐЁвм ў GET-и Ў«®Ґ бЁ¬ў®« ^ бЁ¬ў®« & Ё ў¬Ґбв® бЄалв®Ј® ¬Ґо
Ї®«гзЁвбп бЇЁб®Є-¬Ґо. ‚ ЇаЁжЁЇҐ, GET-и Ў«® Ґ ®Ўп§ ⥫Ґ, ®
в®«мЄ® ў Ґ¬ ¬®¦® гЄ § вм Є«оз T.
Љ Є Ё ў бЄалвле ¬Ґо, вЁЇ Ёб室®Ј® § 票п GET-ЇҐаҐ¬Ґ®©
®ЇаҐ¤Ґ«пҐв е а ЄвҐа ў®§ўа й Ґ¬®Ј® § 票п: ®¬Ґа ўлЎа ®Ј® ЇгЄв
Ё«Ё ⥪бв ЇгЄв . …б«Ё Ёб室®Ґ § 票Ґ Ґ ᮮ⢥вбвўгҐв Ё ®¤®¬г
ЇгЄвг ¬Ґо, ЇаЁ ЄвЁў жЁЁ ¬Ґо ўл¤Ґ«ҐЁп ЇгЄв ¬ થ஬ Ґв.
‚ б«гз Ґ ЄвЁў жЁЁ POPUP-¬Ґо ®ЇжЁп SIZE <‚лаN1>,<‚лаN2>
§ ¤ Ґв а §¬Ґал ®Ў« бвЁ нЄа , ®вў®¤Ё¬®© ¤«п ¬Ґо (ЇаЁ ЁбЇ®«м§®ў ЁЁ
¬ ббЁў "а Ў®в Ґв" «Ёим § 票Ґ <‚лаN2>, ®ЇаҐ¤Ґ«пп иЁаЁг ®Ў« бвЁ).
„ўҐ бва®ЄЁ Ё ¤ў бв®«Ўж § Ё¬ Ґв а ¬Є . Љ®®а¤Ё вл Ё а §¬Ґа POPUP-
¬Ґо, § ¤ лҐ ў GET-Є®¬ ¤Ґ Ё¬Ґо⠯२¬гйҐбвў® ЇҐаҐ¤ ᮮ⢥вбвўгойЁ¬Ё
®ЇжЁп¬Ё Є®¬ ¤л DEFINE POPUP.
Џ®¤®Ў п ЄвЁў жЁп POPUP-¬Ґо ®аЈ Ёз® ўбва Ёў Ґв ¬Ґо ў ®ЎйЁ©
ЁвҐа䥩б (Ј¤Ґ ¬®Јгв Ўлвм Ё ¤агЈЁҐ POPUP-¬Ґо), гЇа ў«пҐ¬л© б Ї®¬®ймо
READ. ЂЄвЁўЁа㥬®Ґ ¬Ґо а бб¬ ваЁў Ґвбп Є Є ®¤Ё GET-®ЎкҐЄв.
ЏаЁ¬Ґа 20.8. ‘®§¤ ¤Ё¬ ў «Ґў®¬ ўҐа奬 гЈ«г нЄа бЇЁб®Є-¬Ґо Ё§
Ё¬Ґ Ѓ„, еа Ё¬ле ў ⥪г饩 ¤ЁаҐЄв®аЁЁ, ®Ја ЁзЁў ®Є® 15 бва®Є ¬Ё.
„«п ўлЎ®а ¤Ґ©бвўЁп б Ѓ„ ЇаЁ¬ҐЁ¬ ⥪бв®ўлҐ Є®ЇЄЁ.
DECLARE A[3]
A[1] = "EditBD" && €¬п Ў«®Є । ЄвЁа®ў Ёп
A[2] = "CopyBD" && €¬п Ў«®Є Є®ЇЁа®ў Ёп
A[3] = "IndBD" && €¬п Ў«®Є Ё¤ҐЄбЁа®ў Ёп
DEFINE POPUP BD PROMPT FILES LIKE *.DBF MARGIN && ЊҐо Ё§ Ё¬Ґ Ѓ„
CLEAR
@ 0,2 SAY "‘ЇЁб®Є Ў § ¤ ле"
@ 1,2 GET k POPUP BD SIZE 15,10 DEFAULT "" && ЂЄвЁўЁа㥬 POPUP-¬Ґо
@ 4,30 GET j PICT "@* \<ђ…„ЂЉ’€ђЋ‚ЂЌ€…;\<ЉЋЏ€ђЋ‚ЂЌ€…;\<€Ќ„…Љ‘€ђЋ‚ЂЌ€…" ;
DEFAULT 1 VALID F()
READ
RELEASE POPUPS BD
FUNCTION F && Ѓ«®Є ЄвЁў жЁЁ ўлЎа ®© Ѓ„ Ё § ЇгбЄ Ї®¤Їа®Ја ¬¬л
USE(k)
DO &A[j]
RETURN
PROCEDURE EditBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "ђҐ¤ ЄвЁа㥬 Ѓ„"
PROCEDURE CopyBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "Љ®ЇЁа㥬 Ѓ„"
PROCEDURE IndBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "€¤ҐЄбЁа㥬 Ѓ„"
ЋЎ« б⨠। ЄвЁа®ў Ёп. ‘®§¤ ЁҐ ўл¤Ґ«Ґ®© 梥⮬ ®Ў« бвЁ нЄа
¤«п । ЄвЁа®ў Ёп MEMO-Ї®«п Ё«Ё бЁ¬ў®«мле Ї®«Ґ© Ѓ„, н«Ґ¬Ґв®ў
¬ ббЁў , ЇҐаҐ¬Ґле ॠ«Ё§гҐв Є®¬ ¤ , ЁбЇ®«м§гой п в ЄЁҐ ¦Ґ ®ЇжЁЁ,
Є Є Ё GET-Є®¬ ¤л, ЄвЁўЁа㥬 п, Є Є Ё ®Ё, Є®¬ ¤®© READ:
@ Y,X EDIT <ЏҐаҐ¬Ґ п> SIZE <‚лаN1>,<‚лаN2>, <‚лаN3> <ЋЇжЁЁ>,
Ј¤Ґ <ЏҐаҐ¬Ґ п> ®Ў®§ з Ґв । ЄвЁагҐ¬л© ®ЎкҐЄв, <‚лаN1>,<‚лаN2> -
ўлб®вг Ё иЁаЁг ®Ў« бвЁ, Ґ®Ўп§ ⥫쮥 ўла ¦ҐЁҐ <‚лаN3> - зЁб«®
бЁ¬ў®«®ў ®в з « ⥪бв , Є®в®алҐ а §аҐи Ґвбп । ЄвЁа®ў вм.
ЋЇжЁп TAB § ЇЁблў Ґвбп ў Є®¬ ¤Ґ, Ґб«Ё ¦ вЁҐ Є« ўЁиЁ Tab ¤®«¦®
ўбв ў«пвм ў ⥪бв бЁ¬ў®« в Ўг«пжЁЁ (Ї® 㬮«з Ёо нв®Ј® Ґ Їа®Ёб室Ёв).
„«п ўл室 Ё§ । ЄвЁа®ў Ёп б б®еа ҐЁҐ¬ Ё§¬ҐҐЁ© ¦Ё¬ ов
Tab Ё«Ё, Ґб«Ё гЄ § ®ЇжЁп TAB, Ctrl+Tab. ЏаЁ ¦ вЁЁ Esc Ё§¬ҐҐЁп
Ґ б®еа повбп, Єа®¬Ґ ®¤®Ј® б«гз п: ЇаЁ ўл室Ґ Ё§ । ЄвЁа®ў Ёп
MEMO-Ї®«п VALID-Є®ва®«м б®®Ўй Ґв ®Ў ®иЁЎЄҐ, ўл ¦Ё¬ ҐвҐ Esc,
ЁЈ®аЁагп ЇаҐ¤гЇаҐ¦¤ҐЁҐ.
<ЏҐаҐ¬Ґ п> а бб¬ ваЁў Ґвбп Є Є GET-®ЎкҐЄв, ® ¤®«¦ Ї®«гзЁвм
§ 票Ґ ¤® Є®¬ ¤л EDIT Ё«Ё ҐҐ § 票Ґ гЄ §лў ов ў ®ЇжЁЁ DEFAULT.
Ќ ЇаЁ¬Ґа, Ґб«Ё <ЏҐаҐ¬Ґ п> ЇаҐ¦¤Ґ Ґ бгйҐбвў®ў « Ё ⥪бв ҐҐ § а ҐҐ
Ґ Ё§ўҐбвҐ, ¬®¦® § ЇЁб вм ®ЇжЁо DEFAULT Space(1).
„«Ё ⥪бв ¬®¦Ґв ЇаҐў®б室Ёвм ўҐ«ЁзЁг <‚лаN1>*<‚лаN2>:
ЁбЇ®«м§гҐвбп ўҐавЁЄ «м п Їа®ЄагвЄ . ЏҐаҐе®¤ ®ўго бва®Єг ЇаЁ
Ў®аҐ ⥪бв ўлЇ®«пҐвбп ўв®¬ вЁзҐбЄЁ, е®вп нв® ¬®¦® ᤥ« вм Ё
Є« ўЁиҐ© Enter. ЌҐ § Ўлў ©вҐ Є®¬ ¤г SET MEMOWIDTH TO. Џ® 㬮«з Ёо
⥪бв ўла®ўҐ Ї® «Ґў®¬г Єа о. „«п ўла ўЁў Ёп Ї® Їа ў®¬г Єа о
§ ЇЁблў ов ®ЇжЁо FUNCTION "J", ¤«п жҐваЁа®ў ®Ј® а бЇ®«®¦ҐЁп
⥪бв ў бва®Є е - FUNCTION "I".
‚ EDIT-®Ў« бвЁ а Ў®в Ґв ⥪бв®ўл© аҐ¤ Єв®а, Ї® 㬮«з Ёо ¤Ґ©бвўгҐв
०Ё¬ ўбв ўЄЁ; Є« ўЁи Ins ЄвЁў . ЋЇжЁп SCROLL Ё¬ҐҐв в®в ¦Ґ б¬лб«,
зв® Ё ў Є®¬ ¤Ґ DEFINE POPUP (б¬. Ї. 19.4), ®ЇжЁп NOMODIFY а §аҐи Ґв
в®«мЄ® Їа®б¬®ва ⥪бв . ЋЇжЁЁ DISABLE, MESSAGE, ERROR, COLOR, WHEN,
VALID - в ЄЁҐ ¦Ґ, Є Є ў GET-Є®¬ ¤ е.
‡ ¤ ЁҐ 20.4. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г б GET-Є®¬ ¤®© ᮧ¤ Ёп ¬Ґо,
ЇгЄвл Є®в®а®Ј® ®ЇаҐ¤Ґ«Ґл ¬ ббЁў®¬, EDIT-Є®¬ ¤®© ¤«п । ЄвЁа®ў Ёп
⥪бв ўлЎа ®Ј® ЇгЄв , Є®¬ ¤®© READ CYCLE Ё VALID-дгЄжЁҐ©
Ї®«м§®ў ⥫п, Ї®¤Є«о祮© Є EDIT Ё ᮤҐа¦ 饩 Є®¬ ¤г SHOW GETS (¤«п
®Ў®ў«ҐЁп бва®Є ¬Ґо нЄа Ґ).
20.5. ‡ Є®¬Ё¬бп б ЁвҐа䥩ᮬ, гЇа ў«пҐ¬л¬ б®ЎлвЁп¬Ё
‘Ёб⥬г, ЁбЇ®«м§гойго GET-Є®¬ ¤л, Є®¬ ¤л BROWSE, SHOW GETS
(GET), READ б а биЁаҐл¬ бЁв ЄбЁб®¬, §®ўҐ¬ а биЁаҐ®© GET-
бЁб⥬®©. ђ §ўЁвл© ЁвҐа䥩б ॠЈЁагҐв гбЇҐе (ҐгбЇҐе) ўлЇ®«пҐ¬ле
Ї®«м§®ў ⥫Ґ¬ ¤Ґ©бвўЁ©, бгйҐбвў®ў ЁҐ гб«®ўЁ© Ёе ॠ«Ё§ жЁЁ, ўлЎ®а
в®Ј® Ё«Ё Ё®Ј® ў аЁ в а Ў®вл Ё в.Ї. ЏаЁ н⮬ ¬®¦Ґв Ўлвм § ЇаҐйҐ
(а §аҐиҐ) ¤®бвгЇ Є ⥬ Ё«Ё Ёл¬ н«Ґ¬Ґв ¬ (Є®ЇЄ ¬, ЇгЄв ¬
¬Ґо) Ё ®ЎкҐЄв ¬, Ё§¬Ґпвмбп 梥⮢®Ґ ®д®а¬«ҐЁҐ, а бЇ®«®¦ҐЁҐ ®Є®,
Є®«ЁзҐбвў® Ё ᮤҐа¦ ЁҐ ЇаЁЈ« 襨© Ё в.¤.
‚ ®вбгвбвўЁҐ а биЁаҐ®© GET-бЁбвҐ¬л ЁвҐа䥩б, гЇа ў«пҐ¬л©
б®ЎлвЁп¬Ё, ॠ«Ё§гҐвбп б Ї®¬®ймо Їа®Ја ¬¬ле жЁЄ«®ў, "г« ў«Ёў ойЁе
нвЁ б®ЎлвЁп". Џ®«гз овбп Ја®¬®§¤ЄЁҐ Їа®Ја ¬¬л б § Їгв ®© «®ЈЁЄ®©,
ваг¤лҐ ¤«п Ї®Ё¬ Ёп Ё ®в« ¤ЄЁ. Ѓ« Ј®¤ ап дгЄжЁп¬ Ї®«м§®ў ⥫п
ў GET-бЁб⥬Ґ ॠ«Ё§ жЁп ЁвҐа䥩б гЇа®й Ґвбп.
ђҐЄ®¬Ґ¤гҐвбп "®еў влў вм" ®¤®© Є®¬ ¤®© READ б®ў¬Ґбв®
ЁбЇ®«м§гҐ¬лҐ ®Є , ЄвЁўЁагп Ёе Ї® б«Ґ¤го饩 б奬Ґ:
ACTIVATE WINDOW <1 ®Є®>
<SAY- Ё GET-Є®¬ ¤л "ў бвЁ«Ґ WINDOWS">
ACTIVATE WINDOW <2 ®Є®>
<SAY- Ё GET-Є®¬ ¤л "ў бвЁ«Ґ WINDOWS">
. . .
READ <ЋЇжЁЁ, ЇаЁ¬Ґа CYCLE>.
ќв® ®¤® "Ё§¬ҐаҐЁҐ" ЁвҐа䥩б , ўв®а®Ґ - Ј«гЎЁ ў«®¦ҐЁп READ:
дгЄжЁЁ Ї®«м§®ў ⥫п, ўл§лў Ґ¬лҐ ў GET-бЁб⥬Ґ, ў бў®о ®зҐаҐ¤м
¬®Јгв ᮤҐа¦ вм GET-бЁб⥬л (Ј®ў®апв ® ў«®¦ҐЁЁ Є®¬ ¤ READ).
„®ЇгбЄ Ґвбп ¬ ЄбЁ¬г¬ 5 га®ўҐ© ў«®¦ҐЁп READ. ”гЄжЁп RDLEVEL()
ў®§ўа й Ґв ®¬Ґа ⥪г饣® га®ўп (㬥а жЁп - б 1); 0 ®§ з Ґв
®вбгвбвўЁҐ ЄвЁўле READ.
‚ᥠGET-®ЎкҐЄвл, "®Ўб«г¦Ёў Ґ¬лҐ" ®¤®© Є®¬ ¤®© READ, ўЄ«оз п
EDIT-®Ў« бвЁ, 㬥аговбп (б 1) ў Ї®ап¤ЄҐ Ї®а®¦¤ҐЁп ЎҐ§®в®бЁвҐ«м®
Є а §¬ҐйҐЁо ў ®Є е. ЏаЁ н⮬ ®Ў®б®Ў«ҐлҐ н«Ґ¬Ґвл вЁЇ Є®Ї®Є
Ї®«гз ов Ё¤ЁўЁ¤г «млҐ ®¬Ґа , ¤ ¦Ґ Ґб«Ё ᮧ¤ л ®¤®© GET-Є®¬ ¤®©.
Ќ®¬Ґа ЇҐаў®Ј® (Ё«Ё Ґ¤Ёб⢥®Ј®), ®ЎкҐЄв Ї®а®¦¤Ґ®Ј® GET-
Є®¬ ¤®©, ў®§ўа й Ґв дгЄжЁп OBJNUM(<GET-ЇҐаҐ¬Ґ п>, <‚лаN>);
Ґ®Ўп§ ⥫쮥 <‚лаN> ®Ў®§ з Ґв га®ўҐм READ, ®в«Ёзл© ®в
⥪г饣®. ‡ 票Ґ¬ бЁб⥬®© ЇҐаҐ¬Ґ®© _CUROBJ пў«пҐвбп ®¬Ґа
⥪г饣® ®ЎкҐЄв . € Їа®вЁў, Ё§¬Ґпп _CUROBJ, ¬л Їа®ў®жЁа㥬
ЇҐаҐе®¤ Є ᮮ⢥вбвўго饬㠮ЎкҐЄвг.
Ћвб«Ґ¦Ёў вм б®ЎлвЁп Ё ў®§¤Ґ©бвў®ў вм ЁвҐадҐ©б ¬®¦®
"ЈагЎл¬Ё" Ё "в®ЄЁ¬Ё" б।бвў ¬Ё. Ќ 祬 б ЇҐаўле. ‚ Є®¬ ¤Ґ
READ ¬®¦® гЄ §лў вм WHEN- Ё VALID-гб«®ўЁп. …б«Ё § 票Ґ
WHEN-гб«®ўЁп а ў® .F., Є®¬ ¤ READ Їа®ЇгбЄ Ґвбп, в.Ґ. GET-бЁб⥬
Ґ ЄвЁўЁагҐвбп. ќв® ¬®¦Ґв Ўлвм, ЇаЁ¬Ґа, ў«®¦Ґ п Є®¬ ¤
READ, "гб«гЈЁ" Є®в®а®© Ї®Є Ґ Ї® ¤®ЎЁ«Ёбм. VALID-гб«®ўЁҐ
Їа®ўҐапҐвбп ЇаЁ Ї®ЇлвЄҐ ўл室 Ё§ READ. …б«Ё ҐЈ® § 票Ґ .T.,
Їа®Ёб室Ёв ўл室, ў Їа®вЁў®¬ б«гз Ґ Єгаб®а ®бв Ґвбп ў GET-бЁб⥬Ґ,
Ї®Є Ґ Ўг¤гв ўлЇ®«Ґл ¤Ґ©бвўЁп, ®ЎҐбЇҐзЁў ойЁҐ § 票Ґ .T..
‚®§¬®¦®бвм "бЁ«®ў®Ј® аҐиҐЁп" Ґбвм ўбҐЈ¤ : ҐЈ® ®ЎҐбЇҐзЁў ов
Є®¬ ¤ CLEAR READ Ё Є« ўЁиЁ (в Ў«. 20.2).
‚ аЁ в VALID<‚лаN> ЇаҐ¤Ї®« Ј Ґв еЁва®г¬®Ґ ЁбЇ®«м§®ў ЁҐ
GET-®ЎкҐЄв®ў: Ґб«Ё <‚лаN> б®ўЇ ¤ Ґв б ®¬Ґа®¬ ®¤®Ј® Ё§ Ёе,
Їа®Ёб室Ёв ў®§ўа в Є н⮬г GET-®ЎкҐЄвг, Ё зҐ - ўл室 Ё§ READ. Љ Є
Ё ў ¤агЈЁе б«гз пе, ®ЇжЁЁ WHEN Ё VALID ¬®Јгв Ўлвм г«®ўЄ®© ¤«п
ўлЇ®«ҐЁп ЇаҐ¤ў аЁвҐ«м®© Ё § Є«озЁвҐ«м®© ®Ўа Ў®вЄЁ, ЁЎ®
<‚лаN> Ё«Ё гб«®ўЁҐ <‚лаL> ¬®Јгв Ўлвм ®Ўа 饨Ґ¬ Є дгЄжЁЁ.
„«п ®в¤Ґ«мле ®Є®, "®еў зҐле" READ, «®ЈЁзго а®«м
ЁЈа ов ®ЇжЁЁ ACTIVATE <‚лаL> Ё DEACTIVATE <‚лаL> Є®¬ ¤л READ,
ЁбЇ®«м§гҐ¬лҐ ᮮ⢥вб⢥® ЇаЁ ўе®¤Ґ ў ®Є® (Ё ў з «Ґ
а Ў®вл READ), ЇаЁ ўл室Ґ Ё§ ҐЈ®. ‚л § ҐвҐ, зв® Ё ў GET-
Є®¬ ¤ е Ё¬Ґовбп ®ЇжЁЁ WHEN Ё VALID.
ЋЎ®ў«ҐЁҐ ®ЎкҐЄв®ў нЄа Ґ Ё Ё§¬ҐҐЁҐ ०Ё¬ ¤®бвгЇ
(а §аҐиҐ, § ЇаҐйҐ) ®ЎҐбЇҐзЁў Ґв Є®¬ ¤ SHOW GETS - "ЈагЎл©
Ёбва㬥в". Ћ а бЇа®бва пҐв ¤Ґ©бвўЁҐ ўбҐ ®ЎкҐЄвл Ё«Ё
室пйЁҐбп ў <ЋЄҐ>, Ґб«Ё § ¤ ҐҐ ®ЇжЁп WINDOW <ЋЄ®>.
‡ ЇаҐйҐЁҐ (а §аҐиҐЁҐ) ¤ «мҐ©иҐЈ® ¤®бвгЇ Є ®ЎкҐЄв ¬ б 楫мо
। ЄвЁа®ў Ёп Ё«Ё ЇаЁ¬ҐҐЁп ў гЇа ў«ҐЁЁ (Є®ЇЄЁ) ®ЎҐбЇҐзЁў Ґв
®ЇжЁп DISABLE (ENABLE) нв®© Є®¬ ¤л. ќв® ®ў®Ґ б®бв®пЁҐ ¬®¦Ґв Ўлвм
ўаҐ¬Ґл¬. ЋЎ®ў«ҐЁҐ ®ЎкҐЄв®ў ¬®¦Ґв ўлЇ®«пвмбп бв ¤ авл¬ ®Ўа §®¬
Ё«Ё Ўлвм "®аЁЈЁ «мл¬" (ᮮ⢥вб⢥® гЄ §лў ов ONLY Ё«Ё OFF).
Џ®б«Ґ¤ҐҐ ®ЎҐбЇҐзЁў Ґвбп § бзҐв дгЄжЁЁ Ї®«м§®ў ⥫п,
гЄ §лў Ґ¬®© ў ®ЇжЁЁ SHOW <‚лаL> Є®¬ ¤л READ, ЁбЇ®«м§гҐ¬®©
Ї® Є®¬ ¤Ґ SHOW GETS. ‚ ®вбгвбвўЁҐ ONLY Ё OFF ЁбЇ®«м§гҐвбп Є Є
®Ў®ў«ҐЁҐ Ї® 㬮«з Ёо, в Є Ё дгЄжЁп Ї®«м§®ў ⥫п (Ґб«Ё ®
§ ¤ ў ®ЇжЁЁ SHOW Є®¬ ¤л READ).
ЏаЁ ¦Ґ« ЁЁ Є®¬ ¤®© SHOW GETS ¬®¦® Ё§¬Ґпвм Ё 梥⮢®Ґ
®д®а¬«ҐЁҐ ®ЎкҐЄв®ў, гЄ §лў п ®ЇжЁо COLOR. …б«Ё ®ЇжЁҐ©
LEVEL<‚лаN> гЄ § га®ўҐм Є®¬ ¤л READ, Ўг¤гв ®Ўа Ў®в л
®ЎкҐЄвл Ґ ⥪г饣®, § ¤ ®Ј® га®ўп Є®¬ ¤л READ.
’Ґ ¦Ґ ®ЇжЁЁ, Єа®¬Ґ WINDOW, OFF, ONLY, Ё¬Ґов Є®¬ ¤л,
пў«пойЁҐбп "в®ЄЁ¬ Ёбва㬥⮬" Ё ў«ЁпойЁҐ б®бв®пЁҐ
®в¤Ґ«м®Ј® ®ЎкҐЄв :
SHOW OBJECT <‚лаN>, Ј¤Ґ <‚лаN> - ®¬Ґа GET-®ЎкҐЄв , Ё
SHOW GET <GET-ЇҐаҐ¬Ґ п>, <‚лаN>, Ј¤Ґ Ґ®Ўп§ ⥫쮥 <‚лаN>
гЄ §лў Ґв ®в®бЁвҐ«мл© ®¬Ґа ®ЎкҐЄв , Ґб«Ё ᮮ⢥вбвўгой п
GET-Є®¬ ¤ Ї®а®¤Ё« Ґ Ґ¤ЁбвўҐл© ®ЎкҐЄв. „®Ї®«ЁвҐ«м п ®ЇжЁп
PROMPT<‚лаC> Ї®§ў®«пҐв § ¬ҐЁвм ⥪бв ЇаЁЈ« иҐЁп Є®ЇЄЁ ®ўл¬
⥪б⮬ <‚лаC>.
Џ®а冷Є ЄвЁў жЁЁ GET-®ЎкҐЄв®ў. Џ® 㬮«з Ёо GET-®ЎкҐЄвл
ЄвЁўЁаговбп ў Ї®ап¤ЄҐ ў®§а бв Ёп ®¬Ґа®ў § ЁбЄ«о票Ґ¬ ®ЎкҐЄв®ў
) § ЇаҐйҐле ®ЇжЁҐ© DISABLE ў GET-Є®¬ ¤Ґ Ё«Ё ў SHOW GETS;
Ў) § ЇаҐйҐле бЁ¬ў®« ¬Ё \\ ў ЇаЁЈ« 襨Ё (§ ЇаҐйҐлҐ Є®ЇЄЁ);
ў) Ё¬ҐойЁе § 票Ґ .F. WHEN-гб«®ўЁп GET-Є®¬ ¤л;
Ј) Їа®ЇгбЄ Ґ¬ле ЇаЁ "бЄ зЄ®®Ўа §®¬" 㢥«ЁзҐЁЁ ®¬Ґа
®зҐаҐ¤®Ј® ®ЎкҐЄв ®ЇжЁҐ© VALID, Є Є ў ЇаЁ¬ҐаҐ 20.6.
Ља®¬Ґ в®Ј®, ®ЇжЁҐ© OBJECT<‚лаN> Є®¬ ¤л READ ¬®¦® § ¤ вм
®¬Ґа <‚лаN> ЇҐаў®Ј® ЄвЁўЁа㥬®Ј® ®ЎкҐЄв , ®ЇжЁҐ© VALID
GET-Є®¬ ¤л Ё Є®¬ ¤л READ - ў®§ўа в Є ®ЎкҐЄвг б ¬ҐмиЁ¬ ®¬Ґа®¬.
ЏҐаҐ¬ҐйҐЁп ў GET-бЁб⥬Ґ. „«п § ўҐа襨п а Ў®вл б GET-®ЎкҐЄв®¬
Ё«Ё ҐЈ® Їа®ЇгбЄ , ¬®¦® ¦ вм, Єа®¬Ґ Enter, Є« ўЁиг "бв५Є ўЁ§"
Ё«Ё Tab, зв® ®ЎҐбЇҐзЁв ¤ўЁ¦ҐЁҐ ў бв®а®г Ў®«миЁе ®¬Ґа®ў. Љ« ўЁиЁ
"бв५Є ўўҐае", Shift-Tab б«г¦ в ¤«п ¤ўЁ¦ҐЁп ў ®Ўа вго бв®а®г.
ЏаЁ н⮬ дЁ§ЁзҐбЄ®Ґ Ї®«®¦ҐЁҐ GET-Ї®«Ґ© Ґ Ё¬ҐҐв § 票п,
ЇаЁ¬Ґа, "бв५Є®© ўЁ§" ўл ЇҐаҐе®¤ЁвҐ ў GET-Ї®«Ґ, ॠ«м®
а §¬ҐйҐ®Ґ ўлиҐ. ЋЇжЁп CYCLE Є®¬ ¤л READ (б¬. Ї. 20.3) ®ЎҐбЇҐзЁў Ґв
"ЄагЈ®ў®©" ЇҐаҐе®¤ ®в ®ЎкҐЄв б ЁЎ®«миЁ¬ ®¬Ґа®¬ Є ЇҐаў®¬г
Ё ®Ў®а®в, ЇаҐЇпвбвўгп ўл室㠨§ READ ЇаЁ ЇҐаҐ¬ҐйҐЁЁ Ї® ®ЎкҐЄв ¬.
ЂЄвЁў жЁп ®Є пў«пҐвбп § ўЁбЁ¬®©: ҐҐ ўв®¬ вЁзҐбЄЁ ўл§лў Ґв
ЄвЁў жЁп «оЎ®Ј® ®ЎкҐЄв нв®Ј® ®Є , ЇҐаҐе®¤ Є ®ЎкҐЄвг ¤агЈ®Ј®
®Є ўл§®ўҐв ¤Ґ ЄвЁў жЁо ⥪г饣®. ЏаЁ н⮬ ᮮ⢥вб⢥®
ба Ў влў ов дгЄжЁЁ, гЄ § лҐ ў ®ЇжЁпе ACTIVATE, DEACTIVATE
Є®¬ ¤л READ. „«п ®вб«Ґ¦Ёў Ёп ®Є®ле ЇҐаҐе®¤®ў ЁбЇ®«м§гов
®Є®лҐ дгЄжЁЁ (б¬. Ј«. 18).
Њлим Ї®§ў®«пҐв Їа®Ё§ў®«м® ЇҐаҐе®¤Ёвм Ё§ ®Є ў
®Є® Ё ЄвЁўЁа®ў вм ®ЎкҐЄвл ў «оЎ®¬ Ї®ап¤ЄҐ. ЋЎкҐЄв ўлЎЁа ов
饫窮¬ ¬лиЁ Ї®б«Ґ ўҐ¤ҐЁп ҐҐ ¬ аЄҐа GET-Ї®«Ґ. …б«Ё ў ¦
Ї®б«Ґ¤®ў ⥫м®бвм ЄвЁў жЁЁ, ¬®¦® ®ЇжЁҐ© NOMOUSE § ЇаҐвЁвм
ўлЎ®а ®ЎкҐЄв®ў ¬лимо; ЇҐаҐ¬ҐйҐЁп б Ї®¬®ймо ¬лиЁ ў GET-Ї®«Ґ
ЇаЁ н⮬ Ґ § ЇаҐйҐл.
€вҐа ЄвЁўл© ¤®бвгЇ ¬®¦® ®Ја ЁзЁвм ®Є ¬Ё, "®еў зҐл¬Ё"
READ, гЄ § ў ®ЇжЁо MODAL. ЂЄвЁў жЁп Їа®зЁе ®Є® Ў«®ЄЁагҐвбп.
‘¬пЈзҐЁҐ нв®Ј® § ЇаҐв ®ЎҐбЇҐзЁў Ґв ®ЇжЁп Є®¬ ¤л READ
WITH <‘ЇЁб®Є ¤®бвгЇле ®Є®, Єа®¬Ґ "®еў зҐле" READ>
(ў н⮬ б«гз Ґ MODAL Ґ гЄ §лў ов). •®вп BROWSE-в Ў«Ёжл Ґ пў«повбп
GET-®ЎкҐЄв ¬Ё, ўЄ«о票Ґ Ёе ў ®ЎйЁ© ЁвҐадҐ©б Ўлў Ґв Ґ®Ўе®¤Ё¬®.
ќв® ¤Ґ« ов Ї® б奬Ґ
<ЋЇаҐ¤Ґ«ҐЁп ®Є®>
USE <Ѓ„1>
BROWSE WINDOW<ЋЄ®1> NOWAIT ...
USE <Ѓ„2>
BROWSE WINDOW<ЋЄ®2> NOWAIT ...
. . .
<SAY- Ё GET-Є®¬ ¤л>
READ WITH <ЋЄ®1>,<ЋЄ®2>, ...
ЋЇжЁо WITH гЄ §лў ов, в®«мЄ® Ґб«Ё 㦮 ®Ја ЁзЁвм ¬®¦Ґбвў®
¤®бвгЇле ®Є®, ЁЎ® BROWSE-®Є ¤®бвгЇл Ё Ї® 㬮«з Ёо, Є®Ј¤
ЄвЁў READ.
‡ ¤ ЁҐ 20.5. Џ®б«Ґ Ё§гзҐЁп ЇаЁ¬Ґа 20.6, гб«®¦пп Ў §г
¤ ле Ё Їа®Ја ¬¬г (а биЁапп ў®§¬®¦®бвЁ), ¤®Ў ў«пп ®Є Ё
гЇа ў«пойЁҐ н«Ґ¬Ґвл, ®Їа®Ўг©вҐ Є®¬ ¤л Ё ®ЇжЁЁ, а бᬮваҐлҐ
ўлиҐ. €бЇ®«м§г©вҐ ¬лим.
20.6. ЏаЁ¬Ґа Ї®бв஥Ёп ЁвҐа䥩б
ђ бᬮваЁ¬ Їа®б⥩иго бЇа ў®зго бЁб⥬㠤«п Ї®Ґ§¤®© ЎаЁЈ ¤л,
Ї®§ў®«пойго Ў«о¤ вм Ї« «оЎ®Ј® ў Ј® , Ј¤Ґ ®ва ¦Ґл § пвлҐ Ё
бў®Ў®¤лҐ ¬Ґбв , § ®бЁвм (Ё ЁбЄ«оз вм) ў Ў §г ᢥ¤ҐЁп ® Ї бб ¦Ёа е,
ўҐбвЁ гзҐв ¤Ґ©бвўгойЁе ¬Ґбв ( ЇаЁ¬Ґа, Ґб«Ё а §ЎЁв® ®Є® ў ЄгЇҐ,
¬Ґбв ЁбЄ«оз овбп). ЊҐбв® ®Ў®§ з Ґвбп б®бв ўл¬ ®¬Ґа®¬: ЇҐаўлҐ
2 жЁдал - ®¬Ґа ў Ј® , Ї®б«Ґ¤ЁҐ - б®Ўб⢥® ®¬Ґа ¬Ґбв .
ЋЄ® Vagon, Єг¤ ўлў®¤Ёвбп Ї« ў Ј® , ®ва ¦ Ґв ᮤҐа¦ ЁҐ
Ѓ„ Pass, ў Є®в®а®© 5 Ї®«Ґ©:
Џ®«Ґ €¬п Ї®«п ’ЁЇ ‘®¤Ґа¦ ЁҐ
1 Famil C ” ¬Ё«Ёп Ї бб ¦Ёа Ё«Ё "Їгбв®"
2 Mest C ‡ Ё¬ Ґ¬®Ґ ¬Ґбв®
3 Stat C ‘в жЁп § зҐЁп Ё«Ё "Їгбв®"
4 X N Љ®®а¤Ё в ¬Ґбв Ї« Ґ
5 Y N Љ®®а¤Ё в ¬Ґбв Ї« Ґ
…б«Ё ¬Ґбв® бў®Ў®¤®, ®® Ї®Є § ® §Ґ«Ґл¬ Єў ¤а ⮬ б ®¬Ґа®¬
¬Ґбв , Ё зҐ - бЁЁ¬. Џ®«®¦ҐЁҐ Єў ¤а в ®ЇаҐ¤Ґ«пов Є®®а¤Ё вл X,Y.
‡ зҐЁп ЇҐаўле 3 Ї®«Ґ© ЇаҐ¤кпў«повбп ў BROWSE-®ЄҐ Pass.
„«п Є ¦¤®Ј® вЁЇ ў Ј® ў Ѓ„ Plan ЇаҐ¤гᬮвॠ§ ЇЁбм б
Ґ¤ЁбвўҐл¬ MEMO-Ї®«Ґ¬ Plan, ЇаЁ¬Ґа, 1-п § ЇЁбм ᮤҐа¦Ёв Ї«
ЄгЇҐ©®Ј® ў Ј® (Љ), 2-п - Ї« Ї« жЄ ав®Ј® (Џ) Ё в.¤. ‘®бв ў
Ї®Ґ§¤ ®ва ¦ Ґв бва®Є S, ЇаЁ¬Ґа "1Џ;2Џ;3Џ;4Љ;5Љ; ... ;15Џ", Ј¤Ґ
ЎгЄўл ®Ў®§ з ов вЁЇ, жЁдал - ®¬Ґа ў Ј®®ў.
„«п ўлЎ®а ў Ј® Ё ўлў®¤ ҐЈ® Ї« ЁбЇ®«м§гҐвбп бЄал⮥ ¬Ґо
‚ЂѓЋЌ. …Ј® ЇгЄвл § ¤ л бва®Є®© S, ў Є®в®аго ¤®Ў ў«Ґ ЇгЄв "ЉЋЌ…–",
ўлЎЁа Ґ¬л© ¤«п § ўҐа襨п а Ў®вл. ЌЁ¦Ґ Ї®Є § б奬 ЄгЇҐ©®Ј® ў Ј® .
‚ Ґ© ®¬Ґа ў ўҐа奬 ап¤г ®Ў®§ з ов ўҐаеЁҐ Ї®«ЄЁ, ў б«Ґ¤го饬 -
Ё¦ЁҐ. Ќ ®¬Ґа Є« ¤лў овбп ҐўЁ¤Ё¬лҐ Є®ЇЄЁ (¤«п а бЄа бЄЁ ¬Ґбв Ё
дЁЄб жЁЁ ⥪г饣® ¬Ґбв ). ЋЄа иҐ Ўлў Ґв «Ёим ®¤ ҐўЁ¤Ё¬ п Є®ЇЄ
Ё§ б®ў¬Ґб⮠ᮧ¤ ле. —в®Ўл § Єа бЁвм ўбҐ, ᮧ¤ ¤Ё¬ Ёе ®в¤Ґ«мл¬Ё
ўлЇ®«ҐЁп¬Ё GET-Є®¬ ¤л ў жЁЄ«Ґ. „«п Ј«п¤®бвЁ ¬Ё Їа®аЁб®ў л
Є®вгал Є®Ї®Є, ®вбгвбвўгойЁҐ ў Ї« Ґ.
Џа®б«Ґ¤Ё¬ а Ў®вг ЇаЁў®¤Ё¬®© Ё¦Ґ Їа®Ја ¬¬л, ў Є®в®а®© ¤Ґ©бвўгҐв
¤ўгега®ўҐў п GET-бЁб⥬ : ЇҐаў®¬ га®ўҐ - ¬Ґо ‚ЂѓЋЌ, ўв®а®¬
- ¬®¦Ґбвў® Є®Ї®Є-¬Ґбв, BROWSE-®Є® Pass Ё Є®ЇЄ ў®§ўа в ў ¬Ґо
‚ЂѓЋЌ. Џ®б«Ґ ®вЄалвЁп Ѓ„ Ё ®ЇЁб Ёп ®Є® ᮧ¤ Ґвбп бЄал⮥ ¬Ґо
‚ЂѓЋЌ. Ќг¦® ЇаҐ¤кпўЁвм Ї®«м§®ў вҐ«о ЁвҐадҐ©б ў 楫®¬ ЇаЁ¬ҐаҐ
1 ў Ј® . ’ॡгҐвбп ¤ў ¦¤л ¦ вм Enter. ќвЁ ¦ вЁп Ё¬ЁвЁагҐв
Є®¬ ¤ KEYBOARD, "®ва Ў влў Ґв" - Є®¬ ¤ READ. ЏҐаў®Ґ ¦ вЁҐ
а бЄалў Ґв ¬Ґо, ўв®а®Ґ - ®бгйҐбвў«пҐв ўлЎ®а ў Ґ¬. ЏаЁ н⮬
ўЄ«оз Ґвбп Ў«®Є Vg, Ї®«гз ойЁ© Є Є Ї а ¬Ґва Ї®¤бва®Єг "1Џ". Ћ
«Ё§ЁагҐв вЁЇ ў Ј® , бзЁвлў Ґв ў ®Є® Vagon ᮮ⢥вбвўгойЁ©
Ї« Ё ўлЇ®«пҐв ў Ѓ„ Pass ЇҐаў®© § ЇЁбЁ, ᮮ⢥вбвўго饩 ¤ ®¬г
ў Ј®г. ‡ ⥬ ў жЁЄ«Ґ SCAN Їа®б¬ ваЁў овбп ўбҐ § ЇЁбЁ ¤«п ¤ ®Ј®
ў Ј® . Љ®¬ ¤ GET ЁбЇ®«м§гҐв Є®®а¤Ё вл X,Y Ё§ § ЇЁбЁ ¤«п
Ї®а®¦¤ҐЁп Є®ЇЄЁ, б®бв®пЁҐ Ї®«п Famil - ¤«п ҐҐ а бЄа бЄЁ,
Ґб«Ё § ЇЁбм Ї®¬ҐзҐ г¤ «ҐЁҐ (Ґ¤Ґ©бвўго饥 ¬Ґбв®), Є®ЇЄ
¤Ґ« Ґвбп Ґ¤®бвгЇ®© (бЁ¬ў®«л " \\" ў GET-и Ў«®Ґ). Џ®б«Ґ жЁЄ«
Є®¬ ¤ READ CYCLE ўв®а®Ј® га®ўп ЄвЁўЁагҐв ЇҐаўго ¤®бвгЇго
Є®ЇЄг, ЇаЁ н⮬ ўЄ«оз Ґвбп Ў«®Є Kto, Єг¤ ЇҐаҐ¤ Ґвбп ®¬Ґа d
ў Ј® Ё ®¬Ґа ¬Ґбв . Џ®б«Ґ¤Ё© б®ўЇ ¤ Ґв б® § 票Ґ¬ _CUROBJ,
в.Ґ. б ®¬Ґа®¬ GET-®ЎкҐЄв , Є®ЇЄЁ, ® вॡгҐвбп ⥪бв®ў п д®а¬ ,
б®бв®пй п Ё§ 2 бЁ¬ў®«®ў.
Ѓ«®Є Kto ўлў®¤Ёв BROWSE-®Є® (Ґ ЄвЁў®Ґ), ЇаЁзҐ¬ ў ўҐа奩
бва®ЄҐ Ї®Є §лў Ґвбп ®¬Ґа ⥪г饣® ¬Ґбв Ё ᢥ¤ҐЁп ® Ї бб ¦ЁаҐ,
Ґб«Ё ¬Ґбв® § пв®. ќв® ®ЎҐбЇҐзҐ® Є®¬ ¤ ¬Ё SEEK d+m Ё BROWSE.
Ќ ¦Ё¬ п Enter Ё«Ё Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬, Ї®«м§®ў ⥫м
ЇҐаҐ¬Ґй Ґвбп Ї® Ї« г Ё, ᮮ⢥вб⢥®, ЇҐаҐ¬Ґй овбп бва®ЄЁ ў
®ЄҐ BROWSE. —ҐаҐ§ Є®ЇЄг Ї® 㬮«з Ёо (б¬. Ї. 20.3) <<Џ…ђ…•Ћ„
Љ „ђ“ѓЋЊ“ ‚ЂѓЋЌ“>> ¬®¦® ўҐагвмбп 1-© га®ўҐм GET-бЁб⥬л,
зв®Ўл ўлЎа вм Ё®© ў Ј® Ё в.¤. ќв® ўбҐ, з⮠㦮 ЎаЁЈ ¤Ёаг Ї®Ґ§¤ .
Џа®ў®¤ЁЄг ў ваҐе б«гз пе ЇаЁе®¤Ёвбп ЄвЁўЁа®ў вм ®Є® Pass:
) ЇаЁ § ҐбҐЁЁ д ¬Ё«ЁЁ ®ў®Ј® Ї бб ¦Ёа Ё бв жЁЁ § 票п;
Ў) ЇаЁ бвЁа ЁЁ ¤ ле ® Ї бб ¦ЁаҐ; Ј) ¤«п Ї®¬ҐвЄЁ Ґ¤Ґ©бвўго饣®
¬Ґбв Ё«Ё бпвЁп Ї®¬ҐвЄЁ. ЋЄ® Pass ЄвЁўЁагҐвбп (¤Ґ ЄвЁўЁагҐвбп)
¦ вЁҐ¬ CTRL+F1. ‘вЁа ЁҐ Ї®«п ўлЇ®«пов Є« ўЁиЁ CTRL+Y,
Ї®¬ҐвЄг г¤ «ҐЁҐ (бпвЁҐ Ї®¬ҐвЄЁ) - Є« ўЁиЁ CTRL+T. Љ®Ј¤
Ё§¬ҐҐ п § ЇЁбм Ї®ЄЁ¤ Ґвбп, Є®¬ ¤ BROWSE ўЄ«оз Ґв дгЄжЁо F,
ўлЇ®«пойго ®Ў®ў«ҐЁҐ ᮮ⢥вбвўго饩 Є®ЇЄЁ: Ё§¬ҐпҐвбп ҐҐ
梥в.
ЏаЁ ў®§ўа ⥠ў ®Є® Vagon ЄвЁўЁагҐвбп Є®ЇЄ Ї® 㬮«з Ёо -
ў®§ўа в 1-© га®ўҐм GET-бЁб⥬л. ‚ н⮬ Ґбвм १®: Ґ ўбҐ
Ё§¬ҐҐЁп бв вгб ¬Ґбв ў Ј® ®ЇҐа вЁў® 室пв ®ва ¦ҐЁҐ ў ®ЄҐ
Ё Ї®ўв®ал© ўлЎ®а в®Ј® ¦Ґ ў Ј® ®Є §лў Ґвбп Єбв вЁ. ЏаЁ ў®§ўа вҐ
ў ®Є® Vagon б Ї®¬®ймо ¬лиЁ, ўл ¬®¦ҐвҐ ЄвЁўЁа®ў вм «оЎго Є®ЇЄг.
Љ®ЇЄ Ї® 㬮«з Ёо Ґ®Ўп§ ⥫м : ¦Ё¬ п Esc, Ї®«м§®ў ⥫м
в Є¦Ґ ў®§ўа й Ґвбп 1-© га®ўҐм, ® Ґб«Ё § ¬ҐиЄ Ґвбп Ё Esc
ба Ў®в Ґв ¤ў ¦¤л, Їа®Ја ¬¬ "бЄ®а®Ї®бвЁ¦®" § Є®зЁв а Ў®вг.
"‹ҐЈЁвЁ¬®Ґ" § ўҐа襨Ґ ¤Ґп⥫м®бвЁ Ї®«м§®ў вҐ«м ®бгйҐбвў«пҐв,
ўлЎЁа п ЇгЄв "‚л室" ¬Ґо ‚ЂѓЋЌ.
s="1Џ;2Џ;3Џ;4Џ;5Љ;6Љ;8Љ;9Љ;10Љ;11Љ;12Џ;13Џ;14Џ;15Џ;‚›•Ћ„"
SET TALK OFF
SET MEMOWIDTH TO 57
SET COLOR OF SCHEME 17 TO,,,,,W+*/G,,,W+/G
SET COLOR OF SCHEME 18 TO,,,,,W+*/B,,,W+/B
CLEAR
USE Pass
IF .NOT. File("Pass.IDX")
INDEX ON Mest TO Pass
ELSE
SET INDEX TO Pass
ENDIF
USE Vagon IN b
DEFINE WINDOW Pass FROM 1,18 TO 11,62
DEFINE WINDOW Vagon FROM 14,10 TO 23,69 TITLE "Џ‹ЂЌ ‚ЂѓЋЌЂ" ;
FOOTER "„‹џ €‡Њ…Ќ…Ќ€‰ ‚ ЋЉЌ… PASS ЌЂ†Њ€’… CTRL+F1" COLOR SCHEME 10
@ 5,0 SAY "‚ЂѓЋЌ:" GET k PICT "@^ "+ S VALID Vg(k) ;
DEFAULT Left(S,At(";",S)-1) MESSAGE""
@ 12,18 SAY " ‚Ћ‡‚ђЂ’ Љ Џ‹ЂЌ“ ‚ЂѓЋЌЂ - CTRL+F1 " COLOR N/BG
KEYBOARD Chr(13)+Chr(13) && €¬Ёв жЁп 2 ¦ вЁ© Є« ўЁиЁ Enter
READ CYCLE
FUNCTION Kto
PARAM d,m
SEEK d+m
BROWSE WINDOW Pass NOWAIT COLOR SCHEME 10 TITLE "Њ…‘’Ђ ‚ЂѓЋЌЂ "+d ;
FIELD U=Right(Mest,2):H="ЊҐбв®":P="9999", Famil:H=" ” ¬Ё«Ёп":14,;
Stat:H=" ‘в жЁп":20 VALID F()
FUNCTION F
SHOW OBJECT _CUROBJ COLOR SCHEME Iif(Empty(a.Famil),17,18)
FUNCTION Vg
PARAM i
ACTIVATE WINDOW Vagon
IF k="‚›•Ћ„"
CLEAR ALL
CLEAR
CANCEL
ENDIF
@ 2,0 CLEAR
GO Iif(Right(i,1)="K",1,2) IN b
?? b.PLAN && ‚лў®¤ ў ®Є® Vagon б奬л, ᮮ⢥вбвўго饩 вЁЇг ў Ј®
d= PAdl(Ltrim(Str(Val(i))),2,"0") && ‚뤥«ҐЁҐ ®¬Ґа ў Ј®
SEEK d && Џ®ЁбЄ ЇҐаў®© § ЇЁбЁ ¤«п ўлЎа ®Ј® ў Ј®
IF Recno() > Reccount()
@ 0,30 SAY "‚ ЃЂ‡… Ќ…’ ’ЂЉЋѓЋ ‚ЂѓЋЌЂ !" COLOR W+/R*
ELSE
SCAN WHILE a.Mest = d
@ a.Y,a.X GET Z PICT "@*I"+Iif(Deleted()," \\","") SIZE 1,2 DEFAULT 1;
When Kto(d,Padl(Ltrim(Str(_CUROBJ)),2,"0")) ;
COLOR SCHEME Iif(Empty(a.Famil),17,18)
ENDSCAN
@ 0,2 SAY " Њ…‘’Ћ ‘‚ЋЃЋ„ЌЋ " COLOR W+/G && ЋЎа §Ґж § Єа бЄЁ
@ 1,2 SAY " Њ…‘’Ћ ‘ ЏЂ‘‘Ђ†€ђЋЊ " COLOR W+/B && ЋЎа §Ґж § Єа бЄЁ
@ 0,30 GET j PICT "@*\! Џ…ђ…•Ћ„ Љ „ђ“ѓЋЊ“ ‚ЂѓЋЌ“" ;
MESSAGE "„‚Ђ†„› ЌЂ†Њ€’… ENTER „‹џ ЂЉ’€‚Ђ–€€ Њ…Ќћ <<‚ЂѓЋЌ>>" ;
COLOR ,,,,,W+*/GR,,,W+/N DEFAULT 1
READ CYCLE
ENDIF
‘®§¤ ЁҐ Ў § ¤ ле. ‚ Ѓ„ Plan Ґ¤Ёб⢥®Ґ Ї®«Ґ Plan. ‡ Ї®«ҐЁҐ
нвЁе MEMO-Ї®«Ґ© Їа®йҐ ўбҐЈ® Їа®Ё§ў®¤Ёвм ў Edit-®Ў« бвЁ, иЁаЁ
Є®в®а®© ᮮ⢥вбвўгҐв иЁаЁҐ Ї« ў Ј® Ё ¤®«¦ Ўлвм ЇаҐ¤ў аЁвҐ«м®
гЄ § ў Є®¬ ¤Ґ SET MEMOWIDTH TO. €в Є, Ї®« Ј Ґ¬ Ѓ„ Plan ᮧ¤ ®©.
Ѓ„ Pass ў Ёб室®¬ б®бв®пЁЁ ¤®«¦ ᮤҐа¦ вм бв®«мЄ® § ЇЁбҐ©,
бЄ®«мЄ® ¬Ґбв ў Ї®Ґ§¤Ґ, ЇаЁзҐ¬ Ї®«п Mest, X, Y ¤®«¦л Ўлвм § Ї®«Ґл.
ќв® Ў®«ми п агвЁ п а Ў®в , Є®в®аго «ҐЈЄ® ўв®¬ вЁ§Ёа®ў вм: ўлЎҐаҐ¬
ў ¬Ґо ў Ј® ¤«п ўлў®¤ Ї« ў EDIT-®Ў« бвм (б¬.Ї. 20.4). Ѓг¤Ґ¬
Ї®®зҐаҐ¤® Ї®¤ў®¤Ёвм Єгаб®а Ї®¤ Є ¦¤л© ®¬Ґа ў Ї« Ґ Ё § ЇгбЄ вм Ў«®Є
YX, ЁбЇ®«м§гойЁ© ⥪гйЁҐ ®Є®лҐ Є®®а¤Ё вл Row(), Col() Єгаб®а .
ЋЁ г¦л, ў®-ЇҐаўле, ¤«п § Ї®«ҐЁп Ї®«Ґ© Y,X ®зҐаҐ¤®© § ЇЁбЁ.
‚®-ўв®але, ®Ё Ї®§ў®«по⠢뤥«Ёвм ў MEMO-Ї®«Ґ Plan Ї®¤бва®Єг - ®¬Ґа
¬Ґбв , Ї®¤ Є®в®ал¬ бв®Ёв Єгаб®а. ЏаЁб®Ґ¤ЁЁў б«Ґў ®¬Ґа ў Ј® ,
Ў«®Є YX § ®бЁв § 票Ґ ў Ї®«Ґ Mest. ќв®в ®¬Ґа бвЁа Ґвбп ў®
Ё§ЎҐ¦ ЁҐ Ї®ўв®а®Ј® ўлЎ®а . Џ®бЄ®«мЄг Ї®авЁвм Ї« ¬л Ґ ¤®«¦л,
ў Є®¬ ¤Ґ EDIT ЇаҐ¤гб¬ ваЁў Ґвбп ®ЇжЁп NOMODIFY Ё Ё§¬ҐҐЁп
Їа®Ёб室пв ў Є®ЇЁЁ Ї« . ‚® Ё§ЎҐ¦ ЁҐ Ї®ўв®а®Ј® ўлЎ®а ў Ј®
ᮮ⢥вбвўгойЁ© ЇгЄв ¬Ґо ¤®«¦Ґ бв ®ўЁвмбп Ґ¤®бвгЇл¬.
„«п ўл§®ў Ў«®Є YX ¬л ЇаҐ¤гᬮваЁ¬ Є« ўЁиг, ЇаЁ¬Ґа F5.
…Ґ ЇаЁ¤Ґвбп ¦ вм Ў®«ҐҐ 1000 а §. Џа®пўЁ¬ ᬥЄ «Єг Ё §¤Ґбм.
—Ёб«® § ЇЁбҐ© ¤«п ®¤®вЁЇле ў Ј®®ў ®¤Ё Є®ў® Ё ®в«Ёз овбп ®Ё
«Ёим бв а襩 з бвмо Ї®«п Mest. ‘¤Ґ« Ґ¬ в Є, зв®Ўл ¦ вЁҐ F5
д®а¬Ёа®ў «® § ЇЁбЁ ¤«п ўбҐе ®¤®вЁЇле ў Ј®®ў. ќв® Ґб«®¦®.
ђ §а Ў®в вм Ў«®Є YX, ЁбЇ®«м§гп Є Є Ї®¤бЇ®амҐ Їа®Ја ¬¬г PLAN.PRG,
ЇаЁўҐ¤Ґго б. 281 ў [7], ЇаҐ¤« Ј Ґвбп зЁв ⥫о.
‡ ¤ ЁҐ 20.6. ђ §а Ў®в ©вҐ ЁвҐа䥩б, ЁбЇ®«м§гҐ¬л© ў Їа®жҐббҐ
§ Ї®«ҐЁп Ѓ„ Pass, Є®в®ал© ®ЇЁб ўлиҐ.
‡ЂЉ‹ћ—…Ќ€… Љ ѓ‹Ђ‚… 20
‚ ¤ ®© Ј« ўҐ а бᬮваҐл "Ї®«гд ЎаЁЄ вл" - а §«ЁзлҐ
дгЄжЁ® «млҐ б।бвў ЁвҐа䥩б , Є®в®алҐ Ї® ¤®Ўпвбп ¤«п
ᮧ¤ Ёп нЄа ЇаЁ«®¦ҐЁп. Џа®бвлҐ ўлЎ®а ®ЎкҐЄв®ў нЄа Ё
гЇа ў«ҐЁҐ Ё¬Ё ®ЎҐбЇҐзЁў ов "¬ ЄбЁ¬ «м® ¤а㦥б⢥л©"
Ї®«м§®ў ⥫мбЄЁ© ЁвҐа䥩б. ‚ Ї. 21.5 ¬л а бᬮваЁ¬ б।бвў ,
"¤а㦥б⢥лҐ" а §а Ў®взЁЄг нЄа , Ї®§ў®«пойЁҐ ᮧ¤ ў вм ®Ўа §
нЄа Ї®звЁ ЎҐ§ Їа®Ја ¬¬Ёа®ў Ёп. Ћбў®Ёвмбп б Ё¬Ё ў ¬ Ї®¬®Јгв
ЇаҐ¤бв ў«ҐЁп, Ї®«гзҐлҐ ЇаЁ з⥨Ё бв®п饩 Ј« ўл.
‘Ћ‚…ђ…Ќ‘’‚“…Њ €Ќ’…ђ”…‰‘ ЏЋ‹њ‡Ћ‚Ђ’…‹џ
„ўҐ ЇаҐ¤л¤гйЁҐ Ј« ўл ᮧ¤ «Ё ЇаҐ¤Ї®бл«ЄЁ ¤«п а бᬮв२п вЁЇ®ўле
б।бвў ЁвҐа䥩б , а §а Ў®вЄг Є®в®а®Ј® ҐаҐ¤Є® ва вЁвбп Ў®«ми п
з бвм ўаҐ¬ҐЁ Їа®Ја ¬¬Ёбв . ђ бб¬ ваЁў Ґ¬лҐ ў ¤ ®© Ј« ўҐ аҐиҐЁп
"ў бвЁ«Ґ WINDOWS" Ї®§ў®«по⠨⥣аЁа®ў вм ў Ґ¤Ёл© Їа®бв® гЇа ў«пҐ¬л©
ЁвҐадҐ©б ®ЎкҐЄвл а §®Ј® § 票п: Є®ЇЄЁ 4 вЁЇ®ў, ўҐавЁЄ «млҐ
¬Ґо, ®Ў« б⨠। ЄвЁа®ў Ёп, BROWSE-в Ў«Ёжл. ЏаЁ н⮬ Ґ ЁбЄ«оз овбп
б«®¦лҐ «®ЈЁзҐбЄЁҐ бўп§Ё ¬Ґ¦¤г ®ЎкҐЄв ¬Ё, Ёе ЇҐаҐбва®©Є Ё ЇҐаҐ бва®©Є .
20.1. Ќ § з Ґ¬ Є®¬ ¤лҐ Є« ўЁиЁ
‚ 㤮Ў®¬ ¤«п Ї®«м§®ў вҐ«п ЁвҐа䥩бҐ, Єа®¬Ґ бЁбвҐ¬л ®Є® Ё
¬Ґо, Ўлў ов § ¤Ґ©бвў®ў л Є« ўЁиЁ-Є®¬ ¤л. €е ¦ вЁҐ ў«ҐзҐв
ўлЇ®«ҐЁҐ § ЄаҐЇ«Ґле § Ё¬Ё Є®¬ ¤, ®Ўлз® нв® ®Ўа йҐЁп Є Ў«®Є ¬
ўлЇ®«ҐЁп вЁЇЁзле ®ЇҐа жЁ©. Ќ § 票Ґ Є« ўЁи Ї®Є §лў ов ў
®в¤Ґ«м®© бва®ЄҐ (Ё«Ё бва®Є е) нЄа (®Є ) - Є« ўЁи®¬ в Ў«®.
Ќ ЇаЁ¬Ґа, в Є®© бва®Є®© ¬®¦Ґв Ўлвм <‚лаC> ў ®ЇжЁпе TITLE<‚лаC> Ё
FOOTER<‚лаC>. Љ« ўЁиг Їа®ЎҐ« Ўг¤Ґ¬ ®Ў®§ з вм Є Є Space.
Љ®¬ ¤л ON KEY, ON ESCAPE. Љ®¬ ¤ ON KEY <Љ®¬ ¤ > § з Ґв
ўлЇ®«ҐЁҐ <Љ®¬ ¤л> ЇаЁ ¦ вЁЁ «оЎ®© Є« ўЁиЁ. ON ESCAPE <Љ®¬ ¤ >
§ з Ґв <Љ®¬ ¤г> "ЇҐаб® «м®" Є« ўЁиҐ Esc, Ґб«Ё ¤Ґ©бвўгҐв
гбв ®ўЄ SET ESCAPE ON (гбв ®ўЄ Ї® 㬮«з Ёо). Ћв¬Ґг нвЁе
§ 票© Їа®Ё§ў®¤пв Є®¬ ¤л ON KEY, ON ESCAPE ЎҐ§ аЈг¬Ґв®ў.
Ќ®ў®Ґ § 票Ґ ®в¬ҐпҐв ЇаҐ¤л¤г饥.
Љ®¬ ¤ ON KEY =<‚лаN> <Љ®¬ ¤ > § з Ґв <Љ®¬ ¤г> Є« ўЁиҐ
б INKEY-Є®¤®¬ (б¬. Ї.1.8, ЇаЁ«®¦ҐЁҐ 4), а ўл¬ <‚лаN>. „Ґ©бвўгҐв
«Ёим ®¤® в Є®Ґ § 票Ґ - Ї®б«Ґ¤ҐҐ, в.Ґ. ЄвЁў ®¤ Є« ўЁи .
"ЌҐа §Ў®азЁў®бвм" Є®¬ ¤л ON KEY «ҐЈЄ® Ї®Їа ўЁ¬ . Џгбвм нв®
Ўг¤Ґв Є®¬ ¤ ON KEY Do Proc. Џа®жҐ¤гаг Proc бва®Ё¬ Ї® б奬Ґ
PROCEDURE Proc
Key = LastKey()
DO CASE
CASE Key = <INKEY-Є®¤1>
<„Ґ©бвўЁп, ЇаҐ¤гб¬ ваЁў Ґ¬лҐ ¤«п Є« ўЁиЁ б INKEY-Є®¤®¬1>
CASE Key = <INKEY-Є®¤2>
<„Ґ©бвўЁп, ЇаҐ¤гб¬ ваЁў Ґ¬лҐ ¤«п Є« ўЁиЁ б INKEY-Є®¤®¬2>
. . .
ENDCASE
Љ®¬ ¤ ON KEY LABEL. Ћ § ЇЁблў Ґвбп б«Ґ¤гойЁ¬ ®Ўа §®¬:
ON KEY LABEL <€¬п Є« ўЁиЁ> <Љ®¬ ¤ >. ‚ ®в«ЁзЁҐ ®в ўлиҐа бᬮваҐле
Є®¬ ¤ Є®¬ ¤ ¬Ё ON KEY LABEL ¬®¦® ЄвЁўЁа®ў вм ҐбЄ®«мЄ® Є« ўЁи
б а §«Ёзл¬ ¤Ґ©бвўЁҐ¬. €¬п Є« ўЁиЁ, ЇаЁ¬Ґа PGUP, CTRL+END, ALT+E,
б®ўЇ ¤ Ґв б ЇаЁпвл¬Ё ®Ў®§ 票ﬨ. ђҐЈЁбва ЎгЄў ЎҐ§а §«ЁзҐ.
‹оЎ п Є®ЇЄ ¬лиЁ ®Ў®§ з Ґвбп MOUSE, «Ґў п (Їа ў п) Є®ЇЄ -
LEFTMOUSE (RIGHTMOUSE). ЏаЁ¬Ґа: ON KEY LABEL CTRL+X DO XXX. ‚ в Ў«.
20.1 ¤ л ®Ў®§ зҐЁп Є« ўЁи, ®в«ЁзлҐ ®в Ё§®Ўа ¦Ґле Ёе бЁ¬ў®«®ў.
’ Ў«Ёж 20.1
----------------------------------------------------------------------
Љ « ў Ё и € ¬ п Љ « ў Ё и € ¬ п
----------------------------------------------------------------------
‘в५Є ў«Ґў® LEFTARROW Shift+Tab BACKTAB
‘в५Є ўЇа ў® RIGHTARROW { LBRACE
‘в५Є ўўҐае UPARROW } RBRACE
‘в५Є ўЁ§ DNARROW Џа®ЎҐ« SPACEBAR
----------------------------------------------------------------------
Ќ § зҐлҐ Є« ўЁиЁ ¤Ґ©бвўгов Ґ в®«мЄ® ў б®бв®пЁЁ ®¦Ё¤ Ёп.
‘«гз ©®Ґ Ёе ¦ вЁҐ ¬®¦Ґв ЇаҐаў вм Є Є®©-«ЁЎ® Їа®жҐбб Ё ўл§ў вм
Ґг¬Ґб⮥ ўлЇ®«ҐЁҐ § 祮© Є®¬ ¤л, ЇаЁ¬Ґа, ўл§®ў
ўбЇ®¬®Ј ⥫쮣® Ў«®Є . —в®Ўл нв®Ј® Ґ Їа®Ёб室Ё«®, б«Ґ¤гҐв
бў®ҐўаҐ¬Ґ® ®в¬Ґпвм Ёе § 票п.
Ћв¬Ґ Є« ўЁиле § 票©. ‘⥪ § 票©. "€¤ЁўЁ¤г «мго"
®в¬Ґг ॠ«Ё§гҐв Є®¬ ¤ ON KEY LABEL <€¬п Є« ўЁиЁ>. —в®Ўл а §®¬
®в¬ҐЁвм ўбҐ § 票п, ЁбЇ®«м§гов Є®¬ ¤г ON KEY (б¬. ўлиҐ).
Ћв¬Ґг § 票© ४®¬Ґ¤гҐвбп ®бгйҐбвў«пвм ЇаЁ в®¬ ®ЎкҐЄвҐ, Є
Є®в®а®¬г ®Ё "ЇаЁЇЁб л". Ќ ЇаЁ¬Ґа, ЇаЁ ўл室Ґ Ё§ ®Є 㦮
ўлЇ®«пвм ᮮ⢥вбвўгойЁ© Ў«®Є ўл室 , ў з «Ґ Є®в®а®Ј® - ®в¬Ґ
§ 票© Є« ўЁи. Љ®¬ ¤ PUSH KEY CLEAR § Ї®¬Ё Ґв ў б⥪Ґ
⥪гйЁҐ § 票п. …б«Ё гЄ § ваЁЎгв CLEAR, в® ®¤®ўаҐ¬Ґ®
®Ё ®в¬Ґповбп. ‚®ббв ®ў«ҐЁҐ § 票©, еа Ё¬ле ў б⥪Ґ,
ўлЇ®«пҐв Є®¬ ¤ POP KEY ALL. …б«Ё ¤ ваЁЎгв ALL, ў®ббв ®ў«ҐЁо
ЇаҐ¤иҐбвўгҐв ®в¬Ґ ўбҐе ⥪гйЁе § 票©. ‘⥪ (Ё¬Ґ® б⥪)
ЁбЇ®«м§гҐвбп Ї®в®¬г, зв® Ў«®Є ¬®¦Ґв ўл§ў вм Ї®Ў«®Є, Ї®¤Ў«®Є -
¤агЈ®© Ї®¤Ў«®Є, Ё ў Є ¦¤®¬ Ё§ Ёе - бў®Ё § зҐЁп Є« ўЁи.
•а Ё¬лҐ ў б⥪Ґ § зҐЁп Ё§ў«ҐЄ овбп ў Ї®ап¤ЄҐ, ®Ўа ⮬
§ Ї®¬Ё Ёо, з⮠ᮮ⢥вбвўгҐв Ї®ап¤Єг ў®§ўа в Ё§ Ў«®Є ў Ў«®Є.
ЏаЁ¬Ґа 20.1.
<Ќ § 票Ґ Є« ўЁи ў Ј« ў®¬ Ў«®ЄҐ>
. . .
DO Proc1 && ‚맮ў Їа®жҐ¤гал Proc1
. . . && ‡¤Ґбм ў®ўм ¤Ґ©бвўгов § зҐЁп Ј« ў®Ј® Ў«®Є
PROCEDURE Proc1
PARAM <Џ а ¬Ґвал>
PUSH KEY CLEAR && Ћв¬Ґ § 票© Ј« ў®Ј® Ў«®Є
<Ќ § 票Ґ Є« ўЁи, ¤Ґ©бвўгойЁе ў Proc1>
. . .
DO Proc2
. . .
ON KEY && ЋЄ®з ⥫м п ®в¬Ґ § 票©, ᤥ« ле ў Proc1
. . .
POP KEY && ‚®ббв ®ў«ҐЁҐ § 票© Ј« ў®Ј® Ў«®Є
RETURN && ‚®§ўа в ў Ј« ўл© Ў«®Є Ё§ Proc1
PROCEDURE Proc2
PARAM <Џ а ¬Ґвал>
PUSH KEY CLEAR && Ћв¬Ґ § 票©, ᤥ« ле ў Proc1
<Ќ § 票Ґ Є« ўЁи, ¤Ґ©бвўгойЁе ў Proc2>
. . .
ON KEY && Ћв¬Ґ ⥪гйЁе § 票© Є« ўЁи
. . .
POP KEY && ‚®ббв ®ў«ҐЁҐ § 票©, ᤥ« ле ў Proc1
RETURN && ‚®§ўа в ў Ў«®Є Proc1
„ л© Їа®бв®© ЇаЁ¬Ґа б«г¦Ёв Ё««обва жЁҐ© б«Ґ¤гойЁе Ё¤Ґ©:
"®вўҐвб⢥®бвм" § ў®ббв ®ў«ҐЁҐ Є« ўЁиле § 票© ҐбҐв
Ў«®Є, Є®в®ал© Ёе ўаҐ¬п ®в¬Ґп«. Ћ ¤®«¦Ґ ®в¬Ґпвм б®Ўб⢥лҐ
§ 票п (бў®ҐўаҐ¬Ґ®). …б«Ё ®Ё ¤Ґ©бвўгов ¤® Є®ж ҐЈ® а Ў®вл,
Є®¬ ¤л ON KEY, POP KEY ¬®¦® § ¬ҐЁвм ®¤®©: POP KEY ALL.
Ћв¬Ґ Ё ў®ббв ®ў«ҐЁҐ ®в¤Ґ«м®Ј® § зҐЁп Є« ўЁиЁ. ”гЄжЁп
ON ('KEY',<€¬п Є« ўЁиЁ>) ў®§ўа й Ґв бЁ¬ў®«мго бва®Єг - § ЇЁбм
§ 祮© Є®¬ ¤л. …Ґ ¬®¦® § Ї®¬Ёвм, § ⥬ ®в¬ҐЁвм § 票Ґ,
в ¬, Ј¤Ґ ¤ ®Ґ § 票Ґ ¤® ў®ббв ®ўЁвм, ЇаЁ¬ҐЁвм Є®¬ ¤г
ON KEY LABEL б ¬ Єа®Ї®¤бв ®ўЄ®©.
€бЇ®«м§®ў ЁҐ дгЄжЁЁ READKEY() ЇаЁ । ЄвЁа®ў ЁЁ. ”гЄжЁп
READKEY() ў®§ўа й Ґв зЁб«®, ЁбЇ®«м§гҐ¬®Ґ ¤«п ®Ї®§ Ёп Є« ўЁиЁ,
¦ в®© ЇаЁ ўл室Ґ Ё§ Є®¬ ¤ APPEND, BROWSE, CREATE, EDIT (CHANGE),
INSERT, MODIFY Ё READ. Ќ Ї®¬Ё Ґ¬, зв® ўл室 Ё§ READ ¬®¦Ґв Їа®Ё§®©вЁ
Ї® Є« ўЁиҐ "бв५Є ўўҐае" ("бв५Є ўЁ§") ЇаЁ Ї®ЇлвЄҐ Ї®ЄЁгвм ЇҐаў®Ґ
(Ї®б«Ґ¤ҐҐ) GET-Ї®«Ґ. ’®в ¦Ґ нд䥪⠢맮ўҐв Є« ўЁи PgUp (PgDn).
‚ в Ў«ЁжҐ 20.2 Ї®Є § л ўбҐў®§¬®¦лҐ Є« ўЁиЁ ўл室 Ё ¤«п Є ¦¤®©
¤ л 2 зЁб« : зЁб«ЁвҐ«м ЇаҐ¤бв ў«пҐв зЁб«®, ў®§ўа й Ґ¬®Ґ, Ґб«Ё
Ё§¬ҐҐЁ© ¤ ле Ґ Ўл«®, § ¬Ґ ⥫м - Ґб«Ё ®Ё Їа®Ё§®и«Ё.
’ Ў«Ёж 20.2
-----------------------------------------------------------------
Љ« ўЁи ўл室 Љ®¤ ў®§ўа в Љ« ўЁи ўл室 Љ®¤ ў®§ўа в
----------------------------------------------------------------
<-, Ctrl+H, Ctrl+S 0/256 Esc 12/268
->, Ctrl+L 1/257 Ctrl+W, Ctrl+End 270
Home 2/258 Enter 15/271
End 3/259 ЋЇжЁп TIMEOUT 20/276
Tab 5/261 Ctrl+Home 33/289
PgUp 6/262 Ctrl+PgUp 34/290
PgDn 7/263 Ctrl+PgDn 35/291
Ctrl+<- 8/264 F1 36/292
-----------------------------------------------------------------
ђ бᬮваЁ¬ Їа®бв®© гзҐЎл© ЇаЁ¬Ґа ЇаЁ¬ҐҐЁп Readkey().
ЏаЁ¬Ґа 20.2. ‚ § ўЁбЁ¬®бвЁ ®в ᮤҐа¦ Ёп ⥪г饩 § ЇЁбЁ ҐҐ
¤ лҐ ®Ўа Ў влў овбп Ў«®Є®¬ Obr Ё«Ё ® Ї®¬Ґз Ґвбп г¤ «ҐЁҐ,
Ё«Ё ў Ґ© ®зЁй Ґвбп Ї®«Ґ Pr. „«п ўлЇ®«ҐЁп ¤Ґ©бвўЁп Ўг¤Ґ¬
Ї®ЄЁ¤ вм ®Є® । ЄвЁа®ў Ёп, § ўҐаи п READ Є« ўЁи ¬Ё Ctrl+Home
(ЇҐаҐе®¤ Є Ў«®Єг Obr), Ctrl+PgUp (Ї®¬ҐвЄ г¤ «ҐЁҐ), Ctrl+PgDn
(®зЁбвЄ Ї®«п Pr ў § ЇЁбЁ), Enter (ЇҐаҐе®¤ Є ®зҐаҐ¤®© § ЇЁбЁ),
End (§ ўҐа襨Ґ ўбҐЈ® Їа®жҐбб ). ЌҐ®Ўе®¤Ё¬ жЁЄ«, ўЄ«оз ойЁ© Є®¬ ¤г
BROWSE.
USE Student
DO WHILE .T.
BROWSE NOWAIT ;
TITLE "Ctrl+Home-®Ўа Ў®вЄ ,Ctrl+PgUp-г¤ «ҐЁҐ,Ctrl+PgDn-®зЁбвЄ Pr"
READ
Key = Readkey()
DO CASE
CASE Key = 15 .OR. Key = 271 && „«п Є« ўЁиЁ Enter
SKIP
CASE Key = 33 .OR. Key = 289 && „«п Є« ўЁи Ctrl+Home
DO Obr
CASE Key = 34 .OR. Key = 290 && „«п Є« ўЁи Ctrl+PgUp
DELETE
CASE Key = 35 .OR. Key = 291 && „«п Є« ўЁи Ctrl+PgDn
REPLACE Pr WITH Space(5)
CASE Key = 3 .OR. Key = 259 && „«п Є« ўЁиЁ End
EXIT && ‚л室 Ё§ жЁЄ«
ENDCASE
ENDDO
USE && ‡ ЄалвЁҐ Ў §л Ё г¤ «ҐЁҐ BROWSE-®Є
PROCEDURE Obr
? Famil && €¬Ёв жЁп ®Ўа Ў®вЄЁ
‡ ¤ ЁҐ 20.1. ђҐ «Ё§г©вҐ § ®ў® ЇаЁ¬Ґа 20.2, ЁбЇ®«м§гп дгЄжЁо
LastKey() ў¬Ґбв® ReadKey(). ‡ 票п INKEY-Є®¤®ў ¤ л ў ЏаЁ«®¦ҐЁЁ 3.
20.2. €§гз Ґ¬ б।бвў ЁвҐадҐ©б ў бвЁ«Ґ WINDOWS
GET-Є®¬ ¤л Ї®§ў®«пов ᮧ¤ ў вм в Є §лў Ґ¬лҐ WINDOWS-®ЎкҐЄвл:
Є®ЇЄЁ-ЇҐаҐЄ«оз ⥫Ё, ҐўЁ¤Ё¬лҐ, ⥪бв®ўлҐ Ё ᥫҐЄвЁўлҐ Є®ЇЄЁ,
а ¤Ё®-Є®ЇЄЁ, ¬Ґо-бЇЁбЄЁ, бЄалвлҐ POPUP-¬Ґо. ђ бᬮваЁ¬ ЁбЇ®«м§гҐ¬лҐ
ў Ёе ®ЇжЁЁ GET-Є®¬ ¤.
ЋЇжЁп DEFAULT <‚ла> ᮧ¤ Ґв Ё ЁЁжЁ «Ё§ЁагҐв GET-ЇҐаҐ¬Ґго (Ґ
пў«пойгобп н«Ґ¬Ґв®¬ ¬ ббЁў , Ї®«Ґ¬ Ѓ„) б зЁб«®ўл¬ Ё«Ё бЁ¬ў®«мл¬
§ 票Ґ¬ <‚ла>, Ґб«Ё ® Ґ Ўл« ᮧ¤ а ҐҐ. …йҐ Ў®«миЁҐ
ў®§¬®¦®бвЁ ¤«п бЁ¬ў®«м®© GET-ЇҐаҐ¬Ґ®© ᮧ¤ Ґв дгЄжЁп M ў GET-
и Ў«®Ґ. Ћ Ё¬ҐҐв ўЁ¤ M <‘ЇЁб®Є бва®Є>. ‚ GET-Ї®«Ґ ЇаҐ¤кпў«пҐвбп
1-п бва®Є Ё§ бЇЁбЄ , Ґб«Ё GET-ЇҐаҐ¬Ґ п а ҐҐ Ґ Ї®«гзЁ« § 票п.
Ќ ¦Ё¬ п Є« ўЁиг Їа®ЎҐ« , ¬®¦® "Їа®ЄагвЁвм" <‘ЇЁб®Є бва®Є> ў GET-Ї®«Ґ.
Ћбв ®ўЁў ўлЎ®а, ўл ¦Ё¬ ҐвҐ Enter, Ё ўЁ¤Ё¬ п бва®Є бв ®ўЁвбп § 票Ґ¬
GET-ЇҐаҐ¬Ґ®©. ЏаЁ¬Ґа: @ 3,3 GET Sezon PICTURE "@M ‡Ё¬ ,‚Ґб ,‹Ґв®,ЋбҐм".
‚ ®ЇжЁЁ VALID ЇаҐ¤гᬮв८ ЁбЇ®«м§®ў ЁҐ Є Є <‚лаL>, в Є Ё
<‚лаN>, ЇаЁзҐ¬ § 票Ґ <‚лаN>, а ў®Ґ 0, ЇаҐЇпвбвўгҐв ўл室㠨§ GET-Ї®«п.
…б«Ё <‚лаN> - дгЄжЁп Ї®«м§®ў ⥫п, ® ¤®«¦ Ґ в®«мЄ® ў®§ўа й вм 0
ў б«гз Ґ ®Ў а㦥Ёп ®иЁЎЄЁ, ® Ё б®®Ўй вм ® Ґ©, ЁЎ® ўв®¬ вЁзҐбЄ п
ўл¤ з б®®ЎйҐЁп Ґ ЇаҐ¤гᬮвॠ. ‡ 票Ґ <‚лаN>, Ў®«м襥 (¬Ґм襥)
г«п, ®§ з Ґв Їа®¤ўЁ¦ҐЁҐ <‚лаN> GET-Ї®«Ґ© ўЇҐаҐ¤ ( § ¤) Ї®
®в®иҐЁо Є ¤ ®¬г GET-Ї®«о. ‚л室 § а ¬ЄЁ Ї®б«Ґ¤®ў ⥫м®бвЁ
GET-Ї®«Ґ© ®§ з Ґв § ўҐа襨Ґ а Ў®вл READ. Ћв¤Ґ«м® Ё§®Ўа ¦ Ґ¬лҐ
н«Ґ¬Ґвл (Є®ЇЄЁ, ЇгЄвл ¬Ґо) WINDOWS-®ЎкҐЄв®ў а бб¬ ваЁў овбп Є Є
®в¤Ґ«млҐ GET-Ї®«п.
ЋЇжЁп SIZE <‚лаN1>, <‚лаN2>, <‚лаN3> ᮧ¤ Ґв Ґбв ¤ а⮥ GET-Ї®«Ґ
- "®Є®иЄ®" ўлб®в®© <‚лаN1> Ё иЁаЁ®© <‚лаN2> (зЁб«® бва®Є Ё зЁб«®
бв®«Ўж®ў). <‚лаN1> § ЇаҐйҐ® ®ЇгбЄ вм, ¤ ¦Ґ Ґб«Ё ўлб®в ¦ҐбвЄ® § ¤
ў бЁб⥬Ґ: § ЇЁблў ов «оЎ®Ґ зЁб«®. <‚лаN3> § ¤ Ґв Їа®¬Ґ¦гв®Є ¬Ґ¦¤г
н«Ґ¬Ґв ¬Ё б®бв ўле WINDOWS-®ЎкҐЄв®ў, ЇаЁ¬Ґа, Є®ЇЄ ¬Ё. Џ® 㬮«з Ёо
ў ўҐавЁЄ «м®¬ Ё§¬ҐаҐЁЁ ® а ўҐ 0, ў Ј®аЁ§®в «м®¬ - 1.
ЋЇжЁп DISABLE (ENABLE) § ЇаҐй Ґв (а §аҐи Ґв) ¤®бвгЇ Є GET-Ї®«о,
ЇаЁ¬Ґа Є WINDOWS-®ЎкҐЄвг, Ї®Є Ґ Ўг¤Ґв ¤ Є®¬ ¤
SHOW GET <ЏҐаҐ¬Ґ п> ENABLE (SHOW GET <ЏҐаҐ¬Ґ п> DISABLE). ’ ЄЁ¬
®Ўа §®¬, а Ў®в п б ®¤Ё¬ WINDOWS-®ЎкҐЄв®¬, ўл ¬®¦ҐвҐ гЇа ў«пвм
¤®бвгЇ®бвмо ¤агЈЁе б Ї®¬®ймо дгЄжЁ© Ї®«м§®ў ⥫п, ᮤҐа¦ йЁе
гЄ § лҐ Є®¬ ¤л.
ЌЁ¦Ґ Ї®ўбҐ¬Ґбв® ЁбЇ®«м§гҐвбп ®ЇжЁп PICTURE (б®Єа 饨Ґ - PICT),
® ў¬Ґбв® ҐҐ Ё«Ё ап¤г б Ґо ¬®¦® ЁбЇ®«м§®ў вм Ё ®ЇжЁо FUNCTION.
‚Ё¤ WINDOWS-®ЎкҐЄв § ¤ ов бЁ¬ў®« ¬Ё-®ЇаҐ¤Ґ«ЁвҐ«п¬Ё ў б ¬®¬ з «Ґ
GET-и Ў«® (ў ®ЇжЁЁ PICTURE Ї®б«Ґ § Є @). ‚ в Ў«ЁжҐ 20.3 ¤ л
бЁ¬ў®«л-®ЇаҐ¤Ґ«ЁвҐ«Ё Ё Є«озЁ-®ЇжЁЁ, Ё¤гйЁҐ § Ё¬Ё. €¬Ґовбп б«Ґ¤гойЁҐ
Є«озЁ: T (N) - ўлЎ®а ў WINDOWS-®ЎкҐЄвҐ § ўҐаи Ґв (Ґ § ўҐаи Ґв)
а Ў®вг Є®¬ ¤л READ; H (V) - н«Ґ¬Ґвл а §¬Ґй овбп Ї® Ј®аЁ§®в «Ё (Ї®
ўҐавЁЄ «Ё). Љ«озЁ N, V ®Ўлз® ¤Ґ©бвўгов Ї® 㬮«з Ёо, ®¤ Є® ¤«п
Ў®«м襩 Ј«п¤®бвЁ Ўг¤Ґ¬ Ёе § ЇЁблў вм. ‚®§¬®¦л Є®¬ЎЁ жЁЁ Є«о祩:
TH, NV Ё в.Ї. ‘«Ґ¤гойЁ¬Ё ў GET-и Ў«®Ґ, Ї®б«Ґ ®Ўп§ ⥫쮣® Їа®ЎҐ« , Ё¤гв
бва®ЄЁ-ЇаЁЈ« 襨п (Ґб«Ё ®Ё ЁбЇ®«м§говбп). ЏаЁЈ« 襨п а §¤Ґ«повбп
§ Є®¬ ";". ‚ Ёе ¬®Јгв Ўлвм "Ј®апзЁҐ" ЎгЄўл, Ёе ®Ў®§ з ов § Є ¬Ё
\< б«Ґў ®в ЎгЄўл. ‡ Є ¬Ё \\ (б«Ґў ) ®Ў®§ з ов ЇаЁЈ« 襨п, Є®в®алҐ
Ґ ¬®Јгв Ўлвм ўлЎа л.
’ Ў«Ёж 20.3
-------------------------------------------------------------------
WINDOWS-®ЎкҐЄв ЋЇаҐ¤Ґ«ЁвҐ«м „®ЇгбЄ овбп ...
-------------------------------------------------------------------
Љ®ЇЄ -ЇҐаҐЄ«оз ⥫м (Check Boxes) *‘ N,T; \<, \\
ЌҐўЁ¤Ё¬лҐ Є®ЇЄЁ (Invisible Buttons) *I H,V; N,T; \\
’ҐЄбв®ўлҐ Є®ЇЄЁ (Push Buttons) * H,V; N,T; \<, \\
‘Ґ«ҐЄвЁўлҐ Є®ЇЄЁ (Radio Buttons) *R H,V; N,T; \<, \\
‘Єал⮥ POPUP-¬Ґо (Popups) ^ N,T; \<, \, \\
‘ЇЁбЄЁ ¬Ґо (Lists) & N,T
-------------------------------------------------------------------
ЋбгйҐбвў«пп ў WINDOWS-®ЎкҐЄвҐ ўлЎ®а, Ї®«м§®ў вҐ«м ў®§¤Ґ©бвўгҐв
§ 票Ґ GET-ЇҐаҐ¬Ґ®© Ё, Їа®вЁў, Ёб室®Ґ ҐҐ § 票Ґ
®ЇаҐ¤Ґ«пҐв з «м®Ґ ўЁ§г «м®Ґ б®бв®пЁҐ WINDOWS-®ЎкҐЄв .
‡ 票Ґ GET-ЇҐаҐ¬Ґ®© ЁбЇ®«м§гҐвбп ¤«п гЇа ў«ҐЁп (®Ўа Ў®вЄЁ),
ЇаЁ¬Ґа ў бвагЄвгॠDO CASE, «ЁЎ® Ё¦Ґ Є®¬ ¤л READ (Ґб«Ё ўлЎ®а
§ Є зЁў Ґв а Ў®вг READ), «ЁЎ® ў Ї®«м§®ў ⥫мбЄ®© дгЄжЁЁ ®ЇжЁЁ
VALID. “б«®ўЁ¬бп ўл¤Ґ«пвм ®ЇжЁЁ, ®Ўп§ ⥫млҐ ў ®ЇаҐ¤Ґ«пҐ¬®¬ ®ЎкҐЄвҐ.
Љ®ЇЄ -ЇҐаҐЄ«оз ⥫м (Check Boxes) нЄа Ґ ўлЈ«п¤Ёв Є Є
[X] <ЏаЁЈ« 襨Ґ> Ё«Ё [ ] <ЏаЁЈ« 襨Ґ>
(б«Ґў Ї®Є § ® ҐҐ ўЄ«о祮Ґ б®бв®пЁҐ, ЁЎ® X - бЁ¬ў®«-Ї®¤вўҐа¦¤ҐЁҐ).
<ЏаЁЈ« 襨Ґ> Ґ ®Ўп§ ⥫м®. Љ®ЇЄг ᮧ¤ Ґв Є®¬ ¤
@ Y,X GET <ЏҐаҐ¬Ґ п> PICT<‚лаC> <ЋЇжЁЁ> ,
€б室®Ґ б®бв®пЁҐ Є®ЇЄЁ § ўЁбЁв ®в § 票п <ЏҐаҐ¬Ґ®©>, Є®в®а п
¬®¦Ґв Ўлвм зЁб«®ў®© (0 Ё«Ё 1) Ё«Ё «®ЈЁзҐбЄ®©. ‡ 票п 1, .T.
ᮮ⢥вбвўгов ўЄ«о祮¬г б®бв®пЁо. Ќ ¦ вЁп Є« ўЁиЁ Enter Ё«Ё Space,
Є®ЇЄЁ ¬лиЁ, "Ј®ап祩" ЎгЄўл ЇаЁЈ« иҐЁп ЇҐаҐЄ«оз ов Є®ЇЄг ў
Їа®вЁў®Ї®«®¦®Ґ б®бв®пЁҐ: X § ¬ҐпҐвбп Їа®ЎҐ«®¬ Ё ®Ў®а®в.
…б«Ё ЇҐаҐЄ«оз вм Є®ЇЄг Ґ 㦮, ®зҐаҐ¤®© GET-®ЎкҐЄв ЇҐаҐе®¤пв
б Ї®¬®ймо Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬ Ё«Ё ¬лиЁ.
ЏаЁ¬Ґа 20.3. ‘®§¤ ¤Ё¬ Є®ЇЄг [ ] ЌЂЏђЂ‚‹…Ќ€… ЌЂ ‡Ђ—…’ ‚›„ЂЌЋ .
@ 5,8 GET Napr PICT '@*CT \<ЌЂЏђЂ‚‹…Ќ€… ЌЂ ‡Ђ—…’ ‚›„ЂЌЋ' DEFAULT 0
READ && ЃҐ§ Є®¬ ¤л READ ЄвЁўЁ§ жЁЁ Є®ЇЄЁ Ґ Ўг¤Ґв
ЌҐўЁ¤Ё¬лҐ Є®ЇЄЁ (Invisible Buttons) ᮧ¤ Ґв Є®¬ ¤
@ Y,X GET<ЏҐаҐ¬Ґ п> PICT<‚лаC> SIZE<‚лаN1>,<‚лаN2>,<‚лаN3> <ЋЇжЁЁ>,
®ЇаҐ¤Ґ«пой п ®¤г Ё«Ё ҐбЄ®«мЄ® ®Ў« б⥩ нЄа (Є®Ї®Є)
а §¬Ґа®¬ <‚лаN1> x <‚лаN2> (Ї® 㬮«з Ёо а §¬Ґа Є®ЇЄЁ 0 е 0).
’ҐЄгй п ®Ў« бвм ўл¤Ґ«Ґ 梥⮬. ЏаЁ ЇҐаҐе®¤Ґ Є ®зҐаҐ¤®© Є®ЇЄҐ (б
Ї®¬®ймо Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬ Ё«Ё ¬лиЁ) нв®в 梥⮢®© ¬ аЄҐа
ЇҐаҐ¬Ґй Ґвбп, " Єалў п" б«Ґ¤гойго ®Ў« бвм. „® ўлЇ®«ҐЁп Є®¬ ¤л
READ нвЁ ®Ў« бвЁ ¬®¦® «®¦Ёвм ⥪бвл Ё Ёе ®Ја ЁзЁвм. € Їа®вЁў,
¤«п Ё¬Ґо饣®бп аЁбгЄ , б奬л, ЇЁЄв®Ја ¬¬л ¬®¦® ᤥ« вм Ї®¤е®¤пйЁҐ
®ЇЁб Ёп ®Ў« б⥩ (Є®Ї®Є), зв®Ўл ўлЎ®а вҐе Ё«Ё Ёле ¤Ґ©бвўЁ© бв «
Ј«п¤ҐҐ.
“ ҐўЁ¤Ё¬ле Є®Ї®Є "ҐўЁ¤Ё¬лҐ ЇаЁЈ« 襨п": ў GET-и Ў«®Ґ
Ё§®Ўа ¦ овбп «Ёим а §¤Ґ«ЁвҐ«Ё ";". Џ® Ёе зЁб«г ®ЇаҐ¤Ґ«пҐвбп зЁб«®
Є®Ї®Є. €е ¤® ®в¤Ґ«пвм Їа®ЎҐ«®¬ ®в бЁ¬ў®« -®ЇаҐ¤Ґ«ЁвҐ«п *I (®в
ЎгЄў-Є«о祩, Ґб«Ё ®Ё Ґбвм). ЏаЁ¬Ґа: PICT "@*IH ;;\\". Џ®Є § ®
ᮧ¤ ЁҐ «ЁҐ©ЄЁ Ё§ ваҐе Є®Ї®Є, ЇаЁзҐ¬ Ї®б«Ґ¤пп Ґ¤®бвгЇ .
„«п § ЇаҐйҐЁп ¤®бвгЇ Є® ўв®а®© Є®ЇЄҐ § ЄЁ \\ 㦮 Ўл«® Ўл
Ї®бв ўЁвм ¬Ґ¦¤г § Є ¬Ё ";".
”ЁЄбЁагп ўлЎ®а Є®ЇЄЁ, ¦Ё¬ ов Space (¬ аЄҐа Ґ© ®бв Ґвбп)
Ё«Ё Enter (¬ аЄҐа ЇҐаҐе®¤Ёв б«Ґ¤гойго Є®ЇЄг), ЇаЁ н⮬ GET-
ЇҐаҐ¬Ґ п Ї®«гз Ґв § 票Ґ ®¬Ґа ўлЎа ®© Є®ЇЄЁ.
ЏаЁ¬Ґа 20.4. ‚뢥¤Ґ¬ «ЁҐ©Єг Ё§ 4 Є®Ї®Є, Ё¬ҐойЁе а §¬Ґа 3 е 5,
Ё§®Ўа §Ёў Ёе жЁдал 2, 3, 4, 5. ‚лЎ®а ЇҐаў®© Є®ЇЄЁ § ЇаҐвЁ¬.
ЏҐаҐе®¤л ¬Ґ¦¤г Є®ЇЄ ¬Ё "§ жЁЄ«Ё¬" (®ЇжЁп CYCLE ў Є®¬ ¤Ґ READ).
* Ѓ«®Є Cena Ё¬ЁвЁагҐв ®Ўа Ў®вЄг ўлЎ®а
* „«п ўл室 Ё§ READ ¦Ё¬ ©вҐ Є« ўЁиг Esc
@ 5,3 GET k PICT "@*IH \\;;;" SIZE 3,5,3 DEFAULT 1 ; &&"1"- § 票Ґ k
VALID Cena() MESSAGE "ЌЂ‡ЌЂ—њ ‘…Ѓ… Ћ–…ЌЉ“"
@ 6,5 SAY "2 3 4 5" && Ќ ¤ЇЁбЁ ў ®Ў« бвпе Є®Ї®Є
@ 5,3 TO 7,7 && ЋЎа ¬«ҐЁҐ 1-© Є®ЇЄЁ
@ 5,11 TO 7,15 && Ё ўбҐе
@ 5,19 TO 7,23 && б«Ґ¤гойЁе
@ 5,27 TO 7,31 && Є®Ї®Є
READ CYCLE
FUNCTION Cena
@ 9,0 && ЋзЁбвЄ 9-© бва®ЄЁ
@ 9,1 SAY "ЏЋ‹“—Ђ‰"
DO CASE
CASE k=2 && ‚лЎа "3"
@ 9,10 SAY "Џџ’…ђЉ“"
CASE k=3 && ‚лЎа "4"
@ 9,18 SAY "—…’‚…ђЉ“"
CASE k=4 && ‚лЎа "5"
@ 9,26 SAY "’ђЋ‰Љ“"
ENDCASE
RETURN && ЋвбгвбвўЁҐ ўла ¦ҐЁп а ў®бЁ«м® ў®§ўа вг .T.
—в®Ўл ᤥ« вм ҐўЁ¤Ё¬лҐ Є®ЇЄЁ а §®Ј® а §¬Ґа Ё Їа®Ё§ў®«м®Ј®
Ї®«®¦ҐЁп, Ёе § ¤ о⠮⤥«мл¬Ё GET-Є®¬ ¤ ¬Ё. "‘Єў®§го 㬥а жЁо"
®ЇЁб ле в ЄЁ¬ ®Ўа §®¬ Є®Ї®Є ®ЎҐбЇҐзЁў Ґв Їа®Ја ¬¬Ёбв.
‘«Ґ¤гойЁҐ ¤ўҐ GET-Є®¬ ¤л ®ЇаҐ¤Ґ«пов ¤ўҐ Є®«®ЄЁ Є®Ї®Є (®д®а¬«ҐЁҐ
Ґ Ї®Є §лў Ґ¬). —в®Ўл Ё¬ЁвЁа®ў вм Ёе бЄў®§го 㬥а жЁо, ў Ў«®Є F
®Ўа Ў®вЄЁ ўлЎ®а ўв®а п GET-Є®¬ ¤ ЇҐаҐ¤ Ґв ®¬Ґа k, 㢥«ЁзҐл©
зЁб«® Є®Ї®Є «Ґў®Ј® бв®«Ўж :
@ 5,3 GET k PICT "@*I ;;" SIZE 3,5,1 DEFAULT 1 VALID F(k)
@ 5,9 GET k PICT "@*I \\;;" SIZE 3,8,1 DEFAULT 1 VALID F(k+3)
ЏҐаў п Є®ЇЄ 2 бв®«Ўж ᤥ« Ґ¤®бвгЇ®© ¤«п ўлЎ®а . —в®Ўл
ᤥ« вм ®¤г Ё§ Є®Ї®Є Є®ЇЄ®© ўл室 Ё§ READ, ҐҐ 㦮 ®ЇаҐ¤Ґ«пвм
®в¤Ґ«м®© GET-Є®¬ ¤®©, гЄ § ў ў GET-и Ў«®Ґ Є«оз T: PICT "@*IT".
‡ ¤ ЁҐ 20.2. Џ®бвன⥠ЇЁЄв®Ја ¬¬г - ¤®¬ЁЄ б вагЎ®©, ®Є ¬Ё,
¤ўҐамо, ®ЇЁиЁвҐ ҐўЁ¤Ё¬лҐ Є®ЇЄЁ, ®Ў« бвЁ Є®в®але б®ўЇ ¤ ов б "вагЎ®©",
"®Є®¬", "¤ўҐамо", Ё § ЇЁиЁвҐ Їа®Ја ¬¬г, ўлў®¤пйго б«®ў "вагЎ ",
"®Є®", "¤ўҐам" ЇаЁ ўлЎ®аҐ ᮮ⢥вбвўгойЁе Є®Ї®Є. Џа®йҐ ўбҐЈ®
ЇЁЄв®Ја ¬¬г Ё§®Ўа §Ёвм ў Є®бвагЄжЁЁ TEXT ... ENDTEXT, ЁбЇ®«м§гп
бЁ¬ў®«л ЇбҐў¤®Ја дЁЄЁ.
20.3. €бЇ®«м§гҐ¬ Є®¬ ¤л READ CYCLE, SHOW GETS.
’ҐЄбв®ўлҐ Ё ᥫҐЄвЁўлҐ Є®ЇЄЁ
ЋЇжЁп CYCLE ў Є®¬ ¤Ґ READ ЇаҐЇпвбвўгҐв ўл室㠨§ Є®¬ ¤л, Є®Ј¤
®Ўа Ў®в Ї®б«Ґ¤Ё© (ЇҐаўл©) GET-®ЎкҐЄв Ё § ¤ ® ЇҐаҐ¬ҐйҐЁҐ Є GET-
®ЎкҐЄвг б ҐбгйҐбвўгойЁ¬ Ў®«миЁ¬ (¬ҐмиЁ¬) ®¬Ґа®¬. Џа®Ёб室Ёв
ЇҐаҐе®¤ Є ЇҐаў®¬г (Ї®б«Ґ¤Ґ¬г) GET-®ЎкҐЄвг. ќв® Ї®§ў®«пҐв ®бгйҐбвў«пвм
®Ўа Ў®вЄг ¬®ЈЁе § ЇЁбҐ© Ѓ„ Ё«Ё ¬®ЈЁе н«Ґ¬Ґв®ў ¬ ббЁў ЎҐ§ ўҐиҐЈ®
жЁЄ« . Ќг¦® «Ёим Ї®§ Ў®вЁвмбп ® д ЄвЁзҐбЄ®¬ ЇҐаҐе®¤Ґ Є ®зҐаҐ¤®©
§ ЇЁбЁ (®ў®¬г н«Ґ¬Ґвг) Ё ®Ў®ў«ҐЁЁ GET-Ї®«Ґ©. Џ®б«Ґ¤ҐҐ ўлЇ®«пҐвбп
Є®¬ ¤®© SHOW GETS ¤«п GET-®ЎкҐЄв®ў ЄвЁў®© Є®¬ ¤л READ, 室пйЁебп
ў гЄ § ®¬ ®ЄҐ Ё«Ё ў® ўбҐе § ¤Ґ©бвў®ў ле Ґо ®Є е.
GET-Є®¬ ¤л - ®ЇаҐ¤Ґ«ҐЁп ⥪бв®ўле Ё ᥫҐЄвЁўле Є®Ї®Є ў®
¬®Ј®¬ б室л. Ќ ЇаЁ¬Ґа, GET-ЇҐаҐ¬Ґ п ¬®¦Ґв Ўлвм Є Є бЁ¬ў®«м®©,
в Є Ё зЁб«®ў®©. ‚ 1-¬ б«гз Ґ ўлЎ®а Є®ЇЄЁ ўҐ¤Ґв Є § ҐбҐЁо ў GET-
ЇҐаҐ¬Ґго ⥪бв ЇаЁЈ« 襨п, ў® 2-¬ - ®¬Ґа ўлЎа ®© Є®ЇЄЁ.
‚лЎ®а Є®ЇЄЁ Їа®Ё§ў®¤пв Є« ўЁиҐ© Space Ё«Ё Enter (б¬. ўлЎ®а ҐўЁ¤Ё¬®©
Є®ЇЄЁ ў Ї. 20.2). ЏҐаў® з «м® ¬ аЄҐа 室Ёвбп 1-© Є®ЇЄҐ.
ЋЇжЁп SIZE (б¬. Ї.20.2) Ґ®Ўп§ ⥫м , ЁЎ® ўлб®в Є®ЇЄЁ - 1,
¤«Ё ®ЇаҐ¤Ґ«пҐвбп ¤«Ё®© ЇаЁЈ« 襨п. ‘ Ї®¬®ймо ®ЇжЁЁ SIZE ¬®¦®
§ ¤ вм Ў®«миго ¤«Ёг, ЇаЁ¬Ґа "Ї®¤а ўпвм" Є®ЇЄЁ, Ё 㢥«ЁзЁвм
Їа®¬Ґ¦гвЄЁ ¬Ґ¦¤г Ё¬Ё.
‘ ⥪бв®ўл¬Ё ("ваЁЈЈҐал¬Ё") Є®ЇЄ ¬Ё ўл § Є®¬л Ї® бЁб⥬л¬
¬Ґо: в Є®ўл Є®ЇЄЁ <OK>, <Cancel>. €е ®Ја ЁзЁў ов гЈ«®ўлҐ бЄ®ЎЄЁ.
ЏаЁ¬Ґа гЄ § Ёп Є®Ї®Є: PICT "@*H OK;Cancel". …б«Ё Ўл ®Ё Ўл«Ё
ᥫҐЄвЁўл¬Ё, 㦮 Ўл«® Ўл «Ёим ўбв ўЁвм бЁ¬ў®« R Ї®б«Ґ § Є *.
Ћб®ЎҐ®б⨠⥪бв®ўле Є®Ї®Є. ‚ ®в«ЁзЁҐ ®в ᥫҐЄвЁўле Є®Ї®Є
Ї® 㬮«з Ёо ¤Ґ©бвўгҐв Є«оз T, в.Ґ. ўлЎ®а Є®ЇЄЁ § ўҐаи Ґв а Ў®вг
READ. Ћ¤ Ё§ Є®Ї®Є ¬®¦Ґв Ўлвм Escape-Є®ЇЄ®©, ўлЎЁа Ґ¬®©
Є« ўЁиҐ© Esc. …Ґ ЇаЁЈ« 襨Ґ ¤® зЁ вм § Є ¬Ё \?. ’ Є¦Ґ
Ґ¤Ёб⢥®© ¬®¦Ґв Ўлвм бЄ®ЎЄ Ї® 㬮«з Ёо ( з «млҐ § ЄЁ ҐҐ
ЇаЁЈ« 襨п \!), ўлЎЁа Ґ¬ п Є« ўЁи ¬Ё Ctrl+Enter. Ћ ўл¤Ґ«пҐвбп
¤ў®©л¬Ё гЈ«®ўл¬Ё бЄ®ЎЄ ¬Ё.
ЏаЁ¬Ґа 20.5. Џ®бва®Ё¬ б«Ґ¤го饥 ¬Ґо б Escape-Є®ЇЄ®© <‚›•Ћ„>:
<‘Ћ‡„ЂЌ€… ЊЂ‘‘€‚Ђ> <ЋЃђЂЃЋ’ЉЂ> <<‚›‚Ћ„ ЊЂ‘‘€‚Ђ>> <‚›•Ћ„>
@ 5,9 GET k DEFAULT 1 VALID F() ; && Ѓ«®Є F ў ЇаЁ¬ҐаҐ Ґ Ї®Є §
PICT "@* \<‘Ћ‡„ЂЌ€… ЊЂ‘‘€‚Ђ;\<ЋЃђЂЃЋ’ЉЂ;\!‚›‚Ћ„ ЊЂ‘‘€‚Ђ\?‚›•Ћ„"
READ
„«п ¤ўге ЇҐаўле Є®Ї®Є § зҐл "Ј®апзЁҐ" ЎгЄўл ‘, Ћ, ваҐвмп
- ᤥ« Є®ЇЄ®© Ї® 㬮«з Ёо. Љ®ЇЄ <‚›•Ћ„> §¤Ґбм ®§ з Ґв
®в¬Ґг ¤Ґ©бвўЁ©, ЁЎ® ўл室 Ё§ READ Їа®Ё§®©¤Ґв ЇаЁ ¦ вЁЁ «оЎ®©
Є®ЇЄЁ (ЇаЁ н⮬ Ўг¤Ґв ўлЇ®«Ґ Ў«®Є F ®Ўа Ў®вЄЁ ўлЎ®а ). …б«Ё
ЇаҐ¤Ї®« Ј Ґвбп Ї®®зҐаҐ¤®Ґ ЁбЇ®«м§®ў ЁҐ ҐбЄ®«мЄЁе Є®Ї®Є, в®
"¤®«Ј®ЁЈа о饥" ¬Ґо ᮧ¤ Ґвбп б Є«о箬 N, ў®§¬®¦®бвм ўл室 Ё§
READ ®ЎҐбЇҐзЁў ов Є« ўЁиЁ (в Ў«. 20.2) Ё«Ё Є®¬ ¤ ў Ў«®ЄҐ F.
‘Ґ«ҐЄвЁўлҐ (а ¤Ё®-) Є®ЇЄЁ Ё§®Ўа ¦ овбп ў ўЁ¤Ґ
( )<Џђ€ѓ‹Ђ…Ќ€…>, ЇаЁзҐ¬ <ЏаЁЈ« 襨Ґ> Ґ ®Ўп§ ⥫м®. Њ®¦Ґв Ўлвм
" ¦ в®©" «Ёим ®¤ Ё§ Ёе (Є Є Ё Є« ўЁи ўв®¬®ЎЁ«м®Ј®
а ¤Ё®ЇаЁҐ¬ЁЄ - ®вбо¤ Ё §ў ЁҐ "а ¤Ё®-Є®ЇЄЁ"). "Ќ ¦ вЁҐ", в.Ґ.
ўлЎ®а Є®ЇЄЁ ®в®Ўа ¦ Ґвбп Ї®пў«ҐЁҐ¬ в®зЄЁ ў ҐҐ Ё§®Ўа ¦ҐЁЁ (в.Ґ. ў
бЄ®ЎЄ е). Ћв¬ҐзҐ в®зЄ®© ¬®¦Ґв Ўлвм «Ёим ®¤ Є®ЇЄ , ЇҐаў® з «м®
®в¬ҐзҐ Є®ЇЄ , ®¬Ґа Ё«Ё ЇаЁЈ« 襨Ґ Є®в®а®© б®ўЇ ¤ Ґв б Ёб室л¬
§ 票Ґ¬ GET-ЇҐаҐ¬Ґ®©. …б«Ё ЇаЁбгвбвўЁҐ в®зЄЁ Ґ¦Ґ« ⥫м®,
§ ¤ ў ©вҐ г«Ґў®Ґ Ёб室®Ґ § 票Ґ. Џ® 㬮«з Ёо ¤Ґ©бвўгҐв Є«оз N.
ЏаЁ¬Ґа 20.6. ‘®§¤ ¤Ё¬ «ЁҐ©Єг Є®Ї®Є ( )2 ( )3 ( )4 ( )5
б 楫мо § ҐбҐЁп ўлЎа ®© ў Ґ© ®жҐЄЁ Є Є нЄ§ ¬Ґ жЁ®®© ў
⥪гйго § ЇЁбм бв㤥в . ” ¬Ё«Ёп бв㤥⠢лᢥ稢 Ґвбп ў ⮬ ¦Ґ
®ЄҐ (нЄа Ґ). „«п Їа®¤ўЁ¦ҐЁп Ї® Ѓ„ Ўг¤Ґ¬ ЁбЇ®«м§®ў вм ⥪бв®ўлҐ
Є®ЇЄЁ <‚ЇҐаҐ¤>, <Ќ § ¤>. ЋЎйҐҐ зЁб«® Ї®«гзҐле ¤ў®ҐЄ, в஥Є,
зҐвўҐа®Є, ЇпвҐа®Є Ўг¤Ґв § ҐбҐ® ў н«Ґ¬Ґвл M[1],M[2],M[3],M[4]
ᮮ⢥вб⢥®.
SET TALK OFF
DECLARE M[4]
M = 0 && “бв ®ўЄ бзҐвзЁЄ®ў ў 0
USE Student
ACCEPT "‚ўҐ¤ЁвҐ Ё¬п Ї®«п Ѓ„ " TO Name && €¬п Ї®«п ¤«п еа ҐЁп ®жҐЄЁ
CLEAR
@ 3,15 SAY "Џђ…„Њ…’: "+ Name && €¬п Ї®«п ®Ў®§ з Ґв ¤ЁбжЁЇ«Ёг
@ 5,10 SAY "” ¬Ё«Ёп Ё.®.: " GET Famil WHEN .F.
@ 7,10 SAY "ЋжҐЄ : " GET k PICT "@*RH 2 ;3 ;4 ;5 " DEFAULT 0 VALID F()
@ 9,25 GET L PICT "@*NV \<‚ЇҐаҐ¤;\<Ќ § ¤;\<Љ®Ґж" DEFAULT 1 VALID G()
READ CYCLE
? M[1],M[2],M[3],M[4] && ‚лў®¤ зЁб« ¤ў®ҐЄ, в஥Є, зҐвўҐа®Є, ЇпвҐа®Є
FUNCTION F
REPLACE &Name WITH k+1 Џђ…„Њ…’: PHYSICS
M[k] = M[k] + 1
RETURN 5-k ” ¬Ё«Ёп Ё.®. ЃҐ¤Ґа-‡ ¤г ©бЄЁ© Ћ.ќ.
FUNCTION G ЋжҐЄ : ( ) 2 (.) 3 ( ) 4 ( ) 5
DO CASE
CASE L=1 <‚ЇҐаҐ¤>
SKIP <Ќ § ¤>
CASE L=2 <Љ®Ґж>
SKIP -1
CASE L=3 && „«п Є®ЇЄЁ "Љ®Ґж"
CLEAR READ && ‚л室 Ё§ Ґпў®Ј® жЁЄ« READ
ENDCASE
k = 0 && Џ®¤Ј®в®ўЄ Є Ї®Є §г б«Ґ¤го饩 § ЇЁбЁ
SHOW GETS && ЋЎ®ў«ҐЁҐ GET-Ї®«Ґ© ЇаЁ ЇҐаҐе®¤Ґ Є ®ў®© § ЇЁбЁ
RETURN 3
Џа®Ја ¬¬ вॡгҐв Ї®пᥨ©. ЏаҐ¤гб«®ўЁҐ .F. § ЇаҐй Ґв ўе®¤
Єгаб®а ў Ї®«Ґ Famil - ¬ в ¬ ¤Ґ« вм ҐзҐЈ®. Џ®б«Ґ ўлЎ®а ®жҐЄЁ
¬ аЄҐа ЇаЁи«®бм Ўл ЇҐаҐ¬Ґй вм, Їа®ЇгбЄ п ®бв ўиЁҐбп ᥫҐЄвЁўлҐ Є®ЇЄЁ.
Њл Ё§ЎҐ¦ «Ё нв®Ј®, гЄ § ў ЇҐаҐе®¤ ў GET-Ї®«Ґ "‚ЇҐаҐ¤" б Ї®¬®ймо
ў®§ўа й Ґ¬®Ј® § зҐЁп Ў«®Є F (®® 1 Ў®«миҐ зЁб« Їа®ЇгбЄ Ґ¬ле
Ї®«Ґ©). Ђ «®ЈЁзл© ЇаЁҐ¬ ЇаЁ¬ҐҐ ЇаЁ ўлЎ®аҐ ⥪бв®ў®© Є®ЇЄЁ: б
Ї®¬®ймо § 票п 3, ў®§ўа й Ґ¬®Ј® дгЄжЁҐ© G, гЄ § ЇҐаҐе®¤ Є 3-¬г
GET-Ї®«о ®в®бЁвҐ«м® ⥪г饣®. ‚ ®вбгвбвўЁҐ ®ЇжЁЁ CYCLE Їа®Ё§®иҐ« Ўл
ўл室 Ё§ READ, ў ¤ ®¬ б«гз Ґ ¬л Ї®Ї ¤ Ґ¬ Ї®«Ґ Famil
(Їа®ЇгбЄ Ґ¬®Ґ) Ё«Ё ба §г Є®ЇЄг "2".
—в®Ўл Ґ ўлᢥ稢 вм в®зЄг ( ), Ї®Є Ґ ўлбв ў«Ґ ®жҐЄ , ў
®ЇжЁЁ DEFAULT § ¤ "г«Ґў п" Є®ЇЄ . Ћ¤ Є® ЇаЁ ЇҐаҐе®¤Ґ Є § ЇЁбЁ
б«Ґ¤го饣® бв㤥в нв в®зЄ Ґ Ёб祧Ґв, Ґб«Ё ¬л Ґ Ї®§ Ў®вЁ¬бп ®
г«Ґў®¬ § 票Ё k ў Ў«®ЄҐ G.
‘ЇҐжЁ «м п Є®¬ ¤ CLEAR READ ॠ«Ё§гҐв ўл室 Ё§ Ґпў®Ј® жЁЄ«
READ, Є®Ј¤ L = 3, в.Ґ. ўлЎа Є®ЇЄ <Љ®Ґж>.
‡ ¤ ЁҐ 20.3. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г б ®ЇаҐ¤Ґ«ҐЁп¬Ё ᥫҐЄвЁўле
Є®Ї®Є "Џ®Ґ¤Ґ«мЁЄ", "‚в®аЁЄ", "‘। ", "—ҐвўҐаЈ","ЏпвЁж " Ё
⥪бв®ўле Є®Ї®Є <1 ᬥ >, <2 ᬥ > (ўбҐЈ® ЁбЇ®«м§г©вҐ 2
GET-Є®¬ ¤л). Џа®Ја ¬¬ Ї®б«Ґ Ї®¬ҐвЄЁ ᥫҐЄвЁў®© Є®ЇЄЁ Ё ўлЎ®а
⥪бв®ў®© ¤®«¦ ўлЇ®«Ёвм "®Ўа Ў®вЄг": ўлў®¤ ⥪бв®ў ЇаЁЈ« 襨©
нвЁе 2 Є®Ї®Є.
20.4. €бЇ®«м§гҐ¬ бЄалвлҐ POPUP-¬Ґо Ё бЇЁбЄЁ-¬Ґо.
ЋЎ« б⨠। ЄвЁа®ў Ёп
POPUP-¬Ґо §лў Ґвбп бЄалвл¬, Ґб«Ё «Ёим ®¤Ё ҐЈ® ЇгЄв
ЇаҐ¤кпў«Ґ нЄа Ґ, ў "®Є®иЄҐ". Љ®Ј¤ вॡгҐвбп, ¬Ґо а бЄалў ов
Ї®«®бвмо, ў®¤п ҐЈ® Єгаб®а Ё ¦Ё¬ п Enter Ё«Ё Space. ЏгЄвл
¬Ґо ¬®Јгв Ўлвм § ¤ л Є Є ЇаЁЈ« иҐЁп ў ®ЇжЁЁ PICT (б¬. ўлиҐ).
ЌҐ®Ўлз® "Ї®ўҐ¤ҐЁҐ" GET-ЇҐаҐ¬Ґ®©, Є®в®а п ¬®¦Ґв Ўлвм зЁб«®ў®©
Ё«Ё бЁ¬ў®«м®©. …Ґ Ёб室®Ґ § 票Ґ § ¤ Ґв ®¬Ґа ЇгЄв (зЁб«®)
Ё«Ё ⥪бв ЇгЄв (бЁ¬ў®«м®Ґ § 票Ґ), ЇаҐ¤к塞®Ј® ў "®Є®иЄҐ".
…б«Ё в Є®Ј® ⥪бв Ґв ў бЇЁбЄҐ ЇгЄв®ў, ® ¤®Ў ў«пҐвбп ў ¬Ґо Є Є
Ї®б«Ґ¤Ё© (ўаҐ¬Ґл©) ЇгЄв. „«п а бЄалвЁп ¬Ґо ¦Ё¬ ов Enter Ё«Ё
Space. Љ®Ј¤ ў а бЄал⮬ ¬Ґо Їа®Ё§ўҐ¤Ґ ўлЎ®а, GET-ЇҐаҐ¬Ґ п
ЇаЁЁ¬ Ґв § 票Ґ (®¬Ґа Ё«Ё ⥪бв) ўлЎа ®Ј® ЇгЄв , Є®в®ал©
®бв Ґвбп нЄа Ґ (ў "®Є®иЄҐ").
‘Єал⮥ POPUP-¬Ґо д®а¬ЁагҐвбп Є®¬ ¤®©
@ Y,X GET<ЏҐаҐ¬Ґ п> PICT<‚лаC> FROM<Њ ббЁў> RANGE<‚лаN1>,<‚лаN2> <ЋЇжЁЁ>
Љ®¬ ¤ д®а¬Ёа®ў Ёп бЇЁбЄ -¬Ґо, Єа®¬Ґ Ё®Ј® бЁ¬ў®« -®ЇаҐ¤Ґ«ЁвҐ«п,
¬®¦Ґв ᮤҐа¦ вм ¤®Ї®«ЁвҐ«м® ®ЇжЁо POPUP <€¬п POPUP-¬Ґо>.
ЏаЁ¬Ґа 20.7.
k = "‡ «ЄЁ¤ ….…." && ЌЁ¦Ґ д®а¬ЁагҐвбп бЄал⮥ ¬Ґо
@ 6,8 GET k PICT "@^ ѓ «ЄЁ Ђ.Ђ.;Њ «ЄЁ Ѓ.Ѓ.;Џ «ЄЁ ‚.‚.;— «ЄЁ „.„."
READ
‚ "®Є®иЄҐ" Ї®пўЁвбп ⥪бв "‡ «ЄЁ¤ ….….", а бб¬ ваЁў Ґ¬л© Є Є
Ї®б«Ґ¤Ё© ЇгЄв ¬Ґо, ®б®ў®Ґ ᮤҐа¦ ЁҐ Є®в®а®Ј® - ў ®ЇжЁЁ PICT.
ЋЇжЁп SIZE Ґ ®Ўп§ ⥫м , ЁЎ® ўлб®в <‚лаN1> ЁЈ®аЁагҐвбп,
иЁаЁ <‚лаN2> ®ЇаҐ¤Ґ«пҐвбп Ї® 㬮«з Ёо б ¬л¬ ¤«Ёл¬ ЇгЄв®¬.
ЏгЄвл бЄалв®Ј® ¬Ґо Ё бЇЁбЄ -¬Ґо ¬®Јгв Ўлвм § ¤ л ў ¬ ббЁўҐ.
ќв® Ў®«ҐҐ ЈЁЎЄЁ© ў аЁ в, в Є Є Є Ё ЇгЄвл, Ё Ёе зЁб«® ¬®¦® Ё§¬Ґпвм.
‚ ®ЇжЁЁ RANGE <‚лаN1> гЄ §лў Ґв н«Ґ¬Ґв, б Є®в®а®Ј® зЁ Ґвбп ¬Ґо,
<‚лаN2> ®Ў®§ з Ґв зЁб«® ЁбЇ®«м§гҐ¬ле н«Ґ¬Ґв®ў. Џ® 㬮«з Ёо
®¤®¬Ґал© ¬ ббЁў ЁбЇ®«м§гҐвбп Ї®«®бвмо, ў ¤ўг¬Ґа®¬ - ЁбЇ®«м§гҐвбп
1-© бв®«ЎҐж. „«п ¤ўг¬Ґа®Ј® ¬ ббЁў <‚лаN1> § ЇЁблў ов Є Є ЇаЁўҐ¤Ґл©
Ё¤ҐЄб (б¬. Ї. 15.5) н«Ґ¬Ґв . ‚ н⮬ б«гз Ґ ЁбЇ®«м§гҐвбп бв®«ЎҐж
¬ ббЁў б гЄ § л¬ н«Ґ¬Ґв®¬.
ЋЎа вЁ¬бп Є ЇаЁ¬Ґаг 20.6 б 楫мо ¬®¤ҐаЁ§ жЁЁ Їа®Ја ¬¬л.
‡ ЇЁиҐ¬ ¤ўг¬Ґал© ¬ ббЁў, ў ЇҐаў®¬ бв®«ЎжҐ Є®в®а®Ј® §ў Ёп
зЁб«®ўле Ї®«Ґ© Ѓ„, ў® ўв®а®¬ - §ў Ёп ᮮ⢥вбвўгойЁе ЇаҐ¤¬Ґв®ў:
Physi ”€‡€ЉЂ
Chemi •€Њ€џ
Matem ЊЂ’…ЊЂ’€ЉЂ.
Ѓг¤Ґ¬ ўлў®¤Ёвм ў бЄал⮥ ¬Ґо 2-© бв®«ЎҐж, н«Ґ¬Ґвл 1-Ј® -
ЁбЇ®«м§®ў вм ў ¬ Єа®Ї®¤бв ®ўЄҐ Є®¬ ¤л REPLACE (б¬. Їа®Ја ¬¬г
ЇаЁ¬Ґа 20.6). ’ҐЇҐам Ї®«м§®ў вҐ«м Ё§Ў ў«Ґ ®в Ґ®Ўе®¤Ё¬®бвЁ
ўў®¤ , ЁвҐа䥩б бв « Ј«п¤ҐҐ, ®¤®бва®з®Ґ ¬Ґо Ґ
§ Ја®¬®¦¤ Ґв нЄа .
DECLARE M[5], A[3,2]
M = 0
A[1] = "Physi" && ‡¤Ґбм ў¬Ґбв® ЇаЁўҐ¤Ґ®Ј® Ё¤ҐЄб ¬®¦®
A[2] = "”€‡€ЉЂ" && ЁбЇ®«м§®ў вм ®¬Ґа бва®ЄЁ Ё бв®«Ўж
A[3] = "Chemi"
A[4] = "•€Њ€џ"
A[5] = "Matem"
A[6] = "ЊЂ’…ЊЂ’€ЉЂ"
SET TALK OFF
CLEAR
USE Student
@ 1,55 GET i PICT "@^" FROM A RANGE 2 DEFAULT 1 && ЏаЁўҐ¤Ґл© Ё¤ҐЄб 2
READ
@ 3,15 SAY "Џђ…„Њ…’: "+ A[i,2]
@ 5,10 SAY "” ¬Ё«Ёп Ё.®.: " GET Famil WHEN .F.
@ 7,10 SAY "ЋжҐЄ : " GET k PICT "@*RH 2 ;3 ;4 ;5 " DEFAULT 0 VALID F()
@ 9,25 GET L PICT "@*NV \<‚ЇҐаҐ¤;\<Ќ § ¤;\<Љ®Ґж" DEFAULT 1 VALID G()
READ CYCLE
? M[1],M[2],M[3],M[4] && ‚лў®¤ зЁб« ¤ў®ҐЄ, в஥Є, зҐвўҐа®Є, ЇпвҐа®Є
FUNCTION F
REPLACE &A[i,1] WITH k+1 && ‡ ҐбҐЁҐ ®жҐЄЁ ў Ї®«Ґ б Ё¬ҐҐ¬ &A[i,1]
M[k] = M[k] + 1
RETURN 5-k && Ѓ«®Є G ¬Ё Ґ Ї®Є § , ЁЎ® ® Ґ ЇаҐвҐаЇҐ« Ё§¬ҐҐЁ©
‘ЇЁбЄЁ-¬Ґо. ќвЁ ¬Ґо ЇаҐ¤кпў«повбп нЄа Ё«Ё Їг⥬ ЄвЁў жЁЁ
GET-Є®¬ ¤®© а ҐҐ ®ЇЁб ®Ј® POPUP-¬Ґо, Ё«Ё Їг⥬ ўлў®¤ бЇЁбЄ
ЇгЄв®ў Ё§ гЄ § ®Ј® ¬ ббЁў . „®бв в®з® ў Ї®б«Ґ¤Ґ© Їа®Ја ¬¬Ґ
§ ¬ҐЁвм ў GET-и Ў«®Ґ бЁ¬ў®« ^ бЁ¬ў®« & Ё ў¬Ґбв® бЄалв®Ј® ¬Ґо
Ї®«гзЁвбп бЇЁб®Є-¬Ґо. ‚ ЇаЁжЁЇҐ, GET-и Ў«® Ґ ®Ўп§ ⥫Ґ, ®
в®«мЄ® ў Ґ¬ ¬®¦® гЄ § вм Є«оз T.
Љ Є Ё ў бЄалвле ¬Ґо, вЁЇ Ёб室®Ј® § 票п GET-ЇҐаҐ¬Ґ®©
®ЇаҐ¤Ґ«пҐв е а ЄвҐа ў®§ўа й Ґ¬®Ј® § 票п: ®¬Ґа ўлЎа ®Ј® ЇгЄв
Ё«Ё ⥪бв ЇгЄв . …б«Ё Ёб室®Ґ § 票Ґ Ґ ᮮ⢥вбвўгҐв Ё ®¤®¬г
ЇгЄвг ¬Ґо, ЇаЁ ЄвЁў жЁЁ ¬Ґо ўл¤Ґ«ҐЁп ЇгЄв ¬ થ஬ Ґв.
‚ б«гз Ґ ЄвЁў жЁЁ POPUP-¬Ґо ®ЇжЁп SIZE <‚лаN1>,<‚лаN2>
§ ¤ Ґв а §¬Ґал ®Ў« бвЁ нЄа , ®вў®¤Ё¬®© ¤«п ¬Ґо (ЇаЁ ЁбЇ®«м§®ў ЁЁ
¬ ббЁў "а Ў®в Ґв" «Ёим § 票Ґ <‚лаN2>, ®ЇаҐ¤Ґ«пп иЁаЁг ®Ў« бвЁ).
„ўҐ бва®ЄЁ Ё ¤ў бв®«Ўж § Ё¬ Ґв а ¬Є . Љ®®а¤Ё вл Ё а §¬Ґа POPUP-
¬Ґо, § ¤ лҐ ў GET-Є®¬ ¤Ґ Ё¬Ґо⠯२¬гйҐбвў® ЇҐаҐ¤ ᮮ⢥вбвўгойЁ¬Ё
®ЇжЁп¬Ё Є®¬ ¤л DEFINE POPUP.
Џ®¤®Ў п ЄвЁў жЁп POPUP-¬Ґо ®аЈ Ёз® ўбва Ёў Ґв ¬Ґо ў ®ЎйЁ©
ЁвҐа䥩б (Ј¤Ґ ¬®Јгв Ўлвм Ё ¤агЈЁҐ POPUP-¬Ґо), гЇа ў«пҐ¬л© б Ї®¬®ймо
READ. ЂЄвЁўЁа㥬®Ґ ¬Ґо а бб¬ ваЁў Ґвбп Є Є ®¤Ё GET-®ЎкҐЄв.
ЏаЁ¬Ґа 20.8. ‘®§¤ ¤Ё¬ ў «Ґў®¬ ўҐа奬 гЈ«г нЄа бЇЁб®Є-¬Ґо Ё§
Ё¬Ґ Ѓ„, еа Ё¬ле ў ⥪г饩 ¤ЁаҐЄв®аЁЁ, ®Ја ЁзЁў ®Є® 15 бва®Є ¬Ё.
„«п ўлЎ®а ¤Ґ©бвўЁп б Ѓ„ ЇаЁ¬ҐЁ¬ ⥪бв®ўлҐ Є®ЇЄЁ.
DECLARE A[3]
A[1] = "EditBD" && €¬п Ў«®Є । ЄвЁа®ў Ёп
A[2] = "CopyBD" && €¬п Ў«®Є Є®ЇЁа®ў Ёп
A[3] = "IndBD" && €¬п Ў«®Є Ё¤ҐЄбЁа®ў Ёп
DEFINE POPUP BD PROMPT FILES LIKE *.DBF MARGIN && ЊҐо Ё§ Ё¬Ґ Ѓ„
CLEAR
@ 0,2 SAY "‘ЇЁб®Є Ў § ¤ ле"
@ 1,2 GET k POPUP BD SIZE 15,10 DEFAULT "" && ЂЄвЁўЁа㥬 POPUP-¬Ґо
@ 4,30 GET j PICT "@* \<ђ…„ЂЉ’€ђЋ‚ЂЌ€…;\<ЉЋЏ€ђЋ‚ЂЌ€…;\<€Ќ„…Љ‘€ђЋ‚ЂЌ€…" ;
DEFAULT 1 VALID F()
READ
RELEASE POPUPS BD
FUNCTION F && Ѓ«®Є ЄвЁў жЁЁ ўлЎа ®© Ѓ„ Ё § ЇгбЄ Ї®¤Їа®Ја ¬¬л
USE(k)
DO &A[j]
RETURN
PROCEDURE EditBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "ђҐ¤ ЄвЁа㥬 Ѓ„"
PROCEDURE CopyBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "Љ®ЇЁа㥬 Ѓ„"
PROCEDURE IndBD && Џа®жҐ¤га -"§ Ј«гиЄ "
? "€¤ҐЄбЁа㥬 Ѓ„"
ЋЎ« б⨠। ЄвЁа®ў Ёп. ‘®§¤ ЁҐ ўл¤Ґ«Ґ®© 梥⮬ ®Ў« бвЁ нЄа
¤«п । ЄвЁа®ў Ёп MEMO-Ї®«п Ё«Ё бЁ¬ў®«мле Ї®«Ґ© Ѓ„, н«Ґ¬Ґв®ў
¬ ббЁў , ЇҐаҐ¬Ґле ॠ«Ё§гҐв Є®¬ ¤ , ЁбЇ®«м§гой п в ЄЁҐ ¦Ґ ®ЇжЁЁ,
Є Є Ё GET-Є®¬ ¤л, ЄвЁўЁа㥬 п, Є Є Ё ®Ё, Є®¬ ¤®© READ:
@ Y,X EDIT <ЏҐаҐ¬Ґ п> SIZE <‚лаN1>,<‚лаN2>, <‚лаN3> <ЋЇжЁЁ>,
Ј¤Ґ <ЏҐаҐ¬Ґ п> ®Ў®§ з Ґв । ЄвЁагҐ¬л© ®ЎкҐЄв, <‚лаN1>,<‚лаN2> -
ўлб®вг Ё иЁаЁг ®Ў« бвЁ, Ґ®Ўп§ ⥫쮥 ўла ¦ҐЁҐ <‚лаN3> - зЁб«®
бЁ¬ў®«®ў ®в з « ⥪бв , Є®в®алҐ а §аҐи Ґвбп । ЄвЁа®ў вм.
ЋЇжЁп TAB § ЇЁблў Ґвбп ў Є®¬ ¤Ґ, Ґб«Ё ¦ вЁҐ Є« ўЁиЁ Tab ¤®«¦®
ўбв ў«пвм ў ⥪бв бЁ¬ў®« в Ўг«пжЁЁ (Ї® 㬮«з Ёо нв®Ј® Ґ Їа®Ёб室Ёв).
„«п ўл室 Ё§ । ЄвЁа®ў Ёп б б®еа ҐЁҐ¬ Ё§¬ҐҐЁ© ¦Ё¬ ов
Tab Ё«Ё, Ґб«Ё гЄ § ®ЇжЁп TAB, Ctrl+Tab. ЏаЁ ¦ вЁЁ Esc Ё§¬ҐҐЁп
Ґ б®еа повбп, Єа®¬Ґ ®¤®Ј® б«гз п: ЇаЁ ўл室Ґ Ё§ । ЄвЁа®ў Ёп
MEMO-Ї®«п VALID-Є®ва®«м б®®Ўй Ґв ®Ў ®иЁЎЄҐ, ўл ¦Ё¬ ҐвҐ Esc,
ЁЈ®аЁагп ЇаҐ¤гЇаҐ¦¤ҐЁҐ.
<ЏҐаҐ¬Ґ п> а бб¬ ваЁў Ґвбп Є Є GET-®ЎкҐЄв, ® ¤®«¦ Ї®«гзЁвм
§ 票Ґ ¤® Є®¬ ¤л EDIT Ё«Ё ҐҐ § 票Ґ гЄ §лў ов ў ®ЇжЁЁ DEFAULT.
Ќ ЇаЁ¬Ґа, Ґб«Ё <ЏҐаҐ¬Ґ п> ЇаҐ¦¤Ґ Ґ бгйҐбвў®ў « Ё ⥪бв ҐҐ § а ҐҐ
Ґ Ё§ўҐбвҐ, ¬®¦® § ЇЁб вм ®ЇжЁо DEFAULT Space(1).
„«Ё ⥪бв ¬®¦Ґв ЇаҐў®б室Ёвм ўҐ«ЁзЁг <‚лаN1>*<‚лаN2>:
ЁбЇ®«м§гҐвбп ўҐавЁЄ «м п Їа®ЄагвЄ . ЏҐаҐе®¤ ®ўго бва®Єг ЇаЁ
Ў®аҐ ⥪бв ўлЇ®«пҐвбп ўв®¬ вЁзҐбЄЁ, е®вп нв® ¬®¦® ᤥ« вм Ё
Є« ўЁиҐ© Enter. ЌҐ § Ўлў ©вҐ Є®¬ ¤г SET MEMOWIDTH TO. Џ® 㬮«з Ёо
⥪бв ўла®ўҐ Ї® «Ґў®¬г Єа о. „«п ўла ўЁў Ёп Ї® Їа ў®¬г Єа о
§ ЇЁблў ов ®ЇжЁо FUNCTION "J", ¤«п жҐваЁа®ў ®Ј® а бЇ®«®¦ҐЁп
⥪бв ў бва®Є е - FUNCTION "I".
‚ EDIT-®Ў« бвЁ а Ў®в Ґв ⥪бв®ўл© аҐ¤ Єв®а, Ї® 㬮«з Ёо ¤Ґ©бвўгҐв
०Ё¬ ўбв ўЄЁ; Є« ўЁи Ins ЄвЁў . ЋЇжЁп SCROLL Ё¬ҐҐв в®в ¦Ґ б¬лб«,
зв® Ё ў Є®¬ ¤Ґ DEFINE POPUP (б¬. Ї. 19.4), ®ЇжЁп NOMODIFY а §аҐи Ґв
в®«мЄ® Їа®б¬®ва ⥪бв . ЋЇжЁЁ DISABLE, MESSAGE, ERROR, COLOR, WHEN,
VALID - в ЄЁҐ ¦Ґ, Є Є ў GET-Є®¬ ¤ е.
‡ ¤ ЁҐ 20.4. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г б GET-Є®¬ ¤®© ᮧ¤ Ёп ¬Ґо,
ЇгЄвл Є®в®а®Ј® ®ЇаҐ¤Ґ«Ґл ¬ ббЁў®¬, EDIT-Є®¬ ¤®© ¤«п । ЄвЁа®ў Ёп
⥪бв ўлЎа ®Ј® ЇгЄв , Є®¬ ¤®© READ CYCLE Ё VALID-дгЄжЁҐ©
Ї®«м§®ў ⥫п, Ї®¤Є«о祮© Є EDIT Ё ᮤҐа¦ 饩 Є®¬ ¤г SHOW GETS (¤«п
®Ў®ў«ҐЁп бва®Є ¬Ґо нЄа Ґ).
20.5. ‡ Є®¬Ё¬бп б ЁвҐа䥩ᮬ, гЇа ў«пҐ¬л¬ б®ЎлвЁп¬Ё
‘Ёб⥬г, ЁбЇ®«м§гойго GET-Є®¬ ¤л, Є®¬ ¤л BROWSE, SHOW GETS
(GET), READ б а биЁаҐл¬ бЁв ЄбЁб®¬, §®ўҐ¬ а биЁаҐ®© GET-
бЁб⥬®©. ђ §ўЁвл© ЁвҐа䥩б ॠЈЁагҐв гбЇҐе (ҐгбЇҐе) ўлЇ®«пҐ¬ле
Ї®«м§®ў ⥫Ґ¬ ¤Ґ©бвўЁ©, бгйҐбвў®ў ЁҐ гб«®ўЁ© Ёе ॠ«Ё§ жЁЁ, ўлЎ®а
в®Ј® Ё«Ё Ё®Ј® ў аЁ в а Ў®вл Ё в.Ї. ЏаЁ н⮬ ¬®¦Ґв Ўлвм § ЇаҐйҐ
(а §аҐиҐ) ¤®бвгЇ Є ⥬ Ё«Ё Ёл¬ н«Ґ¬Ґв ¬ (Є®ЇЄ ¬, ЇгЄв ¬
¬Ґо) Ё ®ЎкҐЄв ¬, Ё§¬Ґпвмбп 梥⮢®Ґ ®д®а¬«ҐЁҐ, а бЇ®«®¦ҐЁҐ ®Є®,
Є®«ЁзҐбвў® Ё ᮤҐа¦ ЁҐ ЇаЁЈ« 襨© Ё в.¤.
‚ ®вбгвбвўЁҐ а биЁаҐ®© GET-бЁбвҐ¬л ЁвҐа䥩б, гЇа ў«пҐ¬л©
б®ЎлвЁп¬Ё, ॠ«Ё§гҐвбп б Ї®¬®ймо Їа®Ја ¬¬ле жЁЄ«®ў, "г« ў«Ёў ойЁе
нвЁ б®ЎлвЁп". Џ®«гз овбп Ја®¬®§¤ЄЁҐ Їа®Ја ¬¬л б § Їгв ®© «®ЈЁЄ®©,
ваг¤лҐ ¤«п Ї®Ё¬ Ёп Ё ®в« ¤ЄЁ. Ѓ« Ј®¤ ап дгЄжЁп¬ Ї®«м§®ў ⥫п
ў GET-бЁб⥬Ґ ॠ«Ё§ жЁп ЁвҐа䥩б гЇа®й Ґвбп.
ђҐЄ®¬Ґ¤гҐвбп "®еў влў вм" ®¤®© Є®¬ ¤®© READ б®ў¬Ґбв®
ЁбЇ®«м§гҐ¬лҐ ®Є , ЄвЁўЁагп Ёе Ї® б«Ґ¤го饩 б奬Ґ:
ACTIVATE WINDOW <1 ®Є®>
<SAY- Ё GET-Є®¬ ¤л "ў бвЁ«Ґ WINDOWS">
ACTIVATE WINDOW <2 ®Є®>
<SAY- Ё GET-Є®¬ ¤л "ў бвЁ«Ґ WINDOWS">
. . .
READ <ЋЇжЁЁ, ЇаЁ¬Ґа CYCLE>.
ќв® ®¤® "Ё§¬ҐаҐЁҐ" ЁвҐа䥩б , ўв®а®Ґ - Ј«гЎЁ ў«®¦ҐЁп READ:
дгЄжЁЁ Ї®«м§®ў ⥫п, ўл§лў Ґ¬лҐ ў GET-бЁб⥬Ґ, ў бў®о ®зҐаҐ¤м
¬®Јгв ᮤҐа¦ вм GET-бЁб⥬л (Ј®ў®апв ® ў«®¦ҐЁЁ Є®¬ ¤ READ).
„®ЇгбЄ Ґвбп ¬ ЄбЁ¬г¬ 5 га®ўҐ© ў«®¦ҐЁп READ. ”гЄжЁп RDLEVEL()
ў®§ўа й Ґв ®¬Ґа ⥪г饣® га®ўп (㬥а жЁп - б 1); 0 ®§ з Ґв
®вбгвбвўЁҐ ЄвЁўле READ.
‚ᥠGET-®ЎкҐЄвл, "®Ўб«г¦Ёў Ґ¬лҐ" ®¤®© Є®¬ ¤®© READ, ўЄ«оз п
EDIT-®Ў« бвЁ, 㬥аговбп (б 1) ў Ї®ап¤ЄҐ Ї®а®¦¤ҐЁп ЎҐ§®в®бЁвҐ«м®
Є а §¬ҐйҐЁо ў ®Є е. ЏаЁ н⮬ ®Ў®б®Ў«ҐлҐ н«Ґ¬Ґвл вЁЇ Є®Ї®Є
Ї®«гз ов Ё¤ЁўЁ¤г «млҐ ®¬Ґа , ¤ ¦Ґ Ґб«Ё ᮧ¤ л ®¤®© GET-Є®¬ ¤®©.
Ќ®¬Ґа ЇҐаў®Ј® (Ё«Ё Ґ¤Ёб⢥®Ј®), ®ЎкҐЄв Ї®а®¦¤Ґ®Ј® GET-
Є®¬ ¤®©, ў®§ўа й Ґв дгЄжЁп OBJNUM(<GET-ЇҐаҐ¬Ґ п>, <‚лаN>);
Ґ®Ўп§ ⥫쮥 <‚лаN> ®Ў®§ з Ґв га®ўҐм READ, ®в«Ёзл© ®в
⥪г饣®. ‡ 票Ґ¬ бЁб⥬®© ЇҐаҐ¬Ґ®© _CUROBJ пў«пҐвбп ®¬Ґа
⥪г饣® ®ЎкҐЄв . € Їа®вЁў, Ё§¬Ґпп _CUROBJ, ¬л Їа®ў®жЁа㥬
ЇҐаҐе®¤ Є ᮮ⢥вбвўго饬㠮ЎкҐЄвг.
Ћвб«Ґ¦Ёў вм б®ЎлвЁп Ё ў®§¤Ґ©бвў®ў вм ЁвҐадҐ©б ¬®¦®
"ЈагЎл¬Ё" Ё "в®ЄЁ¬Ё" б।бвў ¬Ё. Ќ 祬 б ЇҐаўле. ‚ Є®¬ ¤Ґ
READ ¬®¦® гЄ §лў вм WHEN- Ё VALID-гб«®ўЁп. …б«Ё § 票Ґ
WHEN-гб«®ўЁп а ў® .F., Є®¬ ¤ READ Їа®ЇгбЄ Ґвбп, в.Ґ. GET-бЁб⥬
Ґ ЄвЁўЁагҐвбп. ќв® ¬®¦Ґв Ўлвм, ЇаЁ¬Ґа, ў«®¦Ґ п Є®¬ ¤
READ, "гб«гЈЁ" Є®в®а®© Ї®Є Ґ Ї® ¤®ЎЁ«Ёбм. VALID-гб«®ўЁҐ
Їа®ўҐапҐвбп ЇаЁ Ї®ЇлвЄҐ ўл室 Ё§ READ. …б«Ё ҐЈ® § 票Ґ .T.,
Їа®Ёб室Ёв ўл室, ў Їа®вЁў®¬ б«гз Ґ Єгаб®а ®бв Ґвбп ў GET-бЁб⥬Ґ,
Ї®Є Ґ Ўг¤гв ўлЇ®«Ґл ¤Ґ©бвўЁп, ®ЎҐбЇҐзЁў ойЁҐ § 票Ґ .T..
‚®§¬®¦®бвм "бЁ«®ў®Ј® аҐиҐЁп" Ґбвм ўбҐЈ¤ : ҐЈ® ®ЎҐбЇҐзЁў ов
Є®¬ ¤ CLEAR READ Ё Є« ўЁиЁ (в Ў«. 20.2).
‚ аЁ в VALID<‚лаN> ЇаҐ¤Ї®« Ј Ґв еЁва®г¬®Ґ ЁбЇ®«м§®ў ЁҐ
GET-®ЎкҐЄв®ў: Ґб«Ё <‚лаN> б®ўЇ ¤ Ґв б ®¬Ґа®¬ ®¤®Ј® Ё§ Ёе,
Їа®Ёб室Ёв ў®§ўа в Є н⮬г GET-®ЎкҐЄвг, Ё зҐ - ўл室 Ё§ READ. Љ Є
Ё ў ¤агЈЁе б«гз пе, ®ЇжЁЁ WHEN Ё VALID ¬®Јгв Ўлвм г«®ўЄ®© ¤«п
ўлЇ®«ҐЁп ЇаҐ¤ў аЁвҐ«м®© Ё § Є«озЁвҐ«м®© ®Ўа Ў®вЄЁ, ЁЎ®
<‚лаN> Ё«Ё гб«®ўЁҐ <‚лаL> ¬®Јгв Ўлвм ®Ўа 饨Ґ¬ Є дгЄжЁЁ.
„«п ®в¤Ґ«мле ®Є®, "®еў зҐле" READ, «®ЈЁзго а®«м
ЁЈа ов ®ЇжЁЁ ACTIVATE <‚лаL> Ё DEACTIVATE <‚лаL> Є®¬ ¤л READ,
ЁбЇ®«м§гҐ¬лҐ ᮮ⢥вб⢥® ЇаЁ ўе®¤Ґ ў ®Є® (Ё ў з «Ґ
а Ў®вл READ), ЇаЁ ўл室Ґ Ё§ ҐЈ®. ‚л § ҐвҐ, зв® Ё ў GET-
Є®¬ ¤ е Ё¬Ґовбп ®ЇжЁЁ WHEN Ё VALID.
ЋЎ®ў«ҐЁҐ ®ЎкҐЄв®ў нЄа Ґ Ё Ё§¬ҐҐЁҐ ०Ё¬ ¤®бвгЇ
(а §аҐиҐ, § ЇаҐйҐ) ®ЎҐбЇҐзЁў Ґв Є®¬ ¤ SHOW GETS - "ЈагЎл©
Ёбва㬥в". Ћ а бЇа®бва пҐв ¤Ґ©бвўЁҐ ўбҐ ®ЎкҐЄвл Ё«Ё
室пйЁҐбп ў <ЋЄҐ>, Ґб«Ё § ¤ ҐҐ ®ЇжЁп WINDOW <ЋЄ®>.
‡ ЇаҐйҐЁҐ (а §аҐиҐЁҐ) ¤ «мҐ©иҐЈ® ¤®бвгЇ Є ®ЎкҐЄв ¬ б 楫мо
। ЄвЁа®ў Ёп Ё«Ё ЇаЁ¬ҐҐЁп ў гЇа ў«ҐЁЁ (Є®ЇЄЁ) ®ЎҐбЇҐзЁў Ґв
®ЇжЁп DISABLE (ENABLE) нв®© Є®¬ ¤л. ќв® ®ў®Ґ б®бв®пЁҐ ¬®¦Ґв Ўлвм
ўаҐ¬Ґл¬. ЋЎ®ў«ҐЁҐ ®ЎкҐЄв®ў ¬®¦Ґв ўлЇ®«пвмбп бв ¤ авл¬ ®Ўа §®¬
Ё«Ё Ўлвм "®аЁЈЁ «мл¬" (ᮮ⢥вб⢥® гЄ §лў ов ONLY Ё«Ё OFF).
Џ®б«Ґ¤ҐҐ ®ЎҐбЇҐзЁў Ґвбп § бзҐв дгЄжЁЁ Ї®«м§®ў ⥫п,
гЄ §лў Ґ¬®© ў ®ЇжЁЁ SHOW <‚лаL> Є®¬ ¤л READ, ЁбЇ®«м§гҐ¬®©
Ї® Є®¬ ¤Ґ SHOW GETS. ‚ ®вбгвбвўЁҐ ONLY Ё OFF ЁбЇ®«м§гҐвбп Є Є
®Ў®ў«ҐЁҐ Ї® 㬮«з Ёо, в Є Ё дгЄжЁп Ї®«м§®ў ⥫п (Ґб«Ё ®
§ ¤ ў ®ЇжЁЁ SHOW Є®¬ ¤л READ).
ЏаЁ ¦Ґ« ЁЁ Є®¬ ¤®© SHOW GETS ¬®¦® Ё§¬Ґпвм Ё 梥⮢®Ґ
®д®а¬«ҐЁҐ ®ЎкҐЄв®ў, гЄ §лў п ®ЇжЁо COLOR. …б«Ё ®ЇжЁҐ©
LEVEL<‚лаN> гЄ § га®ўҐм Є®¬ ¤л READ, Ўг¤гв ®Ўа Ў®в л
®ЎкҐЄвл Ґ ⥪г饣®, § ¤ ®Ј® га®ўп Є®¬ ¤л READ.
’Ґ ¦Ґ ®ЇжЁЁ, Єа®¬Ґ WINDOW, OFF, ONLY, Ё¬Ґов Є®¬ ¤л,
пў«пойЁҐбп "в®ЄЁ¬ Ёбва㬥⮬" Ё ў«ЁпойЁҐ б®бв®пЁҐ
®в¤Ґ«м®Ј® ®ЎкҐЄв :
SHOW OBJECT <‚лаN>, Ј¤Ґ <‚лаN> - ®¬Ґа GET-®ЎкҐЄв , Ё
SHOW GET <GET-ЇҐаҐ¬Ґ п>, <‚лаN>, Ј¤Ґ Ґ®Ўп§ ⥫쮥 <‚лаN>
гЄ §лў Ґв ®в®бЁвҐ«мл© ®¬Ґа ®ЎкҐЄв , Ґб«Ё ᮮ⢥вбвўгой п
GET-Є®¬ ¤ Ї®а®¤Ё« Ґ Ґ¤ЁбвўҐл© ®ЎкҐЄв. „®Ї®«ЁвҐ«м п ®ЇжЁп
PROMPT<‚лаC> Ї®§ў®«пҐв § ¬ҐЁвм ⥪бв ЇаЁЈ« иҐЁп Є®ЇЄЁ ®ўл¬
⥪б⮬ <‚лаC>.
Џ®а冷Є ЄвЁў жЁЁ GET-®ЎкҐЄв®ў. Џ® 㬮«з Ёо GET-®ЎкҐЄвл
ЄвЁўЁаговбп ў Ї®ап¤ЄҐ ў®§а бв Ёп ®¬Ґа®ў § ЁбЄ«о票Ґ¬ ®ЎкҐЄв®ў
) § ЇаҐйҐле ®ЇжЁҐ© DISABLE ў GET-Є®¬ ¤Ґ Ё«Ё ў SHOW GETS;
Ў) § ЇаҐйҐле бЁ¬ў®« ¬Ё \\ ў ЇаЁЈ« 襨Ё (§ ЇаҐйҐлҐ Є®ЇЄЁ);
ў) Ё¬ҐойЁе § 票Ґ .F. WHEN-гб«®ўЁп GET-Є®¬ ¤л;
Ј) Їа®ЇгбЄ Ґ¬ле ЇаЁ "бЄ зЄ®®Ўа §®¬" 㢥«ЁзҐЁЁ ®¬Ґа
®зҐаҐ¤®Ј® ®ЎкҐЄв ®ЇжЁҐ© VALID, Є Є ў ЇаЁ¬ҐаҐ 20.6.
Ља®¬Ґ в®Ј®, ®ЇжЁҐ© OBJECT<‚лаN> Є®¬ ¤л READ ¬®¦® § ¤ вм
®¬Ґа <‚лаN> ЇҐаў®Ј® ЄвЁўЁа㥬®Ј® ®ЎкҐЄв , ®ЇжЁҐ© VALID
GET-Є®¬ ¤л Ё Є®¬ ¤л READ - ў®§ўа в Є ®ЎкҐЄвг б ¬ҐмиЁ¬ ®¬Ґа®¬.
ЏҐаҐ¬ҐйҐЁп ў GET-бЁб⥬Ґ. „«п § ўҐа襨п а Ў®вл б GET-®ЎкҐЄв®¬
Ё«Ё ҐЈ® Їа®ЇгбЄ , ¬®¦® ¦ вм, Єа®¬Ґ Enter, Є« ўЁиг "бв५Є ўЁ§"
Ё«Ё Tab, зв® ®ЎҐбЇҐзЁв ¤ўЁ¦ҐЁҐ ў бв®а®г Ў®«миЁе ®¬Ґа®ў. Љ« ўЁиЁ
"бв५Є ўўҐае", Shift-Tab б«г¦ в ¤«п ¤ўЁ¦ҐЁп ў ®Ўа вго бв®а®г.
ЏаЁ н⮬ дЁ§ЁзҐбЄ®Ґ Ї®«®¦ҐЁҐ GET-Ї®«Ґ© Ґ Ё¬ҐҐв § 票п,
ЇаЁ¬Ґа, "бв५Є®© ўЁ§" ўл ЇҐаҐе®¤ЁвҐ ў GET-Ї®«Ґ, ॠ«м®
а §¬ҐйҐ®Ґ ўлиҐ. ЋЇжЁп CYCLE Є®¬ ¤л READ (б¬. Ї. 20.3) ®ЎҐбЇҐзЁў Ґв
"ЄагЈ®ў®©" ЇҐаҐе®¤ ®в ®ЎкҐЄв б ЁЎ®«миЁ¬ ®¬Ґа®¬ Є ЇҐаў®¬г
Ё ®Ў®а®в, ЇаҐЇпвбвўгп ўл室㠨§ READ ЇаЁ ЇҐаҐ¬ҐйҐЁЁ Ї® ®ЎкҐЄв ¬.
ЂЄвЁў жЁп ®Є пў«пҐвбп § ўЁбЁ¬®©: ҐҐ ўв®¬ вЁзҐбЄЁ ўл§лў Ґв
ЄвЁў жЁп «оЎ®Ј® ®ЎкҐЄв нв®Ј® ®Є , ЇҐаҐе®¤ Є ®ЎкҐЄвг ¤агЈ®Ј®
®Є ўл§®ўҐв ¤Ґ ЄвЁў жЁо ⥪г饣®. ЏаЁ н⮬ ᮮ⢥вб⢥®
ба Ў влў ов дгЄжЁЁ, гЄ § лҐ ў ®ЇжЁпе ACTIVATE, DEACTIVATE
Є®¬ ¤л READ. „«п ®вб«Ґ¦Ёў Ёп ®Є®ле ЇҐаҐе®¤®ў ЁбЇ®«м§гов
®Є®лҐ дгЄжЁЁ (б¬. Ј«. 18).
Њлим Ї®§ў®«пҐв Їа®Ё§ў®«м® ЇҐаҐе®¤Ёвм Ё§ ®Є ў
®Є® Ё ЄвЁўЁа®ў вм ®ЎкҐЄвл ў «оЎ®¬ Ї®ап¤ЄҐ. ЋЎкҐЄв ўлЎЁа ов
饫窮¬ ¬лиЁ Ї®б«Ґ ўҐ¤ҐЁп ҐҐ ¬ аЄҐа GET-Ї®«Ґ. …б«Ё ў ¦
Ї®б«Ґ¤®ў ⥫м®бвм ЄвЁў жЁЁ, ¬®¦® ®ЇжЁҐ© NOMOUSE § ЇаҐвЁвм
ўлЎ®а ®ЎкҐЄв®ў ¬лимо; ЇҐаҐ¬ҐйҐЁп б Ї®¬®ймо ¬лиЁ ў GET-Ї®«Ґ
ЇаЁ н⮬ Ґ § ЇаҐйҐл.
€вҐа ЄвЁўл© ¤®бвгЇ ¬®¦® ®Ја ЁзЁвм ®Є ¬Ё, "®еў зҐл¬Ё"
READ, гЄ § ў ®ЇжЁо MODAL. ЂЄвЁў жЁп Їа®зЁе ®Є® Ў«®ЄЁагҐвбп.
‘¬пЈзҐЁҐ нв®Ј® § ЇаҐв ®ЎҐбЇҐзЁў Ґв ®ЇжЁп Є®¬ ¤л READ
WITH <‘ЇЁб®Є ¤®бвгЇле ®Є®, Єа®¬Ґ "®еў зҐле" READ>
(ў н⮬ б«гз Ґ MODAL Ґ гЄ §лў ов). •®вп BROWSE-в Ў«Ёжл Ґ пў«повбп
GET-®ЎкҐЄв ¬Ё, ўЄ«о票Ґ Ёе ў ®ЎйЁ© ЁвҐадҐ©б Ўлў Ґв Ґ®Ўе®¤Ё¬®.
ќв® ¤Ґ« ов Ї® б奬Ґ
<ЋЇаҐ¤Ґ«ҐЁп ®Є®>
USE <Ѓ„1>
BROWSE WINDOW<ЋЄ®1> NOWAIT ...
USE <Ѓ„2>
BROWSE WINDOW<ЋЄ®2> NOWAIT ...
. . .
<SAY- Ё GET-Є®¬ ¤л>
READ WITH <ЋЄ®1>,<ЋЄ®2>, ...
ЋЇжЁо WITH гЄ §лў ов, в®«мЄ® Ґб«Ё 㦮 ®Ја ЁзЁвм ¬®¦Ґбвў®
¤®бвгЇле ®Є®, ЁЎ® BROWSE-®Є ¤®бвгЇл Ё Ї® 㬮«з Ёо, Є®Ј¤
ЄвЁў READ.
‡ ¤ ЁҐ 20.5. Џ®б«Ґ Ё§гзҐЁп ЇаЁ¬Ґа 20.6, гб«®¦пп Ў §г
¤ ле Ё Їа®Ја ¬¬г (а биЁапп ў®§¬®¦®бвЁ), ¤®Ў ў«пп ®Є Ё
гЇа ў«пойЁҐ н«Ґ¬Ґвл, ®Їа®Ўг©вҐ Є®¬ ¤л Ё ®ЇжЁЁ, а бᬮваҐлҐ
ўлиҐ. €бЇ®«м§г©вҐ ¬лим.
20.6. ЏаЁ¬Ґа Ї®бв஥Ёп ЁвҐа䥩б
ђ бᬮваЁ¬ Їа®б⥩иго бЇа ў®зго бЁб⥬㠤«п Ї®Ґ§¤®© ЎаЁЈ ¤л,
Ї®§ў®«пойго Ў«о¤ вм Ї« «оЎ®Ј® ў Ј® , Ј¤Ґ ®ва ¦Ґл § пвлҐ Ё
бў®Ў®¤лҐ ¬Ґбв , § ®бЁвм (Ё ЁбЄ«оз вм) ў Ў §г ᢥ¤ҐЁп ® Ї бб ¦Ёа е,
ўҐбвЁ гзҐв ¤Ґ©бвўгойЁе ¬Ґбв ( ЇаЁ¬Ґа, Ґб«Ё а §ЎЁв® ®Є® ў ЄгЇҐ,
¬Ґбв ЁбЄ«оз овбп). ЊҐбв® ®Ў®§ з Ґвбп б®бв ўл¬ ®¬Ґа®¬: ЇҐаўлҐ
2 жЁдал - ®¬Ґа ў Ј® , Ї®б«Ґ¤ЁҐ - б®Ўб⢥® ®¬Ґа ¬Ґбв .
ЋЄ® Vagon, Єг¤ ўлў®¤Ёвбп Ї« ў Ј® , ®ва ¦ Ґв ᮤҐа¦ ЁҐ
Ѓ„ Pass, ў Є®в®а®© 5 Ї®«Ґ©:
Џ®«Ґ €¬п Ї®«п ’ЁЇ ‘®¤Ґа¦ ЁҐ
1 Famil C ” ¬Ё«Ёп Ї бб ¦Ёа Ё«Ё "Їгбв®"
2 Mest C ‡ Ё¬ Ґ¬®Ґ ¬Ґбв®
3 Stat C ‘в жЁп § зҐЁп Ё«Ё "Їгбв®"
4 X N Љ®®а¤Ё в ¬Ґбв Ї« Ґ
5 Y N Љ®®а¤Ё в ¬Ґбв Ї« Ґ
…б«Ё ¬Ґбв® бў®Ў®¤®, ®® Ї®Є § ® §Ґ«Ґл¬ Єў ¤а ⮬ б ®¬Ґа®¬
¬Ґбв , Ё зҐ - бЁЁ¬. Џ®«®¦ҐЁҐ Єў ¤а в ®ЇаҐ¤Ґ«пов Є®®а¤Ё вл X,Y.
‡ зҐЁп ЇҐаўле 3 Ї®«Ґ© ЇаҐ¤кпў«повбп ў BROWSE-®ЄҐ Pass.
„«п Є ¦¤®Ј® вЁЇ ў Ј® ў Ѓ„ Plan ЇаҐ¤гᬮвॠ§ ЇЁбм б
Ґ¤ЁбвўҐл¬ MEMO-Ї®«Ґ¬ Plan, ЇаЁ¬Ґа, 1-п § ЇЁбм ᮤҐа¦Ёв Ї«
ЄгЇҐ©®Ј® ў Ј® (Љ), 2-п - Ї« Ї« жЄ ав®Ј® (Џ) Ё в.¤. ‘®бв ў
Ї®Ґ§¤ ®ва ¦ Ґв бва®Є S, ЇаЁ¬Ґа "1Џ;2Џ;3Џ;4Љ;5Љ; ... ;15Џ", Ј¤Ґ
ЎгЄўл ®Ў®§ з ов вЁЇ, жЁдал - ®¬Ґа ў Ј®®ў.
„«п ўлЎ®а ў Ј® Ё ўлў®¤ ҐЈ® Ї« ЁбЇ®«м§гҐвбп бЄал⮥ ¬Ґо
‚ЂѓЋЌ. …Ј® ЇгЄвл § ¤ л бва®Є®© S, ў Є®в®аго ¤®Ў ў«Ґ ЇгЄв "ЉЋЌ…–",
ўлЎЁа Ґ¬л© ¤«п § ўҐа襨п а Ў®вл. ЌЁ¦Ґ Ї®Є § б奬 ЄгЇҐ©®Ј® ў Ј® .
‚ Ґ© ®¬Ґа ў ўҐа奬 ап¤г ®Ў®§ з ов ўҐаеЁҐ Ї®«ЄЁ, ў б«Ґ¤го饬 -
Ё¦ЁҐ. Ќ ®¬Ґа Є« ¤лў овбп ҐўЁ¤Ё¬лҐ Є®ЇЄЁ (¤«п а бЄа бЄЁ ¬Ґбв Ё
дЁЄб жЁЁ ⥪г饣® ¬Ґбв ). ЋЄа иҐ Ўлў Ґв «Ёим ®¤ ҐўЁ¤Ё¬ п Є®ЇЄ
Ё§ б®ў¬Ґб⮠ᮧ¤ ле. —в®Ўл § Єа бЁвм ўбҐ, ᮧ¤ ¤Ё¬ Ёе ®в¤Ґ«мл¬Ё
ўлЇ®«ҐЁп¬Ё GET-Є®¬ ¤л ў жЁЄ«Ґ. „«п Ј«п¤®бвЁ ¬Ё Їа®аЁб®ў л
Є®вгал Є®Ї®Є, ®вбгвбвўгойЁҐ ў Ї« Ґ.
Џа®б«Ґ¤Ё¬ а Ў®вг ЇаЁў®¤Ё¬®© Ё¦Ґ Їа®Ја ¬¬л, ў Є®в®а®© ¤Ґ©бвўгҐв
¤ўгега®ўҐў п GET-бЁб⥬ : ЇҐаў®¬ га®ўҐ - ¬Ґо ‚ЂѓЋЌ, ўв®а®¬
- ¬®¦Ґбвў® Є®Ї®Є-¬Ґбв, BROWSE-®Є® Pass Ё Є®ЇЄ ў®§ўа в ў ¬Ґо
‚ЂѓЋЌ. Џ®б«Ґ ®вЄалвЁп Ѓ„ Ё ®ЇЁб Ёп ®Є® ᮧ¤ Ґвбп бЄал⮥ ¬Ґо
‚ЂѓЋЌ. Ќг¦® ЇаҐ¤кпўЁвм Ї®«м§®ў вҐ«о ЁвҐадҐ©б ў 楫®¬ ЇаЁ¬ҐаҐ
1 ў Ј® . ’ॡгҐвбп ¤ў ¦¤л ¦ вм Enter. ќвЁ ¦ вЁп Ё¬ЁвЁагҐв
Є®¬ ¤ KEYBOARD, "®ва Ў влў Ґв" - Є®¬ ¤ READ. ЏҐаў®Ґ ¦ вЁҐ
а бЄалў Ґв ¬Ґо, ўв®а®Ґ - ®бгйҐбвў«пҐв ўлЎ®а ў Ґ¬. ЏаЁ н⮬
ўЄ«оз Ґвбп Ў«®Є Vg, Ї®«гз ойЁ© Є Є Ї а ¬Ґва Ї®¤бва®Єг "1Џ". Ћ
«Ё§ЁагҐв вЁЇ ў Ј® , бзЁвлў Ґв ў ®Є® Vagon ᮮ⢥вбвўгойЁ©
Ї« Ё ўлЇ®«пҐв ў Ѓ„ Pass ЇҐаў®© § ЇЁбЁ, ᮮ⢥вбвўго饩 ¤ ®¬г
ў Ј®г. ‡ ⥬ ў жЁЄ«Ґ SCAN Їа®б¬ ваЁў овбп ўбҐ § ЇЁбЁ ¤«п ¤ ®Ј®
ў Ј® . Љ®¬ ¤ GET ЁбЇ®«м§гҐв Є®®а¤Ё вл X,Y Ё§ § ЇЁбЁ ¤«п
Ї®а®¦¤ҐЁп Є®ЇЄЁ, б®бв®пЁҐ Ї®«п Famil - ¤«п ҐҐ а бЄа бЄЁ,
Ґб«Ё § ЇЁбм Ї®¬ҐзҐ г¤ «ҐЁҐ (Ґ¤Ґ©бвўго饥 ¬Ґбв®), Є®ЇЄ
¤Ґ« Ґвбп Ґ¤®бвгЇ®© (бЁ¬ў®«л " \\" ў GET-и Ў«®Ґ). Џ®б«Ґ жЁЄ«
Є®¬ ¤ READ CYCLE ўв®а®Ј® га®ўп ЄвЁўЁагҐв ЇҐаўго ¤®бвгЇго
Є®ЇЄг, ЇаЁ н⮬ ўЄ«оз Ґвбп Ў«®Є Kto, Єг¤ ЇҐаҐ¤ Ґвбп ®¬Ґа d
ў Ј® Ё ®¬Ґа ¬Ґбв . Џ®б«Ґ¤Ё© б®ўЇ ¤ Ґв б® § 票Ґ¬ _CUROBJ,
в.Ґ. б ®¬Ґа®¬ GET-®ЎкҐЄв , Є®ЇЄЁ, ® вॡгҐвбп ⥪бв®ў п д®а¬ ,
б®бв®пй п Ё§ 2 бЁ¬ў®«®ў.
Ѓ«®Є Kto ўлў®¤Ёв BROWSE-®Є® (Ґ ЄвЁў®Ґ), ЇаЁзҐ¬ ў ўҐа奩
бва®ЄҐ Ї®Є §лў Ґвбп ®¬Ґа ⥪г饣® ¬Ґбв Ё ᢥ¤ҐЁп ® Ї бб ¦ЁаҐ,
Ґб«Ё ¬Ґбв® § пв®. ќв® ®ЎҐбЇҐзҐ® Є®¬ ¤ ¬Ё SEEK d+m Ё BROWSE.
Ќ ¦Ё¬ п Enter Ё«Ё Є« ўЁиЁ гЇа ў«ҐЁп Єгаб®а®¬, Ї®«м§®ў ⥫м
ЇҐаҐ¬Ґй Ґвбп Ї® Ї« г Ё, ᮮ⢥вб⢥®, ЇҐаҐ¬Ґй овбп бва®ЄЁ ў
®ЄҐ BROWSE. —ҐаҐ§ Є®ЇЄг Ї® 㬮«з Ёо (б¬. Ї. 20.3) <<Џ…ђ…•Ћ„
Љ „ђ“ѓЋЊ“ ‚ЂѓЋЌ“>> ¬®¦® ўҐагвмбп 1-© га®ўҐм GET-бЁб⥬л,
зв®Ўл ўлЎа вм Ё®© ў Ј® Ё в.¤. ќв® ўбҐ, з⮠㦮 ЎаЁЈ ¤Ёаг Ї®Ґ§¤ .
Џа®ў®¤ЁЄг ў ваҐе б«гз пе ЇаЁе®¤Ёвбп ЄвЁўЁа®ў вм ®Є® Pass:
) ЇаЁ § ҐбҐЁЁ д ¬Ё«ЁЁ ®ў®Ј® Ї бб ¦Ёа Ё бв жЁЁ § 票п;
Ў) ЇаЁ бвЁа ЁЁ ¤ ле ® Ї бб ¦ЁаҐ; Ј) ¤«п Ї®¬ҐвЄЁ Ґ¤Ґ©бвўго饣®
¬Ґбв Ё«Ё бпвЁп Ї®¬ҐвЄЁ. ЋЄ® Pass ЄвЁўЁагҐвбп (¤Ґ ЄвЁўЁагҐвбп)
¦ вЁҐ¬ CTRL+F1. ‘вЁа ЁҐ Ї®«п ўлЇ®«пов Є« ўЁиЁ CTRL+Y,
Ї®¬ҐвЄг г¤ «ҐЁҐ (бпвЁҐ Ї®¬ҐвЄЁ) - Є« ўЁиЁ CTRL+T. Љ®Ј¤
Ё§¬ҐҐ п § ЇЁбм Ї®ЄЁ¤ Ґвбп, Є®¬ ¤ BROWSE ўЄ«оз Ґв дгЄжЁо F,
ўлЇ®«пойго ®Ў®ў«ҐЁҐ ᮮ⢥вбвўго饩 Є®ЇЄЁ: Ё§¬ҐпҐвбп ҐҐ
梥в.
ЏаЁ ў®§ўа ⥠ў ®Є® Vagon ЄвЁўЁагҐвбп Є®ЇЄ Ї® 㬮«з Ёо -
ў®§ўа в 1-© га®ўҐм GET-бЁб⥬л. ‚ н⮬ Ґбвм १®: Ґ ўбҐ
Ё§¬ҐҐЁп бв вгб ¬Ґбв ў Ј® ®ЇҐа вЁў® 室пв ®ва ¦ҐЁҐ ў ®ЄҐ
Ё Ї®ўв®ал© ўлЎ®а в®Ј® ¦Ґ ў Ј® ®Є §лў Ґвбп Єбв вЁ. ЏаЁ ў®§ўа вҐ
ў ®Є® Vagon б Ї®¬®ймо ¬лиЁ, ўл ¬®¦ҐвҐ ЄвЁўЁа®ў вм «оЎго Є®ЇЄг.
Љ®ЇЄ Ї® 㬮«з Ёо Ґ®Ўп§ ⥫м : ¦Ё¬ п Esc, Ї®«м§®ў ⥫м
в Є¦Ґ ў®§ўа й Ґвбп 1-© га®ўҐм, ® Ґб«Ё § ¬ҐиЄ Ґвбп Ё Esc
ба Ў®в Ґв ¤ў ¦¤л, Їа®Ја ¬¬ "бЄ®а®Ї®бвЁ¦®" § Є®зЁв а Ў®вг.
"‹ҐЈЁвЁ¬®Ґ" § ўҐа襨Ґ ¤Ґп⥫м®бвЁ Ї®«м§®ў вҐ«м ®бгйҐбвў«пҐв,
ўлЎЁа п ЇгЄв "‚л室" ¬Ґо ‚ЂѓЋЌ.
s="1Џ;2Џ;3Џ;4Џ;5Љ;6Љ;8Љ;9Љ;10Љ;11Љ;12Џ;13Џ;14Џ;15Џ;‚›•Ћ„"
SET TALK OFF
SET MEMOWIDTH TO 57
SET COLOR OF SCHEME 17 TO,,,,,W+*/G,,,W+/G
SET COLOR OF SCHEME 18 TO,,,,,W+*/B,,,W+/B
CLEAR
USE Pass
IF .NOT. File("Pass.IDX")
INDEX ON Mest TO Pass
ELSE
SET INDEX TO Pass
ENDIF
USE Vagon IN b
DEFINE WINDOW Pass FROM 1,18 TO 11,62
DEFINE WINDOW Vagon FROM 14,10 TO 23,69 TITLE "Џ‹ЂЌ ‚ЂѓЋЌЂ" ;
FOOTER "„‹џ €‡Њ…Ќ…Ќ€‰ ‚ ЋЉЌ… PASS ЌЂ†Њ€’… CTRL+F1" COLOR SCHEME 10
@ 5,0 SAY "‚ЂѓЋЌ:" GET k PICT "@^ "+ S VALID Vg(k) ;
DEFAULT Left(S,At(";",S)-1) MESSAGE""
@ 12,18 SAY " ‚Ћ‡‚ђЂ’ Љ Џ‹ЂЌ“ ‚ЂѓЋЌЂ - CTRL+F1 " COLOR N/BG
KEYBOARD Chr(13)+Chr(13) && €¬Ёв жЁп 2 ¦ вЁ© Є« ўЁиЁ Enter
READ CYCLE
FUNCTION Kto
PARAM d,m
SEEK d+m
BROWSE WINDOW Pass NOWAIT COLOR SCHEME 10 TITLE "Њ…‘’Ђ ‚ЂѓЋЌЂ "+d ;
FIELD U=Right(Mest,2):H="ЊҐбв®":P="9999", Famil:H=" ” ¬Ё«Ёп":14,;
Stat:H=" ‘в жЁп":20 VALID F()
FUNCTION F
SHOW OBJECT _CUROBJ COLOR SCHEME Iif(Empty(a.Famil),17,18)
FUNCTION Vg
PARAM i
ACTIVATE WINDOW Vagon
IF k="‚›•Ћ„"
CLEAR ALL
CLEAR
CANCEL
ENDIF
@ 2,0 CLEAR
GO Iif(Right(i,1)="K",1,2) IN b
?? b.PLAN && ‚лў®¤ ў ®Є® Vagon б奬л, ᮮ⢥вбвўго饩 вЁЇг ў Ј®
d= PAdl(Ltrim(Str(Val(i))),2,"0") && ‚뤥«ҐЁҐ ®¬Ґа ў Ј®
SEEK d && Џ®ЁбЄ ЇҐаў®© § ЇЁбЁ ¤«п ўлЎа ®Ј® ў Ј®
IF Recno() > Reccount()
@ 0,30 SAY "‚ ЃЂ‡… Ќ…’ ’ЂЉЋѓЋ ‚ЂѓЋЌЂ !" COLOR W+/R*
ELSE
SCAN WHILE a.Mest = d
@ a.Y,a.X GET Z PICT "@*I"+Iif(Deleted()," \\","") SIZE 1,2 DEFAULT 1;
When Kto(d,Padl(Ltrim(Str(_CUROBJ)),2,"0")) ;
COLOR SCHEME Iif(Empty(a.Famil),17,18)
ENDSCAN
@ 0,2 SAY " Њ…‘’Ћ ‘‚ЋЃЋ„ЌЋ " COLOR W+/G && ЋЎа §Ґж § Єа бЄЁ
@ 1,2 SAY " Њ…‘’Ћ ‘ ЏЂ‘‘Ђ†€ђЋЊ " COLOR W+/B && ЋЎа §Ґж § Єа бЄЁ
@ 0,30 GET j PICT "@*\! Џ…ђ…•Ћ„ Љ „ђ“ѓЋЊ“ ‚ЂѓЋЌ“" ;
MESSAGE "„‚Ђ†„› ЌЂ†Њ€’… ENTER „‹џ ЂЉ’€‚Ђ–€€ Њ…Ќћ <<‚ЂѓЋЌ>>" ;
COLOR ,,,,,W+*/GR,,,W+/N DEFAULT 1
READ CYCLE
ENDIF
‘®§¤ ЁҐ Ў § ¤ ле. ‚ Ѓ„ Plan Ґ¤Ёб⢥®Ґ Ї®«Ґ Plan. ‡ Ї®«ҐЁҐ
нвЁе MEMO-Ї®«Ґ© Їа®йҐ ўбҐЈ® Їа®Ё§ў®¤Ёвм ў Edit-®Ў« бвЁ, иЁаЁ
Є®в®а®© ᮮ⢥вбвўгҐв иЁаЁҐ Ї« ў Ј® Ё ¤®«¦ Ўлвм ЇаҐ¤ў аЁвҐ«м®
гЄ § ў Є®¬ ¤Ґ SET MEMOWIDTH TO. €в Є, Ї®« Ј Ґ¬ Ѓ„ Plan ᮧ¤ ®©.
Ѓ„ Pass ў Ёб室®¬ б®бв®пЁЁ ¤®«¦ ᮤҐа¦ вм бв®«мЄ® § ЇЁбҐ©,
бЄ®«мЄ® ¬Ґбв ў Ї®Ґ§¤Ґ, ЇаЁзҐ¬ Ї®«п Mest, X, Y ¤®«¦л Ўлвм § Ї®«Ґл.
ќв® Ў®«ми п агвЁ п а Ў®в , Є®в®аго «ҐЈЄ® ўв®¬ вЁ§Ёа®ў вм: ўлЎҐаҐ¬
ў ¬Ґо ў Ј® ¤«п ўлў®¤ Ї« ў EDIT-®Ў« бвм (б¬.Ї. 20.4). Ѓг¤Ґ¬
Ї®®зҐаҐ¤® Ї®¤ў®¤Ёвм Єгаб®а Ї®¤ Є ¦¤л© ®¬Ґа ў Ї« Ґ Ё § ЇгбЄ вм Ў«®Є
YX, ЁбЇ®«м§гойЁ© ⥪гйЁҐ ®Є®лҐ Є®®а¤Ё вл Row(), Col() Єгаб®а .
ЋЁ г¦л, ў®-ЇҐаўле, ¤«п § Ї®«ҐЁп Ї®«Ґ© Y,X ®зҐаҐ¤®© § ЇЁбЁ.
‚®-ўв®але, ®Ё Ї®§ў®«по⠢뤥«Ёвм ў MEMO-Ї®«Ґ Plan Ї®¤бва®Єг - ®¬Ґа
¬Ґбв , Ї®¤ Є®в®ал¬ бв®Ёв Єгаб®а. ЏаЁб®Ґ¤ЁЁў б«Ґў ®¬Ґа ў Ј® ,
Ў«®Є YX § ®бЁв § 票Ґ ў Ї®«Ґ Mest. ќв®в ®¬Ґа бвЁа Ґвбп ў®
Ё§ЎҐ¦ ЁҐ Ї®ўв®а®Ј® ўлЎ®а . Џ®бЄ®«мЄг Ї®авЁвм Ї« ¬л Ґ ¤®«¦л,
ў Є®¬ ¤Ґ EDIT ЇаҐ¤гб¬ ваЁў Ґвбп ®ЇжЁп NOMODIFY Ё Ё§¬ҐҐЁп
Їа®Ёб室пв ў Є®ЇЁЁ Ї« . ‚® Ё§ЎҐ¦ ЁҐ Ї®ўв®а®Ј® ўлЎ®а ў Ј®
ᮮ⢥вбвўгойЁ© ЇгЄв ¬Ґо ¤®«¦Ґ бв ®ўЁвмбп Ґ¤®бвгЇл¬.
„«п ўл§®ў Ў«®Є YX ¬л ЇаҐ¤гᬮваЁ¬ Є« ўЁиг, ЇаЁ¬Ґа F5.
…Ґ ЇаЁ¤Ґвбп ¦ вм Ў®«ҐҐ 1000 а §. Џа®пўЁ¬ ᬥЄ «Єг Ё §¤Ґбм.
—Ёб«® § ЇЁбҐ© ¤«п ®¤®вЁЇле ў Ј®®ў ®¤Ё Є®ў® Ё ®в«Ёз овбп ®Ё
«Ёим бв а襩 з бвмо Ї®«п Mest. ‘¤Ґ« Ґ¬ в Є, зв®Ўл ¦ вЁҐ F5
д®а¬Ёа®ў «® § ЇЁбЁ ¤«п ўбҐе ®¤®вЁЇле ў Ј®®ў. ќв® Ґб«®¦®.
ђ §а Ў®в вм Ў«®Є YX, ЁбЇ®«м§гп Є Є Ї®¤бЇ®амҐ Їа®Ја ¬¬г PLAN.PRG,
ЇаЁўҐ¤Ґго б. 281 ў [7], ЇаҐ¤« Ј Ґвбп зЁв ⥫о.
‡ ¤ ЁҐ 20.6. ђ §а Ў®в ©вҐ ЁвҐа䥩б, ЁбЇ®«м§гҐ¬л© ў Їа®жҐббҐ
§ Ї®«ҐЁп Ѓ„ Pass, Є®в®ал© ®ЇЁб ўлиҐ.
‡ЂЉ‹ћ—…Ќ€… Љ ѓ‹Ђ‚… 20
‚ ¤ ®© Ј« ўҐ а бᬮваҐл "Ї®«гд ЎаЁЄ вл" - а §«ЁзлҐ
дгЄжЁ® «млҐ б।бвў ЁвҐа䥩б , Є®в®алҐ Ї® ¤®Ўпвбп ¤«п
ᮧ¤ Ёп нЄа ЇаЁ«®¦ҐЁп. Џа®бвлҐ ўлЎ®а ®ЎкҐЄв®ў нЄа Ё
гЇа ў«ҐЁҐ Ё¬Ё ®ЎҐбЇҐзЁў ов "¬ ЄбЁ¬ «м® ¤а㦥б⢥л©"
Ї®«м§®ў ⥫мбЄЁ© ЁвҐа䥩б. ‚ Ї. 21.5 ¬л а бᬮваЁ¬ б।бвў ,
"¤а㦥б⢥лҐ" а §а Ў®взЁЄг нЄа , Ї®§ў®«пойЁҐ ᮧ¤ ў вм ®Ўа §
нЄа Ї®звЁ ЎҐ§ Їа®Ја ¬¬Ёа®ў Ёп. Ћбў®Ёвмбп б Ё¬Ё ў ¬ Ї®¬®Јгв
ЇаҐ¤бв ў«ҐЁп, Ї®«гзҐлҐ ЇаЁ з⥨Ё бв®п饩 Ј« ўл.
Соседние файлы в папке материалы по FoxPro