New Micros, Inc - Keypad input.

View Full Version : Keypad input.

Rooster

06-12-00, 08:59 AM

I recently purchased a NMIY-20 with keypad and LCD display. Being new to Forth programing, I'm having a terrible time geting keypad characters converted to a number. Would some one please send me code that will do this.I would also like to know where I can find examples of Max-Forth core words. I found examples of FP words at UA Canada. I have automated a tool by puting a gear-box and motor on it. I have a Max-Forth program that allows a operator to performs 6 different functions with the tool. I already have sales for the tool but can only run it from a PC. Please help. Jerry

Steve

06-12-00, 12:00 PM

Here are some words from NMI:( wait for a keypad key : KP-KEY ( -- button ) BEGIN KP-?TERMINAL UNTIL KEYPAD C@ 2/ 2/ 2/ ;CREATE ASCIIFY ( a table for keypad translation) 52 C, 45 C, 53 C, 55 C, ( RTT Enro Stat Unav ) 41 C, 4F C, 41 C, 43 C, ( Ack On L Avai Clear) 31 C, 34 C, 37 C, 55 C, ( 1 4 7 Down ) 32 C, 35 C, 38 C, 30 C, ( 2 5 8 0 ) 33 C, 36 C, 39 C, 44 C, ( 3 6 9 Up )( return the ascii version of the keys, wait for key release : PADKEY ( -- char ) KP-KEY ASCIIFY + C@ KP-RELEASE ; ( NUMBER INPUT VIA KEYPAD AND DISPLAY( true if char is not a digit : NOTDIGIT? ( char -- char flag ) DUP 30 < OVER 39 > OR ;( wait for a single digit. reject any non-digit and continue waiting ( return the value of the digit 0--9 : 1DIGIT ( -- n ) BEGIN PADKEY NOTDIGIT? WHILE DROP REPEAT DUP DSP-EMIT 30 - ;( wait for n digits, return the accumulated value : DIGITS ( n -- n ) 0 SWAP 0 DO 0A * 1DIGIT + LOOP ;( user input of a number ( : GET-NUMBER ( -- n ) ( DSP-CLEAR ( 0 DSP-AT) DSP" INPUT? " 5 DIGITS ;: LOOP-KEY HOME BEGIN PADKEY DSP-EMIT ?TERMINAL UNTIL ;You'll have to change the table to match your keypad.Steve

nmitech

06-12-00, 12:09 PM

Thanks steve for your prompt response.I also found this appnote in this forum posted by Rob. Hope this will help. Check it out. http://www.compusmart.ab.ca/rc/Pobox/FORTH/EXAMPLES/POBOX.F

Rooster

06-19-00, 10:26 PM

Thanks Steve, Sometimes you can't see the forest for the trees. Forth is great stuff once you figure out how it works. Thanks to you too New-Micro for NMIY-20. Rooster

jya

06-20-00, 04:59 PM

I switched two pair of wires at the connector to eliminate the need for a translation table. No soldering or crimping is needed - the terminals can be released from the connector body with a pointed tool. The resulting code isn't long, but it may not be readable in this format. Let me know if you want it emailed or posted on my web site. I can offer more code that way, too.Jerry http://users.erols.com/jyavins( Grayhill Keypad Series 86, marked 86JB2-202 G-97-059-J-9742 D$FPJ ( Leads H <-> J and L <-> M are interchanged to simplify decoding. ( NMI's Keypad.4th, as modified. JYA; 7Aug98( KEYPAD ROUTINES )B00A CONSTANT KEYPAD( true if a keypad key is pressed : ?KEYPAD ( -- flag ) B000 C@ 1 AND ;( wait for keypad key to be released : KP-RELEASE ( -- ) BEGIN ?KEYPAD 0= UNTIL ;( wait for a keypad key : KP-KEY ( -- button ) BEGIN ?KEYPAD UNTIL KEYPAD C@ U2/ U2/ U2/ ;: >CHAR ( n -- c ) DUP 9 > 7 AND + 30 + ;( Return the key number, wait for key release ) : KEY# ( -- n ) KP-KEY KP-RELEASE ;( NUMBER INPUT VIA KEYPAD AND DISPLAY( wait for a single digit. reject any non-digit and continue waiting ( return the value of the digit 0 to BASE 1- : 1DIGIT ( -- n ) ( n -> LCD BEGIN KEY# DUP BASE @ < NOT WHILE DROP REPEAT DUP >CHAR LCD-EMIT ;( wait for n digits, return the accumulated value : DIGITS ( # -- n ) ( # digits -> LCD 0 SWAP 0 DO BASE @ * 1DIGIT + LOOP ;( Cheap user input of a number : GET-NUMBER ( #digits -- n ) ( But n is garbage if too many digits. ) LCD-CLR DIGITS ;

jya

06-20-00, 05:06 PM

The code needs U2/ , an unsigned 2/ , the same as shift right. Here it isCODE U2/ ( 48 cycles 1864 , 00 C, ( LSR 0,Y 1866 , 01 C, ( ROR 1,Y 7E C, FE4A , ( JMP NEXT END-CODEI'm sorry for the omission. (That's not an apology, but an admission of embarrassment.)Jerry http://users.erols.com/jyavins---------- Engineering is the art of making what you want from things you can get.

Rooster

06-22-00, 06:36 PM

Thanks Guys for helping me with getting info from the keypad. I hope I am not wearing out my welcome but I also need help with prompting for information to the LCD. For instance how would I send info to the LCD to ask for MMI input. It's hard for a 62 year old to learn this Forth stuff. Please be patient. Jerry (Rooster) Lowery

jya

06-22-00, 09:17 PM

OK. Here's my LCD code. It's for a two-line by 40 display, but other sizes are easily programmed. I just didn't see a reason to make it more general.\ Support and demo for 2 line by 40 character display. Thanks with nod to NMI B080 CONSTANT LCD-CMD B081 CONSTANT LCD-DAT\ Wait until the LCD isn't busy. : LCD-WAIT ( -- ) BEGIN LCD-CMD C@ 80 AND 0= UNTIL ;\ Send command or data to LCD. : LCD-CMD! ( C -- ) LCD-WAIT LCD-CMD C! ; : LCD-EMIT ( C -- ) LCD-WAIT LCD-DAT C! ;\ Make specific LCD command words. : LCD-MAKE ( c -- ) CREATE , DOES> ( -- ) @ LCD-CMD! ; 1 LCD-MAKE LCD-CLR 2 LCD-MAKE LCD-HOME 8 LCD-MAKE LCD-OFF C LCD-MAKE LCD-ON ( On, no cursor ) E LCD-MAKE LCD-CUR ( On, with cursor ): LCD-ATTR ( blink? cursor? display? -- ) \ Sets three display attributes 0= 3 + 2* SWAP 0= 1+ OR 2* SWAP 0= 1+ OR LCD-CMD! ;14 CONSTANT EMIT-CB-PTR FFA4 CONSTANT UART-TX-CBCREATE LCD-CB ( EMIT control block for LCD ) LCD-CMD , 80 C, 80 C, LCD-DAT , \ There is no provision there for a driver to handle CR, LF, BS, etc.\ The next 2 words translate cursor locations by number to and from LCD \ data RAM addresses and add (on write) or strip (on read) the control bits.: LCD-AT ( a -- ) 80 OR DUP A7 > 18 AND + LCD-CMD! ; \ Write cursor addr \ Undocumented: FF LCD-CMD! resets the cursor, so BS doesn't need to check.: LCD-AT? ( -- a ) LCD-CMD C@ DUP 27 > 18 AND - ; \ Get current cursor. \ This supposes that the display isn't reading GC RAM. The supposition is \ true if LCD-CG! hasn't been executed, or if LCD-AT was executed after it.\ Set character-generator address. LCD-AT? reads CG RAM addresses after this. : LCD-CG! ( a -- ) 3F AND 40 OR LCD-CMD! ;\ Carriage return, line feed, backspace, ->, and <-. All but BS and CR wrap. : LCD-CR ( -- ) LCD-AT? 27 > 28 AND LCD-AT ; : LCD-LF ( -- ) LCD-AT? DUP 27 > IF 28 - ELSE 28 + THEN LCD-AT ; : LCD-BS ( -- ) LCD-AT? 1- DUP LCD-AT BL LCD-EMIT LCD-AT ; : LCD+ ( -- ) LCD-AT? 1+ LCD-AT ; \ Advances cursor position : LCD- ( -- ) LCD-AT? 1- LCD-AT ; \ Backs cursor position\ Smart LCD-EMIT that knows linefeed, carriage return, and backspace. : >LCD ( terminal? c -- terminal? ) DUP 8 = IF OVER IF BL EMIT EMIT ELSE DROP THEN LCD-BS EXIT THEN DUP A = IF DROP LCD-LF EXIT THEN DUP D = IF DROP LCD-CR EXIT THEN LCD-EMIT ;There's more, but this will get you started.Jerry---------- Engineering is the art of making what you want from things you can get.

jya

06-22-00, 09:20 PM

Again, an embarrassing omission! The numbers in my code are Hexadecimal.---------- Engineering is the art of making what you want from things you can get.