rajesh bharti 9031151546 FOXPRO
PROGRAMMING
FOXPRO PROGRAMMING IS A SET OF
FOXPRO COMMAND ARRANGED IN SEQUENCE STORED IN A ASCII TEXT FILE.THIS CAN BE
CREATED BY USING ANY TEXT EDITOR.IT EXTENSION NAME IS .PRG
FOXPRO PROGRAMMING COMMAND
MODIFY
COMMAND (MODI COMM)- MODI COMM IS THE DEFAULT FOXPRO EDITOR WHICH CAN BE USED
TO WRITE COMMAND FILE .TO CALL THE EDITOR TYPE
EXAMPLE
MODI COMM FILE NAME
ENTER PRESS
DO – DO
COMMAND STARTS EXECUTING A FOXPRO PROGRAM FILE
EXAMPLE
DO FILENAME
ENTER PRESS
WAIT
COMMAND- THE WAIT COMMAND HALTS PROCESSING UNTIL
A KEY PRESSING.YOU CAN SUPPLY A
PROMPT MESSAGE, IF YOU DON’T THE MESSAGE, PRESS ANY KEY TO CONTINUE
EXAMPLE
WAIT ENTER PRESS
SET
TALK OFF/ON – THE SET TALK COMMAND CONTROLS OUTPUT FROM COMMANDS.IF
SET TALK IS ON, THE OUTPUT DISPLAYS, IF SET TALK IS OFF, NO OUTPUT DISPLAYS
INPUT
COMMAND- THIS COMMAND IS USED TO INPUT ANY NUMERIC VALUE
EXAMPLE
INPUT “MESSAGE “TO MEMORY VARIABLE
INPUT “ENTER YOUR ROLL NO “ TO
ROLL
ACCEPT
COMMAND- THIS COMMAND IS USED TO ACCEPT ANY CHARACTER TYPE VALUE
EXAMPLE
ACCEPT “MESSAGE “ TO MEMORY VARIABLE
ACCEPT “ENTER YOUR NAME “TO NM
DEFINE THE VARIBLE
NUMERIC TYPE
N=0
P=0
STORE 0 TO N, P,R,S,T
CHARACTER
TYPE
NM=SPACE (20)
ADD=SPACE (12)
STORE SPACE (20) TO NM,ADD
OPERATORSàAN OPERATORS IN FOXPRO SPEDIFIES AN OPERATION TO BE
PERFORMED ON OPERANDS TO GIVEN VALUE. AN OPERAND IS AN ENTITY ON WHICH AN
OPERATOR ACTS. FOXPRO HAS FOUR KINDS OF OPERATORS
[1]
MATHEMATICAL OPERATORSàARITHMETIC OPERATORS ARE USED TO DO ADDITION,
SUBTRACTION ETC OR NUMERICAL TYPE OF DATA.THE ARITHMETIC OPERATORS ARE
OPERATION SYMBOL
EXPONENTIATION
(POWER) **
DIVISION /
MULTIPLICATION
*
SUBTRACTION
-
ADDITION
+
[2]
RELATIONAL OPERATORSà RELATIONAL OPERATORS DETERMINE THE RELATION AMONG
DIFFERENT OPERANDS.IN OTHER WORDS, RELATION OPERATORS ARE USED TO TEST THE
RELATION BETWEEN TWO VALUES.
OPERATION SYMBOL
LESS
THAN <
GREATER
THAN >
EQUAL
TO =
NOT
EQUAL TO <> OR #
LESS
THAN EQUAL TO <=
GREATER
THAN EQUAL TO >=
[3]
LOGICAL OPERATORSàLOGICAL OPERATORS COMBINE THE RESULTS OF ONE OR MORE
EXPRESSION AND IT IS CALLED LOGICAL EXPRESSION THE LOGICAL OPERATORES ARE
AND , OR, NOT.
CONDITIONAL STATEMENT
CONDITIONAL STATEMENT IS DONE BY
SPECIFICATION OF CERTAIN CONDITIONS OF EQUALITY OR INEQUALITY.FOR ANY KIND OF
COMPARISON IN VISUAL FOXPRO THE STATEMENT USED IS IF---- ENDIF
OR IF ----ELSE ---- ENDIF
IF ---- ENDIF COMMAND
SYNTEX EXAMPLE
IF (CONDITION) IF (A>B)
<STATEMENT> TRUE
ELSE ELSE
<STATEMENT> FALSE
ENDIF ENDIF
USING ELSE STATEMENT (NESTED IF) –MORE THAN
ONE CONDITON
SYNTAX
IF (CONDITION)
STATEMENT
ELSE
IF (CONDITION)
STATEMENT
ELSE
STAEMENT
ENDIF
ENDIF
(q) WAP ENTER TWO NO THEN PRINT THE
BIGGER NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A,B
INPUT”ENTER YOUR FIRST NO” TO A
INPUT”ENTER YOUR SECOND NO” TO B
IF(A>B)
?”A IS BIGGER NO”,A
ELSE
?”B IS BIGGER NO”,B
ENDIF
CLOSE ALL
(Q) WAP ENTER THREE NO THEN PRINT
THE BIGGER NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A,B,C
INPUT”ENTER YOUR FIRST NO” TO A
INPUT”ENTER YOUR SECOND NO” TO B
INPUT “ENTER YOUR THIRD NO” TO C
IF(A>B ANDA>C)
?”A IS THE BIGGEST NO”,A
ELSE
IF(B>A AND B>C)
?”B IS THE BIGGET NO”,B
ELSE
?”C IS THE BIGGEST NO”,C
ENDIF
ENDIF
CLOSE ALL
(Q) WAP TO ENTER TWO NUMBER THEN
PRINT THE SMALL NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A,B
INPUT”ENTER YOUR FIRST NO”TO A
INPUT”ENTER YOUR SECOND NO” TO B
IF(A<B)
?”A IS SMALLEST NO”,A
ELSE
?” B IS SMALLEST NO”,B
ENDIF
CLOSE ALL
(Q) WAP ENTER FOUR NUMBER THEN PRINT
SMALLEST NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A,B,C,D
INPUT”ENTER YOUR FIRST NO” TO A
INPUT”ENTER YOUR SECOND NO” TO B
INPUT”ENTER YOUR THIRD NO” TO C
INPUT”ENTER YOUR FOURTH NO” TO D
IF(A<B AND A<C AND A<D)
?” A IS THE SMALLEST NO”,A
ELSE
IF(B<A AND B<C AND B<D)
?” B IS THE SMALLEST NO”,B
ELSE
IF(C<A AND C<B AND C<D)
?”C IS THE SMALLEST NO”,C
ELSE
?”D IS THE SMALLEST NO”,D
ENDIF
ENDIF
ENDIF
CLOSE ALL
(Q) WAP ENTER NAME,ROLL THREE
SUBJECT MARKS CALCULATE TOTAL, AVERAGE MARKS.
SET TALK OFF
CLEAR
STORE 0 TO A,B,T,AVE,R
NM=SPACE(22)
ACCEPT”ENTER YOUR NAME” TO NM
INPUT”ENTR YOUR ROLL” TO R
INPUT”ENTR YOUR FIRST SUBJECT MARKS”
TO A
INPUT”ENTER YOUR SECOND SUBJECT
MARKS” TO B
T=A+B
AVE=T/2
?”NAME” , NM
?”ROLL” , R
?”TOTAL” , T
?”AVERAGE” , AVE
CLOSE ALL
(Q)WAP ENTER NAME,ROLL, THREE
SUBJECT MARKS CALCULATE TOTAL,AVERAGE MARKS. IF AVERAGE IS >80 THEN PRINT
GRADE=EXCELLENT OTHERWISE PRINT GOOD
PRINT NAME,ROLL,TOTAL, AVERAGE AND GRADE.
SET TALK OFF
CLEAR
STORE 0 TO R,P,Q,S,T,A
NM=SPACE(12)
ACCEPT”ENTER YOUR NAME” TO NM
INPUT”ENTER YOUR ROLL NO” TO R
INPUT”ENTER YOUR FIRST MARKS” TO P
INPUT”ENTER YOUR SECOND MARKS” TO Q
INPUT”ENTER YOUR THIRD MARKS” TO S
T=P+Q+S
A=T/3
IF(A>80)
?” A IS EXCELLENT NO”
ELSE
?”A IS GOOD NO”
ENDIF
?”NAME”,NM
?”ROLL”,R
?”TOTAL”,T
?”AVERAGE”,A
(Q) WAP ENTER A NO THEN CHECK THE NO
EVEN OR ODD NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A
INPUT”ENTER YOUR FIRST NO” TO A
IF MOD(A,2)=0
?”NO IS EVEN”,A
ELSE
?”NO IS ODD”,A
ENDIF
CLOSE ALL
(Q)WAP ENTER A YEAR THEN CHECK LEAP
OR NOT LEAP YEAR.
SET TALK OFF
CLEAR
STORE 0 TO Y
INPUT”ENTER YOUR YEAR” TO Y
IF MOD(Y,4)=0
?”YEAR IS LEAP YEAR”,Y
ELSE
?”YEAR IS NOT LEAP YEAR”,Y
ENDIF
CLOSE ALL
(Q) WAP ENTER NAME,DEPT,BASIC PAY IF
BASIC PAY>10000 THEN TA,DA=10% OTHERWISE TA,DA=5% OF BASIC PAY CALCULATE
TOTAL PAY.
SET TALK OFF
CLEAR
STORE 0 TO NAME,DEPT,BP,TA,DA,TP
NM=SPACE(22)
DEPT=SPACE(12)
ACCEPT”ENTER YOUR NAME” TO NM
ACCEPT”ENTER YOUR DEPT” TO DEPT
INPUT”ENTER YOUR BASIC PAY” TO BP
IF(BP>10000)
TA=BP*10/100
DA=BP*10/100
ELSE
TA=BP*5/100
DA=BP*5/100
ENDIF
TP=BP+TA+DA
?”NAME”,NM
?”DEPT”,DEPT
?”BASIC PAY”,BP
?”TA”,TA
?”DA”,DA
?”TOTAL PAY”,TP
(Q) WAP ENTER NAME,DEPT,BASIC IF
BASIC >10000 THEN TA,DA=12% OF BASIC, IF BASIC>9000 THEN TA,DA=10% OF
BASIC,IF BASIC>7000 THEN TA,DA=8% OF BASIC OTHERWISE TA,DA=5% OF BASIC
CALCULATE TOTAL PAY,IF TOTAL PAY>13000 THEN INCOME TAX=10% OF TOTAL PAY
OTHERWISE INCOME TAX=5% OF TOTAL PAY CALCULATE NET PAY. PRINT
NAME,DEPT,BASIC,TOTAL PAY,INCOME TAX AND NET PAY.
SET TALK OFF
CLEAR
STORE 0 TO BP,TA,DA,IT,TP,NP
NM=SPACE(12)
DEPT=SPACE(12)
ACCEPT”ENTER YOUR NAME” TO NM
ACCEPT”ENTER YOUR DEPT” TO DEPT
INPUT”ENTER YOUR BASIC PAY” TO BP
IF(BP>10000)
TA=BP*12/100
DA=BP*12/100
ELSE
IF(BP>9000)
TA=BP*10/100
DA=BP*10/100
ELSE
IF(BP>7000)
TA=BP*8/100
DA=BP*8/100
ELSE
TA=BP*5/100
DA=BP*5/100
ENDIF
ENDIF
ENDIF
TP=BP+TA+DA
IF(TP>13000)
IT=TP*10/100
ELSE
IT=TP*5/100
ENDIF
NP=TP-IT
?”NAME”,NM
?”DEPT”,DEPT
?”BASIC”,BP
?”TOTAL PAY”,TP
?”INCOME TAX”,IT
?”NET PAY”,NP
WAP TO ENTER TWO NO THEN PRINT ENTERCHANGE
NUMBER.
SET TALK OFF
CLEAR
STORE 0 TO A,B
INPUT”ENTER YOUR FIRST NO” TO A
INPUT”ENTER YOUR SECOND NO” TO B
A=A+B
B=A-B
A=A-B
?A
?B
CLOSE ALL
(Q) ENTER TWO NO THEN PRINT
ADD,SUB,MUL,DIV.
SET TALK OFF
CLEAR
STORE 0 TO A,B,T,S,M,D
INPUT”ENTER YOUR FIRST NO” TO A
INPUT”ENTER YOUR SECOND NO” TO B
T=A+B
S=A-B
M=A*B
D=A/B
?”ADDITION NO”,T
?”SUBSTRUCTION NO”,S
?”MULTI NO”,M
?”DIVISION NO”,D
DO CASE COMMAND :-
THE DO CASE COMMAND IN FOXPRO HANDLES MULTIWAY BRANCHING IN A MANNER SIMILAR TO THAT OF OTHER LANGUAGE
. CASE COMMAND IN A DO CASE BLOCK
SUPPORT REPEATED CONDITION TEST.
THE DO CASE EXECUTES THE FIRST STATEMENT BLOCK AFTER DO CASE
AND BEFORE ENDCASE
SYNTAX
DO CASE
CASE
<CONDITION>
STATEMENT
CASE
<CONDITION>
STATEMENT
OTHERWISE
STATEMENT
ENDCASE
LOOPING
LOOP – LOOP IS A PROCESS IN WHICH ONE OR MORE STATEMENT ARE
REPEATED PERFORMED A NUMBER OF TIMES.
THE MOST COMMONLY USED STATEMENT, WHICH
ALLOWS THE LOOPING PROCESS , IS
THE
FOR
---NEXT/ENDFOR
DO WHILE
--- ENDDO
[1] FOR ----- NEXT/ENDFOR
SYNTAX
FOR
<MVAR.> = <START VALUE
> TO
<END VALUE> STEP INCREMENT /DECREMENT
STATEMETN
ENDFOR/NEXT
[2]
DO WHILE ----- ENDDO
SYNTEX
DO WHILE <CONDITION>
STATEMENT
ENDDO
(Q) WAP TO
DISPLAY THE CHARACTER OF MONTH ACCORDING TO MONTH NO.
SET TALK
OFF
CLEAR
STORE 0 TO
M
INPUT”ENTER
YOUR MONTH NO” TO M
DO CASE
CASE(M=1)
?”FIRST
MONTH IS ---------JAN”
CASE(M=2)
?”SECOND
MONTH IS ------------FEB”
CASE(M=3)
?”THIRD
MONTH IS--------------MAR”
CASE(M=4)
?”FOURTH
MONTH IS-------------APR”
CASE(M=5)
?”FIFTH
MONTH IS----------MAY”
CASE(M=6)
?”SIXTH
MONTH IS------------------JUN”
CASE(M=7)
?”SEVENTH
MONTH IS ------------JUL”
CASE(M=8)
?”EIGHT
MONTH IS--------------AUG”
CASE(M=9)
?”NINTH
MONTH IS---------------SEP”
CASE(M=10)
?”TENTH
MONTH IS--------------OCT”
CASE(M=11)
?”ELEVENTH
MONTH IS------------NOV”
CASE(M=12)
?”TWELVETH
MONTH IS---------------DEC”
OTHERWISE
?”YOUR
ENTER MONTH IS INVALID”
ENDCASE
(Q) WAP TO
DISPLAY THE CHARACTER OF DAY ACCORDING TO DAY NO,
SET TALK
OFF
CLEAR
STORE 0 TO
D
INPUT”ENTER
YOUR DAY NO” TO D
DO CASE
CASE(D=1)
?”FIRST
DAY IS -------------MONDAY”
CASE(D=2)
?”SECOND
DAY IS--------------TUE”
CAE(D=3)
?”THIRD DAY
IS -----------WED”
CASE(D=4)
?”FOURTH
DAY IS ----------THU”
CASE(D=5)
?”FIFTH
DAY IS ------------FIR”
CASE(D=6)
?”SIXTH
DAY IS ------------SAT”
CASE(D=7)
?”SEVENTH
DAY IS -------------SUN”
OTHERWISE
?”YOUR
ENTER DAY IS INVALID”
ENDCASE
(Q) WAP TO
DISPLAY NATURAL NO BETWEEN 1 TO 10
SET TALK
OFF
CLEAR
STORE 0 TO
M
FOR M=1 TO
10
?M
ENDFOR
(Q)WAP TO
DISPLAY NATURAL BETWEEN 50 TO 1
SET TALK
OFF
CLEAR
STORE 0 TO
N
FOR N=50
TO 1
STEP -1
?N
ENDFOR
(Q) WAP
ENTER A NUMBER PRINT TABLE OFF NO.
SET TALK
OFF
CLEAR
T=1
INPUT”ENTER
YOUR NO” TO N
FOR T=1 TO
10
?T*N
ENDFOR
(Q) WAP TO
ENTER A NUMBER THEN PRINT COUNT THE DIGIT SUM OF DIGIT NO AND REVERSE NO.
SET TALK
OFF
CLEAR
STORE 0 TO
N,R,P,C,S
INPUT”ENTER
YOUR NO” TO N
DO WHILE(N<>0)
P=MOD(N,10)
S=S+P
C=C+1
R=R*10+P
N=INT(N/10)
ENDDO
?”REVERSE
NO”,R
?”COUNT
NO”,C
?”SUM OF
DIGIT NO”,S
(Q)WAP TO
ENTER A NO THEN PRINT REVERSE NO.
SET TALK
OFF
CLEAR
STORE 0 TO
N,P,R
INPUT”ENTER
YOUR NO” TO N
DO
WHILE(N<>0)
P=MOD(N,10)
R=R*10+P
N=INT(N/10)
ENDDO
?”REVERSE
NO”,R
(Q) WAP TO
ENTER A NO THEN PRINT FACTORIAL NUMBER.
SET TALK
OFF
CLEAR
N=0
F=1
INPUT”ENTER
YOUR NO” TO N
DO
WHILE(M<>0)
F=F*N
N=N-1
ENDDO
?”FACTORIAL
NO”,F
(Q) WAP TO
PRINT ODD NO BETWEEN 1 TO 50 DO WHILE OR LOOP.
SET TALK
OFF
CLEAR
T=1
DO
WHILE(T<50)
IF MOD(T,2)=1
?T
ENDIF
T=T+1
ENDDO
(Q) WAP TO
PRINT EVEN NO BETWEEN 1 TO 50 USING DO WHILE OR LOOP.
SET TALK
OFF
CLEAR
T=1
DO
WHILE(T<50)
IF
MOD(T,2)=0
?T
ENDIF
T=T+1
ENDDO
(Q) WAP TO
PRINT TABLE BETWEEN 1 TO 20.
SET TALK
OFF
CLEAR
FOR T=1 TO
20
FOR I=1 TO
10
MOD(T,2)=0
?T*I
ENDFOR
WAIT
ENDFOR
(Q) WAP TO
PRINT SUM OF EVEN NO BETWEEN 1 TO 50.
SET TALK
OFF
CLEAR
S=0
FOR T= 1
TO 50
IF
MOD(T,2)=0
S=S+T
ENDIF
ENDFOR
?”SUM OF
NATURAL NO”,S
(Q)WAP TO
PRINT SUM OF ODD NO BETWEEN 1 TO 50.
SET TALK
OFF
CLEAR
S=0
FOR T=1 TO
50
IF
MOD(T,2)=1
S=S+1
ENDIF
ENDFOR
?”SUM OF
NATURAL NO”,S
(Q)WAP TO
PRINT SUM OF NATURAL NO BETWEEN 1 TO 50.
SET TALK
OFF
CLEAR
S=0
FOR T=1 TO
50
S=S+T
ENDFOR
?”SUM OF
NATURAL NO”,S
(Q) WAP TO
PRINT SUM OF ODD NO BETWEEN 1 TO 50.
SET TALK
OFF
CLEAR
S=0
FOR T=1 TO
50
IF
MOD(T,2)=0
S=S+1
ENDIF
ENDIF
?”SUM OF
ODD NO”,S
(Q)WAP TO
ENTER A NAME THEN COUNT THE LENTH OF NAME.
SET TALK
OFF
CLEAR
NM=SPACE(22)
ACCEPE”ENTER
YOUR NAME” TO NM
T=LEN(NM)
?T
(Q) WAP
PRINT A PIRAMID AS 15 TO 1.
SET TALK
OFF
CLEAR
FOR T=15
TO 1
STEP -1
?
FOR I=15
TO T
STEP -1
??I
ENDFOR
ENDFOR
(Q) WAP TO
PRINTA PIRAMID AS 1 TO 15.
SET TALK
OFF
CLEAR
FOR T=1 TO
15
?
FOR I=1 TO
T
??I
ENDFOR
ENDFOR
(Q) WAP TO
PRINT FIBANIOUS SERIES NO BETWEEN 1 TO 15.
SET TALK
OFF
CLEAR
A=1
B=1
?A
?B
C=A+B
(C<50)
?C
A=B
B=C
C=A+B
ENDDO
ARRAY---ARRAY
IS A COLLECTION OF SIMILAR DATA TYPE. THERE ARE TWO TYPE OF ARRAY.
(1)SINGLE
DIMENSION ARRAY.
(2) DOUBLE
DIMENSION ARRAY
DECLERATION
OF ARRAY
NM(ARRAY
OF SIZE)
NM(ARRAY
OF SIZE)
N(12)
(Q) WAP ENTER
TEN NO IN ARRAY THEN PRINT THE ARRAY.
SET TALK
OFF
CLEAR
N=0
DECL N(10)
FOR T=1 TO
10
INPUT”ENTER
YOUR NO” TO N(T)
ENDFOR
FOR T=1 TO
10
?N(T)
ENDFOR
(Q) WAP
ENTER TEN NO IN ARRAY THEN PRINT THE SUM OF NO.
SET TALK
OFF
CLEAR
S=0
T=0
DECL N(10)
FOR T=1 TO
10
INPUT”ENTER
YOUR NO” TO N(J)
ENDFOR
FOR T= 1
TO 10
S=S+N(T)
ENDFOR
?S
FULL SCREEN DATA EDITNG
THE
@COMM—THE @ COMMAND DISPLAY AND INPUT INFORMATION AT A DESIGNED POSITION ON
SCREEN.
@SAY-----GET---
IT IS USED TO CREATE FORM FOR INPUT AND OUTPUT OF DATA. THE FORM DISPLAY AT THE
SPECIFIED ROW AND COLUMN.
EX-@ROW,COLUMN
SAY”MESSAGE” GET VARIABLE
@2,5 SAY
“ENTER NAME”GET NM
SET TALK
OFF
CLEAR
NM=SPACE(12)
@2,32 SAY
“ENTER YOUR NAME” FONT”ARIAL”,22 STYLE”B”
@12,85 GET
NM FONT “ARIAL”,20 STYLE”B”
@--- TO
COMMAND—THE @ TO COMMAND DRAWS A BOX ON THE SCREEN WITH A SINGLE LINE BORDER OR
DOUBLE LINE BORDER.
SYNTAX
(Q) WAP
ENTER NAME,CLASS,ROLL AND THREE SUBJECT MARKS THEN CALCULATE TOTAL AND AVERAGE
MARKS.
SET TALK
OFF
CLEAR
CH=1
DO WHILE
CH=1
NM=SPACE(12)
C=SPACE(12)
STORE 0 TO
R,A,B,C,T,AVE
@2,20 TO
35,200 STYLE"16T";
PATTERN 1
PEN 6 COLOR 'R/B'
@5,50
SAY"ANS SCHOOL BARH"FONT"ARIAL",26 STYLE"B"
@8,60
SAY"MAIN ROAD BARH"FONT"ALGERIAN",20 STYLE"B"
@10,27 SAY
REPLIC("**",50)FONT" ",12
@12,30 SAY
"NAME"FONT" ",14
@12,50 GET
NM FONT" ",14
@12,70
SAY"CLASS"FONT" ",14
@12,90 GET
C FONT" ",14
@16,30
SAY"ROLL" FONT" ",14
@16,50 GET
R FONT" ",14
@20,30
SAY"FIRST MARKS" FONT" ",14
@20,60
SAY"SECOND MARKS"FONT" ",14
@20,90
SAY"THIRD MARKS"FONT" ",14
@23,30 GET
A FONT" ",14
@23,60 GET
B FONT" ",14
@23,90 GET
C FONT" ",14
READ
T=A+B+C
AVE=T/3
@26,34
SAY"TOTAL"FONT " ",14
@26,54 GET
T FONT" ",14
@26,70
SAY"AVERAGE MARKS"FONT" ",14
@26,90 GET
AVE FONT" ",14
@30,85 GET
CH;
PICT"@*H
OK;CANCEL";
FONT"
",14 STYLE"B"
READ
ENDDO
(Q) WAP ENTER NAME,CLASS,ROLL,SECTION,AND SIX
SUBJECT MARKS CALCULATE TOTAL AVERAGE MARKS . IF AVERAGE >60 THEN PRINT
GRADE=”A” IF AVERAGE>50 THEN PRINT GRADE=”B” OTHRWISE GRADE=”C”
SET TALK
OFF
CLEAR
CH=1
DO WHILE
CH=1
NM=SPACE(22)
STORE 0 TO
R,CL,D,W,WO,E,A,FOX,TOT,AVG
G=SPACE(5)
SE=SPACE(4)
@2,20 TO
35,200 STYLE"16T";
PATTERN 1
PEN 6 COLOR 'R/B'
@5,21
SAY"ST MARY'S MULTIPURPOSE TRAINING ISTITUTE" FONT" ",20
STYLE"B"
@8,50
SAY"ALAKHNATH ROAD BARH"FONT" ",15 STYLE"B"
@10,21 SAY
REPLIC("**",55)FONT" ",12
@11,30
SAY"ROLL"FONT" ",10
@13,30 GET
R FONT" ",10
@11,60
SAY"NAME"FONT" ",10
@13,60 GET
NM FONT" ",10
@11,90
SAY"CLASS"FONT" ",10
@13,90 GET
CL FONT" ",10
@17,25
SAY"DOS"FONT" ",10
@17,45
SAY"WINDOWS"FONT" ",10
@17,65
SAY"WORD"FONT" ",10
@17,85
SAY"EXCEL"FONT" ",10
@17,105
SAY"ACCESS"FONT" ", 10
@17,120
SAY"FOXPRO"FONT"
",10
@20,25 GET
D FONT" ",10
@20,45 GET
W FONT" ",10
@20,65 GET
WO FONT" ",10
@20,85 GET
E FONT" ",10
@20,105
GET A FONT" ",10
@20,120
GET FOX FONT" ",10
READ
TOT=D+W+WO+E+A+FOX
AVE=TOT/6
@23,40
SAY"TOTAL"FONT" ",14
@23,55 GET
TOT FONT" ",14
@23,80
SAY"AVERAGE"FONT" ",14
@23,100
GET AVE FONT" ",14
IF(AVE>60)
G="A"
ELSE
IF(AVE>50)
G="B"
ELSE
G="C"
ENDIF
ENDIF
@26,30
SAY"GRADE"FONT" ",14
@26,60 GET
G FONT" ",14
@30,85 GET
CH;
PICT"@*H
OK;CANCEL";
FONT"
",14 STYLE"B"
READ
ENDDO
(Q) SET TALK OFF
CLEAR
USE
RANI.DBF
SET COLOR
TO "B/R"
@3,12
SAY"SHALIMAR SWEETS HOUSE PATNA";
FONT"
",28 STYLE"B"
@6,30
SAY"KANKARBAG ROAD PATNA";
FONT"
",22 STYLE"B"
@09,00 SAY
REPLIC("**",79)
@11,3
SAY"ITEM NO"FONT" ",10 STYLE"B"
@11,23
SAY"ITEM NAME"FONT" ",10 STYLE"B"
@11,43
SAY"PRICE"FONT" ",14 STYLE"B"
@11,63
SAY"QUANTITY"FONT" ",14 STYLE"B"
@11,83
SAY"TOTAL PRICE"FONT" ",14 STYLE"B"
@12.5,00
SAY REPLIC("*",158)
R=13.5
CH=1
P=0
K=0
DO WHILE
CH=1
ITEM=0
QTY=0
@R,03 GET
ITEM FONT" ",8 STYLE"B" PICT"999999999999999"
READ
LOCATE FOR
ITEMNO=ITEM
@R,25 GET
ITEMNAME FONT" ",8 STYLE"B"
@R,40 GET
PRICE FONT" ",8 STYLE"B"
@R,70 GET
QTY FONT" ",8 STYLE"B" PICT"999999999999999"
READ
T=QTY*PRICE
@R,90 GET
T FONT" ",8 STYLE"B" PICT"99999999"
K=K+T
@17,70
SAY"NET AMOUNT"FONT" ",10 STYLE"B"
@17,90 GET
K FONT" ",10 STYL"B" PICT"9999999999"
@25,100
GET CH;
PICT"@*H
OK;CANCEL";
FONT"
",14 STYLE"B"
READ
IF CH=1
R=R+2
ENDIF
CREATE
RANI
ITEMNO NUMERIC
ITEMNAME CHARACTER
PRICE CURRENCY
QUANTITY NUMERIC
TOTALPRICE CURRENCY
ITEMNO ITEMNAME PRICE QUANTITY TOTALPRICE
1 PEPSI 25
2 SAMOSA 05
3 MANGO FRUTI 15
4 LIMIKA 12
5 RASGULA 8
(Q) WAP
ENTER NAME,DEPT AND BASIC PAY IF BASIC PAY>10000 THEN TA,DA=10% OF BASIC PAY IF BASIC PAY>8000 TEN
TA,DA=8% OF BASIC PAY CALCULATE TOATAL PAY.
SET TALK
OFF
CLEAR
CH=1
DO WHILE
CH=1
NM=SPACE(22)
DEPT=SPACE(22)
STORE 0 TO
BP,TA,DA,TP
@2,20 TO
35,200 STYLE"16T";
PATTERN 1
PEN 6 COLOR 'R/B'
@5,21
SAY"ST MARY'S MULTIPURPOSE TRAINING ISTITUTE" FONT" ",20
STYLE"B"
@8,50
SAY"ALAKHNATH ROAD BARH"FONT" ",15 STYLE"B"
@10,21 SAY
REPLIC("**",55)FONT" ",12
@12,70
SAY"BASIC PAY"FONT" ",14
@16,70 GET
BP FONT" ",14
@12,30
SAY"NAME"FONT" ",14
@16,30 GET
NM FONT" ",14
read
IF(BP>10000)
TA=BP*10/100
DA=BP*10/100
ELSE
TA=BP*8/100
DA=BP*8/100
ENDIF
TP=BP+TA+DA
@20,30
SAY"TA"FONT" ",14
@20,70
SAY"DA"FONT" ",14
@20,90
SAY"TOTAL"FONT" ",14
@24,30 GET
TA FONT" ",14
@24,70 GET
DA FONT" ",14
@24,90 GET
TP FONT" ",14
@30,85 GET
CH;
PICT"@*H
OK;CANCEL";
FONT"
",14 STYLE"B"
READ
ENDDO
(q) set talk off
use
add.dbf
clear
ch=1
do while
ch=1
fnm=SPACE(12)
NM=SPACE(22)
ADD=SPACE(22)
OCC=SPACE(22)
se=space(12)
STORE 0 TO
R,C
D=(DATE())
F="3300,5500,1500"
S="CCSA,DCSA,TALLY"
AD=CTOD(" /
/")
SET COLOR
TO B/R
@2,18
SAY"ST.MARY'S MULTIPURPOSE TRAINING
CENTRE"FONT"ALGARIAN",20
@4,50
SAY"ALAKHA NATH ROAD BARH"FONT" ",15
@7,55
SAY"ADMISSION FORM"FONT" ",17
@9,00 SAY REPLIC("=",56)FONT"
",20
@11,10
say"roll"font" ",12
@13,10
say"name"font" ",12
@15,10
say"father's name"font" ",12
@17,10
say"dob"font" ",12
@19,10
say"father's occupation"font" ",12
@21,10
say"present address"font" ",12
@23,10
say"contact no"font" ",12
@11,40 get
r pict"9999"font" ",12
@13,40 get
nm font" ",12
@15,40 get
fnm font" ",12
@17,40 get
ad font" ",12
@19,40 get
occ font" ",12
@21,40 get
add font" ",12
@23,40 get
c font" ",12
@11,60
say"course offered"font" ",12
@11,80 get
s;
pict"@*rh
ccsa;dcsa;tally"font" ",12
@13,70
say"sex"font" ",12
@13,90 get
se;
pict"@*rh
male;female"font" ",12
@15,70
say"fees"font" ",12
@15,90 get
f;
pict"@*rh
3300;5500;1500"font" ",12
@17,70
say"admission date"font" ",12
@17,90 get
d font" ",12
set color
to
@25,80 to 36,210
style"16t";
pattern 1
pen 5 color
@28,85 get
ch;
pict"@*h
ok;cancel";
font"
",12
read
if ch=1
append
blank
repl r1
with r
repl nm1
with nm
repl fnm1
with fnm
repl dob1
with ad
repl fo1
with occ
repl pa
with add
repl c1
with c
repl s11
with s
repl s1
with se
repl f1
with f
repl ad1
with d
endif
enddo
read
No comments:
Post a Comment