Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:БД книги 2 / материалы по FoxPro / GL15
.PAS—Ђ‘’њ 3. ЏђЋѓђЂЊЊ€ђ“…Њ ЌЂ џ‡›Љ… FOXPRO
ѓ‹Ђ‚Ђ 15.
ЏђЋ„Ћ‹†Ђ…Њ €‡“—Ђ’њ FOXPRO
‚ ¤ ®© Ј« ўҐ а бб¬ ваЁў овбп ®б®ўлҐ ў®§¬®¦®бвЁ,
ЇаҐ¤®бв ў«пҐ¬лҐ бЁбвҐ¬л¬ ЁвҐа䥩ᮬ, а Ў®в ў ®ЄҐ Є®¬ ¤,
ЁбЇ®«м§®ў ЁҐ бЁбвҐ¬л Ї®¬®йЁ, ў®§¬®¦®б⨠। Єв®а ⥪бв®ў,
ЇаЁ¬ҐҐЁҐ дгЄжЁ® «мле Є« ўЁи. ‚ўЁ¤г бЇҐжЁдЁЄЁ FOXPRO ®б®Ў®Ґ
ўЁ¬ ЁҐ ®Ўа вЁвҐ Їа ўЁ« Ї®бв஥Ёп Ў«®зле Їа®Ја ¬¬ Ё
ЁбЇ®«м§®ў ЁҐ Ї а ¬Ґва®ў Ў«®Є®ў. ‚л ®§ Є®¬ЁвҐбм б ¬ ббЁў ¬Ё FOXPRO
Ё г§ ҐвҐ ®ў®Ґ ® Ї®¤бв ®ўЄ е ў ⥪бвл ЇаЁ ўлў®¤Ґ. ЏҐаҐ¤
Ё§г票Ґ¬ 梥⮢ле гбв ®ў®Є ў Ї. 15.7 б«Ґ¤гҐв Їа®б¬®ваҐвм Ї. 9.5.
15.1. ђ Ў®в Ґ¬ зҐаҐ§ бЁбвҐ¬л© ЁвҐа䥩б
Џ®б«Ґ § Јаг§ЄЁ FOXPRO нЄа Ґ ў®§ЁЄ Ґв бва®Є Ј« ў®Ј® ¬Ґо FOXPRO
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
System File Edit Database Record Program Window
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Ё Є®¬ ¤®Ґ ®Є® (®Є® Command ўЁ§г бЇа ў ). ‘ Ёе Ї®¬®ймо ¬®¦®
ᮧ¤ ў вм Ѓ„ Ё д ©«л, ўлЇ®«пвм а §®®Ўа §лҐ ®ЇҐа жЁЁ б Ё¬Ё,
Ё§¬Ґпвм бвагЄвгаг Ѓ„, ®в« ¦Ёў вм Їа®жҐбб Ўг¤гйЁе Їа®Ја ¬¬. „«п
ЄвЁўЁ§ жЁЁ Ј« ў®Ј® ¬Ґо ¦Ё¬ ов Alt Ё«Ё F10 - ЇгЄв System ўл¤Ґ«пҐвбп
¬ થ஬. …б«Ё ўлЎа вм ¬лимо «оЎ®© ЇгЄв ¬Ґо Ё ¦ вм «Ґўго Є®ЇЄг ¬лиЁ,
ба §г ЄвЁўЁ§ЁагҐвбп ¬Ґо Ё Ї®¤¬Ґо. ЏҐаҐ¬Ґй п ¬ аЄҐа ¬лимо Ё«Ё Є« ўЁиҐ©
гЇа ў«ҐЁп Єгаб®а®¬, ¬®¦® ўлЎа вм ¤агЈ®© ЇгЄв. Љ ¦¤л© ЇгЄв
Ё¬ҐҐв ўҐавЁЄ «м®Ґ Ї®¤¬Ґо, ¤«п ўл§®ў Є®в®а®Ј® ¦Ё¬ ов Enter Ё«Ё
Є« ўЁиг "бв५Є ўЁ§". ‚ Ґ¬ ¬ થ஬ ўл¤Ґ«Ґ ўҐаеЁ© Ї®¤ЇгЄв.
ЌҐ§ ўЁбЁ¬® ®в б®бв®пЁп бЁбвҐ¬л Ј« ў®Ј® ¬Ґо, ¦Ё¬ п Alt Ё
®¤®ўаҐ¬Ґ® ўл¤Ґ«Ґго 梥⮬ ("Ј®апзго") ЎгЄўг Ё¬Ґ®ў Ёп ЇгЄв ,
¬л ба §г Ї®Ї ¤ Ґ¬ ў ҐЈ® Ї®¤¬Ґо. „«п ЇаאַЈ® ўл§®ў Ї®¤ЇгЄв
ЄвЁўЁа®ў ®Ј® Ї®¤¬Ґо ¦Ё¬ ов в®«мЄ® "Ј®апзго" ЎгЄўг Ї®¤ЇгЄв .
€§®Ўа ¦ Ґ¬лҐ "ЇаЁЈ«гиҐл¬" 梥⮬ Ї®¤ЇгЄвл Ґ¤®бвгЇл. ЏаЁзЁ :
Ґв ®ЎкҐЄв Ё«Ё гб«®ўЁ© ¤Ґ©бвўЁп, ЇаЁ¬Ґа, Ґв ®вЄалв®© Ѓ„.
‚лЇ®«ҐЁҐ ¤Ґ©бвўЁ© Ї®¤ЇгЄв ®в®Ўа ¦ Ґвбп Є®¬ ¤®©, Ї®пў«по饩бп
ў Є®¬ ¤®¬ ®ЄҐ.
Ќ ¦ вЁҐ¬ F1 ўл§лў Ґвбп бЇа ў®з п Ёд®а¬ жЁп (Help) Ї®
ўл¤Ґ«Ґ®¬г ¬ થ஬ ЇгЄвг (Ї®¤ЇгЄвг). ’ ЄЁ¬ ®Ўа §®¬ бЁб⥬л©
ЁвҐадҐ©б ¬®¦® ®бў®Ёвм ў 室Ґ а Ў®вл б Ё¬, Ї®н⮬㠮Ја ЁзЁ¬бп
®ЎйЁ¬ ®Ў§®а®¬ ў®§¬®¦®б⥩ Ё ЇаЁ¬Ґа ¬Ё. ЌҐЄ®в®ал¬ Ґг¤®Ўбвў®¬ ¤«п
"агббЄ®п§лз®Ј®" Ї®«м§®ў ⥫п пў«повбп ЁбЇ®«м§гҐ¬лҐ ў бЁб⥬ле
®Є е Ј«Ё©бЄЁҐ б«®ў Ё да §л. ЌҐЎ®«ми п Їа ЄвЁЄ а Ў®вл б
ЁвҐа䥩ᮬ бЈ« ¤Ёв Ё нв® Ґг¤®Ўбвў®.
‚ § ўЁбЁ¬®бвЁ ®в б«®¦®бвЁ ¤Ґ©бвўЁ© Ї®¤ЇгЄв ¬®¦Ґв ў®§ЁЄ вм
楫 п Ї®б«Ґ¤®ў ⥫м®бвм ўл§®ў®ў ®Є® ўлЎ®а , ¤Ё «®Ј®ўле ®Є®. €е
ЄвЁўлҐ н«Ґ¬Ґвл, зҐаҐ§ Є®в®алҐ Їа®Ёб室Ёв ўл§®ў ¤Ґ©бвўЁ©, §лў ов
Є®ЇЄ ¬Ё. ЏҐаҐе®¤ ®в н«Ґ¬Ґв Є н«Ґ¬Ґвг ®бгйҐбвў«пҐв Є« ўЁи Tab,
¦ вЁҐ Є« ўЁиЁ Enter Ё«Ё Space Ё¬ЁвЁагҐв ¦ вЁҐ ўлЎа ®© Є®ЇЄЁ.
„«п § ўҐа襨п а Ў®вл ў ®ЄҐ ЁбЇ®«м§гов Є®ЇЄг <OK>, Ґб«Ё ҐҐ Ґв
- Є®ЇЄг б ®Ў®§ 票Ґ¬ ҐЄ®в®а®Ј® Є®Ґз®Ј® ¤Ґ©бвўЁп, ЇаЁ¬Ґа,
<Save> (б®еа Ёвм).
‚ Ї®¤¬Ґо System ॠ«Ё§говбп ®ЎйҐбЁбвҐ¬лҐ дгЄжЁЁ. „«п б
ЁЎ®«ҐҐ § зЁ¬л Ї®¤ЇгЄвл Filer Ё Macros... . Џ®¤ЇгЄв
Filer ўл§лў Ґв ” ©«Ґа - Їа®жҐбб®а д ©«®ў. ‚ ®б®ў®¬ ®ЄҐ ” ©«Ґа
¤ ® ᮤҐа¦ ЁҐ ⥪г饩 ¤ЁаҐЄв®аЁЁ, ® а Ў®в вм ¬®¦® Ё ў ¤агЈЁе,
ЇҐаҐе®¤п ў Ёе б Ї®¬®ймо н«Ґ¬Ґв [..]. Ља®¬Ґ в®Ј®, Є®ЇЄ®© Drv.
¬®¦® Ё§¬ҐЁвм ⥪гйЁ© ¤ЁбЄ®ў®¤, б Ї®¬®ймо Є®ЇЄЁ Dir. Ўлбва®
ЇҐаҐ©вЁ ў «оЎго бв аиго ¤ЁаҐЄв®аЁо. „«п б®Єа йҐЁп ЇаҐ¤к塞®Ј®
бЇЁбЄ д ©«®ў ¬®¦® § ¤ вм ¬ бЄг (н«Ґ¬Ґв File like ...).
Џ®«гзЁў бЇЁб®Є д ©«®ў ЁвҐаҐбго饩 б ¤ЁаҐЄв®аЁЁ, ў®¤Ё¬
¬ аЄҐа г¦л© д ©« Ё ®в¬Ґз Ґ¬ ҐЈ® (ваҐгЈ®«мЁЄ б«Ґў ) ¦ вЁҐ¬
Enter Ё«Ё Space. ’ҐЇҐам ў®§¬®¦л ¤Ґ©бвўЁп б д ©«®¬. „ўҐ Ё¦ЁҐ
бва®ЄЁ ®Є ᮤҐа¦ в Є®ЇЄЁ ¤Ґ©бвўЁ©.
Џ®¤ЇгЄв Macros... Ї®§ў®«пҐв § ЄаҐЇЁвм § дгЄжЁ® «мл¬Ё
Є« ўЁи ¬Ё (Є®¬ЎЁ жЁп¬Ё Є« ўЁи) Ё«Ё Ё§¬ҐЁвм ¬ Єа®Ї®б«Ґ¤®ў ⥫м®бвЁ:
®Ўлз® н⮠⥪бвл Є®¬ ¤ Ё Ёе б®ў®ЄгЇ®б⥩. ђ бᬮваЁ¬ ЇаЁ¬Ґа
§ ЄаҐЇ«ҐЁп § Є« ўЁи ¬Ё Shift+F6 ¬ Єа®Ї®б«Ґ¤®ў ⥫м®бвЁ
USE BASE\STUDENT{ENTER}
LIST{ENTER} && {ENTER} ®Ў®§ з Ґв ¦ вЁҐ Є« ўЁиЁ Enter.
‚лЎЁа Ґ¬ Ї®¤ЇгЄв Macros... Ё л Ї®пўЁўиҐ¬бп ®ЄҐ ў®¤Ё¬ ¬ аЄҐа
Є®ЇЄг New, ¦Ё¬ Ґ¬ Enter. Џ®пў«пҐвбп ®Є® ®ЇаҐ¤Ґ«ҐЁп ¬ Єа®б .
Ќ ¦Ё¬ Ґ¬ Shift+F6 Ё ў Ґ¬ ўв®¬ вЁзҐбЄЁ § Ї®«повбп бва®ЄЁ
Defined Key ("®ЇаҐ¤Ґ«пҐ¬ п Є« ўЁи ") Ё Macro Name ("Ё¬п ¬ Єа®б "),
Єгаб®а ®Є §лў Ґвбп ў з «Ґ Ї®«п Macro Contents, Ј¤Ґ Ё 㦮
Ўа вм гЄ § го ўлиҐ ¬ Єа®Ї®б«Ґ¤®ў ⥫м®бвм, ¦ ў § ⥬ Є®ЇЄг
<OK>. ‚¬Ґбв® Їа®ЎҐ« ¬л ¬®Ј«Ё Ўл § ЇЁб вм {SPACEBAR}. ’ҐЇҐам ¦ вЁҐ
Є« ўЁи Shift+F6 Ўг¤Ґв ЇаЁ¬Ґпвм Є®¬ ¤г LIST Є Ѓ„ Student ў
¤ЁаҐЄв®аЁЁ BASE.
Џ®¤¬Ґо File ў ®б®ў®¬ ЇаҐ¤ § 祮 ¤«п а Ў®вл б д ©« ¬Ё
FOXPRO. ЏаЁ ўлЎ®аҐ Ї®¤ЇгЄв New (ᮧ¤ ЁҐ д ©« ) ЇаҐ¤кпў«пҐвбп
бЇЁб®Є вЁЇ®ў д ©«®ў (ў бЄ®ЎЄ е ¤ л а биЁаҐЁп Ё¬Ґ): Database
(.DBF), Program (.PRG), Index (.NDX Ё«Ё .CDX), File Ё в.¤., Ј¤Ґ «Ёим
File ®Ў®§ з Ґв Їа®Ё§ў®«мл© вҐЄбв®ўл© д ©«, Їа®зЁҐ - вЁЇл д ©«®ў
FOXPRO. ‚ бЇЁбЄҐ ўлЎа л© вЁЇ ЇаЁ ¦ вЁЁ Enter ®в¬Ґз Ґвбп в®зЄ®© ў
бЄ®ЎЄ е. Џ®¤ЇгЄв Open (®вЄалвЁҐ д ©« ) ЇаҐ¤кпў«пҐв «®ЈЁзл© бЇЁб®Є
ЇаЁ ЁбЇ®«м§®ў ЁЁ Є®ЇЄЁ Type. Љ®ЇЄ <OK> ЁЁжЁЁагҐв а Ў®вг б нвЁ¬
вЁЇ®¬ д ©«®ў. ЋвЄалў Ґвбп ®Є® б® бЇЁбЄ®¬ д ©«®ў, ў Є®в®а®¬ Є®ЇЄЁ
Drive, Directory «®ЈЁзл Є®ЇЄ ¬ Drv., Dir. ®Є ” ©«Ґа .
Џ®¤¬Ґо Database ЇаҐ¤ § 祮 ¤«п а Ў®вл б Ў § ¬Ё ¤ ле.
Џ®¤ЇгЄв Setup Ї®§ў®«пҐв Ё§¬Ґпвм бвагЄвгаг ®вЄалв®© Ѓ„, ᮧ¤ ў вм
Ё¤ҐЄбл Ё дЁ«мвал, § з вм ўҐ¤гйЁ© Ё¤ҐЄб Ё в.Ї. Џ®¤ЇгЄв
Browse ўл§лў Ґв Є®¬ ¤г Ї®«®нЄа ®Ј® । ЄвЁа®ў Ёп § ЇЁбҐ©,
ЇаЁ н⮬ Ј« ў®Ґ ¬Ґо ¤®Ї®«пҐвбп бЇа ў ЇгЄв®¬ Browse. Џа®зЁҐ
Ї®¤ЇгЄвл ᮮ⢥вбвўгов Є®¬ ¤ ¬ ®Ўа Ў®вЄЁ Ѓ„, ўЄ«оз п APPEND FROM,
PACK Ё REINDEX, Є®¬ ¤ ¬ ўл¤ зЁ ®взҐв®ў Ё нвЁЄҐв®Є.
Џ®¤¬Ґо Record ॠ«Ё§гҐв ¤Ґ©бвўЁп б § ЇЁбп¬Ё (Є®¬ ¤л FOXPRO):
¤®Ў ў«ҐЁҐ, । ЄвЁа®ў ЁҐ, ЇҐаҐе®¤ Є 㦮© § ЇЁбЁ, Ї®ЁбЄ, § ¬Ґг
§ 票© Ї®«п, гбв ®ўЄг Ё бпвЁҐ Ї®¬Ґв®Є г¤ «ҐЁҐ. ‚ Є®¬ ¤ е
- ¤Ґ©бвўЁпе Ї®¤¬Ґо Database Ё Record зҐаҐ§ ¤Ё «®Ј®ўлҐ ®Є ¬®Јгв
Ўлвм § ¤ л ®Ў« бвм ¤Ґ©бвўЁп ("Ја Ёжл") Ё гб«®ўЁп (б¬. Ї. 3.3).
Џ®¤¬Ґо Program гЇа ў«пҐв ўлЇ®«ҐЁҐ¬ Їа®Ја ¬¬, Є®¬ЇЁ«пжЁҐ© Ё
ЈҐҐаЁа®ў ЁҐ¬ ЇаЁ«®¦ҐЁ©, ¤®Єг¬ҐвЁа®ў ЁҐ¬ Їа®Ја ¬¬. ђҐ¤ ЄвЁа®ў ЁҐ
Їа®Ја ¬¬ ўлЇ®«пов зҐаҐ§ Ї®¤¬Ґо Edit (б¬. Ё¦Ґ).
Џ®¤¬Ґо Edit ЇаҐ¤®бв ў«пҐв б।б⢠⥪бв®ў®Ј® । Єв®а .
ЌҐ®Ўе®¤Ё¬л© гз бв®Є ⥪бв ¬®¦® ўл¤Ґ«Ёвм Є« ўЁи ¬Ё гЇа ў«ҐЁп
Єгаб®а®¬ ЇаЁ ¦ в®© Є« ўЁиҐ Shift. €е ¦ вЁҐ ЎҐ§ Є« ўЁиЁ Shift
бЁ¬ Ґв ўл¤Ґ«ҐЁҐ. Љ®¬ЎЁ жЁп Shift+Ctrl+<‘в५Є ўЇа ў® (ў«Ґў®)>
ўл¤Ґ«пҐв да Ј¬Ґв ¤® Є®ж ( з « ) б«®ў , Shift+End (Shift+Home) -
¤® Є®ж ( з « ) бва®ЄЁ, Shift+Ctrl+End (Shift+Ctrl+Home) - ¤®
Є®ж ( з « ) ўбҐЈ® ⥪бв . Љ®¬ЎЁ жЁп Ctrl+A ўл¤Ґ«пҐв ўҐбм ⥪бв
ў ®ЄҐ.
Љ®¬ЎЁ жЁп Ctrl+<‘в५Є ўЇа ў® (ў«Ґў®)> б¬Ґй Ґв Єгаб®а б«®ў®
ўЇа ў® (ў«Ґў®), Є®¬ЎЁ жЁп Ctrl+Home (Ctrl+End) - з «® (Є®Ґж)
⥪бв , Home (End) - з «® (Є®Ґж) ⥪г饩 бва®ЄЁ. Џ®¤ЇгЄв
Goto Line ЁбЇ®«м§гҐвбп ¤«п ЇҐаҐе®¤ Є бва®ЄҐ б гЄ § л¬ ®¬Ґа®¬.
Љ а¬ ®¬ §лў ов ЎгдҐа ¤«п еа ҐЁп ўл¤Ґ«Ґ®Ј® гз бвЄ (Ў«®Є )
⥪бв . Џ®¤ЇгЄв Copy (Ctrl+C; ў бЄ®ЎЄ е ¤ л Є« ўЁилҐ нЄўЁў «Ґвл)
Є®ЇЁагҐв ҐЈ® ў Є а¬ , Paste (Ctrl+V) - ЇҐаҐ¤ Ґв Ё§ Є а¬ ў ЇгЄв
⥪бв (ў ЄвЁў®¬ ®ЄҐ), ®Ў®§ зҐл© Єгаб®а®¬ (ўбв ў«пҐв). Џ®¤ЇгЄв
Cut (Ctrl+X) г¤ «пҐв Ў«®Є ⥪бв , § Ї®¬Ё п ҐЈ® ў Є а¬ Ґ, Clear
(Del) - г¤ «пҐв ҐЈ® ЎҐ§ § Ї®¬Ё Ёп. „«п Ўлбва®Ј® ўл¤Ґ«ҐЁп ўбҐЈ®
⥪бв ®Є ЁбЇ®«м§гов Ї®¤ЇгЄв Select All (Ctrl+A). “¤ «пҐ¬®Ґ б«®ў®,
Ї®¤ Є®в®ал¬ бв®Ёв Єгаб®а, ўл¤Ґ«пвм Ґ 㦮: ¦Ё¬ ов Ctrl+Backspace.
…б«Ё Єгаб®а - ¬Ґ¦¤г б«®ў ¬Ё, г¤ «пҐвбп б«®ў® б«Ґў ®в Єгаб®а .
„«п Ї®ЁбЄ Ё § ¬Ґл ў ⥪б⥠ЁбЇ®«м§гов Ї®¤ЇгЄвл Find (Ctrl+F;
Ї®ЁбЄ § ¤ ®Ј® да Ј¬Ґв ⥪бв ), Find Again (Ctrl+G; Ї®ЁбЄ б«Ґ¤го饣®
ҐЈ® ўе®¦¤ҐЁп), Replace And Find Again (Ctrl+E; Ї®б«Ґ¤®ў ⥫мл© Ї®ЁбЄ
ўе®¦¤ҐЁ© б § ¬Ґ®© § ¤ л¬ ®ўл¬ да Ј¬Ґв®¬), Replace All (§ ¬Ґ
ба §г ўбҐе ўе®¦¤ҐЁ©). Џ®¤ЇгЄв Undo (Ctrl+U) ў®ббв ў«Ёў Ґв ўЁ¤
⥪бв , ЇаҐ¤иҐбвўгойЁ© Ї®б«Ґ¤Ґ¬г ¤Ґ©бвўЁо ў । Єв®аҐ (в Є §лў Ґ¬л©
"®вЄ в"), Ї®¤ЇгЄв Redo (Ctrl+R) - гбва пҐв нд䥪в нв®Ј® ў®ббв ®ў«ҐЁп
(Ї®¤вўҐа¦¤ Ґв ¤Ґ©бвўЁҐ).
‡ Ї®¬Ё ЁҐ ®в। ЄвЁа®ў ®Ј® ў ®ЄҐ ⥪бв ўлЇ®«пҐвбп Є« ўЁи ¬Ё
Ctrl+W. …б«Ё ®Є® ®Ў®§ 祮 Є Є "Untitled", ў®§ЁЄҐв § Їа®б Ё¬ҐЁ
д ©« . Џ®¤ЇгЄв Preferences ЁбЇ®«м§гҐвбп ¤«п бва®©ЄЁ । Єв®а ⥪бв®ў.
Џ®¤¬Ґо Window ॠ«Ё§гҐв а Ў®вг б ®Є ¬Ё (б¬. Ј«.18). “Ї®¬пҐ¬
«Ёим Ї®¤ЇгЄвл Trace, Debug, ®вЄалў ойЁҐ ®Є ®в« ¤зЁЄ , Ё View,
Ї®§ў®«пойЁ© ®вЄалў вм Ў §л ¤ ле ў ҐбЄ®«мЄЁе а Ў®зЁе ®Ў« бвпе,
гбв ў«Ёў вм ¬Ґ¦¤г Ё¬Ё бўп§Ё (б¬. Ї. 16.1), § з вм бЁб⥬лҐ
гбв ®ўЄЁ.
ЏаЁ¬Ґа 15.1. ‘¤Ґ« Ґ¬ Є®ЇЁо Stud Ѓ„ Student ЎҐ§ § ЇЁбҐ©,
Ї®¬ҐзҐле г¤ «ҐЁҐ; ЇаЁ н⮬ Ё§¬ҐЁ¬ ў Є®ЇЁЁ § зҐЁп Ї®«п Kurs
ў бўп§Ё б ЇҐаҐе®¤®¬ бв㤥⮢ б«Ґ¤гойЁ© Єгаб. ђ §¬Ґа бЁ¬ў®«м®Ј®
Ї®«п Kurs а ўҐ 1.
‘ Ї®¬®ймо Є« ўЁи Alt+F ЇҐаҐе®¤Ё¬ ў Ї®¤¬Ґо File, ¦Ё¬ Ґ¬ "Ј®апзго"
ЎгЄўг O - нЄа Ґ Ї®пў«пҐвбп ®Є® Open б® бЇЁбЄ®¬ д ©«®ў вЁЇ Program,
®бв ўиЁ¬бп ®в ЇаҐ¤л¤гйЁе и Ј®ў а Ў®вл. Љ« ўЁиҐ© Tab ўлЎЁа Ґ¬ Є®ЇЄг
Type, ¦Ё¬ Ґ¬ Enter, ў Ї®пўЁўиҐ¬бп бЇЁбЄҐ вЁЇ®ў ў®¤Ё¬ ¬ аЄҐа
ЇгЄв Database ("Ў §л ¤ ле") Ё ¦Ё¬ Ґ¬ Enter. …б«Ё Ѓ„ Student - ў
⥪г饩 ¤ЁаҐЄв®аЁЁ, ¬л гўЁ¤Ё¬ ҐҐ Ё¬п ў бЇЁбЄҐ д ©«®ў, Ё зҐ ЇаЁ¤Ґвбп
ᬥЁвм ¤ЁаҐЄв®аЁо (ў®§¬®¦®, Ё ¤ЁбЄ), Є Є нв® Ўл«® Ї®Є § ® ўлиҐ.
Ќ ўҐ¤п ¬ аЄҐа Ё¬п Ѓ„ Student, ¦Ё¬ Ґ¬ Enter. ‚ Є®¬ ¤®¬ ®ЄҐ
Ї®пў«пҐвбп Є®¬ ¤ USE Student. „«п Є®ЇЁа®ў Ёп Ѓ„ ЇҐаҐе®¤Ё¬ ў Ї®¤¬Ґо
Database, Ё¬ п Alt+D. Ќ ¦ вЁҐ "Ј®ап祩" ЎгЄўл C ®вЄалў Ґв ®Є®
Copy to, ў Є®в®а®¬ ўл¤Ґ«Ґ Є®ЇЄ <Save as...> . Ќ ¦Ё¬ п Enter,
Ї®«гз Ґ¬ ®Є® б® бЇЁбЄ®¬ Ѓ„, Є®в®алҐ ў ЇаЁжЁЇҐ ¬®Јгв Ўлвм ЇаЁҐ¬ЁЄ ¬Ё
Є®ЇЁЁ, Ё бва®Єг ¤«п Ў®а Ё¬ҐЁ ®ў®© Ѓ„. Ќ ЎЁа Ґ¬ "Stud", Є« ўЁиҐ©
Tab ў®¤Ё¬ ¬ аЄҐа <OK> Ё, ¦Ё¬ п Enter, ў®§ўа й Ґ¬бп ў ®Є®
Copy to. ЏҐаҐе®¤Ё¬ Є®ЇЄг Scope ("ЋЎ« бвм ¤Ґ©бвўЁп"), ¦Ё¬ Ґ¬
Enter. Џ®пў«пҐвбп ®Є® ¤«п гв®зҐЁп ®Ў« бвЁ ¤Ґ©бвўЁп. ‡¤Ґбм ¤Ґ« вм
ЁзҐЈ® Ґ ¤®, ЁЎ® ¬л ўЁ¤Ё¬, зв® ўл¤Ґ«Ґ® Ґ®Ўе®¤Ё¬®Ґ § 票Ґ "ALL"
(ўбп Ѓ„). ЋЇпвм ў®§ўа й Ґ¬бп ў ®Є® Copy to. ЏҐаҐе®¤Ё¬ Є®ЇЄг <For>,
¦Ё¬ Ґ¬ Enter. ‚ Ї®пўЁўиҐ¬бп ®ЄҐ ЎЁа Ґ¬ гб«®ўЁҐ .NOT. Deleted()
Ё ў®§ўа й Ґ¬бп ў ®Є® Copy to. Љ« ўЁиҐ© Tab ЇҐаҐ¬Ґй Ґ¬ ¬ аЄҐа <OK>,
¦Ё¬ Ґ¬ Enter. Љ®ЇЁа®ў ЁҐ ўлЇ®«Ґ®, ў Є®¬ ¤®¬ ®ЄҐ Ї®пў«пҐвбп
Є®¬ ¤ Copy to. ЋвЄалў Ґ¬ Ѓ„ Stud, Є Є а ҐҐ ®вЄалў «Ё Student.
Ќ ¦Ё¬ п Alt+R, Ї®«гз Ґ¬ Ї®¤¬Ґо Record, "Ј®ап祩" ЎгЄў®© p
ўл§лў Ґ¬ ®Є® Replace, ў бЇЁбЄҐ Ї®«Ґ© ўлЎЁа Ґ¬ Ї®«Ґ Kurs. Љ Є
гЄ § ® ўлиҐ, гв®з塞 ®Ў« бвм ¤Ґ©бвўЁп: ¤®«¦® Ўлвм "ALL".
Ћбв Ґвбп ў бва®ЄҐ ўў®¤ (ўЁ§г) § ЇЁб вм § ¬Ґпо饥 ўла ¦ҐЁҐ:
Str(Val(Stud.Kurs)+1, 1).
‡ ¤ ЁҐ 15.1. „«п ®бў®ҐЁп бЁб⥬®Ј® ЁвҐа䥩б ᮧ¤ ©вҐ Ѓ„
Student (б¬. ЇаЁ¬Ґа 2.20) Ё§ ҐбЄ®«мЄЁе § ЇЁбҐ© Ё ўлЇ®«ЁвҐ ЇаЁ¬Ґа
15.1 ќ‚Њ, ¤®Ў ўЁў Ё¤ҐЄбЁа®ў ЁҐ ®ў®© Ѓ„ Stud Ї® Ї®«о Famil Ё
ўлў®¤ (Є« ўЁи F3).
15.2. Ќ § з Ґ¬ дгЄжЁ® «млҐ Є« ўЁиЁ.
‘Ёб⥬ Ї®¬®йЁ (HELP)
‡ Є« ўЁи ¬Ё F1-F10 § ЄаҐЇ«Ґл бЁбвҐ¬лҐ дгЄжЁЁ: F1 ўл§лў Ґв
Ї®¬®йм (Help), F2 - ®Є® View (б¬. ўлиҐ Ї®¤¬Ґо Window), F3 (F8)
ўлЇ®«пҐв Є®¬ ¤г LIST (DISPLAY), Ґб«Ё ®вЄалв Ѓ„, F4 ўлў®¤Ёв
ᮤҐа¦ ЁҐ ⥪г饩 ¤ЁаҐЄв®аЁЁ, F5 - бвагЄвгаг Ѓ„, F6 ЇаҐ¤кпў«пҐв
¤Ґ©бвўгойЁҐ бЁбвҐ¬лҐ гбв ®ўЄЁ, F7 - § 票п бЁб⥬ле ЇҐаҐ¬Ґле,
F9 ўлЇ®«пҐв Є®¬ ¤г APPEND. …б«Ё Ґв ®вЄалв®© Ѓ„, ¦ вЁҐ F5, F8
Ё«Ё F9 ўлў®¤Ёв ®Є® Open ¤«п ўлЎ®а Ѓ„, Ї®б«Ґ 祣® ўлЇ®«пҐвбп
®б®ў®Ґ ¤Ґ©бвўЁҐ. Љ« ўЁи F10 ЄвЁўЁ§ЁагҐв бва®Єг Ј« ў®Ј® ¬Ґо.
Ћв¬ҐЁвм в Є®Ґ ЁбЇ®«м§®ў ЁҐ Є« ўЁи ¬®¦® Є®¬ ¤®© CLEAR MACROS.
‚ап¤ «Ё ўл Ўг¤ҐвҐ нв® ¤Ґ« вм. ‚®-ЇҐаўле, гЄ § лҐ § зҐЁп ўҐбм¬
" Євг «мл", ў®-ўв®але, ¤«п ў иЁе б®Ўб⢥ле § 票© ®бв Ґвбп
Ґ¬ «® Є®¬ЎЁ жЁ© Є« ўЁи. Љбв вЁ, Є®¬ ¤ ®в¬ҐпҐв Ё ᤥ« лҐ ў ¬Ё
§ 票п.
Ља®¬Ґ Ї®¤ЇгЄв Macros... (б¬. Ї. 15.1), § зҐЁп ¬®Јгв Ўлвм
ᤥ« л ў Їа®Ја ¬¬Ґ Ё«Ё ў Є®¬ ¤®¬ ®ЄҐ Є®¬ ¤®©
SET FUNCTION <Ќ®¬Ґа Ё«Ё ®Ў®§ 票Ґ Є« ўЁиЁ> TO <‚лаC> .
Ќ ЇаЁ¬Ґа, Є®¬ ¤ SET FUNCTION Shift+F8 TO "DO SimSim;" § ¤ Ґв
§ ЇгбЄ Їа®Ја ¬¬л SimSim Ї® ¦ вЁЁ Є®¬ЎЁ жЁЁ Є« ўЁи Shift+F8. „«п
®в¬Ґл нв®Ј® § 票п 㦮 ¤ вм ®ў®Ґ Ё«Ё ўлЇ®«Ёвм Є®¬ ¤г
SET FUNCTION Shift+F8 TO. ‚ <‚лаC> в®зЄ б § Їпв®© Ё¬ЁвЁагҐв
¦ вЁҐ Enter б 楫мо ўлЇ®«ҐЁп Є®¬ ¤л; ¬®¦® § ЇЁб вм
Ё ҐбЄ®«мЄ® Є®¬ ¤, § Є зЁў п Є ¦¤го § Є®¬ ";".
’ ЄЁ¬ ®Ўа §®¬, Їа®Ја ¬¬Ёбв ¬®¦Ґв ¤®Ї®«Ёвм бЁбвҐ¬л© ЁвҐа䥩б
ўл§®ў®¬ ¬ Єа®б®ў, ®ЎҐбЇҐзЁў п ¬ ЄбЁ¬ «млҐ г¤®Ўбвў Є®ЄаҐв®¬г
ЄагЈг Ї®«м§®ў ⥫Ґ©.
Љ®¬ ¤®© SET FUNCTION Є« ўЁиҐ ¬®¦® б®Ї®бв ўЁвм ҐЄ®в®а®Ґ
§ 票Ґ ¤«п § ¤ Ёп ҐЈ® GET-ЇҐаҐ¬Ґ®©. ’ Є Ї®бвгЇ ов б з бв®
ЁбЇ®«м§гҐ¬л¬Ё § 票ﬨ, ЇаЁ¬Ґа:
SET FUNCTION F8 TO "Џ…Ќ‘€џ" && ‚®§¬®¦ ";" ў Є®жҐ б«®ў
@ 5,9 SAY "“ЉЂ†€’… ‚ ЏЋ‹… Dohod €‘’Ћ—Ќ€Љ „Ћ•Ћ„Ђ: " GET Dohod
READ && Ќ ¦ вЁҐ F8 § ®бЁв б«®ў® "Џ…Ќ‘€џ" ў GET-Ї®«Ґ
–Ёда®ўлҐ бва®ЄЁ ¬®Јгв ЁбЇ®«м§®ў вмбп ¤«п § ¤ Ёп § 票©-зЁбҐ«:
SET FUNCTION Shift+N TO "54782.33"
@ 7,9 GET M DEFAULT 0 && ЏҐаҐ¬Ґ п M ®ЇаҐ¤Ґ«Ґ Є Є зЁб«®ў п
READ && Ќ ¦ вЁҐ Shift+N § ®бЁв з Ё б « ® ў GET-Ї®«Ґ
Ќ § з п Є®¬ЎЁ жЁЁ Є« ўЁи, Ґ § Ўлў ©вҐ ® ⮬, зв® ¬®ЈЁҐ
Ї®¤ЇгЄвл бЁб⥬®Ј® ¬Ґо Ё¬Ґов нЄўЁў «Ґв - Є®¬ЎЁ жЁо Є« ўЁи.
Џаאַ© ўл§®ў Ї®¬®йЁ. Ќ ¦ вЁҐ F1 ба §г ўлў®¤Ёв ў г¦л© а §¤Ґ«
бЇа ў®зЁЄ Ё«Ё ў ᮮ⢥вбвўгойго бва®Єг ҐЈ® ®Ј« ў«ҐЁп, Ґб«Ё
) ¬ аЄҐа ўҐ¤Ґ ЁвҐаҐбгойЁ© ў б Ї®¤ЇгЄв бЁб⥬®Ј® ¬Ґо;
Ў) ў ⥪б⥠ЄвЁў®Ј® ®Є ўл¤Ґ«Ґ ЁвҐаҐбгойЁ© ў б да Ј¬Ґв
(Є®¬ ¤ , дгЄжЁп, бЁб⥬ п гбв ®ўЄ Ё в.¤.). …б«Ё Ї® ¤ ®¬г
да Ј¬Ґвг Ї®¤бЄ §ЄЁ Ґ бгйҐбвўгҐв, ў ®Є® Help ўл¤ Ґвбп б®®ЎйҐЁҐ
"No help found for <ўл¤Ґ«Ґл© да Ј¬Ґв> ".
‚ Ёле б«гз пе ¦ вЁҐ F1 ўл§лў Ґв ®Ј« ў«ҐЁҐ бЇа ў®зЁЄ :
ў ®Є® Help ўл¤ Ґвбп ҐЈ® з «®. ‚ ®Ј« ў«ҐЁЁ § ®ЎйЁ¬Ё ЇгЄв ¬Ё
Ї®¬®йЁ Ё¤гв ЇгЄвл Є®¬ ¤ Ё дгЄжЁ© п§лЄ Ё Їа. ‹Ёбв п ®Ј« ў«ҐЁҐ,
¤® ўҐбвЁ ¬ аЄҐа ваҐЎгҐ¬л© ЇгЄв Ё ¦ вм Enter. ЏаЁ н⮬
®Ј« ў«ҐЁҐ ў ®ЄҐ § ¬ҐпҐвбп Ёд®а¬ жЁҐ© ᮮ⢥вбвўго饣® а §¤Ґ«
(Ґб«Ё ® Ґ г¬Ґй Ґвбп ў ®ЄҐ, ¤«п ¤ «мҐ©иҐЈ® Їа®б¬®ва Їа®«Ёбвлў Ґ¬
бва Ёжл), б«Ґў Ї®пў«повбп гЇа ў«пойЁҐ Є®ЇЄЁ:
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
і < Topics > і і
і < Next > і і
і <Previous> і ‘ Ї а ў ® з п і
і < Look Up> і і
і ДДДДДДДДДД і Ё д ® а ¬ ж Ё п і
і і See Also і і і
і ДДДДДДДДДД і і
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Љ®ЇЄ <Topics> ў®§ўа й Ґв ў ®Ј« ў«ҐЁҐ, Є®ЇЄЁ <Next> Ё <Previous>
®бгйҐбвў«пов ЇҐаҐе®¤ Є б®бҐ¤Ё¬ Ї® ®Ј« ў«ҐЁо а §¤Ґ« ¬, зҐаҐ§ Є®ЇЄг
<See Also> ¬®¦® ЇҐаҐ©вЁ ў а §¤Ґ«л, бўп§ лҐ б ¤ л¬ Ї® б¬лб«г.
Љ®ЇЄ <Look Up> бв ®ўЁвбп ¤®бвгЇ®©, Ґб«Ё ў бЇа ў®з®© Ёд®а¬ жЁЁ
ўл¤Ґ«Ґ да Ј¬Ґв ¤«п ®зҐаҐ¤®© бЇа ўЄЁ. ‚Їа®зҐ¬, Ґ®Ўе®¤Ё¬®бвЁ ў
Є®ЇЄҐ Ґв: ў¬Ґбв® <Look Up> ¬®¦® ¦ вм F1 Ё Ї®«гзЁвм бЇа ўЄг Ї®
ўл¤Ґ«Ґ®¬г да Ј¬Ґвг.
Љ®ЇЁа®ў ЁҐ бЇа ў®з®© Ёд®а¬ жЁЁ. Џ®бЄ®«мЄг । Єв®а ⥪бв®ў
Ї®¤Є«озҐ Є ®Єг Help, ¬®¦® ўл¤Ґ«пвм Ё Є®ЇЁа®ў вм «оЎлҐ да Ј¬Ґвл
⥪бв Ї®¤бЄ §ЄЁ, ўЄ«оз п ЇаЁ¬Ґал. Џа®¤Ґ« Ґ¬ нв® ЇаЁ¬ҐаҐ Є®¬ ¤л
APPEND FROM.
ЏаЁ¬Ґа 15.2.
‚л§ў ў Ї®¤бЄ §Єг, ўл¤Ґ«Ё¬ ⥪бв ЇаЁ¬Ґа ў ®ЄҐ Help Ё ¦¬Ґ¬ Ctrl+C,
зв®Ўл бпвм Є®ЇЁо. ‡ ⥬ ®вЄа®Ґ¬ ®Є® ¤«п ®ў®Ј® .PRG-д ©« (Ї®¤ЇгЄв
New Ї®¤¬Ґо File) Ё Є« ўЁи ¬Ё Ctrl+V ЇҐаҐҐбҐ¬ ЇаЁ¬Ґа ў ҐЈ®. Ќ ¦Ё¬ п
Ctrl+W, ўлЇ®«Ё¬ § Ї®¬Ё ЁҐ, ЇаЁ н⮬ Ї®вॡгҐвбп ў ᮮ⢥вбвўго饩
бва®ЄҐ ¤ вм .PRG-д ©«г Ё¬п. ’ҐЇҐам ¬®¦® ўлЇ®«пвм Їа®Ја ¬¬г ЇаЁ¬Ґа ,
ЇаҐ¤ў аЁвҐ«м® ᮧ¤ ў ЁбЇ®«м§гҐ¬лҐ ў Ґ¬ Ў §л ¤ ле.
‡ ¤ ЁҐ 15.2. 1. ЋбгйҐб⢨⥠ќ‚Њ ¤Ґ©бвўЁп, ®ЇЁб лҐ ў
ЇаЁ¬ҐаҐ 15.2, Ё ўлЇ®«ЁвҐ Їа®Ја ¬¬г б ЁбЄгбб⢥묨 ¤ л¬Ё.
2. Ќ § зм⥠Є« ўЁиҐ F8 Є®¬ ¤г CLOSE DATABASES ("‡ЂЉђ›’њ Ѓ„").
15.3. ђ Ў®в Ґ¬ ў Є®¬ ¤®¬ ®ЄҐ
„Ґ©бвўЁп зҐаҐ§ бЁб⥬®Ґ ¬Ґо 室пв ®ва ¦ҐЁҐ ў Є®¬ ¤®¬
®ЄҐ. ЏаЁ ¤«ЁвҐ«м®© а Ў®вҐ ў®§ЁЄ Ґв Ў®«ми®© бЇЁб®Є Є®¬ ¤,
ўЄ«оз ойЁ© Є®¬ ¤л Help, Ґб«Ё ўл ®Ўа й «Ёбм § Ї®¤бЄ §Є®©. ‚
ЇаЁжЁЇҐ нв®в бЇЁб®Є пў«пҐвбп Ё§Ўлв®з®© Їа®Ја ¬¬®©, Ї®бЄ®«мЄг ўл
¬®Ј«Ё Ї®Ї ¤ вм ў "вгЇЁЄ®ўлҐ" бЁвг жЁЁ, Ї®ўв®апвм ¤Ґ©бвўЁп Ё§-§
б¬лб«®ўле ®иЁЎ®Є. Ќ Ї®¬Ё Ґ¬, зв® Ї®¤ЇгЄв ¬Ґо ¤®бвгЇҐ, в®«мЄ®
Ґб«Ё ᮧ¤ л ¤«Ґ¦ йЁҐ гб«®ўЁп ¤Ґ©бвўЁп. ЋиЁЎ®злҐ (ЁбЄ ¦ҐлҐ ў ¬Ё)
§ ЇЁбЁ Є®¬ ¤ в Є¦Ґ ®бв овбп ў ®ЄҐ. ’Ґ¬ Ґ ¬ҐҐҐ, ¤«п зЁ о饣®
Їа®Ја ¬¬Ёбв ў®§¬®¦®бвм ᮧ¤ Ёп з б⥩ Їа®Ја ¬¬л ЎҐ§ Ёе ЇЁб Ёп
Ўг¬ ЈҐ, ЇаЁзҐ¬ б ўв®¬ вЁзҐбЄ®© Їа®ўҐаЄ®© ॠ«Ё§гҐ¬®бвЁ ¤Ґ©бвўЁ©,
ЇаЁў«ҐЄ ⥫м , ЁЎ® ЇаЁ н⮬ ¬®¦® Ё§ЎҐ¦ вм Ё ¬Ґ«ЄЁе, ® ¤®б ¤ле
Ґв®з®б⥩, Ё Їа®ЇгбЄ®ў Є®¬ ¤.
„Ґ©бвўЁп зҐаҐ§ ¬Ґо ¬®¦® ЇҐаҐ¬Ґ¦ вм ўлЇ®«ҐЁҐ¬ Є®¬ ¤,
ҐЇ®б।б⢥® § ЇЁблў Ґ¬ле Ё«Ё ў®бЇа®Ё§ў®¤Ё¬ле ў ®ЄҐ. …б«Ё
Ґ®Ўе®¤Ё¬ п Є®¬ ¤ 㦥 Ґбвм ў бЇЁбЄҐ, ¤®бв в®з® Ї®¤ўҐбвЁ Є Ґ©
Єгаб®а Ё ¦ вм Enter. ‚лЇ®«ЁўиЁбм, нв Є®¬ ¤ ¤®Ў ўЁвбп ў Є®Ґж
бЇЁбЄ (ЇаҐ¦пп § ЇЁбм ҐҐ б®еа Ёвбп). …б«Ё Є®¬ ¤ Ґ¬®Ј®
®в«Ёз Ґвбп ®в Ё¬Ґо饩бп, ᤥ« ©вҐ ў Ї®б«Ґ¤Ґ© Ё§¬ҐҐЁп Ё ¦¬ЁвҐ
Enter. €§¬ҐҐ п Є®¬ ¤ , ўлЇ®«ЁўиЁбм, ¤®Ў ўЁвбп ў Є®Ґж бЇЁбЄ ,
ЇаҐ¦пп - ў®ббв ®ўЁв бў®© ўЁ¤.
…б«Ё ўл ¬ҐаҐл ЇаҐўа вЁвм бЇЁб®Є ў Їа®Ја ¬¬г, ўҐ¤ЁвҐ гзҐв
Є®¬ ¤, ®Є § ўиЁебп Ґг¦л¬Ё. Љ®Ј¤ Їа®жҐбб ®Ўа Ў®вЄЁ д ©«®ў (Ў §
¤ ле) ў ¬Ё ®в« ¦Ґ, ЇаҐўа вЁвҐ бЇЁб®Є ў Ў«®Є ⥪бв (Ctrl+A),
§ ҐбЁвҐ ҐЈ® ў Є а¬ (Ctrl+C), ᮧ¤ ©вҐ ®ўл© .PRG-д ©« Ё ЇҐаҐ¤ ©вҐ
ў ҐЈ® ᮤҐа¦Ё¬®Ґ Є а¬ (Ctrl+V). ’ Є ᮧ¤ ов «ЁҐ©лҐ з бвЁ Їа®Ја ¬¬л.
’ҐЇҐам ¬®¦® ЇаЁбвгЇ вм Є ҐҐ । ЄвЁа®ў Ёо, гЎа вм «ЁиҐҐ,
¤®Ў ўЁвм Ґ¤®бв о饥, ЇаЁ¬Ґа, ®аЈ Ё§®ў вм жЁЄ«л, ўҐвў«ҐЁп.
—в®Ўл ०Ґ ЁбЇ®«м§®ў вм бвагЄвгал IF, ॠ«Ё§г©вҐ ўҐвўЁ Є Є дгЄжЁЁ
Ї®«м§®ў ⥫п, гЄ §лў Ґ¬лҐ ў дгЄжЁЁ Iif. ќвЁ дгЄжЁЁ ¬®¦® ᮧ¤ вм
Є Є ®в¤Ґ«млҐ д ©«л Ё б Ї®¬®ймо । Єв®а ўЄ«озЁвм Ёе ў ®б®ў®©
.PRG-д ©«.
ЏҐаҐе®¤п Є ўлЇ®«ҐЁо Їа®Ја ¬¬л, § Єа®©вҐ Ѓ„, ®вЄалвлҐ ЇаЁ
а Ў®вҐ ў Є®¬ ¤®¬ ®ЄҐ. „«п нв®Ј® ¬®¦® ЁбЇ®«м§®ў вм, ЇаЁ¬Ґа
F8, ЇаҐ¤ў аЁвҐ«м® § зЁў Ґ© Є®¬ ¤г CLOSE DATABASES.
…б«Ё Є®¬ ¤®Ґ ®Є® ЇҐаҐЄалў Ґв १г«мв вл ўлЇ®«ҐЁп Є®¬ ¤,
ҐЈ® ¬®¦® бЄалвм б Ї®¬®ймо Ї®¤ЇгЄв Hide Ї®¤¬Ґо Window. „«п
ў®ббв ®ў«ҐЁп ®Є ЇаЁ¬Ґп©вҐ Ї®¤ЇгЄв Command нв®Ј® ¦Ґ Ї®¤¬Ґо.
‡ ¤ ЁҐ 15.3. ‘®§¤ ©вҐ Ё Ї®«ЁвҐ 2 ҐЎ®«миЁҐ Ѓ„ б ®¤Ё Є®ў®©
бвагЄвга®©, ®вЄа®©вҐ ®¤г Ё§ Ёе Ё зҐаҐ§ ¬Ґо ўлЇ®«ЁвҐ б Ґо
а §®®Ўа §лҐ ¤Ґ©бвўЁп: ўлў®¤ (LIST), Ё¤ҐЄбЁа®ў ЁҐ, б®авЁа®ўЄг,
ўлў®¤ гЇ®а冷祮© Ѓ„, ¤®Ў ў«ҐЁҐ ў Ѓ„ § ЇЁбҐ© Ё§ ¤агЈ®© Ѓ„,
Ї®¬ҐвЄг § ЇЁбҐ© г¤ «ҐЁҐ (Ї® ҐЄ®в®а®¬г гб«®ўЁо), гЇ Є®ўЄг,
§ ¬Ґг § 票© Ї®«п ( ЇаЁ¬Ґа, гбҐзҐЁҐ бва®Є-§ 票©), ўлў®¤
®Є®з ⥫쮣® ᮤҐа¦ Ёп Ѓ„. ЏаҐўа вЁвҐ Ї®«гзҐл© бЇЁб®Є Є®¬ ¤
ў Їа®Ја ¬¬г Ё ўлЇ®«ЁвҐ ҐҐ, зв®Ўл гЎҐ¤Ёвмбп ў ҐҐ ЇаЁЈ®¤®бвЁ.
15.4. Ћб®ЎҐ®бвЁ Ў«®зле Ё ¬®Ј®д ©«®ўле Їа®Ја ¬¬
Џа®Ја ¬¬ ¬®¦Ґв Ўлвм ЇаҐ¤бв ў«Ґ ҐбЄ®«мЄЁ¬Ё .PRG-д ©« ¬Ё.
Ћ¤Ё Ё§ Ёе, ᮤҐа¦ йЁ© Ј« ўл© Ў«®Є, §®ўҐ¬ ®б®ўл¬. ‚ Є ¦¤®¬
.PRG-д ©«Ґ ¬®¦Ґв Ўлвм ҐбЄ®«мЄ® Ў«®Є®ў. …б«Ё Ј« ўл© Ў«®Є Ґ
ЇҐаўл© ў д ©«Ґ, Ґ®Ўе®¤Ё¬ § Ј®«®ў®Є Ј« ў®Ј® Ў«®Є :
PROCEDURE <€¬п ®б®ў®Ј® .PRG-д ©« > .
„«п ўл§®ў । Єв®а б 楫мо Ў®а Ё«Ё Ё§¬ҐҐЁп ⥪бв
.PRG-д ©« (б¬. Ї. 15.1) Ё ®вЄалвЁп ᮮ⢥вбвўго饣® ®Є ЁбЇ®«м§гов
Є®¬ ¤г MODIFY COMMAND <€¬п .PRG-д ©« Ё«Ё ¬ бЄ >.
Њ бЄг § ¤ ов, Ґб«Ё § Ўл«Ё в®з®Ґ Ё¬п । ЄвЁа㥬®Ј® д ©« .
‚ н⮬ б«гз Ґ ®вЄалў Ґвбп ®Є® ¤«п Є ¦¤®Ј® Ё¬Ґо饣®бп .PRG-д ©« б
ᮮ⢥вбвўгойЁ¬ ¬ бЄҐ Ё¬ҐҐ¬. ‚ ०Ё¬Ґ "®ЎҐЈ Ёп" ®Є® (Ctrl+F1)
ўл ®Ї®§ ҐвҐ г¦л© д ©« Ё г¤ «пҐвҐ Їа®зЁҐ ®Є Є« ўЁиҐ© Esc.
€¬п Ё ¬ бЄг ¬®¦® Ґ гЄ §лў вм, в®Ј¤ ®вЄалўиҐҐбп Їгб⮥ ®Є®
Ї®«гз Ґв Ё¬п Untitled, ЇаЁ б®еа ҐЁЁ ⥪бв ®Є (Ctrl+W) ЇаЁ¤Ґвбп
¤ вм .PRG-д ©«г Ё¬п.
Ћб®ЎҐ®бвЁ ¬®Ј®д ©«®ўле Їа®Ја ¬¬. Ѓ«®злҐ Їа®Ја ¬¬л а бᬮваҐл
ў Ї. 1.11. ‘в аиЁ¬ §лў ов Ў«®Є, Їаאַ Ё«Ё Є®бўҐ® ўл§лў ойЁ©
¤агЈ®© (¬« ¤иЁ©) Ў«®Є, Ё¬ҐгҐ¬л© Ї®¤Ў«®Є®¬. —в®Ўл Їа ўЁ«м®
®аЈ Ё§®ў вм Ў«®зго Їа®Ја ¬¬г, ¤® § вм, Є Є бЁб⥬ ЁйҐв Ї®¤Ў«®Є
ў .PRG-д ©« е. ‘ з « Ё¤Ґв Ї®ЁбЄ ўгв॥Ј® Ў«®Є б ¤ л¬ Ё¬ҐҐ¬,
в.Ґ. Ї®ЁбЄ ў ⮬ д ©«Ґ, Ј¤Ґ § ЇЁб ўл§лў ойЁ© Ў«®Є. …б«Ё Ї®¤Ў«®Є Ґ
©¤Ґ, Ї®ЁбЄ Їа®¤®«¦ Ґвбп ў Їа®жҐ¤г஬ д ©«Ґ (Ґб«Ё ® Ї®¤Є«озҐ).
„ «ҐҐ Їа®б¬ ваЁў овбп .PRG-д ©«л б® бв аиЁ¬Ё Ў«®Є ¬Ё ў ®зҐаҐ¤®бвЁ,
®Ўа в®© ®зҐаҐ¤®бвЁ ўл§®ў®ў Ў«®Є®ў: Їа®ўҐаповбп ўгв२Ґ Ў«®ЄЁ.
Ќ Є®Ґж, а §лбЄЁў Ґвбп ®в¤Ґ«мл© д ©«, ®Ў®§ зҐл© Ё¬ҐҐ¬ ЁбЄ®¬®Ј®
Ї®¤Ў«®Є , Ё «Ёим Ї®б«Ґ нв®Ј® (Ґб«Ё Ї®¤Ў«®Є Ґ ©¤Ґ) б®®Ўй Ґвбп ®Ў
®иЁЎЄҐ. Ѓ«®ЄЁ, еа Ё¬лҐ ў а §ле д ©« е, ¬®Јгв Ё¬Ґвм ®¤Ё Є®ўлҐ
Ё¬Ґ , ®¤ Є® гЄ § л© ўлиҐ Ї®а冷Є Ї®ЁбЄ ЁбЄ«оз Ґв Ґ®¤®§ з®бвм.
•®вп Їа®жҐ¤гале д ©«®ў (б¬. Ї. 1.11) ¬®¦Ґв Ўлвм ҐбЄ®«мЄ®, ў
«оЎ®© ¬®¬Ґв Ї®¤Є«озҐ «Ёим ®¤Ё. Џ®¤Є«о票Ґ ®ў®Ј® д ©« ўв®¬ вЁзҐбЄЁ
®вЄ«оз Ґв ЇаҐ¤л¤гйЁ©. Ѓ«®Є ¬®¦Ґв Ґ Ё¬Ґвм Ї а ¬Ґва®ў, ® Ґб«Ё ®Ё Ґбвм,
Є®¬ ¤ PARAMETERS ¤®«¦ Ўлвм ЇҐаў®© Ї®б«Ґ ҐЈ® § Ј®«®ўЄ (ЇҐаў®©, Ґб«Ё
Ґв § Ј®«®ўЄ Ў«®Є ).
ЏаЁ¬Ґа 15.3. Џа®Ја ¬¬ Ё§ 3 д ©«®ў. „Ґ©бвўЁп Ў«®Є®ў Ґ Ї®Є § л.
*Ћб®ў®© д ©« Glav б 3 Ў«®Є ¬Ё і*Џа®жҐ¤гал© д ©« Prcd б 2 Ў«®Є ¬Ё
*ѓ« ўл© Ў«®Є ўл§лў Ґв і FUNCTION F2 && Ѓ«®Є-дгЄжЁп
*Ў«®ЄЁ F,F1,P1,F2,P2 і PARAMETERS E
SET PROCEDURE TO Prcd і . . . && ’Ґ«® дгЄжЁЁ
. . . && ’ҐЄбв Ў«®Є б ўл§®ў ¬Ёі RETURN G
SET PROCEDURE TO і PROCEDURE P2 && Ѓ«®Є-Їа®жҐ¤га
FUNCTION F1 && ‚гв२© Ў«®Є і PARAMETERS X,Y
PARAMETERS A,B і . . . && ’Ґ«® Їа®жҐ¤гал
. . . && ’Ґ«® дгЄжЁЁ і
RETURN R і*” ©« б Ё¬ҐҐ¬ F (Ё¬п дгЄжЁЁ)
PROCEDURE P1 && ‚гв२© Ў«®Є і PARAMETERS S && Ѓ«®Є ЎҐ§ § Ј®«®ўЄ
PARAMETERS C,D і . . . && ’Ґ«® Ў«®Є F
. . . && ’Ґ«® Їа®жҐ¤гал і RETURN Z && Љ®Ґж Ў«®Є F
*Љ®Ґж ®б®ў®Ј® .PRG-д ©« і PROCEDURE P3 && ‚гв२© Ў«®Є
і . . . && ’Ґ«® Ў«®Є P3
і FUNCTION F3 && ‚гв२© Ў«®Є
і . . . && ’Ґ«® Ў«®Є F3
‚гваҐпп дгЄжЁп F3 Ґ¤®бвгЇ ¤«п ®Ўа 饨©, Ё¤гйЁе Ё§
д ©«®ў Glav, Prcd, ® ўгв२Ґ Ў«®ЄЁ F1,P1 ¤®бвгЇл ¤«п ®Ўа 饨©
Ё§ д ©«®ў F, Prcd, Ї®бЄ®«мЄг б Ё¬Ё ў ®¤®¬ д ©«Ґ 室Ёвбп бв аиЁ©
Ў«®Є. ЋЎа 饨Ґ Є ўгв॥© Їа®жҐ¤гॠP3 Ё§ д ©«®ў Glav, Prcd
бв ®ўЁвбп ў®§¬®¦л¬, Ґб«Ё ў Є®жҐ ®Ўа 饨п гЄ § вм д ©« ҐҐ
¬Ґб⮠宦¤ҐЁп (б¬. Ё¦Ґ). ЋЎа й вмбп Є Ў«®Є ¬ F2,P2 д ©« Prcd
Ё§ д ©« F ¬®¦®, Ї®бЄ®«мЄг г б Їа®жҐ¤гал© д ©« ®вЄ«оз Ґвбп Є®¬ ¤®©
SET PROCEDURE TO «Ёим ў б ¬®¬ Є®жҐ а Ў®вл Їа®Ја ¬¬л.
ЋЎа 饨Ґ Є Їа®жҐ¤га ¬ ўлЇ®«пҐвбп Є®¬ ¤®©
DO <€¬п> WITH <‘ЇЁб®Є д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў> IN <€¬п.PRG-д ©« >,
Ј¤Ґ <€¬п> ®Ў®§ з Ґв .EXE-, .APP- Ё«Ё .FXP-д ©« «ЁЎ® Ў«®Є ў .PRG-д ©«Ґ.
‚ ¤ ®© Ї®б«Ґ¤®ў ⥫м®бвЁ Ё ўлЇ®«пҐвбп Ї®ЁбЄ Їа®жҐ¤гал. Ќ ЇаЁ¬Ґа,
Ґб«Ё ©¤Ґ .EXE-д ©« б Ё¬ҐҐ¬ Їа®жҐ¤гал, в® Є Ґ¬г Ё Їа®Ё§ў®¤Ёвбп
®Ўа 饨Ґ, Ґ§ ўЁбЁ¬® ®в бгйҐбвў®ў Ёп ®¤®Ё¬Ґле .APP- Ё .FXP-д ©«®ў.
ЏаЁ ®Ўа 饨Ё Є ўгв॥© Їа®жҐ¤гॠ.PRG-д ©« Ё§ўҐ ҐЈ® гЄ §лў ов
Ї®б«Ґ б«®ў IN: нв® Ј а вЁагҐв ¤®бвгЇ Є Ґ©. ЋЎа 饨Ґ Є Їа®жҐ¤гॠP3
(ЇаЁ¬Ґа 15.3) Ё§ Ј« ў®Ј® Ў«®Є ¤®«¦® Ё¬Ґвм ўЁ¤ DO P3 IN F
(¤ п Їа®жҐ¤га ЎҐ§ Ї а ¬Ґва®ў).
Џа®жҐ¤га § Є зЁў Ґв а Ў®вг ЇаЁ ўлЇ®«ҐЁЁ Є®¬ ¤
RETURN - ў®§ўа в ў ўл§лў ойЁ© Ў«®Є (б¬. Ё¦Ґ ў аЁ вл RETURN);
CANCEL - ўл室 ў Є®¬ ¤®Ґ ®Є®;
QUIT - ўл室 Ё§ FOXPRO ў DOS
Ё«Ё ЇаЁ ўлЇ®«ҐЁЁ Ё®© Ї®б«Ґ¤Ґ© ў ҐҐ ⥪б⥠Є®¬ ¤л. ‚ Ї®б«Ґ¤Ґ¬
б«гз Ґ Їа®Ёб室Ёв ў®§ўа в ў ўл§лў ойЁ© Ў«®Є, Ґб«Ё в ЄЁ¬ ®Ўа §®¬
§ ўҐаи Ґвбп Ј« ўл© Ў«®Є, ўлЇ®«пҐвбп ЇҐаҐе®¤ ў Є®¬ ¤®Ґ ®Є®.
Љ®¬ ¤ RETURN TO MASTER ॠ«Ё§гҐв Їаאַ© ў®§ўа в ў Ј« ўл©
Ў«®Є, RETURN TO <€¬п Ў«®Є > - ў бв аиЁ© Ў«®Є б гЄ § л¬ Ё¬ҐҐ¬.
Љ Є ®Ўлз®, ў®§ўа в Їа®Ёб室Ёв Є Є®¬ ¤Ґ, б«Ґ¤го饩 § ®Ўа 饨Ґ¬
Є § ўҐа訢襩бп Їа®жҐ¤гаҐ. ђҐ¤Є® ЇаЁ¬ҐпҐ¬ п Є®¬ ¤ RETRY
ў®§ўа й Ґв б ¬® нв® ®Ўа 饨Ґ. Ћ Ї®§ў®«пҐв ўҐбвЁ Їа®жҐбб
Ї®б«Ґ¤®ў ⥫мле ЇаЁЎ«Ё¦ҐЁ© Є १г«мв вг: Є Є®¬-в® и ЈҐ
ЁбЇ®«м§®ў Ёп Їа®жҐ¤га ®жҐЁў Ґв १г«мв в Є Є ®Є®з ⥫мл© Ё
ў¬Ґбв® RETRY ЁбЇ®«м§гҐв § ЇЁб го ў Ґ© Є®¬ ¤г RETURN.
€бЇ®«м§®ў ЁҐ Ї а ¬Ґва®ў. ‚ᥠЇҐаҐ¬ҐлҐ, гз бвўгойЁҐ ў
бЇЁбЄҐ д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў, ў ⮬ зЁб«Ґ ®Ў®§ з ойЁҐ १г«мв вл,
¤®«¦л Ўлвм ЁЁжЁ «Ё§Ёа®ў л. PUBLIC-ЇҐаҐ¬ҐлҐ Ё¬Ґов § зҐЁп Ї®
㬮«з Ёо (.F.), PRIVATE-ЇҐаҐ¬ҐлҐ ¤®«¦л Ї®«гзЁвм § 票п б
Ї®¬®ймо Є®¬ ¤. —Ёб«® д®а¬ «мле Ї а ¬Ґва®ў (Ёе бЇЁб®Є - ў Є®¬ ¤Ґ
PARAMETERS) Ґ ¤®«¦® Ўлвм ¬ҐмиҐ зЁб« д ЄвЁзҐбЄЁе. €§Ўлв®злҐ
д®а¬ «млҐ Ї а ¬Ґвал Ї®«гз ов § 票Ґ .F..
Њл Ўг¤Ґ¬ ¬ҐаҐ® ¤®Ў ў«пвм ў Є®¬ ¤г Ё¬Ґ PRIVATE-ЇҐаҐ¬Ґле
Ў«®Є , Ё§л¬ п Є®¬ ¤г PRIVATE ¤«п нЄ®®¬ЁЁ ¬Ґбв . ‚гваЁ Їа®жҐ¤гал
зЁб«® ЇҐаҐ¤ ле Ї а ¬Ґва®ў ¤ Ґв дгЄжЁп PARAMETERS().
Џ а ¬Ґвал, Єа®¬Ґ ўла ¦ҐЁ©, ЇҐаҐ¤ овбп Ї® ббл«ЄҐ. ЏҐаҐ¬Ґго
¬®¦® ЇҐаҐ¤ вм Ї® § 票о, § Є«оз п ҐҐ ў бЄ®ЎЄЁ (ЁбЄгбб⢥®Ґ
ўла ¦ҐЁҐ), ЇаЁ¬Ґа:
DO Pr WITH (A),B && B ЇҐаҐ¤ Ґвбп Ї® ббл«ЄҐ, A - Ї® § 票о .
‘®®вўҐвбвўЁҐ д ЄвЁзҐбЄЁе Ё д®а¬ «мле Ї а ¬Ґва®ў
гбв ў«Ёў Ґвбп Ї® Ї®ап¤Єг б«Ґ¤®ў Ёп, Ї®н⮬㠨§Ўлв®зл¬Ё ¬®Јгв
Ўлвм «Ёим Ї®б«Ґ¤ЁҐ д®а¬ «млҐ Ї а ¬Ґвал. Ќг¦® б«Ґ¤Ёвм §
б®ўЇ ¤ҐЁҐ¬ вЁЇ®ў ᮮ⢥вбвўгойЁе Ї а ¬Ґва®ў.
ЏаЁ¬Ґа 15.4. Џа®жҐ¤га P ўлў®¤Ёв ў бва®ЄҐ R, зЁ п б
Є®«®ЄЁ C, б®®ЎйҐЁҐ Sob, гЄ § ®Ґ Ї®«м§®ў ⥫Ґ¬ (б¬. ЇаЁ¬Ґа 4.8).
PROCEDURE P
PARAM R,C,Sob,N && N - Ґ Ї а ¬Ґва, ¬Ґбв п ЇҐаҐ¬Ґ п,
N=Parameters() && ЇаҐ¤бв ў«пой п зЁб«® ЇҐаҐ¤ ле Ї а ¬Ґва®ў
R=Iif(N=0,24,R) && „ п Ё б«Ґ¤гойЁҐ 2 бва®ЄЁ § ¤ ов
C=Iif(N<2,0,C) && Їа ўЁ« 㬮«з Ёп
Sob=Iif(N=3,Sob,"Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п Їа®¤®«¦ҐЁп")
@ R,C SAY Sob
=Inkey(0) && ‡ ¤Ґа¦Є б®®ЎйҐЁп нЄа Ґ
‚ ®вбгвбвўЁҐ ўбҐе 3 Ї а ¬Ґва®ў ў 24-© бва®ЄҐ нЄа ўлў®¤Ёвбп
бв ¤ а⮥ б®®ЎйҐЁҐ "Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п Їа®¤®«¦ҐЁп".
„«п гЇа®йҐЁп Їа®Ја ¬¬л б®еа ҐЁҐ/ў®ббв ®ў«ҐЁҐ нЄа ў Ґ© Ґ
ЇаҐ¤гᬮв८.
”гЄжЁЁ Ї®«м§®ў ⥫п. ђ бᬮваЁ¬ «Ёим ®в«ЁзЁп ®в Їа®жҐ¤га,
ЁбЄ«оз п ®зҐўЁ¤лҐ. €бЇ®«м§гҐвбп ®ЎйҐЇаЁпв п д®а¬ ®Ўа 饨п:
<€¬п дгЄжЁЁ> ( <‘ЇЁб®Є д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў> ) .
‘ЇЁб®Є ¬®¦Ґв Ўлвм Їгбвл¬, ® бЄ®ЎЄЁ ®ЇгбЄ вм Ґ«м§п. ќв § ЇЁбм
Ґ пў«пҐвбп ЇаҐ¤«®¦ҐЁҐ¬, б«Ґ¤гҐв ¤®Ў ўЁвм е®вп Ўл "=" б«Ґў .
…б«Ё ®Ўа й вмбп Є дгЄжЁЁ Є®¬ ¤®© DO, ў®§ўа й Ґ¬®Ґ Ґо § 票Ґ
вҐапҐвбп. ’®Ј¤ ў®§ЁЄ Ґв ў®Їа®б: Ї®зҐ¬г ў ¤ ®¬ б«гз Ґ
ЁбЇ®«м§гҐвбп д®а¬ дгЄжЁЁ, Ґ д®а¬ Їа®жҐ¤гал?
Џ® 㬮«з Ёо (RETURN ®Їг饮 Ё«Ё ў Ґ¬ Ґв ўла ¦ҐЁп) дгЄжЁп
ў®§ўа й Ґв .T.. ‡ Ј®«®ў®Є дгЄжЁЁ Ґ ®Ўп§ ⥫Ґ, Ґб«Ё ® ЇҐаўл©
(Ё«Ё Ґ¤Ёб⢥л©) Ў«®Є ў д ©«Ґ (б¬. ЇаЁ¬Ґа 15.3, дгЄжЁп F ў з «Ґ
д ©« F).
‚ᥠЇ а ¬Ґвал (ў ⮬ зЁб«Ґ Ё ¬ ббЁўл) ЇҐаҐ¤ овбп ў дгЄжЁо Ї®
§ 票о, ⥬ б ¬л¬ д ЄвЁзҐбЄЁҐ Ї а ¬Ґвал § йЁй овбп ®в Ё§¬ҐҐЁ©
ў ҐҐ ⥫Ґ. ‘«Ґ¤бвўЁҐ: ўгваЁ дгЄжЁЁ ¤®«¦ Ўлвм ®ЇЁб Є®ЇЁп
¬ ббЁў - д ЄвЁзҐбЄ®Ј® Ї а ¬Ґва (ЊдЄ); Їа®Ёб室пйЁҐ ў Ґ© Ё§¬ҐҐЁп
ЁЄ Є Ґ бЄ ¦гвбп ЊдЄ. ‘Ї®б®Ў ЇҐаҐ¤ зЁ ЇҐаҐ¬Ґле Ё ¬ ббЁў®ў
¬®¦® Ё§¬ҐЁвм, ® в®«мЄ® ¤«п ўбҐе Ї а ¬Ґва®ў ба §г. “бв ў«Ёў Ґв
ҐЈ® Є®¬ ¤ SET UDFPARMS <‘Ї®б®Ў>,
Ј¤Ґ <‘Ї®б®Ў> - нв® VALUE ("§ 票Ґ") Ё«Ё REFERENCE ("ббл«Є ").
Љ®¬ ¤г SET UDFPARMS REFERENCE ЇаЁ¬Ґпов, Ґб«Ё Єа®¬Ґ Ј« ў®Ј® § 票п
дгЄжЁЁ 㦮 ў®§ўа й вм Ї®Ў®злҐ аҐ§г«мв вл - зҐаҐ§ Ї а ¬Ґвал.
ЏаЁ¬Ґа 15.5. ”гЄжЁп F, ўлзЁб«пой п б㬬㠡᮫овле ўҐ«ЁзЁ
н«Ґ¬Ґв®ў Єў ¤а в®© ¬ ваЁжл A, Є ⮬㠦Ґ § ¬ҐпҐв н«Ґ¬Ґвл Ёе
Ўб®«овл¬Ё § 票ﬨ.
DECLARE A[2,2] && „«п Є®ва®«м®Ј® ЇаЁ¬Ґа ў§пв ¬ ваЁж 2е2
SET TALK OFF && ‚лЄ«оз Ґ¬ ®вЄ«ЁЄЁ бЁб⥬л, ¬Ґи ойЁҐ ®Ў§®аг нЄа
A = -1 && ‡ Ї®«пҐ¬ ¬ ваЁжг § 票ﬨ -1
SET UDFPARMS REFERENCE && Ќ § з Ґ¬ ббл«®зл© бЇ®б®Ў
? "S =", F(A,2) && ‚лў®¤Ё¬ б㬬㠡᮫овле § 票©
SET UDFPARMS VALUE && ‚®ббв ў«Ёў Ґ¬ бЇ®б®Ў Ї® 㬮«з Ёо
? A[1,1], A[1,2] && Љ®ва®«мл© ўлў®¤ 1-© бва®ЄЁ ¬ ваЁжл
? A[2,1], A[2,2] && Љ®ва®«мл© ўлў®¤ 2-© бва®ЄЁ ¬ ваЁжл
FUNCTION F
PARAMETERS A,N,S,I,J,T && S,I,J,T - Ґ Ї а ¬Ґвал
S=0
FOR I = 1 TO N
FOR J = 1 TO N
T = ABS(A[I,J])
S = S + T
A[I,J] = T
ENDFOR
ENDFOR
RETURN S
‘«Ґ¤гҐв, Є Є ў 襬 ЇаЁ¬ҐаҐ, Ї®б«Ґ ®Ўа йҐЁп Є дгЄжЁЁ
ў®ббв ў«Ёў вм бЇ®б®Ў ЇҐаҐ¤ зЁ, ЇаЁпвл© Ї® 㬮«з Ёо, Ґб«Ё в®«мЄ®
ббл«®зл© бЇ®б®Ў Ґ ЁбЇ®«м§гҐвбп ў ¬®¦Ґб⢥ ®Ўа 饨© Є дгЄжЁп¬.
‡ ¤ ЁҐ 15.4. ђҐ «Ё§г©вҐ ќ‚Њ ЇаЁ¬Ґа 15.5, Ё§кпў Є®¬ ¤л
SET UDFPARMS. ‚ ¬ ЇаЁ¤Ґвбп ¤®Ў ўЁвм ў дгЄжЁо F ®ЇЁб ЁҐ ¬ ббЁў A
(Є®ЇЁЁ д ЄвЁзҐбЄ®Ј®) - Ї®б«Ґ Є®¬ ¤л PARAMETERS. “ЎҐ¤ЁвҐбм, зв®
ў н⮬ ў ਠ⥠Є®ва®«мл© ўлў®¤ Ї®Є §лў Ґв ҐЁ§¬Ґ®бвм Ёб室®©
¬ ваЁжл.
15.5. ђ Ў®в Ґ¬ б ¬ ббЁў ¬Ё
‚ FOXPRO ¤®ЇгбвЁ¬л «Ёим ®¤®¬ҐалҐ Ё ¤ўг¬ҐалҐ ¬ ббЁўл.
€бе®¤лҐ бўҐ¤ҐЁп ® ¬ ббЁў е ¤ л ў ЇЇ. 1.7, 1.12. ‡¤Ґбм ¬л
а бᬮваЁ¬ Ёе ®б®ЎҐ®бвЁ Ё ЇаЁ¬Ґал. Ќ 祬 б в®Ј®, зв® ЇаЁ Ї®пў«ҐЁЁ
®ЇЁб Ёп ¬ ббЁў ўбҐ ҐЈ® н«Ґ¬Ґвл Ї®«гз ов § 票Ґ .F.. ‚ ¤ «мҐ©иҐ¬
®Ё ¬®Јгв ЇаЁ®ЎаҐв вм § зҐЁп ¤агЈ®Ј®, Ґ ®Ўп§ вҐ«м® ®¤Ё Є®ў®Ј® вЁЇ .
‚¬Ґбв® Єў ¤а вле бЄ®Ў®Є ў ®ЇЁб ЁЁ ¬ ббЁў Ё ®Ў®§ 票Ё н«Ґ¬Ґв®ў
¬®¦® ЁбЇ®«м§®ў вм ЄагЈ«лҐ. Њ ббЁў ¬®¦Ґв Ё¬Ґвм ¤® 3600 н«Ґ¬Ґв®ў.
Њ ЄбЁ¬ «м®Ґ зЁб«® ¬ ббЁў®ў - в Є¦Ґ 3600.
Џ®ўв®аҐЁҐ ®ЇЁб Ёп ¬ ббЁў Ґ пў«пҐвбп ®иЁЎЄ®©. ќв® ¤Ґ« ов,
ЇаЁ¬Ґа, Ґб«Ё Ї®б«Ґ § Ї®«ҐЁп ®¤®¬Ґа®Ј® ¬ ббЁў ®бв «Ёбм
Ґ§ пвлҐ н«Ґ¬Ґвл ў Є®жҐ, ¤«п "гбҐзҐЁп" ¬ ббЁў . ЏаЁ Ї®ўв®а®¬
®ЇЁб ЁЁ ¤ лҐ б®еа повбп ў ®¤®¬Ґа®¬ ¬ ббЁўҐ Ё, Ґб«Ё Ё§¬ҐпҐвбп
«Ёим зЁб«® бва®Є, ў ¤ўг¬Ґа®¬.
ЋЎ®§ 票Ґ н«Ґ¬Ґв ¤ўг¬Ґа®Ј® ¬ ббЁў ¬®¦Ґв Ўлвм ¤ ® ў
д®а¬Ґ б ®¤Ё¬ Ё¤ҐЄбл¬ ўла ¦ҐЁҐ¬ (в Є §лў Ґ¬л© ЇаЁўҐ¤Ґл© Ё¤ҐЄб
- нв® ®¬Ґа ¬Ґбв н«Ґ¬Ґв ў Ї ¬пвЁ). Ќ ЇаЁ¬Ґа, ЇаЁ ®ЇЁб ЁЁ
DECLARE A[3,3] н«Ґ¬Ґв A[2,3] ¬®¦Ґв Ўлвм § ЇЁб Є Є A[6], в Є Є Є
бв®Ёв ў Ї ¬пвЁ 6-¬ ¬Ґб⥠®в з « ¬ ббЁў .
”гЄжЁп AELEMENT(<Њ б>, <Ќ®¬1>, <Ќ®¬2>) ў®§ўа й Ґв ЇаЁўҐ¤Ґл©
Ё¤ҐЄб н«Ґ¬Ґв , 室п饣®бп ў бва®ЄҐ <Ќ®¬1>, бв®«ЎжҐ <Ќ®¬2>
¬ ббЁў <Њ б>. ЋЎа в п дгЄжЁп ASUBSCRIPT(<Њ б>,<Ќ®¬>,<‚лаN>) ¤«п
н«Ґ¬Ґв ¬ ббЁў <Њ б> б ЇаЁўҐ¤Ґл¬ Ё¤ҐЄб®¬ <Ќ®¬> ў®§ўа й Ґв ®¬Ґа
бва®ЄЁ, Ґб«Ё <‚лаN> = 1, Ё ®¬Ґа бв®«Ўж , Ґб«Ё <‚лаN> = 2.
ЏаЁ¬Ґа 15.6. ЏҐаҐЇЁиҐ¬ § ®ў® жЁЄ« ў ЇаЁ¬ҐаҐ 15.5:
FOR I = 1 TO N*N
T = ABS(A[I])
S = S + T
A[I] = T
ENDFOR
‚лў®¤ ¬ ббЁў ¤ЁбЇ«Ґ©. ЏаЁ гЇа ¦ҐЁпе б ®ЇЁблў Ґ¬л¬Ё Ё¦Ґ
дгЄжЁп¬Ё Ё§¬ҐҐЁп ᮤҐа¦ Ёп ¬ ббЁў ¬®¦® Ў«о¤ вм, ЁбЇ®«м§гп
Є®¬ ¤г DISPLAY MEMORY LIKE <€¬п ¬ ббЁў > .
”гЄжЁп AINS (<Њ б>,<Ќ®¬> ,<‚лаN>) ўбв ў«пҐв ў ¬ ббЁў <Њ б>
§ ¤ л© ®¬Ґа®¬ <Ќ®¬> н«Ґ¬Ґв (<Њ б> ®¤®¬Ґал©) Ё«Ё бва®Єг
(бв®«ЎҐж). ‚бв ў«пҐ¬лҐ н«Ґ¬Ґвл Ї®«гз ов § 票Ґ .F.. €¬ҐойЁҐ
Ў®«миЁ© ®¬Ґа б®бҐ¤ЁҐ н«Ґ¬Ґвл Ё«Ё бва®ЄЁ (бв®«Ўжл) ўлвҐбповбп
б® бў®Ёе ¬Ґбв (б¤ўЁЈ овбп), ЇаЁзҐ¬ Ї®б«Ґ¤Ё© н«Ґ¬Ґв Ё«Ё бва®Є
(бв®«ЎҐж) гва зЁў Ґвбп, Ї®бЄ®«мЄг а §¬Ґал ¬ ббЁў ҐЁ§¬Ґл. <‚лаN>
(§ 票Ґ 2) § ¤ ов в®«мЄ® ЇаЁ ўбв ўЄҐ бв®«Ўж .
”гЄжЁп ADEL (<Њ б>,<Ќ®¬> ,<‚лаN>) г¤ «пҐв § ¤ лҐ ®¬Ґа®¬ <Ќ®¬>
н«Ґ¬Ґв ®¤®¬Ґа®Ј® ¬ ббЁў Ё«Ё бва®Єг (бв®«ЎҐж) ¤ўг¬Ґа®Ј®.
“¤ «пҐ¬ п бва®Є (бв®«ЎҐж) ўлвҐбпҐвбп бва®Є ¬Ё (бв®«Ўж ¬Ё) б
Ў®«миЁ¬Ё ®¬Ґа ¬Ё, н«Ґ¬Ґвл "«ЁиҐ©" Ї®б«Ґ¤Ґ© бва®ЄЁ (бв®«Ўж )
Ї®«гз ов § 票Ґ .F. (а §¬Ґал ¬ ббЁў Ґ Ё§¬Ґповбп). <‚лаN>
(§ 票Ґ 2) § ¤ ов в®«мЄ® ЇаЁ г¤ «ҐЁЁ бв®«Ўж .
”гЄжЁп ACOPY (<Њ б1>, <Њ б2> ,<Ќ®¬1>, <Љ®«>, <Ќ®¬2>) Є®ЇЁагҐв
ў ¬ ббЁў <Њ б2> <Љ®«> н«Ґ¬Ґв®ў ¬ ббЁў <Њ б1>, зЁ п б н«Ґ¬Ґв ,
Ё¬Ґо饣® ®¬Ґа <Ќ®¬1>. …б«Ё ¬ ббЁў <Њ б2> Ґв, ® ᮧ¤ Ґвбп.
<Ќ®¬2> ЁбЇ®«м§гов ¤«п § ¤ Ёп ®¬Ґа ЇҐаў®Ј® ЇаЁЁ¬ о饣® н«Ґ¬Ґв
ў <Њ б2>. ЋЎп§ ⥫мл «Ёим ЇҐаўлҐ 2 Ї а ¬Ґва .
ЏаЁ¬Ґа: ACOPY(X,Y); ¬ ббЁў Y Ґ Ўл« ®ЇЁб . Џ® "®Ўа §г" ¬ ббЁў X
ᮧ¤ Ґвбп ¬ ббЁў Y Ё ў ҐЈ® Є®ЇЁаговбп § зҐЁп ўбҐе н«Ґ¬Ґв®ў X.
”гЄжЁп ACOPY ЇаЁ¬ҐЁ¬ Ё Є ¤ўг¬Ґал¬ ¬ ббЁў ¬. ‚ н⮬ б«гз Ґ
<Ќ®¬1> Ё <Ќ®¬2> пў«повбп ЇаЁўҐ¤Ґл¬Ё Ё¤ҐЄб ¬Ё, Є®ЇЁагҐ¬лҐ з бвЁ
¬ ббЁў®ў ᮤҐа¦ в н«Ґ¬Ґвл, Ї®б«Ґ¤®ў вҐ«м® а §¬ҐйҐлҐ ў Ї ¬пвЁ.
”гЄжЁп ASCAN (<Њ б>, <‚ла> ,<Ќ®¬1>, <Ќ®¬2>) ЁйҐв н«Ґ¬Ґв ¬ ббЁў
<Њ б> б® § 票Ґ¬ <‚ла> Ё ў®§ўа й Ґв ҐЈ® ®¬Ґа Ё«Ё 0 - ЇаЁ
ЎҐ§гᯥ讬 Ї®ЁбЄҐ. …б«Ё аЈг¬Ґв Ї®ЁбЄ <‚ла> - бЁ¬ў®«м®Ґ ўла ¦ҐЁҐ,
в® Ї®ЁбЄ - ЇаЁЎ«Ё¦Ґл© (б¬. Ї. 3.5). Ќ ЇаЁ¬Ґа, Ї® аЈг¬Ґвг "€‚ЂЌ"
¬®¦Ґв Ўлвм ©¤Ґ н«Ґ¬Ґв "€‚ЂЌЋ‚". ЏаЁ Ї®ЁбЄҐ ў ¤ўг¬Ґа®¬ ¬ ббЁўҐ
ў®§ўа й Ґвбп ЇаЁўҐ¤Ґл© Ё¤ҐЄб. ќ«Ґ¬Ґвл ¬ ббЁў , вЁЇ Є®в®але Ґ
б®ўЇ ¤ Ґв б вЁЇ®¬ <‚ла>, Їа®ЇгбЄ овбп. …б«Ё Ї®ЁбЄ ўҐ¤Ґвбп ў з бвЁ
¬ ббЁў , § ¤ ов ®¬Ґа <Ќ®¬1> з «м®Ј® Ё <Ќ®¬2> Є®Ґз®Ј® н«Ґ¬Ґв®ў
нв®© з бвЁ (¤«п ¤ўг¬Ґа®Ј® ¬ ббЁў - ЇаЁўҐ¤ҐлҐ Ё¤ҐЄбл).
’ҐЇҐам ¬л ўЁ¤Ё¬ ®¤® Ї®«Ґ§®Ґ ЁбЇ®«м§®ў ЁҐ дгЄжЁ© AELEMENT,
ASUBSCRIPT: ЇаҐ®Ўа §®ў Ёп ўе®¤Ґ Ё ўл室Ґ дгЄжЁ© ACOPY Ё ASCAN,
ЁбЇ®«м§гҐ¬ле б ¤ўг¬Ґал¬Ё ¬ ббЁў ¬Ё.
”гЄжЁп ASORT (<Њ б> ,<Ќ®¬1>, <Ќ®¬2>, <‚лаN>) «ЁЎ® б®авЁагҐв
®¤®¬Ґал© ¬ ббЁў <Њ б> (ҐЈ® з бвм ®в н«Ґ¬Ґв б ®¬Ґа®¬ <Ќ®¬1> ¤®
<Ќ®¬2>), «ЁЎ® гЇ®а冷稢 Ґв <Ќ®¬2> бва®Є ¤ўг¬Ґа®Ј® ¬ ббЁў Ї® § 票о
н«Ґ¬Ґв®ў бв®«Ўж б ®¬Ґа®¬ <Ќ®¬1>. ‚бҐ н«Ґ¬Ґвл бв®«Ўж ¤®«¦л Ўлвм
®¤®вЁЇл: зЁб« , бва®ЄЁ Ё«Ё ¤ вл. <‚лаN> § ¤ ов Є Є 0 (1) ¤«п
б®авЁа®ўЄЁ Ї® ў®§а бв Ёо (гЎлў Ёо); Ї® 㬮«з Ёо ЁбЇ®«м§гҐвбп 0.
ЏаЁ 2 Ї а ¬Ґва е б®авЁагҐвбп з бвм (Є®Ґж) ®¤®¬Ґа®Ј® ¬ ббЁў Ё«Ё
ўбҐ бва®ЄЁ ¤ўг¬Ґа®Ј®. „«п б®авЁа®ўЄЁ Ї® ў®§а бв Ёо ўбҐЈ®
®¤®¬Ґа®Ј® ¬ ббЁў ¤®бв в®з® ®¤®Ј® Ї а ¬Ґва .
‚ Ї. 3.1 а бᬮваҐл в Є¦Ґ дгЄжЁЁ ADIR Ё AFIELDS, ЁбЇ®«м§гойЁҐ
¬ ббЁўл. ‚ § ¤ з е, Ј¤Ґ ᮤҐа¦ ЁҐ ®¤®© Ё«Ё ап¤ § ЇЁбҐ© Ѓ„ ЁбЇ®«м§гов
ЇаЁ ®Ўа Ў®вЄҐ Ё«Ё «Ё§Ґ ᮤҐа¦ Ёп ¤агЈЁе § ЇЁбҐ©, ®Є §лў овбп 㤮Ўл¬Ё
Є®¬ ¤л ®Ў¬Ґ ¤ л¬Ё ¬Ґ¦¤г ¬ ббЁў ¬Ё Ё Ѓ„. Љ®¬ ¤
SCATTER FIELDS <‘ЇЁб®Є Ї®«Ґ©> TO <ЏаЁҐ¬ЁЄ> MEMO,
Ј¤Ґ <ЏаЁҐ¬ЁЄ> - нв® Ё¬п ¬ ббЁў Ё«Ё б«®ў® MEMVAR, Ї®б«Ґ¤®ў ⥫м®
ЇҐаҐ®бЁв § зҐЁп Ї®«Ґ© ⥪г饩 § ЇЁбЁ ў ®¤®¬Ґал© ¬ ббЁў Ё«Ё,
Ґб«Ё гЄ § «Ё MEMVAR, ў ЇҐаҐ¬ҐлҐ, ®¤®Ё¬ҐлҐ б Є®ЇЁа㥬묨 Ї®«п¬Ё
§ ЇЁбЁ. „«п Ј«п¤®бвЁ Ё ў® Ё§ЎҐ¦ ЁҐ ®иЁЎ®Є ў Їа®Ја ¬¬Ґ Ё¬Ґ
ЇҐаҐ¬Ґле б«Ґ¤гҐв б Ў¤Ёвм Єў «ЁдЁЄ в®а®¬ M, ЇаЁ¬Ґа M->X Ё«Ё M.X.
€¬п ¬ ббЁў ¬®¦Ґв ®Ў®§ з вм ҐбгйҐбвўгойЁ© ¬ ббЁў (® Ўг¤Ґв ᮧ¤ ).
ђ §¬Ґа бгйҐбвўго饣® ¬ ббЁў ўв®¬ вЁзҐбЄЁ "Ї®¤Ј®пҐвбп", Ґб«Ё ® ¬ «.
ЌҐ®Ўп§ ⥫мл© ваЁЎгв MEMO Ґ®Ўе®¤Ё¬, Ґб«Ё Є®ЇЁаговбп Ё
Memo-Ї®«п. …б«Ё ®ЇгйҐ ваЁЎгв FIELDS, Ї®«п § ЇЁбЁ Є®ЇЁаговбп Ї®
Ї®ап¤Єг Ёе ®ЇЁб Ёп ў бвагЄвгаҐ. …б«Ё ¦Ґ ў Є®жҐ Є®¬ ¤л ¤®Ў ў«Ґ
ваЁЎгв BLANK, ᮧ¤ Ґвбп ¬®¦Ґбвў® Ґ§ Ї®«Ґле ЇҐаҐ¬Ґле Ё«Ё
н«Ґ¬Ґв®ў ¬ ббЁў , а §¬Ґал Ё вЁЇл Є®в®але ®ЇаҐ¤Ґ«повбп ᮮ⢥вбвўгойЁ¬Ё
Ї®«п¬Ё Ѓ„.
Љ®¬ ¤ GATHER Ї® бў®Ґ¬г ¤Ґ©бвўЁо пў«пҐвбп ®Ўа в®© SCATTER:
GATHER FROM <€бв®зЁЄ> FIELDS <‘ЇЁб®Є Ї®«Ґ©> MEMO,
Ј¤Ґ <€бв®зЁЄ> - нв® Ё¬п ¬ ббЁў Ё«Ё б«®ў® MEMVAR, ®Ў®§ з о饥
¬®¦Ґбвў® ЇҐаҐ¬Ґле б® § 票ﬨ Ї®«Ґ©. Љ®Ј¤ ваЁЎгв FIELDS
<‘ЇЁб®Є Ї®«Ґ©> ®ЇгйҐ, Ї®«п ⥪г饩 § ЇЁбЁ § Ї®«повбп Ї® Ї®ап¤Єг Ёе
®ЇЁб Ёп ў бвагЄвгаҐ, ўЄ«оз п Ё Memo-Ї®«п (Ґб«Ё ЇаЁбгвбвўгҐв ваЁЎгв
MEMO). Ќг¦® б«Ґ¤Ёвм § ⥬, зв®Ўл вЁЇ § 票© ᮮ⢥вбвў®ў « вЁЇг
Ї®«Ґ©. ЏаЁ Ґб®ўЇ ¤ҐЁЁ зЁб« н«Ґ¬Ґв®ў ¬ ббЁў Ё зЁб« Ї®«Ґ©, «ЁиЁҐ
ЁЈ®аЁаговбп.
ЏаЁ¬Ґа 15.7. Љ®ЇЁа®ў ЁҐ Ї®«Ґ© § ЇЁбЁ, ўЄ«оз п Memo-Ї®«п, ў
®¤®Ё¬ҐлҐ ЇҐаҐ¬ҐлҐ, । ЄвЁа®ў ЁҐ Ё ў®§ўа в § 票© ў § ЇЁбм.
USE Student
SCAN && Ќ з «® жЁЄ« ®Ўа Ў®вЄЁ § ЇЁбҐ©
SCATTER MEMVAR MEMO && Љ®ЇЁаговбп ўбҐ Ї®«п ⥪г饩 § ЇЁбЁ
@ 1, 5 SAY "” ¬Ё«Ёп " GET M.Famil
@ 3, 5 . . . && ђҐ¤ ЄвЁа®ў ЁҐ б«Ґ¤го饣® § 票п
. . .
READ
GATHER MEMVAR MEMO && ‚®§ўа в § 票© ў § ЇЁбм
ENDSCAN && Љ®Ґж жЁЄ« ®Ўа Ў®вЄЁ § ЇЁбҐ©
ЏаЁ гз бвЁЁ ў ®Ўа Ў®вЄҐ ба §г ҐбЄ®«мЄЁе § ЇЁбҐ©, б«®¦®© Ё«Ё
ҐЁ§ўҐбв®© Ї®б«Ґ¤®ў ⥫м®бвЁ Ёе ўлЎ®аЄЁ ४®¬Ґ¤гҐвбп ¤агЈ п Ї а
Є®¬ ¤. Љ®¬ ¤
COPY TO ARRAY<€¬п> FIELDS<‘ЇЁб®Є Ї®«Ґ©> <ѓа Ёжл> <“б«®ўЁп>
ЇаҐ¤бв ў«пҐв в Ў«Ёжг Ѓ„ ¤ўг¬Ґал¬ ¬ ббЁў®¬, ўлЎЁа п Ё§ ҐҐ Є®«®ЄЁ,
ᮮ⢥вбвўгойЁҐ гЄ § л¬ Ї®«п¬, Ё бва®ЄЁ вҐе § ЇЁбҐ©, Є®в®алҐ
ᮮ⢥вбвўгов <“б«®ўЁп¬> Ё ў§пвл Ё§ ®Ў« бвЁ ¤Ґ©бвўЁп (<ѓа Ёжл>).
Њ ббЁў <€¬п> ¤®«¦Ґ Ўлвм ЇаҐ¤ў аЁвҐ«м® ®ЇЁб Ё ®Ўп§ вҐ«м® Є Є
¤ўг¬Ґал©, ¤ ¦Ґ Ґб«Ё Є®ЇЁагҐвбп ®¤® «Ёим Ї®«Ґ. ‚ ®вбгвбвўЁҐ
ваЁЎгв FIELDS Є®ЇЁаговбп ўбҐ Ї®«п. …б«Ё зЁб«® Ї®«Ґ© Ѓ„ Ё Є®«®®Є
¬ ббЁў Ґ б®ўЇ ¤ Ґв, «ЁиЁҐ ЁЈ®аЁаговбп. Љ®¬ ¤ § Є зЁў Ґв
а Ў®вг Ї®б«Ґ § Ї®«ҐЁп ўбҐе бва®Є ¬ ббЁў Ё«Ё ¤®бвЁ¦ҐЁп Є®ж Ѓ„.
Љ®¬ ¤ APPEND FROM ARRAY<€¬п> FOR<‚лаL> FIELDS<‘ЇЁб®Є Ї®«Ґ©>
¤®Ї®«пҐв ЄвЁўго Ѓ„ § ЇЁбп¬Ё, Є ¦¤ п Ё§ Є®в®але Ї®«гз Ґв § 票п
н«Ґ¬Ґв®ў ®зҐаҐ¤®© бва®ЄЁ ¬ ббЁў <€¬п>. …б«Ё ў ¬ ббЁўҐ Ў®«миҐ
Є®«®®Є, 祬 Ї®«Ґ© ў Ѓ„, «ЁиЁҐ ЁЈ®аЁаговбп. …б«Ё § ¤ ® гб«®ўЁҐ
<‚лаL>, § ЇЁбЁ Ї®а®¦¤ овбп в®«мЄ® ⥬Ё бва®Є ¬Ё ¬ ббЁў , Є®в®алҐ Ґ¬г
㤮ў«Ґвў®апов. •®вп Їа®ўҐаповбп н«Ґ¬Ґвл ¬ ббЁў , ў гб«®ўЁЁ гЄ §лў ов
ᮮ⢥вбвўгойЁҐ Ё¬ Ї®«п § ЇЁбЁ. …б«Ё Ѓ„ Ўл« Їгбв , ® Їа®бв®
Ї®«пҐвбп.
ЏаЁ¬Ґа 15.8. ‚ Ѓ„ Otryad ᢥ¤Ґл § ЇЁбЁ ® бв㤥в е а §ле
д Єг«мвҐв®ў, ®ЎкҐ¤ЁЁўиЁебп ў бвந⥫мл© ®вап¤, ЇаЁзҐ¬ д Єг«мвҐв
(бЁ¬ў®«м®Ґ Ї®«Ґ Fak) ®Ў®§ з Ґвбп ®¬Ґа®¬. €¬ҐҐвбп Ѓ„-б«®ў ам Faki,
§ ЇЁбЁ Є®в®а®© бв ўпв ў ᮮ⢥вбвўЁҐ нвЁ ®¬Ґа Ё §ў Ёп (Ї®«Ґ
Nazv) д Єг«мвҐв®ў. ‚лў®¤Ёвбп бЇЁб®Є д ¬Ё«Ё© (Ї®«Ґ Fam ў Ѓ„ Otryad)
бв㤥⮢-¬г¦зЁ б §ў Ёп¬Ё д Єг«мвҐв®ў, Є®в®але ®Ё ®Ўгз овбп.
DECLARE A[10,2] && 1-© н«Ґ¬Ґв бва®ЄЁ - ®¬Ґа д Єг«мвҐв
USE Faki
COPY TO ARRAY A
? '‘Џ€‘ЋЉ Њ“†—€Ќ Ћ’ђџ„Ђ "ѓђЋЊ € ЊЋ‹Ќ€џ" '
USE Otryad
SCAN FOR Pol = "Њ" && €¬ҐҐ¬ Pol ®Ў®§ 祮 Ї®«Ґ ў Ѓ„
? Fam, A[ Ascan(A,Fak) + 1] && Ascan ЁйҐв д Єг«мвҐв Ї® ®¬Ґаг
ENDSCAN
€§ЎҐЈ п "е ®вЁзҐбЄЁе" ®Ўа 饨© Є § ЇЁбп¬ Ѓ„ Faki, а б室гойЁе
ўаҐ¬п, Ўлбва® Ё§ў«ҐЄ Ґ¬ Ґ®Ўе®¤Ё¬лҐ §ў Ёп Ё§ ¬ ббЁў A. ЏаЁ
н⮬ ЇаҐ®Ўа §®ў Ёп ЇаЁўҐ¤Ґ®Ј® Ё¤ҐЄб ў ®¬Ґа бва®ЄЁ Ё бв®«Ўж
Ґ г¦л, ЁЎ® ў Ї ¬пвЁ н«Ґ¬Ґв- §ў ЁҐ пў«пҐвбп б«Ґ¤гойЁ¬ §
н«Ґ¬Ґв®¬-®¬Ґа®¬ д Єг«мвҐв .
‡ ¤ ЁҐ 15.5. ‘®бв ўм⥠Їа®Ја ¬¬г, Є®в®а п, ЁбЇ®«м§гп ў Ѓ„
Teacher Ї®«п Name (д ¬Ё«Ёп, ЁЁжЁ «л ЇаҐЇ®¤ ў ⥫п) Ё Kafedr (гб«®ўл©
®¬Ґа Є 䥤ал), в Є¦Ґ «®ЈЁз®Ґ Ї®«Ґ Kafedr, Ї®«Ґ Nazv ( §ў ЁҐ
Є 䥤ал), Tel(⥫Ґд® Є 䥤ал) ў® ўбЇ®¬®Ј ⥫쮩 Ѓ„ Kaf, ўлў®¤Ёв бЇЁб®Є
ЇаҐЇ®¤ ў ⥫Ґ© б д ¬Ё«Ёп¬Ё ®в A ¤® ѓ ўЄ«озЁвҐ«м®. ‚ бЇЁбЄҐ, Єа®¬Ґ
д ¬Ё«ЁЁ Ё ЁЁжЁ «®ў ЇаҐЇ®¤ ў ⥫п, ¤®«¦л Ўлвм §ў ЁҐ Ё ⥫Ґд® Є 䥤ал
- ¬Ґбв ҐЈ® а Ў®вл. €бЇ®«м§г©вҐ ¬ ббЁў - Є®ЇЁо Ѓ„ Kaf.
15.6. ‚лЇ®«пҐ¬ ¬ Єа®Ї®¤бв ®ўЄЁ Ё Ї®¤бв ®ўЄЁ
ЇаЁ ўлў®¤Ґ ⥪бв®ў
Ќ з «м®Ґ ЇаҐ¤бв ў«ҐЁҐ ® ¬ Єа®Ї®¤бв ®ўЄ е ¤ ® ў Ї. 1.9.
‚ FOXPRO ¬ Єа®Ї®¤бв ®ўЄЁ ЇаЁ¬Ґповбп ¤«п д®а¬Ёа®ў Ёп Є®¬ ¤ иЁаҐ,
祬 ў CLIPPER. ќ«Ґ¬Ґв ¬ ббЁў ¬®¦Ґв Ўлвм ¬ Єа®ЇҐаҐ¬Ґ®©.
ЏаЁ¬Ґа 15.9. ‚ ЇҐаҐ¬ҐлҐ A,B,C,D,E § ЇЁб л ⥪бвл FOR-гб«®ўЁ©
(ў¬Ґб⥠ᮠ᫮ў®¬ FOR), ў ЇҐаҐ¬ҐлҐ U,V,W,X - з « Є®¬ ¤,
ЇаЁ¬Ґа, "LIST","DELETE" Ё в.Ї. „«п ®Ўа §®ў Ёп Є®¬ ¤ Їа®Ја ¬¬л
¬®¦® б«Ґ¤гойЁ¬ ®Ўа §®¬ Є®¬ЎЁЁа®ў вм нвЁ з « Ё гб«®ўЁп:
&U &A, &U &B Ё в.¤. ЋЎа вЁвҐ ўЁ¬ ЁҐ Їа®ЎҐ« ўгваЁ. …б«Ё ҐЈ®
Ґ Ўг¤Ґв, ў®§ЁЄҐв Ґ®ЇаҐ¤Ґ«Ґ®Ґ Є«о祢®Ґ б«®ў®: LISTFOR Ё в.Ї.
”гЄжЁп EVALUATE (б¬. Ї. 1.9) § ¬ҐпҐв ¬ Єа®Ї®¤бв ®ўЄг ў
ўла ¦ҐЁпе Ё ўлЇ®«пҐвбп Ўлбв॥. Ћ ४®¬Ґ¤гҐвбп ¤«п
ЁбЇ®«м§®ў Ёп ў пўле Ё Ґпўле жЁЄ« е (ба ўЁвҐ б EVAL, ЇаЁ¬Ґа 4.18).
ЏаЁ¬Ґа 15.10. ‚뢥¤Ґ¬ бЇЁб®Є бв㤥⮢ (б¬. ЇаЁ¬Ґа 15.8),
ЁбЇ®«м§гп Їа®Ё§ў®«м®Ґ гб«®ўЁҐ ўлЎ®а Usl; ў¬Ґбв® пў®Ј® жЁЄ«
ў®бЇ®«м§гҐ¬бп Ґпўп¬ ў Є®¬ ¤Ґ LIST.
ACCEPT "‚ўҐ¤ЁвҐ гб«®ўЁҐ " TO Usl && ‚ў®¤Ёвбп гб«®ўЁҐ ў ўЁ¤Ґ бва®ЄЁ
USE Otryad
LIST FOR Evaluate(Usl) && "Ѓлбва п" Ї®¤бв ®ўЄ ў Ґпў®¬ жЁЄ«Ґ
Њ Єа®Ї®¤бв ®ўЄг ЁбЇ®«м§гов ¤«п ўбв ў®Є ў ⥪бв бв ¤ авле
¤®Єг¬Ґв®ў: ЇаЁЈ« 襨©, Ё§ўҐйҐЁ©, Ї®§¤а ў«ҐЁ© Ё в.Ї. (б¬. Ї. 4.7).
‚ FOXPRO Ё¬Ґовбп Ў®«ҐҐ 㤮ЎлҐ б।бвў . Љ®¬ ¤ \ (Ё«Ё \\), Ё¬Ґой п
ўЁ¤ \ <”а Ј¬Ґв ⥪бв > ,
ўлў®¤Ёв § ¤ л© да Ј¬Ґв (Ґ бЁ¬ў®«мго бва®Єг, ЁЎ® Є ўл祪-
®Ја ЁзЁвҐ«Ґ© Ґв). Џ®б«Ґ ўлў®¤ Є®¬ ¤ \ ўлЇ®«пҐв ЇҐаҐе®¤ ў з «®
б«Ґ¤го饩 бва®ЄЁ, \\ - Ґв. …б«Ё ЇаҐ¤ў аЁвҐ«м® ўлЇ®«Ґ Є®¬ ¤
SET TEXTMERGE ON, ў ўлў®¤Ё¬л© ⥪бв ¬®Јгв ўЄ«оз вмбп § 票п
ўла ¦ҐЁ©, ўл¤Ґ«Ґле ў® да Ј¬ҐвҐ ¤ў®©л¬Ё Є ўлзЄ ¬Ё <<, >>.
ЏаЁ¬Ґа 15.11. ‘Ёб⥬ Є®ва®«п Ї®аг票© ЁбЇ®«м§гҐв ¤ лҐ,
еа Ё¬лҐ ў Ѓ„ Conduit: ®¬Ґа Ї®аг票п (Ї®«Ґ Number), ба®Є ЁбЇ®«ҐЁп
(DatIsp), д ¬Ё«Ёо ЁбЇ®«ЁвҐ«п б ЁЁжЁ « ¬Ё (Ispoln), ҐЈ® Ї®« (Pol).
‘«Ґ¤гой п Їа®Ја ¬¬ ўлпў«пҐв Ї®аг票п, ба®Є Є®в®але Ёб⥪, Ё ўлў®¤Ёв
Ї®¬Ё ЁҐ ЁбЇ®«ЁвҐ«о:
SET TEXTMERGE ON
USE Conduit
SCAN FOR Datisp < Date() && –ЁЄ« ўлЎ®а Ё§ Ѓ„ Їа®ба®зҐле Ї®аг票©
\
\ “ў ¦ Ґ¬л© <<Ispoln>> !
\
\ Џ®аг票Ґ N <<Number>> ‚ ¬Ё ¤®«¦® Ўлвм ўлЇ®«Ґ® Є <<Datisp>>.
\‘ҐЈ®¤п <<Date()>>. Ѓг¤м⥠«оЎҐ§л ЇаҐ¤бв ўЁвм १г«мв вл Ё«Ё
\®ЎкпбЁвҐ«мго § ЇЁбЄг.
\ Ѓг¤г ўҐбм¬ ЇаЁ§ ⥫Ґ.
\ <<Date()>>. ‚ и иҐд €.‚.ѓа®§л©
\
ENDSCAN && Љ®Ґж жЁЄ« ўлЎ®а
—в®Ўл Ґ Ї®«гз «®бм, ЇаЁ¬Ґа, "“ў ¦ Ґ¬л© ‘€„ЋђЋ‚Ђ Ђ.Ђ.",
ЇҐаўго бва®Єг ⥪бв ¤® § ¤ вм Ї®-Ё®¬г:
\ “ў ¦ Ґ¬<<Iif(Pol="Њ", "л©", " п")>> <<Ispoln>> ! .
Ђ «®ЈЁзлҐ ў®§¬®¦®бвЁ ЁбЇ®«м§говбп ў Є®бвагЄжЁЁ
TEXT . . . ENDTEXT (б¬. ЇаЁ¬Ґа 16.5).
‚ ®ЎйҐ¬ б«гз Ґ Є®¬ ¤ SET TEXTMERGE Ё¬ҐҐв ўЁ¤
SET TEXTMERGE <Љ«оз> TO <” ©«> ADDITIVE WINDOW<ЋЄ®> <‚Ё¤Ё¬®бвм>,
Ј¤Ґ <Љ«оз> - нв® ON Ё«Ё OFF, <” ©«> ®Ў®§ з Ґв ⥪бв®ўл© д ©«, Єг¤
¬®¦® Їа ўЁвм ўлў®¤Ё¬л© ⥪бв ў ०Ё¬Ґ ¤®Ї®«ҐЁп д ©« (Ґб«Ё
ADDITIVE ЇаЁбгвбвўгҐв) Ё«Ё ЇҐаҐ§ ЇЁбЁ (ADDITIVE Ґв). …б«Ё д ©« б
нвЁ¬ Ё¬ҐҐ¬ Ґ ©¤Ґ, ® ᮧ¤ Ґвбп. ‡ ЇЁбм ў д ©« Ўг¤Ґв бЄалв®©,
Ґб«Ё ваЁЎгв <‚Ё¤Ё¬®бвм> § ЇЁб Є Є NOSHOW, ЇаЁ ваЁЎг⥠SHOW
(§ 票Ґ Ї® 㬮«з Ёо) ⥪бв Ў«о¤ Ґвбп нЄа Ґ, ЇаЁзҐ¬ ў
гЄ § ®¬ ®ЄҐ, Ґб«Ё ЇаЁбгвбвўгҐв ваЁЎгв WINDOW. ‡ ЄалвЁҐ <” ©« >
ўлЇ®«пҐв Є®¬ ¤ SET TEXTMERGE TO.
‡ ¤ ЁҐ 15.6. €бЇ®«м§гп TEXT ... ENDTEXT, б®бв ўм⥠Їа®Ја ¬¬г,
ЇҐз в ойго Ї®§¤а ў«ҐЁп б ¤Ґ¬ ஦¤ҐЁп б®ваг¤ЁЄ®ў, ®в¬Ґз ойЁе ҐЈ®
ў ¤ ®¬ ¬ҐбпжҐ (б¬. ЇаЁ¬Ґа 4.12). ‚ Є®жҐ Ї®§¤а ў«ҐЁп ¤®«¦ бв®пвм
¤ в ¤п ஦¤ҐЁп Ё б«®ў "Љ®««ҐЄвЁў б®ваг¤ЁЄ®ў".
15.7. Ќ § з Ґ¬ жўҐв®ўлҐ гбв ®ўЄЁ
‚бЇ®¬ЁвҐ бв ¤ а⮥ Ё ¤®Ї®«ЁвҐ«млҐ жўҐв®ўлҐ б®зҐв Ёп (Ї. 9.5).
„«п б®ў¬ҐбвЁ¬®бвЁ б ЇаҐ¤л¤гйЁ¬Ё ўҐабЁп¬Ё ў FOXPRO ўЄ«озҐ Є®¬ ¤
SET COLOR TO <‘в ¤.б®зҐв ЁҐ>,<„®Ї®«.б®зҐв ЁҐ>,<–ўҐв ®Ўа ¬«ҐЁп>,
ЇаЁзҐ¬ ў ®в«ЁзЁҐ ®в CLIPPER (б¬. Ї.9.5, в ¬ ¦Ґ - 梥⮢ п в Ў«Ёж )
¤®Ї®«ЁвҐ«м®Ґ б®зҐв ЁҐ 梥⮢ ®¤®: ®® ЁбЇ®«м§гҐвбп ¤«п GET-Ї®«Ґ©,
Є Є ўлЎа ле, в Є Ё ҐўлЎа ле, ¤«п ўлЎа ле ЇгЄв®ў ¬Ґо Ё в.Ї.
Љ®¬ ¤ ЎҐ§ Ї а ¬Ґва®ў ў®ббв ў«Ёў Ґв жўҐв®ўлҐ гбв ®ўЄЁ, ¤Ґ©бвўгойЁҐ
Ї® 㬮«з Ёо.
ЏаЁ¬Ґа 15.12.
SET COLOR TO W+/R*, GR+/B, R && „«п б®®ЎйҐЁп SAY - бв ¤.б®зҐв ЁҐ
@ 4,2 SAY "Ќ…Њ…„‹…ЌЌЋ ‚‚…„€’… STERZNI !" GET Sterzni DEFAULT 0
READ
WAIT && ‘®®ЎйҐЁҐ WAIT в Є¦Ґ ўлў®¤Ёвбп ЎҐ«л¬Ё ЎгЄў ¬Ё Єа ᮬ 䮥
SET COLOR TO && ‚®ббв ®ў«ҐЁҐ 梥⮢ле гбв ®ў®Є, ¤Ґ©бвўгойЁе Ї® 㬮«з Ёо
‡ 票Ґ Sterzni Ё§®Ўа ¦ Ґвбп ¦Ґ«вл¬Ё ЎгЄў ¬Ё бЁҐ¬ 䮥. ‘®®ЎйҐЁп
¬Ґаж ов (нв® § ¤ ® § Є®¬ * ў Є®жҐ бв ¤ ав®Ј® б®зҐв Ёп).
Ѓ®Ј влҐ ў®§¬®¦®б⨠梥⮢®Ј® ®д®а¬«ҐЁп ЇаҐ¤« Ј Ґв Є®¬ ¤
SET COLOR OF SCHEME<‚лаN> TO <‘ЇЁб®Є 梥⮢ле Ї а>,
Є®в®а п б®®в®бЁв 梥⮢®© б奬Ґ, § ¤ ®© ®¬Ґа®¬ <‚лаN> ,10 梥⮢ле
Ї а, Є ¦¤ п Ё§ Є®в®але Ўг¤Ґв "Єа бЁвм" ®ЇаҐ¤Ґ«ҐлҐ н«Ґ¬Ґвл. ‘ЇЁб®Є
梥⮢ле Ї а ¬®¦Ґв Ўлвм § ¤ пў® Ё«Ё ў ўЁ¤Ґ SCHEME<‚лаN>. Џ®б«Ґ¤ҐҐ
®§ з Ґв, зв® бЇЁб®Є § Ё¬бвўгҐвбп Ё§ 梥⮢®© б奬л б ¤агЈЁ¬ ®¬Ґа®¬.
џўл© бЇЁб®Є ¬®¦Ґв Ўлвм ҐЇ®«л¬. ЏаЁ н⮬ Їа®ЇгбЄЁ ®Ў®§ зҐл
§ Їпвл¬Ё, Є Є ў CLIPPER. Џа®ЇгбЄЁ ўв®¬ вЁзҐбЄЁ ў®бЇ®«повбп Ї а ¬Ё
Ё§ ⥪г饣® 梥⮢®Ј® Ў®а . €бЇ®«м§гов 梥⮢го б奬㠯г⥬ ббл«ЄЁ
ўЁ¤ COLOR SCHEME <‚лаN> ў Є®¬ ¤ е ®ЇаҐ¤Ґ«ҐЁп ¬Ґо, ®Є®, ў Є®¬ ¤ е
@ ... SAY ... GET Ё в.¤.
ђ бᬮваЁ¬ ЇаЁ¬ҐҐЁҐ 梥⮢ле Ї а б奬л 10 (Ё¦Ґ гЄ § л Ёе ®¬Ґа
ў б奬Ґ), ЁбЇ®«м§гҐ¬®© ¤«п а бЄа бЄЁ н«Ґ¬Ґв®ў ®Є । ЄвЁа®ў Ёп BROWSE:
1 - Ґўл¤Ґ«ҐлҐ § ЇЁбЁ ў । ЄвЁа㥬®© в Ў«ЁжҐ;
2 - ®Ў®§ 祮Ґ ¬ થ஬ Ї®«Ґ ⥪г饩 § ЇЁбЁ;
3 - Ў®а¤оа, ўЄ«оз п Ё¬ҐойЁҐбп Ґ¬ § ЄЁ;
4 - § Ј®«®ў®Є ⥪г饣® BROWSE-®Є (®Є ЇҐаҐ¤ҐЈ® Ї« );
5 - § Ј®«®ў®Є BROWSE-®Є , Ґ пў«по饣®бп ⥪гйЁ¬ ®Є®¬;
6 - Ў«®Є ⥪бв (б¬. Ї. 15.1), ўл¤Ґ«Ґл© ў ⥪г饬 Ї®«Ґ;
7 - ⥪гй п § ЇЁбм; 2-© н«Ґ¬Ґв 7-© 梥⮢®© Ї ал ®Єа иЁў Ґв
в Є¦Ґ в®зЄг - Ї®¬ҐвЄг г¤ «ҐЁҐ § ЇЁбЁ, Ї®н⮬㠮 ¤®«¦Ґ Ўлвм
Є®ва бвл¬ Ї® ®в®иҐЁо Є 梥вг д® ў 1-© 梥⮢®© Ї аҐ;
8 - вҐм ў®§«Ґ а ¬ЄЁ ®Є BROWSE. 9 Ё 10 жўҐв®ўлҐ Ї ал Ґ ЁбЇ®«м§говбп.
–ўҐв®ў п б奬 ¬®¦Ґв Ё¬Ґвм ®¬Ґа ®в 1 ¤® 24, ЇаЁзҐ¬ ЇҐаўлҐ 12
б奬 Ё¬Ґовбп ў Ј®в®ў®¬ ўЁ¤Ґ (б¬. ЇаЁ«®¦ҐЁҐ 6), ४®¬Ґ¤гҐвбп
§ Ё¬ вм ®¬Ґа б 17 Ї® 24. ќв®Ј® ўЇ®«Ґ ¤®бв в®з® ¤«п вў®азҐбвў .
€§ з «м® б奬л 13-24 б®ўЇ ¤ ов б® б奬®© 1.
“бв ®ўЄг 梥⮢ле Ї а ¬®¦® ᤥ« вм Ё ў ЁвҐа ЄвЁў®¬ ०Ё¬Ґ.
„«п нв®Ј® ¤® ў®бЇ®«м§®ў вмбп ЇгЄв®¬ COLOR Ї®¤¬Ґо WINDOW ¤«п
ўл§®ў ®Є гбв ®ўЄЁ 梥⮢. ‚ Їа ў®¬ ўҐа奬 гЈ«г ®Є ў ўЁ¤Ґ Є®ЇЄЁ
Ї®Є § ® Ё¬п ®ЎкҐЄв а бЄа бЄЁ, ЇаЁ¬Ґа WINDOW ("®Є®"). —ҐаҐ§ нвг
Є®ЇЄг ¬®¦® ўл§ў вм бЇЁб®Є ®ЎкҐЄв®ў, Ґб«Ё ¬ 㦥 ¤агЈ®© ®ЎкҐЄв
Ё«Ё ¬л е®вЁ¬ ᮧ¤ вм б®ўҐа襮 нЄ§®вЁзҐбЄго б奬г б ®ўл¬ ®¬Ґа®¬:
бў®Ў®¤лҐ ®¬Ґа в Є¦Ґ ®Ў®§ зҐл ў бЇЁбЄҐ. ‚ ®ЄҐ в Є¦Ґ ¤ л
да Ј¬Ґвл, Ї®Є §лў ойЁҐ ЁбЇ®«м§®ў ЁҐ Є ¦¤®© 梥⮢®© Ї ал. €е
®Єа бЄ Ўг¤Ґв Ё§¬Ґпвмбп ў 室Ґ нЄбЇҐаЁ¬Ґв®ў. €в Є, ўл ¬®¦ҐвҐ
Ё§¬ҐЁвм бгйҐбвўгойЁҐ Ё ᮧ¤ вм ®ўлҐ жўҐв®ўлҐ б奬л. —в®Ўл Ґ
¤Ґ« вм нвг а Ў®вг Є ¦¤л© а §, ¬®¦® Є®ЇЄ®© <Save> б®еа Ёвм
Ї®«гзЁўиЁ©бп Ў®а б奬 ў д ©«Ґ FOXUSER.DBF Ї®¤ § ¤ л¬ Ё¬ҐҐ¬.
‚ б«Ґ¤го饬 бҐ бҐ а Ў®вл ўл § Ја㧨⥠нв®в Ў®а Є®ЇЄ®© <Load>.
„«п § Јаг§ЄЁ 梥⮢®Ј® Ў®а , еа Ё¬®Ј® ў FOXUSER.DBF, ¬®¦®
в Є¦Ґ ЁбЇ®«м§®ў вм Є®¬ ¤г
SET COLOR SET TO <€¬п 梥⮢®Ј® Ў®а >
…бвм ҐйҐ ®¤ ЁвҐаҐб п Є®¬ ¤ , ®зЁй ой п Їаאַ㣮«мго
®Ў« бвм, § ¤ го Є®®а¤Ё в ¬Ё Y1,X1 (Y2,X2) «Ґў®Ј® ўҐа奣®
(Їа ў®Ј® Ё¦ҐЈ®) гЈ« , Ё ўлЇ®«пой п "®Єа бЄг" ®Ў« бвЁ:
@ Y1,X1 FILL TO Y2,X2 COLOR <‘ЇЁб®Є 梥⮢ле Ї а> .
‚ б®Єа 饮¬ ўЁ¤Ґ (ЎҐ§ ваЁЎгв COLOR) Є®¬ ¤ ЁбЇ®«м§гҐв
⥪гйЁҐ жўҐв®ўлҐ гбв ®ўЄЁ.
‡ ¤ ЁҐ 15.7. ‘а ўЁвҐ ў аЁ вл 梥⮢®Ј® ®д®а¬«ҐЁп ў
Їа®Ја ¬¬Ґ ЇаЁ¬Ґа 15.12: Ё¬ҐойЁ©бп ў ҐҐ ⥪б⥠Ё ᮧ¤ лҐ ў ¬Ё
б ЁбЇ®«м§®ў ЁҐ¬ Ј®в®ўле 梥⮢ле б奬 (ЎҐ§ Є®¬ ¤л SET COLOR TO,
® б® ббл«Є®© беҐ¬л ў Є®¬ ¤Ґ @ ... SAY ... GET).
‡ЂЉ‹ћ—…Ќ€… Љ ѓ‹Ђ‚… 15
…б«Ё ўл б®зҐв «Ё Ё§г票Ґ ¬ вҐаЁ « ¤ ®© Ј« ўл б Їа ЄвЁЄ®©
ќ‚Њ, ўл Ї®¤Ј®в®ўЁ«Ёбм Є ЁбЇ®«м§®ў Ёо FOXPRO ў бҐа쥧ле § ¤ з е,
вॡгойЁе е®а®иЁе ўлЄ®ў а Ў®вл зҐаҐ§ бЁбвҐ¬л© ЁвҐадҐ©б Ё ў ®ЄҐ
Є®¬ ¤, 㬥«®Ј® ЁбЇ®«м§®ў Ёп бЁбвҐ¬л Ї®¬®йЁ. ’Ґ¬Ї ў 襣® ¤ «мҐ©иҐЈ®
Їа®¤ўЁ¦ҐЁп § ўЁбЁв ®в нвЁе ўлЄ®ў. ЋЎа й пбм Є бЁб⥬Ґ Ї®¬®йЁ,
Ё§гз п ЇаЁ¬Ґал, ўл ®бў®ЁвҐ Ё ⥠¤Ґв «Ё, Є®в®алҐ ®ЇгйҐл ў агЄ®ў®¤бвў е
Ё§-§ ®Ја ЁзҐ®Ј® ®ЎкҐ¬ Ё«Ё Є®в®алҐ ўл Ґ ®Ўа вЁ«Ё ўЁ¬ Ёп
ЇаЁ Ёе з⥨Ё.
Соседние файлы в папке материалы по FoxPro