Crt, MS DOS, Printer ва Overlay модулларининг процедура ва функциялари

Загружено в:

20.09.2019

Скачано:

0

Размер:

118 KB

Скачать

C r t , M S D O S , P r i n t e r в а O v e r l a y м о д у л л а р и н и н г п р о ц е д у р а в а ф у н к ц и я л а р и Режа: 1. Crt модулининг процедура ва функциялари; 2. MS DOS модулининг процедура ва функциялари; 3. Printer модули ; 4. Дастурни оверлейли куриш; 5. Оверлейли дастурни расмийлаштириш коидалари; 6. Оверлейни ишга созлаш; 7. Оверлей буферини бошкариш.

$1 . C r t м о д у л и н и н г п р о ц е д у р а в а ф у н к ц и я л а р и Юкорида кискача айтиб ытганимиздек, Crt модули матнли экран, клавиатура ва товуш динамиги билан ишлашни ташкил этувчи программалар билан жихозланган. Матнли режимдаги экран одатда 25 та катор ва хар бир каторда 80 та белги си\дириш имкониятига эга. Экранда хосил килиш мумкин былган ранглар сони эса 16 та (ок-кора рангли экран рангини кызда тутмаяпмиз). Экранда керакли белгини зарур жойда чикариш, матн ва фон рангини ызгартириш ва экраннинг ишини тылик бошкара олиш Crt модулининг вазифаларидан хисобланади: - GotoXY ( I , J : Byte ) процедураси экраннинг I устун ва J сатрига курсорни кычириб берди; - Write ( S ) процедураси курсор турган жойдан S каторни чоп этади; - TextColor ( Color : Byte ) процедураси экранга чикариладиган матн рангини ырнатади; - TextBackGround ( Color : Byte ) процедураси чоп этилувчи матн учун экран фонининг рангини ырнатади; - ClrScr процедураси TextBackGround процедураси ырнатган ранг билан экранни тозалайди, агар ранг ырнатилмаган былса экран кора ранг билан тозаланади, курсор экраннинг чап юкори кисмига чикарилади; - AssignCrt ( Var F : Text ) процедураси Crt модулини ырнатиш учун матнли файлни таъминлайди; - ClrEol процедураси курсор турган жойдан бошлаб экранни тозалайди. Агар Window процедураси билан ойна очилган былса тозалов шу ойна ичида былади. Курсор ыз ырнини ызгартирмайди; - Delay ( N : Word ) процедураси N милли секунд давомида тыхтовни ташкил этиб беради;$ $- DelLine процедураси курсор турган каторни ычиради. колган каторлар бир сатрга юкорига силжийди ва экраннинг охирги катори тозаланади; - HighVideo процедураси чоп этилаётган белгилар учун юкори ёру\ лик ырнатади; - InsLine процедураси курсор турган жойга быш катор ырнатади; - KeyPressed : Boolean функцияси агар клавиш босилса True , клавиш босилмаган былса False кийматни кайтаради; - LowVideo процедураси чоп этилаётган белгилар учун паст ёру\лик ырнатади; - NormVideo процедураси чоп этилаётган белгилар учун ыртача ёру\ лик ырнатади; - NoSound процедураси товуш динамигини ычиради; - ReadKey : Char функцияси клавиатурадан белгини ыкийди; - Sound ( X : Word ) процедураси товуш динамигини улайди ва уни берилган Х частотада товуш чикаришга мажбур килади; - TextMode ( N : Integer ) процедураси керакли N -матнли режимни ырнатади; - WhereX : Byte функцияси курсор турган жойнинг устун номерини (каралаётган ойнада), яъни X координатасини аниклайди; - WhereY : Byte функцияси каралаётган ойнага нисбатан курсор жойининг катор номерини, яъни Y координатасини аниклайди; - Window ( X 1, Y 1, X 2, Y 2: Byte ) процедураси экранда матнли ойна хосил килади. Бу ойна ызини худди тылик экрандек хис этади. Ранглар билан ишлашни кулайлаштириш максадида Crt модулида куйидаги ызгармаслар киритилган: Const Blackк0;{к ора } Blueк1;{ Кык }$

Greenк2;{ Яшил } Cyan к 3;{ Зангори ранг } Red к 4;{к изил } Magenta к 5;{ Пуштиранг } Brown к 6;{ Жигарранг } LightGray к 7;{ Оч кулранг } DarkGr а y к 8;{ Тык кулранг } LightBlue к 9;{ Оч хаворанг } LightGreenк10;{ Оч кык } LightCyanк11;{ Оч зангориранг } LightRedк12;{ Оч к изил } LigthMagentaк13;{ Оч пуштиранг } Yellowк14;{ Сари к} Whiteк15;{ О к} 2 . M S D O S м о д у л и н и н г п р о ц е д у р а в а ф у н к ц и я л а р и DOS нинг системали модули 6 килобайт атрофидаги жой эгаллаб , MSDOS мухити билан ишлашга ва унинг имкониятларидан фойдаланишга мылжалланган процедуралар ва функцияларга эга . Аслида бу процедуралар ва функциялар Паскал тилининг синтактик коидаларига мослаштирилган MSDOS ни чакириш функцияларидир . DOS модулидаги процедура ва функцияларни бажарадиган ишларининг маъноларига кыра олтита функционал гурухга ажратиш мумкин : - MSDOS параметрларини сырови ва уларни ырнатиш; - ШЭЩМда календар ва соатлар билан ишлаш; - Диск ресурсларининг анализи; - Каталог ва файллар билан ишлаш; - MSDOS узилишлари( прерывание ) билан ишлаш;

- Резидент программалар ва субпроцесслар билан ишлаш. 1) MSDOS параметрларини сырови ва уларни ырнатишнинг процедуралари ва функциялари: - DOSVersion : Word функцияси MSDOS версиясининг кодлаштирилган номерини аниклайди; - GetCbreak ( Var B : Boolean ) -процедураси Break параметрининг кийматини ыкийди; - SetCbreak ( Var B : Boolean ) процедураси Break кийматини ырнатади; - GetVerify ( Var V : Boolean ) процедураси Verify параметрининг кийматини ыкийди; - SetVerify ( V : Boolean ) процедураси Verify кийматини ырнатади; - EnvCount : Integer функцияси MSDOS нинг системали ызгарувчилари сонини аниклайди; - EnvString ( N : Integer ): String функцияси N номерли MSDOS ызгарувчисининг тылик вазифа каторини беради; - GetEnv ( E : String ): String функцияси E системали ызгарувчининг кийматини аниклайди. 2) ШЭЩМда календар ва соатлар билан ишлаш процедура ва функциялари: DOS модулида компьютер соати ва календар билан ишлаш хамда файлларни ташкил килиш куни ва вактини ырнатиш процедуралари мавжуд: - GetDate ( Var Year , Month , Day , Dw : Word ) ШЭЩМ соатидан йил, ой, кун ва хафта кунини ыкийди; - SetDate ( Year , Month , Day : Word ) процедураси ШЭЩМнинг соатига йил, ой ва кунни ырнатади;

- GetTime ( Var Hour , Min , Sec , Sec 100: Word ) процедураси ШЭЩМ соатидан хозирги вактни аниклайди; - SetTime ( Var Hour , Min , Sec , Sec 100: Word ) процедураси ШЭЩМ соатига янги вактни ырнатади; - PackTime ( Var Dt : Datetime ; Var T : Longint ) процедураси кун,ой, йил ва вакт маълумотларини файлга ёзиш учун ихчам холда тайёрлайди. - UnPackTime ( Var T : Longint ; Var Dt : Datetime ) процедураси файлдан ыкилган кун, ой, йил ва вакт ёзувини очиб беради; - GetFtime ( Var F ; Var T : Longint ) процедураси очик F файли учун кун, ой, йил ва вактнинг ихчам ёзувини ыкиб беради; - SetFtime ( Var F ; Var T : Longint ) процедураси очик F файли учун йил, ой, кун ва вактнинг ихчам ёзувини ёзиб кыяди. 3) Диск ресурслари тахлилининг функциялари: DOS модули ыз ичига диск холатини тахлил килишнинг иккита функциясини олади: - DiskFree ( D : Word ): Longint функцияси дискдаги быш жой ылчовини аниклайди; - DiskSize ( D : Word ): Longint функцияси дискнинг тылик хажмини байтларда аниклаб беради. Бу ерда D бутун кийматли параметр ёки бутун сон былиб, унинг киймати аник бир дискни кырсатади:  Агар D к0 былса ишлатилаётган жорий диск, D к1 былса А диск, D к2 былса B диск ва хоказолар тахлил килинади;  Агар мазкур система D нинг киритилган кийматига мос дискни топа олмаса функция -1га тенг киймат беради; 4) Каталоглар ва файллар билан ишлаш функциялари ва процедуралари. Паскал тилининг ташки файллар билан ишлаш имкониятлари жуда чекланган былиб, улар асосан куйидагилардан ташкил топган:

$файлни очиш, ёпиш, кайта ном бериш ва ычириш. Бу камчиликларни бартараф килиш учун DOS модулида бир канча функциялар ва процедуралар кызда тутилган: - FindFirst ( Path : String ; Attr : Word ; Var Sr : SearchRec ) процедураси Path сырови быйича Attr атрибутли биринчи мос исмни топади; - FindNext ( Var Sr : SearchRec ) процедураси FindFirst процедурасидан кейин чакирилиб, кейинги мос исмларни топиш учун ишлатилади; - FSearch ( Path : PathStr ; DirList : String ): PathStr функцияси DirList каталоглар рыйхатидан Path исмли файлни кидиради; - GetFattr ( Var F : File ; var Fa : Word ) процедураси F файли билан бо\ликли дискдаги файлнинг Fa атрибутини ыкийди; - SetFattr ( Var F : File ; var Fa : Word ) процедураси F файли билан бо\ликли дискдаги файлга атрибут ырнатади; - Fsplit ( Path : PathStr ; Var Dir : DirStr ; Var Name : NameStr ; Var Ext : ExtStr ) процедураси Path файлининг тылик исмини уни ташкил этувчиларига ажратади: Dir -йыли, Name -исми, Ext -кенгайтмаси. 5) MSDOS узилишлари билан ишлаш. MSDOS нинг системали функцияларини чакириш узилишлар кыринишида хал килинади. Щар бир узилиш активлаштирилгандан кейин турли хил функциялар тыпламига мурожаат килиш имкониятини яратади. Масалан, 16 H номерли узилиш, операцион системаси даражасидаги клавиатура билан мулокотни ташкил этувчи функцияларга йыл очиб беради, 25 H номерли узилиш эса дискни ыкиш ишларини бошкаришни ыз зиммасига олади ва хоказо. Жуда катта вазифалар 21 H узилиши зиммасидадир, чунки у операцион система (ОС)ни ташкил этувчи ынлаб функциялардан фойдаланишни ташкил килиб беради. куйида эътиборингизга Паскал - программасидан туриб MSDOSнинг функцияларига мурожаат килишни ташкил килиб берувчи$

DOS модули процедураларининг вазифалари ва аникланишларини хавола киламиз: - GetIntVec ( N : byte ; Var Adress : pointer ) процедураси Adress кырсаткичига берилган N номерли узилиш кисм дастурининг адресини аниклаб беради; - SetIntVec ( N : byte ; Var Adress : pointer ) процедураси N -номерли узилишнинг янги кисм дастурини DOS га ырнатиб, адреснинг эски кийматини Adress кырсткичига жойлайди; - Intr ( N : byte ; Var R : Register ) процедураси N программали узилишни активлаштириб, функция номери ва параметрларини R ызгарувчисига узатади; - MsDos ( Var R : Register ) процедураси 21 H номерли узилишни махсус чакириш вазифасини бажаради. Охирги процедурада янги Register типи киритилди. Бу тип DOS модулида аникланган куйидаги ёзувдан иборат: Type registerкRecord case Integer of 0:(AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags:Word); 1:(AL,AH,BL,BH,CL,CH,DL,DH:Byte); end; Бу типдаги ызгарувчилар микропроцессор регистрларга Intr ва MsDos ларни ча к иришда йыл очиш учун ишлатилади : 0-вариантида-16 разрядли регистрларга 1-вариантда эса 8 разрядли процессор ячейкаларига мурожаат килинади. 6) Резидент программалар ва субпроцесс (субжараён)ларни ташкил килиш.

MS-DOS операцион системаси субпроцессларини ташкил килиш быйича катта имкониятларга эга. Субпроцессда бир программа бошка бир программани ишга туширса, бошка бир программа эса ыз навбатида кейинги программани ишга туширади ва хакозо. Бу холда ишга туширувчи программа (процесс) субпроцессни ишини ташкил килиб ызи ишдан тыхтайди, лекин ШЭХМ хотирасида сакланиб туради. Субпроцесс эса хотиранинг колган кисмида ихтиёрий программа каби бажарилади. У ыз ишини якунлагач кейинги жараён программаси иш бошлайди. MS-DOS нинг бу хоссаси интегратор-программаларни яратиш имкониятини хосил килади. Щаммага таниш былган Norton Commander программаси субпроцесслардан актив фойдаланувчи, резидент былмаган программа хисобланади. Оддий программалар ыз ишини якунлагач ШЭЩМ хотирасини бышатиб кыяди. Субпроцесслар эса ишини якунлагач, бошкаришни ызларини чакирган программаларга узатади, улар эса ыз навбатида кейингиси ва жараён охирида бошкариш ОС (операцион система)га узатилади. Резидент программалар эса бошкача ишлайди. Улар ишга тушгач дарров кандайдир амалларни бажариши мумкин, ёки ОС узилишлари билан турли хил тушунарсиз ишларни амалга ошириши мумкин. Уларни асосий хислати шуки, ыз ишини якунлагач ШЭЩМ хотирасида сакланиб колади ва бирор бир шартнинг бажарилишига караб кайта "тирилиши" яъни яна ишлай бошлаши мумкин. Резидент программаларга мисол килиб куйидаги программаларни кырсатиш мумкин: Side Kick системаси, ALFA ва BETA кирилл драйверлари, антивирус программалари, вирус программалари ва хакозо. Резидент программаларнинг барчасини бир хил нарса бирлаштиради, бу хам былса уларни ички(тезкор) хотирада (ОЗУ) жойлашиши ва махсус шартларда ( ALFA, BETA клавишларини босишда, антивирус программаларга мурожаатда, кыйилган вактни етиб келишида ва хакозо) кайта "тирилиши".

$Пассив холатларда резидент программалар факат ортикча жой ушлаб туришади, бошка оддий программалар ишига халакит бермайди. ШЭЩМ хотирасидан унумли фойдаланган холда субпроцессларни ташкил килиш ва резидент программалар билан ишлашнинг махсус процедураларидан фойдаланиш мумкин: - SwapVectors процедраси ишга туширилаётган субпроцесслар учун системали ёки вактинчалик узилишлар векторларини тиклайди; - Exec (ExeFile, ComLine: String) процедураси ComLine сатрли параметр билан ExeFile (субпроцесс) бажарилувчи файлини ишга туширади; - DosExitCode: Word функцияси субпроцесс якунланганлиги хакидаги кодни аниклайди; - Keep(ExitCode:Word) процедураси ШЭЩМ хотирасидан ычмаган холда программа ишини якунлайди (резидент кодини ташкил килади). 3 . P r i n t e r м о д у л и Паскал тилининг кутубхонасида санаб ытилган модуллар каторида Printer модули хам ызининг муносиб жойини эгаллаган, чунки олинган натижаларни принтер оркали ко\озга чоп этиш мухим ишдир. Бу модулнинг асосий вазифаси программа ва чоп этувчи курилма (одатда принтер) ыртасида алока ырнатишдир. Бу кичик модул бор-йы\и битта ызгарувчи ва бажарилувчи матннинг икки каторидан ташкил топган. Бу модул Lst ызгарувчиси ва LPT1 (биринчи параллел порт) системали курилма мослигини ырнатади. Модулнинг тыли к матни к ыйидагича : Unit Printer ; Interface$ $Var Lst:Text; Implementation Begin Assign(Lst,'LPT1'); Rewrite(Lst) End. Printer модулини улангандан сынг Write(Lst, ... ) ва WriteLn(Lst, ... ) операторлари натижавий маълумотларни ты \ ридан - ты \ ри принтерга чи к аради . Агар принтер бош к а к урилма ор к али уланган былса , масалан иккинчи порт LPT2 ёки кетма - кетли СОМ 1 порти ор к али у холда дастурчи ызининг Printer2 номли модулини яратиб олиши мумкин . У холда ю к оридаги модул программаси матнидаги LPT1 ёзувини бош к а исмга (LPT2 ёки СОМ 1) алмаштирилиб трансляция к илиб олинади . Натижаларни ёки махсус буйру к ли кодларни принтерга Lst файли ( ёки шунга ыхшаган ) ор к али чи к ариш , чоп этишни бош к аришнинг ягона йыли эмас . БСВВ17Н узилиши оркали принтерга белгилар ёки уларнинг кетма- кетлигини узатиш мумкин. Бундан ташкари мазкур узилишдан фойдаланиш, чоп этиш курилмасининг холатини сыраш имкониятини яратади. 17Н узилиши принтерга хизмат кырсатишнинг 3 хил функциясидан фойдаланишга рухсат беради: - белгиларни принтерда чоп этиш (0-номерли функция); - принтер портини ишга созлаш (1-номерли функция); - принтер холатини ыкиш (2-номерли функция). 4 . Д а с т у р н и о в е р л е й л и к у р и л и ш . Жуда кып холатларда, дастур компиляция килингандан сынг маълум быладики дастур учун ШЭХМ нинг ички тезкор хотираси етишмай колади,$

яъни дастур талаб килган хотира жойининг микдори ШЭХМ нинг хотирасидан катта былади. Бу холатда экранда Not enough memory («хотира етишмаяпти») маъносидаги хато кырсатилган маълумот хосил былади Бундай холатларда дастурчига Overlay модули ёрдамга ошикади. Overlay модули дастурни алохида былакларга ажратишнинг кучли воситаси хисобланади. бундай былаклар сони ихтиёрий сонда былиши ва бу былакларга зарур быладиган жой микдори ШЭХМ имкониятидан анча юкори былиши мумкин. Оверлейли тарзда тузилган дастур битта . ЕХЕ кенгайтмали файлдан ва шундай номли лекин .О VR кенгайтмали яна битта файлдан ташкил топган былади. Бунда ЕХЕ – файл дастурнинг доимий кисмини, OVR – файли эса зарур пайтда хотирага юкланадиган кодларни саклаб туради. Оверлейли тарзда тузилган дастурда хотирада факат хозирдагина зарур быладиган оверлейли процедура ва функцияларгина сакланади, улар керакли пайтдагина ызларининг жойларини бошка процедура ва функцияларга бышатиб беради. Бу холда кышимча хотира жойи талаб килинмайди чунки дастурнинг оверлейли кисмлари хотиранинг факат бир кисминигина навбат билан ишлатади холос. Хотиранинг мазкур кисми оверлейли буфер деб аталади. Оверлейларни хотирага юклаш ва хотирадан бышатиш каби ички амалларнинг барчасини оверлей администрацияси автоматик тарзда бажаради. Дастурчидан эса факат дастурнинг оверлейли парчаларини эълон килиш ва унинг администрациясини ишга солиш талаб килинади холос. 5 . О в е р л е й л и д а с т у р л а р н и р а с м и й л а ш т и р и ш к о и д а л а р и Турбо Паскалда оверлейлар модуллар даражасидагина яратилиши мумкин. Оверлейлар худди оддий модуллар каби эълон былими ( INTERFACE ) ва хисоблаш былими ( IMPLEMENTATION ), хамда уни фаоллаштирадиган кисмлардан ташкил топади. Шу билан бир каторда куйидаги шартларни бажарилиши хам талаб килинади.

- хар бир оверлей модул учун унга олдиндан оверлейлилик хукукини берувчи {$ F к} компиляция режими ырнатилиши лозим; - оверлейли кисм-дастурлардан бевосита ва билвосита фойдаланувчи барча процедура ва функциялар {$ F к} компиляция килиниши лозим. Бу шартларни бажариш учун оверлейли модулнинг бош кисмига {$ F к, $Ок} директиваларини ырнатиб, асосий дастурнинг биринчи каторларига {$ F к}, компиляция режимининг калити ёзиб кыйилади. Бундан ташкари, асосий дастур overlay модулига уланган былиши ва uses директивасидаги кайси модуллар оверлейли эканлиги кырсатиб кыйилади. Мисол сифатида куйидаги дастурнинг бош кисмини кырсатиб ытамиз: Program MultiCalc; {$Fк} uses crt,dos,Overlay, MultiCalc, divCalc AddCalc, Subcalc; { $O MultiCalc} { MultiCalc модули – оверлей } { $O DivCalc} { DivCalc модули – оверлей } { $O AddCalc} { AddCalc модули – оверлей } { $O SubCalc} { SubCalc модули – оверлей } . . . . . . . . . . Ахамият берган былсангиз { $O < модул исми >} директиваси оверлейли модулларни кырсатиш учун ёзилишга мажбурдир , бундан таш к ари , uses директивасининг модуллари рыйхатида overlay модули оверлейли модуллар рыйхатининг бошида келиши шарт . Оверлейли дастурлар хотирада компиляция килинмайди, энди улар факат дисклардагина хосил килинади. Дастур компиляциясидан сынг (бу дастурни MULTICALC . PAS номи билан атайлик) MULTICALC .ЕХЕ

$бажарувчи файли ва оверлейли деб эълон килинган барча модуллардаги процедураларнинг кодларини сакловчи йылдош файли хосил килинади. 6 . О в е р л е й и ш г а с о з л а ш Оверлей администраторини юклаш дастурни ишлаши давомида факатгина бир марта бажарилиши шарт. Бу иш куйидаги overlay модулида эълон килинган процедурага мурожаат оркали амалга оширилади: OvrInit (Ovr File Name: string ) Бу процедура оверлей администраторини ишга юклайди ва ovr оверлейли файлини очади. 2. Оверлейни юклаш натижаларининг тахлили учун Overlay модулидаги олдиндан аниклаб кыйилган бутун типли OvrResult ызгарувчиси мавжуд былиб, у мазкур модул процедура ва функцияларининг, шу жумладан OvrInit процедурасининг ишларини якунлаш кодини ызида саклайди. OvrResult ызгарувчиси етти хил киймат кабул килиши мумкин ва бу кийматларнинг хар бирига мос равишда ызгармаслар бириктириб куйилган. Бу маълумотлар куйидаги жадвалда келтирилган Ызгармаслар Ызгармаснинг маъноси OvrOk*0 OvrEror *-1 OvrNotFound*-2 Ovr NoMemory*-3 OvrIOEror*-4 OvrNoEMSDriver*-5 OvrNoEMSMemory* -6 ты\ри якунланиши Overlay ни бошкариш хатоси . Ovr файли топилмади Буфер учун хотира етишмаяпти оверлейли файлни ыкишда бузилиш рый юерган EMS дравейри ырнатилмаган EMS – хотира хажми етарли эмас$ $Энди санаб ытилган хатоликлар хакида тыликрок тыхталиб ытайлик: - OvrEror хатоси - оверлейли былмаган файлни юклашга харакат килинганда рый беради ; - OvrNotFound хатоси - оверлейли файлни дискка ноты\ри жойлаш окибатида юзага келиши мумкин ; - OvrNoMemory хатоси - ШЭХМ нинг быш хотираси етишмаслигидан рый бериши мумкин ; - OvrIOEror хатосини - келиб чикишига кыпрок ташки факторлар сабабчи былади ( файлни шикастланиши, MS – DOS ичидаги бузилишлар ) ; - OvrEMSDriver ва OvrNoEMSMemory хатоликлари OvrInit процедурасининг эмас, балки OvrInitEMS кышимча процедурасининг ишидаги хатоликларидан келиб чикади. 7 . О в е р л е й б у ф е р и н и б о ш к а р и ш Оверлей буферининг ылчовларини бошкариш ва уни тозалаш учун Overlay модулида махсус процедура ва функциялар киритилган: OvrGetBuf функцияси Вазифаси : ишчи буфернинг байтлардаги ылчовларини аниклайди ; Аникланиши : OvrGetBuf : Longint ; бу ерда функциянинг киймати баъзи холларда 64 кб дан ошиши мумкин, шунинг учун, функция кийматини longint деб эълон килинади. OvrSetBuf процедураси Вазифаси :буфер ылчовини мослаштириб туради;$

Crt, MS DOS, Printer ва Overlay модулларининг процедура ва функциялари

20.09.2019

0

118 KB

Похожие