Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти



Download 1,17 Mb.
bet38/69
Sana28.06.2022
Hajmi1,17 Mb.
#712699
1   ...   34   35   36   37   38   39   40   41   ...   69
Bog'liq
PASCAL

3.24Ёрикликни бошкариш


LowVideo, NormVideo, HighVideo

Ёрикликни бошкариш учун LowVideo, NormVideo, HighVideo стандарт процедуралари ишлатилади.


Уччала процедура хам TextAttr узгарувчисининг мос кийматларини урнатиш учун хизмат килади.


LowVideo - экрандаги белгиларнинг минимал ёруклик режимини урнатади. Режим NormVideo процедураси ёрдамида олиб ташланмагунча ишлайди. Процедураниниг харакати TextAttr:= TextAttr AND $F7 операторининг харакатига эквивилентдир.


Мисол.

LowVideo;
Write ('MS-DOS 4.01');

Предложение "MS-DOS 4.01" сузи эранга минимал ёруклик билан чикарилади.


NormVideo - экрндги белиларнинг нормал ёруклик режимини урнатади.

Мисол.

LowVideo;
Write ('MS-DOS 4.01');
NormVideo; { LowVideo режимини йукотади}
Write ('Операцион система');

"Операционная система" сузи экранга нормаль ёрукликдаги ёзувларда чикади.


HighVideo - ёрукликнинг максимал режимини урнатади.. Процедура TextAttr:= TextAttr OR $08 оператори каби ишлайди.


Мисол.
LowVideo;


Write ('MS-DOS 4.01');
NormVideo;
Write ('Операцион система ');
HighVideo; { NormVideo режимини йукотади}
Write ('шахсий компьютерлар учун');

"Шахсий компьютерлар учун " сузи экранга максимал ёрукликдаги ёзувларда чикади.


3.25 Матнли дарчалар


Дарча, Sound, NoSound, Delay

CRT модули дастур иши давомида ахборотни экранга чикариш учу н экрандан тула эмас, кисман фойдаланиш имконини беради Экраннинг бу кисмини дарча деб аталади. Дарчананинг улчови фойдаланувчи томонидан аникланади, лекин унинг улчови экран улчовидан ортик булмаслиги керак.Дарчаларни ташкил килиш учун Turbo-Pascal тилида Window(X1,Y1,X2,Y2) процедурасидан фойдаланилади:


бу ерда X1, Y1 - юкори чап дарча бурчак координаталари, X2, Y2 -лар пастки унг дарча бурчак координаталари.. Тула экран координаталари (1,1,80,25) га тенг минимал -бир каторга бир устун.

Мисол.

Window(1,1,80,25); { Дарча - тула экран }
Window(19,7,59,16); { Экран марказидаги дарча}

Window процедураси активлашгандан сунг , CRT модули жорий дарча улчовлари кайд килинган WindMin ва WindMax узгарувчиларини ишга туширади.


Бу кийматлардан дарчалар системасини ташкиллашда фойдаланиш мумкин. Масалан, жорий дарчанинг X- ва Y- юкори унг бурчак координаталарини аниклаш учун куйидаги ифода кулланилади:

X := Lo(WindMin);


Y := Hi(WindMin);

Худди шу усулда жорий дарчанинг унг паст бурчак координаталарини аниклаш мумкин. Writeln, Write, Readln, Read, Window, GoToXY, ClrScr, InsLine, DelLine, WhereX, WhereY процедура ва фунциялари жорий дарчага нисбатан узларига бирикртирилган харакатларни бажарадилар. Матн дарчалари билан ишлашни куйидаги мисолда куриб утамиз.


PROGRAM DemoRandomWindow;
USES Crt;
VAR
X, Y, I : byte;
BEGIN
NormVideo;
ClrScr;
FOR I:= 1 to 40 DO BEGIN
X:= Succ(Random(80));
Y:= Succ(Random(25));
Window(X,Y,X+Random(20),Y+Random(8));
TextBackGround(Random(8));
ClrScr;
Write('Дарчага чикарш',^G, I);
Delay(300)
END;
END. { DemoRandomWindow }

Ушбу дастур 40 та дарчани генерация килади, чегара ва фон тасодифий танланади.


Дарчалар координатасини саклаш учун куйдаги структурадан фойдаланилади:
TYPE
WinRecord = RECORD
XupLeft,
YupLeft,
XlowRight,
YupRight : byte;
END;
CONST
MaxWin = 10;
VAR
WinMas : array[1..MaxWin] of WinRecord;

Дарчалар купича дастурларда матнли ахбортни скроллинлаш (кайириш) учун ишлатилади. Бу процессни InsLine ва DelLine процедуралари ёрдамида хам бажариш мумкин.


PROGRAM DemoInsLine;
USES Crt;
VAR
I : byte;
BEGIN
Window(20,6,60,15);
ClrScr;
FOR I:= 1 TO 10 DO
Write('Дарчага чикиш');
FOR I:= 1 TO 5 DO BEGIN
GoToXY(1,1);
InsLine;
Write('Каторни кушиш');
Delay(500);
END;
END. { DemoInsLine }

Товушли эффектни хосил килиш учун Turbo Pascal да CRT модулининг Sound, NoSound ва Delay стандарт функцияларидан фойдаланамиз.


Sound(I: word) - шахсий компьютернинг товуш NoSound процедураси билан олиб ташланмагунча генерацияланиб туради.


NoSound - Sound процедураси билан берилган товуш режимини олиб ташлаш..


Delay - бу процедура товуш канча вакт давом этиши мумкинлигини аниклйди.


Мисол.
BEGIN


Sound(500);
Delay(2000);
NoSound
END;
Бу мисолда 555 Гц ли товуш сигнали 2 с (2000 мс) давом этиши мумкин.



Download 1,17 Mb.

Do'stlaringiz bilan baham:
1   ...   34   35   36   37   38   39   40   41   ...   69




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish