1-Маъруза. Дастурлаш тиллари ва уларни куллаш



Download 1,35 Mb.
bet39/68
Sana25.02.2022
Hajmi1,35 Mb.
#311154
TuriИнструкция
1   ...   35   36   37   38   39   40   41   42   ...   68
Bog'liq
PASCAL

3.27 Dos модули


Ситемали вакт ва кун билан ишлаш процедура ва функциялари, DiskFree, DiskSize, Fexpand, FSearch, FindFirst, FindNext, файл атрибутлари,

Dos модули - турли DOS функцияларини ишлатиш воситаларини уз ичига олади. Бу модулда жуда куп процедура ва функциялар мавжуд , лекин энг куп таркалганлари ва ушбу модулга кирмайдиган процедураларни куриб чикамиз.




Системали кун ва вакт билан ишлаш учун процедура ва функциялар:

procedure SetTime (Hour, Min, Sec,Sec100: word) - системали вактни урнатади. Бу ерда, Hour - вактни беради, Min - минутлар, Sec - секундлар, Sec100 - секунднинг юздан бир булаги.


procedure GetTime(var Hour, Min, Sec, Sec100: Word) - ситемали вактни кайтаради.


Кайтарилаётган узгарувчиларнинг чегара киймати : Hour 0..23, Min 0..59, Sec 0..59, и Sec100 0..99.

procedure GetDate(var Year, Month, Day, DayOfWeek: Word) - ситемали кунни кайтаради. Year - йил, Month- ой , Day - кун, DayOfWeek - хафта кунлари.


Кайтарилаётган узгарувчиларнинг чегара киймати: Year 1980..2099, Month 1..12, Day 1..31, и DayOfWeek 0..6 (бу ерда 0 - Якшанба).

procedure SetDate (Year, Month, Day: Word) - ситемали кунни урнатади. Узгарувчиларнинг кийматлари GetDate процедуасидаги кийматларга тенг.


Дисклар билан ишлаш учун процедура ва функциялар:

function DiskFree(Drive: Byte): Longint - курсатилган Drive дискини хотирадаги буш хажмини байтлардаги хажмини кайтаради.


Бу ерда Drive узгарувчиси - диск:
0 жорий диск
1 А диск
2 В диск
3 С диск
ва хокозо.
function DiskSize(Drive: Byte): Longint - курсатилган Drive дискини тула хажмини кайтаради.
Бу ерда Drive узгарувчиси- диск:
0 жорий диск
1 А диск A
2 В диск B
3 С диск C
ва хокозо.

Файллар билан ишлаш учун процедура ва функциялар:


function FExpand (Path: PathStr): PathStr - файл номини кенгайтиради.


Вазифаси : Файл номини Path параметри оркали берилган, тула файл номигача кенгайтиради.
Натижада олинган ном ёзув харфларига айлантирилиб, дисководларнинг харфий белгиларини уз ичига олади. Булар: икки нукта, илдиз каталогга кириш йули ва файл номи.
C:\SOURCE\PAS ни жорий диск ва каталог деб фараз киламиз, у холда FExpand процедураси куйидаги кийматларни беради:
FExpand('test.pas') = 'C:\SOURCE\PAS\TEST.PAS'
FExpand('../*.TPU') = 'C:\SOURCE\*.TPU'
FExpand('c:\bin\turbo.exe') = 'C:\BIN\TURBO.EXE'

Рrocedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr) - лар файл номини учта компонентага булади.


Path параметри оркали берилган файл номи учта компонентага булинади Dir узгарувчиси учун дисководнинг харфий белгиси ва каталогга кириш маршрути урнатилади. Name узгарувчиси фай номи кийматини узлаштиради, Ext эса файл номи кенгаймасини узлаштиради..
PathStr, DirStr, ExtStr ва NameStr типлари Dos. модулида аникланган.
Файл номини компоненталарга булишда FSplit процедураси хеч кандай белгилар кушмийди ва учирмайди. Натижавий Dir, Name ва Ext кийматларни бирлаштиришда берилган маршрут олинади.

function Fsearch (Path: PathStr; L: String): PathStr функция каталоглар руйхатидан файлни ахтаради.


Path- бу ахтарилаётган файл номи ,L -каталоглар руйхати.
procedure FindFirst(Path: String; Attr: Bytе; var S:SearchRec);
Берилган ёзувдаги биринчи ёзувни ахтаради.
Бу процедурада Path урнига *, ? ни куллаш мумкин.. Attr - изланилаётган файл атрибути.
Натижа SearchRec ёзувига кайтади.
Мисол:
uses Dos;
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', Archive, DirInfo); { DIR каби*.PAS }
while DosError = 0 do
begin
Writeln(DirInfo.Name);
FindNext(DirInfo);
end;
end.

procedure FindNext(var s: SearchRec);


Вазифаси: Файл атрибутларига ва номига мос кейинги ёзувларни кайтаради.
Файл атрибутлари руйхати:
ReadOnly $01 - факат укищ учун
Hidden $02 - яширин
SysFile $04 - системали VolumeID $08 - том меткаси Directory $10 - каталог
Archive $20 - архивли
AnyFile $3F - хар кандай файл

Назорат саволлари


1.Белги нима?


2.Матнли режим кандай урнатилади?
3.Экранни тозалаш кандай амалга оширилади?
4.Курсор кандай бошкарилади?
5.Курсор координаталари кандай урнатилади?
6.Белгиларни учириб- ёндири кандай бажарилади?
7. LowVideo нинг вазифаси нима?
8.Клавиатурани бошкариш кандай амлга оширилади?
9. ReadKey ва KeyPressed функцияларининг вазифалари нима?
10. Dos модули нима?
11. Системали кун ва вакт билан ишлаш учун процедура ва функцияларининг вазифалари нима?
12. Дисклар билан ишлаш учун кандай процедура ва функциялар мавжуд?

Download 1,35 Mb.

Do'stlaringiz bilan baham:
1   ...   35   36   37   38   39   40   41   42   ...   68




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