------------------------------------------------------------------------------ -- LCD 1602 module -- -- LICENCE: http://opensource.org/licenses/MIT -- Vladimir Dronnikov <dronnikov@gmail.com> -- Compiled from various sources inc. -- http://www.avrfreaks.net/forum/lcd-display-iic-1602-atmega328p -- http://www.avrfreaks.net/sites/default/files/lcd_22.h -- https://github.com/nekromant/esp8266-frankenstein/blob/4880a04452ab745b1d99c0aedbb69cc2ba7fd5cb/include/driver/i2c_hd44780.h -- -- Example: -- i2c.setup(0, 3, 4, i2c.SLOW) -- lcd = dofile("lcd1602.lua")() -- lcd.put(lcd.locate(0, 5), "Hello, dvv!") -- function notice() print(node.heap()); lcd.run(0, "It's time! Skushai tvorojok!", 150, 1, notice) end; notice() ------------------------------------------------------------------------------ -- SANKI 20160713 -- ADR : default 0x27 -- local _offsets : 1602 / 2004 local M do -- const local ADR = 0x27 -- SANKI local _offsets = { [0] = 0x80, 0xC0, 0x94, 0xD4 } -- 20x4 --local _offsets = { [0] = 0x80, 0xC0, 0x90, 0xD0 } -- 16x4 -- cache local i2c, tmr, delay, ipairs, type, bit, bor, band, bshl = i2c, tmr, tmr.delay, ipairs, type, bit, bit.bor, bit.band, bit.lshift -- helpers local _ctl = 0x08 local w = function(b, mode) i2c.start(0) i2c.address(0, ADR, i2c.TRANSMITTER) local bh = band(b, 0xF0) + _ctl + mode local bl = bshl(band(b, 0x0F), 4) + _ctl + mode i2c.write(0, bh + 4, bh, bl + 4, bl) i2c.stop(0) end -- backlight on/off local light = function(off) _ctl = on and 0x08 or 0x00 w(0x00, 0) end local clear = function() w(0x01, 0) end -- return command to set cursor at row/col local locate = function(row, col) return col + _offsets[row] end local define_char = function(index, bytes) w(0x40 + 8 * band(index, 0x07), 0) for i = 1, #bytes do w(bytes[i], 1) end end -- write to lcd local put = function(...) for _, x in ipairs({...}) do -- number? if type(x) == "number" then -- direct command w(x, 0) -- string? elseif type(x) == "string" then -- treat as data for i = 1, #x do w(x:byte(i), 1) end end delay(800) end end -- show a running string s at row. shift delay is _delay using timer, -- on completion spawn callback local run = function(row, s, _delay, timer, callback) _delay = _delay or 40 tmr.stop(timer) local i = 16 local runner = function() -- TODO: optimize calculus? put( locate(row, i >= 0 and i or 0), (i >= 0 and s:sub(1, 16 - i) or s:sub(1 - i, 16 - i)), " " ) if i == -#s then if type(callback) == "function" then tmr.stop(timer) callback() else i = 16 end else i = i - 1 end end tmr.alarm(timer, _delay, 1, runner) end -- start lcd local init = function(adr) ADR = adr or 0x27 w(0x33, 0) w(0x32, 0) w(0x28, 0) w(0x0C, 0) w(0x06, 0) w(0x01, 0) w(0x02, 0) -- expose return { define_char = define_char, light = light, clear = clear, locate = locate, put = put, run = run, } end -- expose constructor M = init end return M

i2c.setup(0, 3, 4, i2c.SLOW) lcd = dofile("LCD16022004_Lib.lua")() lcd.put(lcd.locate(0, 5), "Hallo!") function notice() print(node.heap()); lcd.run(0, "Hallo Wereld!", 150, 1, notice) end; notice() --Start de code met het commando: dofile("start_lcd1602.lua")