Essay About N1 And N2

Circuit Ideas – Electronics for You
Essay Preview: Circuit Ideas – Electronics for You
Report this essay
CIRCUIT IDEAS
ELECTRONICS FOR YOUJANUARY 2003
S.C. DWIVEDI
COMPUTERISED UNIVERSAL TIMER
D.K. KAUSHIK
CLS : SCREEN 1: COLOR 3, 10
N1 = 0: N2 = 0: N3 = 0
LOCATE 4, 10: PRINT ” PROGRAM DEVELOPED BY DR.D.K.KAUSHIK”
LINE (90, 60)-(200, 60), 2: LINE -(200, 75), 2
LINE -(90, 75), 2: LINE -(90, 60), 2
LOCATE 9, 14: PRINT N3; “:”; N2; “:”; N1
LOCATE 13, 9: PRINT “PRESS F1 KEY FOR TIME ADJUSTMENT”
LOCATE 15, 9: PRINT “PRESS F2 KEY FOR START”
LOCATE 17, 9: PRINT “PRESS F3 KEY TO STOP”
KEY(2) ON: ON KEY(2) GOSUB START
KEY(3) ON: ON KEY(3) GOSUB LAST1
PORT% = &H378
DELAY:
KEY(1) ON: ON KEY(1) GOSUB SET
GOTO DELAY
SOUND 650, 3
N1 = N1 + 10
IF N1 < 60 THEN LOCATE 9, 14: PRINT N3; ":"; N2; ":"; N1: RETURN N1 = 0 N2 = N2 + 1 IF N2 < 60 THEN LOCATE 9, 14: PRINT N3; ":"; N2; ":"; N1: RETURN N2 = 0: N3 = N3 + 1 LOCATE 9, 14: PRINT N3; ":"; N2; ":"; N1 RETURN START: KEY(1) OFF: KEY(2) OFF Z1 = VAL(RIGHT$(TIME$, 2)) OUT PORT%, 1 REM FOR DEBATE COMPETITION OUT PORT%,1 SHOULD BE REPLACED REM BY OUT PORT%,0 COMPUTER PROGRAM IN Q-BASIC START1: Z2 = VAL(RIGHT$(TIME$, 2)) IF Z2 = Z1 THEN GOTO START1 ELSE GOTO START2 START2: IF N1 = 0 AND N2 = 0 AND N3 = 0 THEN LOCATE 9, 14 PRINT N3; ":"; N2; ":"; N1: GOTO LAST N1 = N1 - 1 IF N1 < 0 THEN N1 = 59: N2 = N2 - 1 IF N2 < 0 THEN N2 = 59: N3 = N3 - 1 IF N3 < 0 THEN N3 = 0 LOCATE 9, 14: PRINT N3; ":"; N2; ":"; N1 Z1 = Z1 + 1 IF Z1 = 60 THEN Z1 = 0 IF N1 = 0 AND N2 = 0 AND N3 = 0 THEN GOTO LAST ELSE GOTO START1 LAST: OUT PORT%, 0 REM FOR DEBATE