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

1 - усул:

*** 1 - дастур, 28.11.98 йил, dars1.prg

SET TALK OFF
SET STATUS OFF
SET MESSAGE TO 22 && MESSAGE командасида курсатилган ********************** изохни чикариш учун жой курсатиш
SET COLOR TO B/W,GR+/R+&& ранг атрибутларини урнатиш
USE STUD && STUD номли базани очиш
GO TOP&& ёзувлар курсаткичини база бошига урнатиш
CLEAR && экранни тозалаш
@ 1,1 TO 22,78 DOUBLE && 2 талик рамка чизиш
@ 3,3 SAY "Студентлар тугрисида маълумотни саралаш"
@ 5,5 PROMPT"Вилояти"MESSAGE'Талабаларни вилоятлари буйича саралаш'
@ 5,25 PROMPT"Жинси " MESSAGE'Талабаларни жинси буйича саралаш'

MENU TO var && var - менюни номлаш учун берилган узгарувчи

IF var=1 && шартни текшириш

wil1=SPACE(15) && wil1 - 15 та буш позициядан иборат узгарувчи

@ 10,3 SAY "Кайси вилоят буйича ? " GET wil1
READ && wil1 га киритилганларни укиб олиш
SET FILTER TO wil1=wil && wil - базадаги вилоятлар учун ****************************** ажратилган майдон
ELSE && акс холда

jins1=SPACE(10)&&wil1 - 10 та буш позициядан иборат узгарувчи

@ 10,3 SAY "Кайси жинс буйича ? " GET jins1

READ
SET FILTER TO jins1=jins && jins - базадаги талабалар жинсини ********************курсатиш учун ажратилган майдон
ENDIF

@ 0,0 CLEAR

LIST
WAIT''
USE
2 - усул:

*** 2 - дастур, 28.11.98 йил, dars2.prg

SET TALK OFF
SET STAT OFF
SET MESS TO 22
SET COLOR TO B/W,GR+/R+
USE STUD
GO TOP
CLEAR
wil1="Фаргона"
wil2="Андижон"
wil3="Наманган"
jins1= "аел"
jins2= "эркак"
PUBLIC uzgar && uzgar ни хакикий деб эълон килиш
@ 1,1 TO 20,78 DOUBLE
@ 3,3 SAY "Студентлар тугрисида маълумотни саралаш"

SAVE SCREEN TO wid1 && экран куринишини wid1 га саклаб куйиш

@ 5,5 PROMPT"Вилояти" MESSAGE'Талабаларни вилоятлари буйича саралаш'
@ 5,25 PROMPT"Жинси " MESSAGE'Талабаларни жинси буйича саралаш'

MENU TO var

IF var=1
@ 10,3 SAY "Кайси вилоят буйича ? "
@ 13,10 PROMPT wil1
@ 13,25 PROMPT wil2
@ 13,40 PROMPT wil3
MENU TO var1
DO CASE
CASE var1= 1
uzgar=wil1
CASE var1= 2
uzgar=wil2
CASE var1= 3
uzgar=wil3
ENDCASE
ELSE
@ 10,3 SAY "Кайси жинс буйича ? "
@ 13,10 PROMPT jins1
@ 13,30 PROMPT jins2
MENU TO var2
IF var2= 1
uzgar=jins1
ELSE
uzgar=jins2
ENDIF
ENDIF
@ 0,0 CLEAR
DO natija
SET FILTER TO
USE
SET DEVICE TO SCREEN
WAIT''
2.1 - (2-усул учун кушимча равишда алохида файл килиб киритилади)
**** NATIJA.PRG
RESTORE SCREEN FROM WID1
i=3
@ 8,3 to 11,35
@ 9,5 SAY "Саралаш натижаларини чикариш"
@ 10,5 PROMPT "Экранга"
@ 10,20 PROMPT "Файлга езиш"
MENU TO var3
DO CASE

CASE var3= 1

********** Экранга чикариш *********

@ 0,0 CLEAR
SET DEVICE TO SCREEN
@ 1,15 SAY "С А Р А Л А Ш Н А Т И Ж А Л А Р И"
@ i,3 SAY "Фамилияси"
@ i,23 SAY "Исми"
@ i,38 SAY "Туг.сана"
@ i,50 SAY "Жинси"
@ i,60 SAY "Вилояти"
@ ROW()+1,1 SAY REPLICATE("_",70)
GO TOP
DO WHILE .NOT.EOF()
IF uzgar=TRIM(wil).OR.uzgar=TRIM(jins)
@ i+2,3 SAY TRIM(fam)
@ ROW(),23 SAY TRIM(ism)
@ ROW(),38 SAY yoshi
@ ROW(),50 SAY TRIM(jins)
@ ROW(),60 SAY TRIM(wil)
i=i+1

ENDIF
SKIP+1

ENDDO
********* Файлга езиш ********
CASE var3= 2
ruyhat=SPACE(8)
@ 12,5 SAY "Файл номини киритинг" GET ruyhat
READ
SET DEVICE TO PRINT
SET PRINTER TO &ruyhat

@ 1,15 SAY "С А Р А Л А Ш Н А Т И Ж А Л А Р И"

@ i,3 SAY "Фамилияси"
@ i,23 SAY "Исми"
@ i,38 SAY "Туг.сана"
@ i,50 SAY "Жинси"
@ i,60 SAY "Вилояти"
@ PROW()+1,1 SAY REPLICATE("_",70)
GO TOP
DO WHILE .NOT.EOF()
IF uzgar=TRIM(wil).OR.uzgar=TRIM(jins)
@ i+2,3 SAY TRIM(fam)
@ PROW(),23 SAY TRIM(ism)
@ PROW(),38 SAY yoshi
@ PROW(),50 SAY TRIM(jins)
@ PROW(),60 SAY TRIM(wil)
i=i+1
ENDIF
SKIP+1
ENDDO
ENDCASE

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

1. 
   Меню нима?
   
2. 
   М еню кандай хосил килинади?
   
3. 
   Менюга кандай килиб ном куйилади?
   
4. 
   CASE ва IF операторлари нима вазифа бажаради?
   
5. 
   Меню кандай ишга туширилади?
   
6. 
   Дастурни ишга тушириш.кандай бажарилади?
   
7. 
   Меню тузилиши кандай?
   
8. 
   DOCASB буйруги урнига кайси буйрукдан фойдаланиш керак?
   
9. 
   Саралаш натижалари кандай экранга чикарилади?
   
10. 
    Саралаш кандай бажарилади?