Question

prepare a QBASIC program to check login module of an account where username and password in access criteria else will denied. username is 'ADMIN' and password is '12345'. if login trials exceeded to 3, it will come out from the program otherwise print login successful.

Answer 1

Answer:

CLS

COUNT = 0

SS :  

INPUT “ENTER USERNAME”;  USER$

INPUT “ENTER PASSWORD”;  PASS$

IF USER$ = “ADMIN” and PASS$ = “12345” THEN

PRINT “Login Successfully”

COUNT = 0

ELSE  

IF COUNT <=3 THEN

PRINT “USERNAME AND PASSWORD INCORRECT”

PRINT “NOTE: YOU HAVE ONLY 3 TRIALS ”

INPUT :”DO YOU WANT TO TRY AGAIN (Y/N)”; OPT$

IF OTP$ = “Y” THEN

COUNT = COUNT+1

GOTO SS

END IF

ELSE

PRINT “ACCESS DENIED !”

END IF

END

Explanation: