QBASIC By Examples


REM PROGRAM TO CHECK ENTERED NUMBER IS UPPERCASE OR LOWERCASE
CLS
INPUT “Enter a letter”;A$
U$=UCASE$(A$)
IF U$=A$ THEN
PRINT “It is capital letter”
ELSE
PRINT “It is small letter”
ENDIF
END

USING DECLARE FUNCTION PROCEDURE
DECLARE FUNCTION UC$ (A$)
CLS
INPUT “Enter a letter”; A$
PRINT UC$(A$)
END
FUNCTION UC$ (A$)
CH$ = UCASE$(A$)
IF A$ = CH$ THEN
UC$ = “It is capital letter”
ELSE
UC$ = “It is small letter”
END IF
END FUNCTION

USING DECLARE SUB PROCEDURE
DECLARE SUB UC(A$)
CLS
INPUT “Enter a letter”; A$
CALL UC(A$)
END
SUB UC(A$)
CH$ = UCASE$(A$)
IF A$ = CH$ THEN
PRINT “It is capital letter”
ELSE
PRINT “It is small letter”
END IF
END SUB

Program to check a given number is palindrome or not in qbasic

CLS
INPUT “ENTER A NUMBER”; N
S = N
WHILE N <> 0
A = N MOD 10
R = R * 10 + A
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF

Using Declare Sub Procedure
DECLARE SUB A (N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A (N)
S = N
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “IT IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF
END SUB


Program to check a given string is palindrome or not in qbasic
CLS
INPUT “ENTER A STRING”; S$
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
IF S$ = REV$ THEN
PRINT “THE GIVEN STRING IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF


Using declare sub
DECLARE SUB A(S$)
CLS
INPUT “ENTER A STRING”; S$
CALL A(S$)
END
SUB A(S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
IF S$ = REV$ THEN
PRINT “THE GIVEN STRING IS PALINDROME”
ELSE
PRINT “IT IS NOT PALINDROME”
END IF
END SUB

Program to check given number is armstrong or not in qbasic

CLS
INPUT “ENTER A NUMBER”; N
S = N
WHILE N <> 0
A = N MOD 10
R = R + A ^ 3
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS ARMSTRONG”
ELSE
PRINT “IT IS NOT ARMSTRONG”
END IF

Using declare sub procedure

DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A(N)
S=N
WHILE N <> 0
B = N MOD 10
R = R + B ^ 3
N = FIX(N / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS ARMSTRONG”
ELSE
PRINT “IT IS NOT ARMSTRONG”
END IF
END SUB

Program to reverse a given number in qbasic

CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 10
R = R * 10 + A
N = FIX(N / 10)
WEND
PRINT R
END

Using declare sub procedure

DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A(N)
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
PRINT R
END SUB

Using declare function procedure

DECLARE FUNCTION A(N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT A(N)
END
FUNCTION A(N)
WHILE N <> 0
B = N MOD 10
R = R * 10 + B
N = FIX(N / 10)
WEND
A=R
END FUNCTION

Program to convert decimal to hexadecimal in qbasic

‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
CLS
INPUT “ENTER A DECIMAL VALUE”; N
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
PRINT “HEXADECIMAL VALUE IS “; H$
END

Using declare function procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
DECLARE FUNCTION Z$ (N)
CLS
INPUT “ENTER A DECIMAL VALUE”; N
PRINT “HEXADECIMAL VALUE IS “; Z$(N)
END
FUNCTION Z$ (N)
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
Z$ = H$
END FUNCTION

Using declare sub procedure
‘THIS PROGRAM CONVERTS DECIMAL NUMBER INTO HEXADECIMAL
DECLARE SUB Z (N)
CLS
INPUT “ENTER A DECIMAL VALUE”; N
CALL Z(N)
END
SUB Z (N)
WHILE N <> 0
K = N MOD 16
IF K = 10 THEN
B$ = “A”
ELSEIF K = 11 THEN
B$ = “B”
ELSEIF K = 12 THEN
B$ = “C”
ELSEIF K = 13 THEN
B$ = “D”
ELSEIF K = 14 THEN
B$ = “E”
ELSEIF K = 15 THEN
B$ = “F”
ELSE
B$ = STR$(K)
END IF
H$ = B$ + H$
N = FIX(N / 16)
WEND
PRINT “HEXADECIMAL VALUE IS  “; H$
END SUB

Program to convert decimal to octal in qbasic

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N /
C$ = B$ + C$
WEND
PRINT “QUAINARY EQUIVALENT IS”; C$
END

Using declare sub procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
DECLARE SUB O(N)
CLS
INPUT “ENTER A NUMBER”; N
CALL O(N)
END
SUB O(N)
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N /
C$ = B$ + C$
WEND
PRINT “QUAINARY EQUIVALENT IS”; C$
END SUB

Using declare function procedure

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO Octal
DECLARE FUNCTION O$(N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT “QUAINARY EQUIVALENT IS”; O$(N)
END
FUNCTION O$(N)
WHILE N <> 0
A = N MOD 8
B$ = STR$(A)
N = FIX(N /
C$ = B$ + C$
WEND
O$=C$
END FUNCTION

Program to reverse a given string in qbasic

CLS
INPUT “ENTER A STRING”; S$
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
PRINT REV$
END
Using declare sub procedure
DECLARE SUB A(S$)
CLS
INPUT “ENTER A STRING”; S$
CALL A(S$)
END
SUB A(S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
PRINT REV$
END SUB

Using declare function procedure

DECLARE FUNCTION A$ (S$)
CLS
INPUT “ENTER A STRING”; S$
PRINT A$(S$)
END
FUNCTION A$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
M$ = MID$(S$, I, 1)
REV$ = REV$ + M$
NEXT I
A$ = REV$
END FUNCTION

Program to converts Hexadecimal to Decimal in Qbasic

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
PRINT “DECIMAL VALUE IS”;H
END

Using declare function procedure

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
DECLARE FUNCTION Z(B$)
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
PRINT “DECIMAL VALUE IS”;Z(B$)
END
FUNCTION Z(B$)
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
Z=H
END FUNCTION

Using declare sub procedure

‘THIS PROGRAM CONVERTS HEXADECIMAL TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER HEXADECIMAL VALUE”;B$
CALL Z(B$)
END
SUB Z(B$)
FOR I=LEN(B$) TO 1 STEP -1
A$=MID$(B$,I,1)
C=VAL(A$)
IF A$=”A” THEN C=10
IF A$=”B” THEN C=11
IF A$=”C” THEN C=12
IF A$=”D” THEN C=13
IF A$=”E” THEN C=14
IF A$=”F” THEN C=15
H=H+C*16^P
P=P+1
NEXT I
PRINT “DECIMAL VALUE IS”;H
END SUB

Program to convert decimal to binary in qbasic

‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
CLS
INPUT “ENTER A NUMBER”; N
WHILE N <> 0
A = N MOD 2
B$ = STR$(A)
N = FIX(N / 2)
C$ = B$ + C$
WEND
PRINT “BINARY EQUIVALENT IS”; C$
END

Using declare sub procedure
‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
DECLARE SUB A (N)
CLS
INPUT “ENTER A NUMBER”; N
CALL A(N)
END
SUB A (N)
WHILE N <> 0
E = N MOD 2
B$ = STR$(E)
N = FIX(N / 2)
C$ = B$ + C$
WEND
PRINT “BINARY EQUIVALENT IS”; C$
END SUB

Using declare function procedure
‘THIS PROGRAM CONVERTS DECIMAL NUMBER TO BINARY
DECLARE FUNCTION A$ (N)
CLS
INPUT “ENTER A NUMBER”; N
PRINT “BINARY EQUIVALENT IS”; A$(N)
END
FUNCTION A$ (N)
WHILE N <> 0
E = N MOD 2
B$ = STR$(E)
N = FIX(N / 2)
C$ = B$ + C$
WEND
A$=C$
END FUNCTION

Program to convert Binary to Decimal in qbasic

‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
CLS
INPUT “ENTER A BINARY NUMBER”; B$
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS “; M
END

Using declare sub procedure
‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER A BINARY NUMBER”; B$
CALL Z(B$)
END
SUB Z(B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS “; M
END SUB

Using declare function procedure
‘THIS PROGRAM CONVERTS BINARY NUMBER TO DECIMAL
DECLARE FUNCTION Z (B$)
CLS
INPUT “ENTER A BINARY NUMBER”; B$
PRINT “DECIMAL VALUE IS “; Z(B$)
END
FUNCTION Z (B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
M = M + C * 2 ^ P
P = P + 1
NEXT I
Z = M
END FUNCTION

Program to convert Octal to Decimal in Qbasic

‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
CLS
INPUT “ENTER A OCTAL VALUE”; B$
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS”; D
END

Using declare function procedure
‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
DECLARE FUNCTION Z (B$)
CLS
INPUT “ENTER A OCTAL VALUE”; B$
PRINT “DECIMAL VALUE IS”; Z(B$)
END
FUNCTION Z (B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
Z = D
END FUNCTION

Using declare sub procedure
‘THIS PROGRAM CONVERTS OCTAL TO DECIMAL
DECLARE SUB Z(B$)
CLS
INPUT “ENTER A OCTAL VALUE”; B$
CALL Z(B$)
END
SUB Z(B$)
FOR I = LEN(B$) TO 1 STEP -1
A$ = MID$(B$, I, 1)
C = VAL(A$)
D = D + C * 8 ^ P
P = P + 1
NEXT I
PRINT “DECIMAL VALUE IS”; D
END SUB

Program to find the product of the digits of the given number in Qbasic

CLS
R = 1
INPUT “ENTER A NUMBER”;N
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
PRINT “PRODUCT OF DIGITS IS”;R
END

Using declare sub procedure
DECLARE SUB C(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL C(N)
END
SUB C(N)
R = 1
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
PRINT “PRODUCT OF DIGITS IS”;R
END SUB

Using declare function procedure
DECLARE FUNCTION C(N)
CLS
INPUT “ENTER A NUMBER”;N
PRINT “PRODUCT OF DIGITS IS”;C(N)
END
FUNCTION C(N)
R = 1
WHILE N<>0
A = N MOD 10
R = R * A
N = FIX ( N / 10 )
WEND
C = R
END FUNCTION

Program to find the sum of the digits of the given number in Qbasic

CLS
INPUT “ENTER A NUMBER”;N
WHILE N<>0
A = N MOD 10
R = R + A
N = FIX ( N / 10 )
WEND
PRINT “SUM OF DIGITS IS”;R
END

Using declare function procedure
DECLARE FUNCTION C(N)
CLS
INPUT “ENTER A NUMBER”;N
PRINT “SUM OF DIGITS IS”;C(N)
END
FUNCTION C(N)
WHILE N<>0
A = N MOD 10
R = R + A
N = FIX ( N / 10 )
WEND
C = R
END FUNCTION

Using declare sub procedure
DECLARE SUB C(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL C(N)
END
SUB C(N)
WHILE N<>0
A = N MOD 10
R = R + A
N = FIX ( N / 10 )
WEND
PRINT “SUM OF DIGITS IS”;R
END SUB

Program to print fibonacci series in Qbasic
Using FOR…NEXT

CLS
A = 1
B = 2
PRINT A
PRINT B
FOR I = 1 TO 10
C = A + B
PRINT C
A = B
B = C
NEXT I
END

Using WHILE…WEND

CLS
I = 1
A = 1
B = 2
PRINT A
PRINT B
WHILE I < = 10
C = A + B
PRINT C
A = B
B = C
I = I + 1
WEND
END

Using declare sub procedure
Using FOR…NEXT

DECLARE SUB FIB ()
CLS
CALL FIB
END
SUB FIB
A = 1
B = 2
PRINT A
PRINT B
FOR I = 1 TO 10
C = A + B
PRINT C
A = B
B = C
NEXT I
END SUB

Using WHILE…WEND

DECLARE SUB FIB ()
CLS
CALL FIB
END
SUB FIB
I = 1
A = 1
B = 2
PRINT A
PRINT B
WHILE I < = 10
C = A + B
PRINT C
A = B
B = C
I = I + 1
WEND
END SUB

Program to check whether a given number is prime or composite in qbasic
‘PROGRAM TO CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
CLS
INPUT “ENTER A NUMBER”;N
FOR I = 2 TO N/2
IF N MOD I = 0 THEN
C = C+2
END IF
NEXT I
IF C>0 THEN
PRINT “IT IS COMPOSITE”
ELSE
? “IT IS PRIME”
END IF
END

Using declare sub procedure
‘CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
DECLARE SUB A(N)
CLS
INPUT “ENTER A NUMBER”;N
CALL A(N)
END
SUB A(N)
FOR I = 2 TO N/2
IF N MOD I = 0 THEN
C = C+2
END IF
NEXT I
IF C>0 THEN
PRINT “IT IS COMPOSITE”
ELSE
? “IT IS PRIME”
END IF
END SUB

Using declare function procedure
‘PROGRAM TO CHECK WHETHER A GIVEN NUMBER IS PRIME OR COMPOSITE
DECLARE FUNCTION AB (N)
CLS
INPUT “ENTER A NUMBER”; N
IF AB(N) > 0 THEN
PRINT “IT IS COMPOSITE”
ELSE
PRINT “IT IS PRIME”
END IF
END
FUNCTION AB (N)
FOR I = 2 TO N / 2
IF N MOD I = 0 THEN
C = C + 2
END IF
NEXT I
AB = C
END FUNCTION



QBASIC Customer management program

DECLARE SUB about ()
DECLARE SUB delrec ()
DECLARE SUB change ()
DECLARE SUB showrec ()
DECLARE SUB searchltd ()
DECLARE SUB addrecord ()
DECLARE SUB search ()
SCREEN 9
CLS
start:
PRINT "Admin Password:";
COLOR 0, 0
INPUT pass$
COLOR 7, 1
OPEN "pass.txt" FOR INPUT AS #10
INPUT #10, p$
IF pass$ = p$ THEN
'-----------if password match----------
CLS
start2:
CLS
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Û                         MAIN MENU                          Û"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "1, add record"
PRINT "2, Show Records"
PRINT "3, Search Record"
PRINT "4, Search limited record"
PRINT "5, Delete Record"
PRINT "6, Change password"
PRINT "7, About"
PRINT "8, Exit"
INPUT "Choose Menu:", mn
SELECT CASE mn
CASE 1
CALL addrecord
GOTO start2
CASE 2
CALL showrec
GOTO start2
CASE 3
CALL search
GOTO start2
CASE 4
CALL searchltd
GOTO start2
CASE 5
CALL delrec
GOTO start2
CASE 6
CALL change
GOTO start2
CASE 7
CALL about
GOTO start2
CASE 8
COLOR 6, 8
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "DEMO BY: B. LIMBU"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "THANK YOU FOR USING THIS SOFTWARE"
PRINT "GOOD BYE"
INPUT "", by
END
CASE ELSE
PRINT "unknown menu"
PRINT "Û RETRY Û"
GOTO start2
END SELECT
'----------if password nor match-----------
ELSE
CLOSE #10
INPUT "password not macth. Try Again(y/n):", t$
IF t$ = "y" OR t$ = "Y" THEN
GOTO start
ELSE
COLOR 6, 6
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "DEMO BY: B. LIMBU"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "CONFIRM YOUR PASSWORD AND TRY AGAIN"
PRINT "GOOD BYE"
END
END IF
END IF

 SUB about
COLOR 7, 9
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "DEMO BY: B. LIMBU"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "PRESS ANYKEY TO CONTINUE..."
COLOR 7, 1
INPUT "", IP
END SUB

 SUB addrecord
add:
CLS
COLOR 10, 0
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Û                         ADD RECORDS                        Û"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
lr = 0
OPEN "biran.txt" FOR INPUT AS #9
DO UNTIL EOF(9)
INPUT #9, rc, nm$, ad$, po$, sal
lr = lr + 1
LOOP
CLOSE #9

 OPEN "biran.txt" FOR APPEND AS #5
PRINT "Current record No.:", lr
INPUT "Name:", n$
INPUT "Address:", a$
INPUT "Post:", p$
INPUT "Salary:", s
WRITE #5, lr + 1, n$, a$, p$, s
CLOSE #5
INPUT "Add more(y/n)"; am$
IF am$ = "y" OR am$ = "Y" THEN
GOTO add:
END IF
COLOR 7, 1
END SUB

 SUB change
CLOSE #10
CLS
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Û                     CHANGE PASSWORD                        Û"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
retry:
OPEN "pass.txt" FOR OUTPUT AS #8
COLOR 10, 0
PRINT "New Password:";
COLOR 0, 0
INPUT "", n1$
COLOR 10, 0
PRINT "Confirm Password:";
COLOR 0, 0
INPUT "", n2$
IF n1$ = n2$ THEN
WRITE #8, n1$
CLOSE #8
COLOR 15, 1
PRINT "PASSWORD CHANGED"
PRINT "Press Anykey to continue..."
INPUT "", pc
ELSE
COLOR 10, 0
CLOSE #8
PRINT "New Password Confirmation not match"
PRINT "Retry"
GOTO retry
END IF
END SUB

 SUB delrec
del:
CLS
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Û                      DELETE RECORDS                        Û"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
OPEN "biran.txt" FOR INPUT AS #9
DO UNTIL EOF(9)
INPUT #9, rc, nm$, ad$, po$, sal
PRINT rc, nm$, ad$, po$, sal
LOOP
CLOSE #9
'----show first--------
OPEN "biran.txt" FOR INPUT AS #3
OPEN "temp.txt" FOR OUTPUT AS #4
INPUT "choose record number to delete"; del
DO UNTIL EOF(3)
INPUT #3, rc, nm$, ad$, po$, sal
IF del <> rc THEN
WRITE #4, rc, nm$, ad$, po$, sal
END IF
LOOP
CLOSE #3, #4
KILL "biran.txt"
NAME "temp.txt" AS "biran.txt"
INPUT "Delete More(y/n)"; y$
IF y$ = "y" OR y$ = "Y" THEN
GOTO del
END IF
END SUB

 SUB search
AGAIN:
CLS
PRINT TAB(25); "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT TAB(25); "SEARCH RECORDS"
PRINT TAB(25); "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
OPEN "biran.txt" FOR INPUT AS #2
INPUT "find what(RecNum,Name,address,post,salary):", fw$
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "RecNo.        Name          Address       Post          Salary"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
DO UNTIL EOF(2)
INPUT #2, rc, n$, ad$, po$, sal
IF rc = VAL(fw$) OR UCASE$(fw$) = UCASE$(n$) OR UCASE$(fw$) = UCASE$(ad$) OR UCASE$(fw$) = UCASE$(po$) OR sal = VAL(fw$) THEN
tr = tr + 1
PRINT rc, n$, ad$, po$, sal
END IF
LOOP
PRINT "total record:", tr
CLOSE #2
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
INPUT "Search more...(y/n):", sm$
IF sm$ = "y" OR sm$ = "Y" THEN
GOTO AGAIN
END IF

 END SUB

 SUB searchltd
search:
CLS
PRINT TAB(25); "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT TAB(25); "SEARCH LIMITED RECORDS"
PRINT TAB(25); "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
OPEN "biran.txt" FOR INPUT AS #2
INPUT "Search by Record Nomber(Start,End):", st, en
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "RecNo.        Name          Address       Post          Salary"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
DO UNTIL EOF(2)
INPUT #2, rc, n$, ad$, po$, sal
FOR i = st TO en
IF i = rc THEN
PRINT rc, n$, ad$, po$, sal
END IF
NEXT

 LOOP
CLOSE #2
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
INPUT "Search more...(y/n):", sm$
IF sm$ = "y" OR sm$ = "Y" THEN
GOTO search
END IF

 END SUB

 SUB showrec
CLS
COLOR 6, 8
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Û                         SHOW RECORDS                       Û"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"

 PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "RecNo.        Name          Address       Post          Salary"
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
OPEN "biran.txt" FOR INPUT AS #7
DO UNTIL EOF(7)
INPUT #7, rc, nm$, ad$, po$, sal
PRINT rc, nm$, ad$, po$, sal
LOOP
CLOSE #7
PRINT "Press anykey to back main menu..."
INPUT "", a
COLOR 7, 1
END SUB

 Note: ASCII Code Combine: Alt + 987
Thank you 

No comments:

Post a Comment

Thanks for your great comment!

Subscribe to: Posts (Atom)