?????
Posted: Thu Mar 13, 2008 8:06 pm
What code would you use to do an action if you pressed one of the keys? I looked though the tutorials but coudn't find it.
Code: Select all
CLS
DO
PRINT "Press key: ";
DO: k$ = INKEY$: LOOP WHILE k$ = ""
PRINT k$
IF UCASE$(k$) = "Q" THEN END
LOOP
Code: Select all
CLS
DO
PRINT "Press key: ";
DO: k$ = INKEY$: LOOP WHILE k$ = ""
PRINT k$
LOOP UNTIL UCASE$(k$) = "Q"
END
Yeah, in this case that is better. I would normally do that, too.k7 wrote:My way:
Good catch, but I had a reason: focus on how to capture key, not how to terminate a program.burger2227 wrote:Mac you both used END instead of SYSTEM too. Bad boys LOL
Ted
Code: Select all
CLS
PRINT "Press ESC to exit program, 'T' to print time"
DO
PRINT : PRINT "Press key: ";
DO: k$ = INKEY$: LOOP WHILE k$ = ""
IF k$ = CHR$(27) THEN EXIT DO ELSE PRINT k$
IF UCASE$(k$) = "T" THEN PRINT TIME$
LOOP
PRINT : PRINT
LINE INPUT "Press ENTER"; e$
SYSTEM