|
ЁЗИЛИШИ: SET TALK ON | OFF
ВАЗИФАСИ: SET TALK ON холатда экранга командалар (SORT,PACK каби ) протoколи чикарилиб турилади. OFF - бекор килади.
ЁЗИЛИШИ: SET TYPEAHEAD TO <узгарувчи N >
ВАЗИФАСИ: Киритиш буферини ёкади/учиради. Агар <узгарувчиN> нинг киймати 0 га тенг булса буферда хеч кандай символ саклаб колинмайди. Агар <узгарувчи N>га 1 дан 32.000 (максимал) гача сон берилган булса, киритиш буферида I28 тагача символ сакланиши мумкин. <Узгарувчи N> = 0 булганда TYPEAHEAD командаси ON KEY командасининг INKEY() функциясини бекор килади.
ЁЗИЛИШИ: SET UNIQUЕ OFF | ON
ВАЗИФАСИ: Индекс файл хосил килишда хамма ёзувлар хам бир хил ахамиятга эга ёки эга булмаслигини таъминлайди. ON холатда факат 1-шартга жавоб берувчи ёзув индекс килинади.
Назорат саволлари
1. Йил форматини аниклаш кандай амалга оширилади?
2 Ранг атрибутлари каси команда ердамида урнатилади?
3. Ёзувлар группасини фильтрлаш канай амалга оширилади?
4. сана форматларини урнатиш каси команда ердамида бажарилади?
5. SAY командаси йуналишини урнатиш кандай бажарилади?
6. Сстатус катори нима?
7. SET STEP комндасининг вазифаси нима?
8. SET TYPEAHEAD TO командаси нима вазифани бажаради?
9. SET UNIQUЕ OFF | ON командасининг вазифаси нима?
10. SET SCOREBOARD ON | OFF командаси нима вазифани бажаради?
17-Мавзу. Карат мухитида дастур тузиш. 3.48. Меню ташкил килиш.
Меню, меню хосил килиш, меню номи, CASE ва IF операторлари, менюни ишга тушириш, дастурни ишга тушириш.
Дастур тузувчи энг аввало бажариладиган вазифанинг алгоритмини билиши, команда ва функциялар тугрисида маълумотга эга булиши керак. Агар дастур маълумотлар базаси (МБ) файли билан ишлаш учун тузилса, МБ нинг жорий каталогда мавжуд булиши, еки уни дастур тузишдан аввал ташкил килиб олиш керак.
Дастур тузиш учун тахрирловчини чакириш учун интерактив режимда туриб
. MODIFY COMMAND <файл> командаси берилади. Агар <файл> мавжуд булмаса, янги <файл> ташкил килинади. Бу файлнинг кенгайтмасини система автоматик равишда.PRG деб кабул килади. Тахрирловчи (редактор) нинг куриниши куйидагича булади:
Тахрирловчидан CTRL+END тугмачаларни босиб, интерактив режимга утиш мумкин. Дастурни ишга тушириш учун
.DO <файл> командаси берилади. Интерактив режимдан туриб берилган буйрукларни кайта ишлатиш учун пастга ва юкорига стрелкаларини босиш кифоя, чунки бу буйрукларнинг руйхатини система махсус буферда саклаб туради. Системадан чикилганда бу руйхат бекор килинади. (MODIFY ва DO командаларига каранг).
Куйида дастур тузиш учун мухим булган меню тузишни куриб чикайлик.
***** Меню ташкил килиш
set stat off && статус катоpини олиб ташлаш
set talk off && командалаp пpотоколини олиб ташлаш
set colo to b/w,gr+/r+ && pанглаpни уpнатиш gr+ менюни; ************************* pанги, r+ меню фонининг pанги
set messAGE to 24 && билдиpишни 24 сатpга жойлаяпти
set device to screen
@ 0,0 clear && Экpанни тозалаш
@ 1,1 to 22,78 double &&pамка чизиш
@ 3,3 to 10,76 double
@ 6,8 say" ТАБИИЙ ГАЗ БИЛАH ТАЪМИHЛАШ ПPОГPАММАСИ"
@ 8,8 say"Автоp: 27-97 гуpух толиби Обидов Азиз"
@ 13,3 to 15,76 double && pамка чизиш
******** меню тузилиши
@ 14,15 prompt "Сервис" mess 'Киpитиш, тузатиш ишлаpини бажаpиш'
@ 14,30 prompt "Тулов счетлари" mess 'Кидиpиш ва хисоблаш'
@ 14,56 prompt "Чикиш" mess 'Пpогpаммадан чикиш'
menu to n && n - менюнинг номи
do case
case n=1
do kir && kir номли пpогpаммани ишга тушиpиш
case n=2
do ts && ts номли пpогpаммани ишга тушиpиш
case n=3
quit && пpогpаммадан чикиш (MS DOS га)
endcase
Агар меню 2 та булимдан ташкил топган булса,
DO CASE ... ENDCASE командалари урнига IF... ELSE ... ENDIF командаларидан фойдалансак хам булади.
Масалан:
MENU TO n
IF n=1
<1 - ходисага тегишли командалар руйхати>
ELSE
<2 - ходисага тегишли командалар руйхати>
ENDIF
Вазифа. Институтга Фаргона водийсидан келиб укийдиган
студентлар тугрисида куйидаги маълумотларни янги МБ га киритинг:
1) Фамилияси - 20 та позиция;
2) Исми - 15 та позиция;
3) Вилояти - 8 та позиция;
4) Еши - 8 та позиция (еш сана форматида курсатилади);
5) Жинси - 5 та позиция.
Талабалар тугрисида киритилган маълумотларни вилояти ва
жинси буйича саралаш программасини тузинг. Саралаш натижаларини экранга ва принтерга чикаринг.
Do'stlaringiz bilan baham: |
