192 lines
3.9 KiB
Lua
192 lines
3.9 KiB
Lua
-- LUA default run file
|
|
|
|
-- LUA default run file
|
|
|
|
require "env"
|
|
|
|
periphery = require('periphery')
|
|
Serial = periphery.Serial
|
|
|
|
COMMAND_POSITION = 0x19
|
|
COMMAND_POSITION_X = 0x13
|
|
COMMAND_POSITION_Y = 0x11
|
|
|
|
COMMAND_01H = 0x01
|
|
COMMAND_03H = 0x03
|
|
|
|
COMMAND_CURSOR_OFF = 0x0E
|
|
|
|
COMMAND_BLINK = 0x0B
|
|
COMMAND_UNBLINK = 0x0C
|
|
|
|
COMMAND_CR = 0x0D
|
|
COMMAND_LF = 0x0A
|
|
|
|
blinkFlag = false
|
|
|
|
posX = 0
|
|
posY = 0
|
|
|
|
LOGING = 1
|
|
|
|
local function errLog(msg)
|
|
io.stderr:write(msg)
|
|
end
|
|
|
|
function logPrint(msg,aux)
|
|
if ( LOGING ) then
|
|
if aux then
|
|
print(msg.." , "..aux)
|
|
else
|
|
print(msg);
|
|
end
|
|
end
|
|
end
|
|
|
|
function dbgPrint(msg,aux)
|
|
if ( DEBUG ) then
|
|
if aux then
|
|
print(msg.." , "..aux)
|
|
else
|
|
print(msg);
|
|
end
|
|
end
|
|
end
|
|
|
|
function checkY(y)
|
|
if y < 0 then
|
|
y = 0
|
|
end
|
|
if y > 5 then
|
|
y = 5
|
|
end
|
|
posY = y
|
|
return y
|
|
end
|
|
|
|
function checkX(x)
|
|
if x < 0 then
|
|
x = 39;
|
|
posY = posY - 1
|
|
checkY(posY)
|
|
end
|
|
if x > 39 then
|
|
if posY == 5 then
|
|
x = 39;
|
|
else
|
|
x = 0;
|
|
posY = posY + 1
|
|
checkY(posY);
|
|
end
|
|
end
|
|
posX = x
|
|
return x
|
|
end
|
|
|
|
function gotoXY(x,y)
|
|
checkX(x);
|
|
checkY(y);
|
|
end
|
|
|
|
function lineFeed(void)
|
|
posY = posY + 1
|
|
gotoXY(posX, checkY(posY));
|
|
end
|
|
|
|
function carriageReturn(void)
|
|
gotoXY(0, posY);
|
|
end
|
|
|
|
function doRead()
|
|
local loops = 0
|
|
while loops < 100 do
|
|
loops = loops + 1
|
|
if serial:poll(1) then
|
|
local c = serial:read(1)
|
|
if c:byte() == COMMAND_POSITION then
|
|
local cmd = serial:read(1)
|
|
if cmd:byte() == COMMAND_POSITION_X then
|
|
local x = string.byte(serial:read(1))
|
|
gotoXY(x,posY)
|
|
elseif cmd:byte() == COMMAND_POSITION_Y then
|
|
local y = string.byte(serial:read(1))
|
|
gotoXY(posX,y)
|
|
end
|
|
elseif c:byte() == COMMAND_03H then
|
|
serial:read(1)
|
|
serial:read(1)
|
|
elseif c:byte() == COMMAND_BLINK then
|
|
blinkFlag = true
|
|
elseif c:byte() == COMMAND_UNBLINK then
|
|
blinkFlag = false
|
|
elseif c:byte() == COMMAND_CURSOR_OFF then
|
|
-- curs_set(0);
|
|
elseif c:byte() == COMMAND_CR then
|
|
carriageReturn()
|
|
elseif c:byte() == COMMAND_LF then
|
|
lineFeed()
|
|
else
|
|
if c:byte() >= 0x20 and c:byte() < 0x7F then
|
|
--print(c.." at "..posX.." "..posY.."\n")
|
|
posX = posX + 1
|
|
checkX(posX)
|
|
local label = line[posY+1][posX+1]
|
|
label:setText(c)
|
|
label:draw()
|
|
else
|
|
print("Unknown: "..c:byte().."\n");
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function setup()
|
|
serial = Serial("/dev/ttyAMA0",19200)
|
|
instance = HMI.App.instance;
|
|
layout = HMI.Layout(instance,200,48);
|
|
|
|
mono = HMI.Font("/root/font/mono.ttf",34)
|
|
|
|
line = {}
|
|
for i=1, 6, 1 do
|
|
line[i] = {}
|
|
for j=1, 40, 1 do
|
|
line[i][j] = HMI.Label(layout,5*(j-1),8+4*(i-1),5,4," ");
|
|
line[i][j]:setTextColor(HMI.Color.green);
|
|
line[i][j]:setBackground(HMI.Color.black);
|
|
line[i][j]:setFont(mono)
|
|
line[1][j]:draw()
|
|
end
|
|
end
|
|
|
|
number = {}
|
|
for i=1, 10, 1 do
|
|
number[i] = HMI.Cell(layout,1+20*(i-1),0,20,7,i-1);
|
|
number[i]:setTextColor(HMI.Color.black);
|
|
number[i]:setBackground(HMI.Color.grey);
|
|
number[i]:setFont(mono)
|
|
end
|
|
|
|
control = {}
|
|
for j=0, 1, 1 do
|
|
for i=1, 10, 1 do
|
|
control[i+j] = HMI.Cell(layout,1+20*(i-1),34+j*7,20,7,i-1);
|
|
control[i+j]:setTextColor(HMI.Color.black);
|
|
control[i+j]:setBackground(HMI.Color.grey);
|
|
control[i+j]:setFont(mono)
|
|
end
|
|
end
|
|
|
|
cnt = 0;
|
|
end
|
|
|
|
function loop()
|
|
doRead()
|
|
end
|
|
|
|
io.stderr:write("Run LUA\n");
|
|
|
|
--------------------------------------------------
|
|
|