Remote Technologies RPC-320 User Manual

Page 34

Advertising
background image

KEYPAD PORT

SECTION 9

Page 9-1 RPC -320

Figure 9-1 Keypad connector

INTRODUCTION

16, 20, or 24 position keypads are plugged into keypad
port J5. Keys are arra nged in a m atrix for mat. A key is
recogn ized whe n a row and a colum n connect.

RPBASIC-52 scans and debounces the keypad every 50
ms. Keypad pr esses are retur ned as a num ber fr om 1 to
24 using the KE YPA D function . Ke ypad scann ing is
always active and cannot be turned off. Up to 8 key
presses are buffered.

K e yp a d p r e ss e s a r e mu lt i- ta s ke d us in g ON K E Y P A D .
When a key is pressed, the program br anches to the
subroutine.

Keypads from Rem ote Processing simply plug into J5.
The keypad cable length should be limited to less than 5
feet.

PROGRAMMING EXAMPLE

The following example sets up RPBASIC to scan a 16
position keypa d. T he results a re echo ' ed when a key is
pressed. Press the 'D' key to enter.

10 STRING 200,20
20 $(0) = "123A456B789C*0#D"
30 P = 1
40 PF = 0
50 PRINT "Enter a number from the keypad",

REM Rest of program continues
REM Scan keypad and update display

200 GOSUB 500
210 IF PF = 0 THEN 200
220 PRINT
230 PRINT "Entered string is: ",$(2)
240 PF = 0
250 GOTO 50

500 A = KEYPAD(0)
510 IF A = 0 THEN 500
520 IF A = 12 THEN 600 : REM Process clear
530 IF A = 16 then 700 : REM process enter
540 A=ASC($(0),A)
550 PRINT CHR(A),
560 ASC($(2),P) = A
570 P = P + 1
580 ASC($(2),P) = 13
590 RETURN
600 REM Clear input string
610 $(2) = ""
620 P = 1
630 RETURN
700 REM Enter processing
710 P = 1
720 PF = 1
730 RETURN

Program explanation

Line 20 defines the keypad legend. Letters may be
redefined as necessary.

Line 30 sets the position counter used to insert characters
into the string.

Line 200 w aits for a ke y press. The enter ed string is
printed.

Line 500 checks the keypad. If a character is available,
it processe s it.

Lines 540-590 update the input string and position. A
< CR> is inserted to mark the end of string.

Advertising