Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/I2C/BV4218.fth" into BV Terminal 3 or here to download.

// REQUIRES: // #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100 // #URL-Lib "http://pin1.org/forthlib/flb/I2C/i2c.flb" sid=101 // #URL-inc "http://pin1.org/forthlib/flb/I2C/BV4218.flb" sid=102

// CONSTANTS: // none

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BV4218 LCD + Keypad circuit board
// the same routines can be used for the BV4208 LCD, IC and
// the BV4207 keypad chip.
// This is a simple demonstration thst will check the keypad and
// then add 2 numbers together. It has been designed for a 2 x 16 line
// display but should work with lareger displays.
// The technique used here is to extend the BV4218 library with a SID
// of 102 and then only make the wotd GO public.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb"
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-Lib "http://pin1.org/forthlib/flb/I2C/i2c.flb" sid=101
// #URL-inc "http://pin1.org/forthlib/flb/I2C/BV4218.flb" sid=102

// CONSTANTS:
// none

// extend BV4218 library
// #currentSID sid=102

: l2-d l 2 5 m s ; // this display requires a delay afet moving cursor
: lh-d l h 5 m s ; //
: l2n ( n -- ) &c 0 + L C D c m d 5 m s ; // moves curse on second line to position n
: msg1 s " B V 4 1 2 8 D e m o " s t y p e 2 ;
: msg2 s " D i s p l a y & K e y p a d " s t y p e 2 ;
: msg3 s " E n t e r 2 v a l u e s " s t y p e 2 ;
: msg4 s " # i s e n t e r k e y " s t y p e 2 ;

// wait here for a key press and return with key that
// was pressed
: key-wait ( -- k )
b e g i n
k e y ? a b o r t " t e r m i n a l k e y p r e s s e d "
k n // goes to <>0 when keypad pressed
1 m s // dont overload i2c
u n t i l
k g // get gey from keypad
;

// checks to see if keypad has been set up, # key should
// be value 11. Returns true if it is.
: keypadset? ( -- -1|0 )
l c s " P r e s s t h e # k e y " s t y p e 2
k c // clear key buffer
k e y -w a i t
1 1 =
;

// asks the user to press the hash key that has been set a value of
// 11, if it does not return 11 then it goes through the kepad setup
: setkeypad
k e y p a d s e t ? i n v e r t
i f
l c s " k e y s n e e d s e t i n g " // no room for another t
1 0 0 0 m s
k e y -m a p -l
t h e n
;

// gets a decimal number form the keypad, terminated with the
// # key, echoes number to display
: get-number ( -- n )
0 // start with 0
b e g i n
k e y -w a i t // get value pressed
d u p 1 1 = i f d r o p e s c a p e t h e n // enter key
d u p l n // echo
s w a p 1 0 * // multiply existing by position
+ // add to existing
a g a i n
;

// sign on to display, tell user whats gong on and set up the lcd
// NOTE version k firmware onwards has command 55 so that a sucessfull
// conection to the device can be established, this assumes an older version.
: signon
6 6 l c d -i n i t // set i2c bus
0 b l i g h t // trun on back light if there is one
l c m s g 1 l 2 -d m s g 2 // sign on
2 0 0 0 m s
;

// this is the public word
: <0>go
s i g n o n
s e t k e y p a d // check keypad is set up
l c m s g 3 l 2 -d m s g 4 2 0 0 0 m s // user instructions
// get keys and calculate sum
l c s " F i r s t V a l u e " s t y p e 2
l 2 -d s " * " s t y p e 2 g e t -n u m b e r // on stack
// get second number
l h -d // home cursor but dont clear display
s " S e c o n d V a l u e " s t y p e 2
6 l 2 n // second line 6th position
s " * " s t y p e 2 g e t -n u m b e r // get second number
1 2 l 2 n
s " = " s t y p e 2 + l n
;

// #currentSID sid=102
// back to default SID