Режа
9.1. Меню ташкил килиш
9.1. Меню ташкил килиш.
Меню, меню хосил килиш, меню номи, 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 та позиция.
Талабалар тугрисида киритилган маълумотларни вилояти ва
жинси буйича саралаш программасини тузинг. Саралаш натижаларини экранга ва принтерга чикаринг.
2>1>
Do'stlaringiz bilan baham: |