演示视频
本文档适合大彩pm系列串口屏产品使用。
1. visualtft软件版本：v3.0.1.1112及以上的版本。
版本查看：
1) 打开visualtft软件启动页面如图2-1软件版本，右上角会显示的软件版本号；
图2-1软件版本
2) 打开visualtft，在软件右下角可以查看软件版本图2-2软件版本，最新版本可登录http://www.gz-dc.com/进行下载。
图2-2软件版本
2. 串口屏硬件版本：m系列固件 >=v6.3.325.00。
版本查看：
1) 查看屏幕背面版本号贴纸；
2) visualtft与屏幕联机成功后，右下角显示的版本号。
本例程，介绍4g的http下载文件、ota升级工程的方法。
1 《lua 脚本api v1.4》可通过以下链接下载物联型开发包获取:
http:/www.gz-dc.com/index.php?s=/list/index/cid/19.html
2 《lua基础学习》可通过以下链接下载物联型开发包获取:
http:/www.gz-dc.com/index.php?s=/list/index/cid/19.html
3 lua脚本初学者可以通过下面链接进行学习。
http://www.runoob.com/lua/lua-arrays.html
本文主要将以下2点进行说明：
1. 准备工程素材；
2. 配置串口屏工程；
5.1.1 准备工程素材
在实现例程前需要作以下3个准备：
1. 硬件平台；
2. 软件平台；
3. ui素材；
该例程使用大彩m系列7寸串口屏dc80480m070_1111_0t为验证开发平台。如图5-1所示：
图5-1 m系列7寸串口屏
其他尺寸的串口屏均可借鉴此教程。
5.1.2 软件平台
使用大彩自主研发的上位机软件visualtft配置工程，登录http://www.gz-dc.com/下载。如图5-2所示；
图5-2下载软件
本文主要介绍以下2点：
(1) 画面配置
(2) lua编辑
5.2.1 画面配置
在画面id0中，触发下载、下载过程、4g信号值及运营商3部分组成。
触发下载：3个按钮控件，作为触发下载条件。
- 控件id1为工程下载。
- 下载过程：控件id4~8作为下载过程的体现：
- 文本控件id4用于显示下载速度（min/kb）
- 文本控件id5显示下载信息
- 进度条控件id6为显示下载进度
- 文本控件id7用于显示下载进度百分比
- 文本控件id8显示 ‘当前已下载大小/总下载大小’，单位kb
- 4g信号和运营商：图标控件控件id11作为信号显示、文本控件id10用于显示运营商。画面配置如图5-3所示：
- 串口屏固件版本：文本控件id13用于显示固件版本号。
注意：其他非关键控件不在一一介绍，下文不在累述
图5-3 画面配置
5.2.2 lua编辑
本例程中，屏幕上电执行初始化操作，如加载4g at 指令的库、初始化4g模块、定时获取运营商和信号值等。
当用户点击工程、固件升级按钮时，调用air_http_download（）开始下载文件。在下载回调函数on_ota_http_download_file_cb（）里进行数据存储，显示下载信息等。若该文件单次下载不完，会多次回调on_ota_http_download_file_cb（）函数，直至下载完毕，如图5-4所示。
特别注意：使用ota时，每次从云端下载数据最大不超过2048字节，每次写入内存最大不超过512字节。
图5-4 下载流程
1. 初始化
调用系统函数on_init（）执行代码如程序清单 1所示：
程序清单 1 初始化
--[[*******************************************************************
** function name: on_init
** descriptions : 系统初始化时，执行此回调函数。
*******************************************************************--]]
function on_init()
ota_destroy() --清楚ota内容
dofile('air724at.lua') --加载 http.lua 文件
uart_set_baudrate3(115200) --设置与4g模块通讯的串口3的波特率为115200
start_timer( timerid_init, timerout_init, 0, 1 ) --初始化定时器，部分内容延时一段时间在初始化
air_set_callback(on_air_send_cb,on_air_resp_callback,on_air_log_cb) --设置4g库函数的命令发送函数，命令回调函数、调试信息打印函数
air_hw_int() --4g模块初始化设置
end
-- [[*******************************************************************
** function name: on_timer
** descriptions : 定时器超时回到调函数。
** @ timer_id : 定时器id
*******************************************************************--]]
function on_timer(timer_id)
on_air_timer(timer_id) --4g库函数的定时处理
--延时解压ota文件
if timer_id == timerid_ota_check_upgrade
then
air_log('timer_id == timerid_ota_check_upgrade')
ota_check_upgrade(1) --检查文件，并解压,参数 1 表示升级后重启
--延时初始化的内容
elseif timer_id == timerid_init
then
set_visiable( screen_updata, 6, 0)
end
end
--[[*******************************************************************
** function name : at_cops_csq
** descriptions : 获取运营商信息、信号强度
** @return : nil,无返回值
*******************************************************************--]]
function at_cops_csq()
air_cmd_add('at cops?','ok',1000) –获取运营商
air_cmd_add('at csq' ,'ok',1000) –获取信号
end
--[[*******************************************************************
** function name: on_air_resp_callback
** descriptions : 4g模块-数据回调接口
** @key : 屏幕向4g模块的发送请求
** @value : 4g模块返回的数据
*******************************************************************--]]
function on_air_resp_callback(key, value)
if value == nil
then
return --value为空时退出
end
--*********************************************************************
--功能： 判断 key
-- 如果 key 为空，则退出函数。
-- 因为 key 为空时，下方 string.find( key , ) 是不正确的使用。
-- 以下key的处理必须不为空，
--*****************************************************************
if key == nil
then
return
end
......
--*******************************************************************
--条件： 4g初始化完成
--功能： 使用使用at指令获取信号强度和运营商。
-- 使用 http get 请求天气、北京时间。
--调用函数：at_cops_csq()
--函数功能：获取信号强度和运营商
--调用函数：get_wea_and_time()
--函数功能：请求天气、北京时间
--*******************************************************************
if string.find(key,' sapbr=1,1') ~= nil and string.find(value,'ok') ~= nil
then
set_visiable( screen_updata, 16, 0 ) --画面‘多媒体下载’的提示清空
at_cops_csq() --获取信号强度、运营商
end
--****************************************************************
--条件： 设置4g模块波特率成功
--功能： 设置串口波特率为 921600
--****************************************************************
if string.find(key,' ipr=921600') ~= nil and
string.find(value,'ok') ~= nil
then
uart_set_baudrate3(921600)
end
--****************************************************************
--条件： 设置4g模块波特率成功
--功能： 设置串口波特率为 115200
--****************************************************************
if string.find(key,' ipr=115200') ~= nil and
string.find(value,'ok') ~= nil
then
uart_set_baudrate3(115200)
end
--****************************************************************
--条件： 4g模块返回运营商信息
--功能： 设置显示运营商
--****************************************************************
if string.find(key,' cops') ~= nil and string.find(value,' cops') ~= nil
then
--************************************************************
--value ： cops: 0,2,"46000",7
--要提取的值：46000
--正则表达式： ' cops:.*,.*,"(%d*)"'
--************************************************************
local regular_e = ' cops:.*,.*,"(%d*)"'--正则表达式
--获取的值赋给 my_mobile_mccmnc
local my_mobile_mccmnc = string.match( value, regular_e )
set_text( screen_main, 2, mobile_mccmnc[my_mobile_mccmnc])
end
--****************************************************************
--条件： 4g模块返回信号强度信息
--功能： 设置4g模块的信号等级
--****************************************************************
if string.find(key,' csq')~=nil and string.find(value,' csq')~=nil
then
--************************************************************
--value ： csq: 15,99
--要提取的值：15
--正则表达式： ' csq: (.*),.*'
--***********************************************************
local regular_e = ' csq: (.*),.*' --正则表达式
local my_csq = tonumber(string.match(value,regular_e))
if my_csq<=11
then
set_value( screen_main, 1, 1) --设置信号图标显示第1帧
elseif my_csq>=12 and my_csq<=13
then
set_value(screen_main, 1, 2) --设置信号图标显示第2帧
elseif my_csq>=14 and my_csq<=15
then
set_value( screen_main, 1, 3) --设置信号图标显示第3帧
elseif my_csq>=16
then
set_value( screen_main, 1, 4) --设置信号图标显示第4帧
end
end
end
--[[******************************************************************
** function name: on_uart_recv_data3
** descriptions : 接收串口3数据回调函数，连接4g模块。
******************************************************************--]]
function on_uart_recv_data3(packet)
--4g at指令库api
on_air_recv_data(packet)
end
核心api函数
1) dofile (filename)
加载文件：本例程中加载4g at 指令的库
- filename : 文件名
2) uart_set_baudrate3(speed)
设置串口3的波特率：串口3为屏幕和4g模块通讯的串口
- speed : 通讯的波特率
3) on_air_recv_data(packet)
串口接收4g模块的返回数据的回调。
- packet : 形参为表，字节数据。
4) air_set_callback (on_air_send_cb,on_air_resp_callback,on_air_log_cb)
设置4g库里的回调函数。形参类型为函数，参数依次为命令发送函数，命令回调函数、调试信息打印函数，可自定义函数名。
- on_air_send_cb：屏幕向4g模块发送回调函数
- on_air_resp_callback ：4g向屏幕返回数据回调函数
- on_air_log_cb：用户调试信息回调函数调试
5) air_hw_int()
4g at 指令的库函数，初始化4g模块
6) at_cops_csq()
自定义封装函数，获取运行商和信号值
7) air_cmd_add(sendstr,ackstr,timeout,retry,callback)
屏幕向4g模块发送at指令
- sendstr：屏幕向4g模块发送at指令
- ackstr：4g模块应答屏幕的请求
- timeou：应答超时
- retry：超时重发次数，可选
- callback：应答回调函数，可选
注：如果没有设置超时重发次数，则超时时直接发送队列中的下一条指令。
8) on_air_resp_callback(key, value)
4g应答屏幕回调函数：屏幕发送at指令，4g应答后均会回调该函数，初始化设置：air_set_callback(on_air_send_cb,on_air_resp_callback,on_air_log_cb)。
- key：屏幕向4g模块发送请求的at指令
- value：4g模块返回的数据
9） ota_destroy()
清楚上次写在内存中的ota数据。
相关at指令：
本例程中，涉及到获取4g模块初始化、运营商、信号值等at交互指令回调的判断，在on_air_resp_callback(key, value)回调函数中，判断4g收发的相关at指令，如下所示：
1) 网络数据是否激活：
屏幕发送：at sapbr=1,1。在air_hw_int()函数里发送。
屏幕接收：ok。on_air_resp_callback(key, value)函数里执行4g返回数据的判断
2) 获取运营商：
屏幕发送：at cops?。在at_cops_csq()函数了发送。
屏幕接收：ok。on_air_resp_callback(key, value)函数里执行4g返回数据的判断
3) 获取信号值：
屏幕发送：at csq。在at_cops_csq()函数了发送。
屏幕接收：ok。on_air_resp_callback(key, value)函数里执行4g返回数据的判断
2. http下载
用户点击按钮控件id1，http下载对应的ota文件。文件，每次向服务器读取2048k大小文件，然后在下载回调函里，每次以512字节的数据写入存储地址，代码如程序清单2所示：
程序清单 2 http下载
--[[****************************************************************** ** function name : on_control_notify ** descriptions : 系统回调函数，用户通过触摸修改控件后，执行此回调函数。 ** 点击按钮控件，修改文本控件、修改滑动条都会触发此事件。 ** @ screen : 控件触发所在的页面 ** @return : 控件触发的id ** @return : 控件值 ** @return : nil,无返回值 ******************************************************************--]] function on_control_notify(screen,control,value) --******************************************************************* --位置： ota升级 --******************************************************************* if screen == screen_updata then if control == 1 and value == 1 then set_enable( screen_updata, 1, 0) set_value( screen_updata, 6, 0) set_text( screen_updata, 7, '') set_text( screen_updata, 8, '') set_text( screen_updata, 4, '') set_visiable( screen_updata, 6, 1) --设置进度条可见 set_visiable( screen_updata, 7, 1) --设置进度文本可见 set_visiable( screen_updata, 8, 1) --设置文件大小文本可见 file_len = 0 file_curt_dl_perct = 0 air_set_baudrate(921600) --开始下载 air_http_download(ota_httpdownfile_uritb, ota_dloncesize, on_ota_http_download_cb) end end end --[[********************************************************************* ** function name: ota_http_download_process ** descriptions : 计算当前写入（下载）进度 ** @cur_process : 当前下载进度 ** @return : nil, 无返回值 *********************************************************************--]] function ota_http_download_process( cur_process ) local allsize = string.format('%0.2f', (file_len / 1024)) local cursize = string.format('%0.2f', (cur_process / 1024)) local file_curt_dl_perct = (cur_process/file_len)*100 file_curt_dl_perct = string.format('%0.1f',file_curt_dl_perct) set_value(screen_updata, 6, file_curt_dl_perct) set_text(screen_updata , 7, '下载进度: '..file_curt_dl_perct..' %') set_text(screen_updata , 8, '文件大小: '..cursize..' kb / '..allsize..' kb') end --[[********************************************************************* ** function name: on_ota_http_download_cb ** descriptions : 下载文件 ** @key : key, http下载返回标识 ** @value : value,4g模块屏幕 的应答数据 ** @return : nil, 无返回值 *********************************************************************--]] function on_ota_http_download_cb(key, value) if key=='data_len' then local otafile_len = value --获取文件长度 file_len = otafile_len ota_destroy() --清楚ota内容 ota_init_addr = ota_init('0123456789abcdef',otafile_len,ota_addr) --初始化ota内存 start_timer_download_speed(file_len) --开始计算下载时间 set_text( screen_updata, 4, '') --速度显示为空 elseif key=='data' --文件数据包 then my_ota_write_filedata('',value,add_write,ota_init_addr) --分段写入数据 elseif key=='finish' --下载结束 then air_set_baudrate(115200) --重新设置4g模块和串口3波特率为115200 start_timer(timerid_ota_check_upgrade, timerout_ota_check_upgrade , 0, 1) --定时执行ota_check_upgrade(1) ota_seek_ops = 0 --写的位置，计算下载进度 file_len = 0 --本次下载的文件长度 set_visiable( screen_updata, 6, 0) --设置进度条不可见 set_visiable( screen_updata, 7, 0) --设置进度文本不可见 set_visiable( screen_updata, 8, 0) --设置文件大小文本不可见 set_enable( screen_updata, 1, 1) local dl_sec,dl_speed = stop_timer_download_speed() --停止下载计时，比返回总用时秒数，每秒下载速度 set_text(screen_updata,4,'下载速度：'.. string.format('%0.2f',dl_speed) ..'kb/s 总用时：'..dl_sec..'s ') set_text( screen_updata, 5, '文件等待校验，请稍等...') elseif key=='timeout' --下载超时 then reset_4g() --重启4g dl_reset_flag = 1 --重启标志位 air_set_baudrate(115200) --重新设置4g模块和串口3波特率为115200 ota_destroy() --清楚ota内容 set_text( screen_updata, 5, '下载超时，发生网络错误，重新设置中...') --提示 stop_timer_download_speed() --停止下载计时 set_enable( screen_updata, 1, 1) elseif key=='dl_file_read_retry' -- httpread 重下 then --************************************************************* --value： retry: -1,601 --要提取的值： -1 -- 601 --正则表达式： 'retry: (%d*),(%d*)' --************************************************************* local httpread_retry='' local status='' local regular_e = 'retry: (.*),(%d*)' --正则表达式 local httpread_retry,status = string.match(value,regular_e) --获取的值赋给 if httpread_retry == '-1' and ( status == '408' or status == '601' or status == '603' ) then reset_4g() dl_reset_flag = 1 stop_timer_download_speed() --停止下载计时 set_text( screen_updata, 5, '下载超时，发生网络错误，重新设置中...') --提示 set_enable( screen_updata, 1, 1) end ota_destroy() elseif key=='dl_file_head_retry' -- httphead 重下 then --************************************************************** --value： retry: -1,601 --要提取的值： -1 -- 601 --正则表达式： 'retry: (%d*),(%d*)' --************************************************************** local httphead_retry='' local status='' local regular_e = 'retry: (.*),(%d*)' --正则表达式 local httphead_retry,status = string.match(value,regular_e) --获取的值赋给 if httphead_retry == '-1' and ( status == '408' or status == '601' or status == '603' ) then reset_4g() dl_reset_flag = 1 stop_timer_download_speed() --停止下载计时 set_text( screen_updata, 5, '下载超时，发生网络错误，重新设置中...') --提示 set_enable( screen_updata, 1, 1) end ota_destroy() end end --[[***************************************************************** ** function name : my_ota_write_filedata ** descriptions : ota数据分段写入ota升级地址 ** @file : 文件路径 ** @data : 待写入的数据 ** @open_mode : 打开文件的方式 ** @addr : ota初始化地址 *****************************************************************--]] function my_ota_write_filedata(file, data, open_mode,addr) local count = 0 --每次写的字节数 local write_cnt = 0 --‘data’数据一共需要写的次数 --获取待写入数据的长度和数据类型 local wrire_len, data_type = my_getdatalen_type(data) local write_byte_tb = {} if type(addr) == 'number' then --数据长度大于0 if wrire_len > 0 then --计算'@data'要写多少次 write_cnt = math.modf(wrire_len / ota_writeoncesize) -- wrire_len 不是 ota_writeoncesize 的整数倍时，wrire_len = wrire_len 1 if wrire_len % ota_writeoncesize > 0 then write_cnt = write_cnt 1 end my_uart_log('lua_debug: need write allcnt -> '..write_cnt..' rn') for i = 1, write_cnt do --复位写字节数组 write_byte_tb = {} --计算本次写的个数 count = ota_writeoncesize if i == write_cnt then if wrire_len % ota_writeoncesize > 0 then --最后一次写入时，count为剩余数据的长度 count = wrire_len % ota_writeoncesize end end --计算写的位置 ota_seek_ops = ota_seek_ops count --显示当前写入（下载）进度 ota_http_download_process( ota_seek_ops ) my_uart_log('lua_debug: cur write -> '..i..'th / wrire count '..count..' rn') --填充写入flash的字节数组 for j = 0, count - 1 do if data_type == 'string' then --字符串类型，将每个字符转换为字节数组 write_byte_tb[j - 1] = tonumber(string.byte(data, ((i - 1) * ota_writeoncesize j), ((i - 1) * ota_writeoncesize j))) elseif data_type == 'table' then --数组类型，字节赋值 write_byte_tb[j] = data[((i - 1) * ota_writeoncesize j)] end end if i == write_cnt then if wrire_len % ota_writeoncesize > 0 then for y=count,ota_writeoncesize-1 do write_byte_tb[y] = 0 end end end ota_write(write_byte_tb) --写数据到内存中 end end else end end
核心api函数
1) air_http_download(url,break_size,user_callback)
4g库函数，http下载文件。
- url：http下载资源连接。
- break_size：单次网络下载的包大小，单位字节（byte），本例程中为7k。
- user_callback：改形参是一个函数变量，http下载应答屏幕的回调函数。名称可自定义命名，如本例程为on_http_download_file_cb。
2) on_ota_http_download_file_cb(key, value)
用户自定义函数，http下载回调函数。
- key：http响应数据类型
- value：http响应的内容
- 若key = ‘dl_file_read_retry’，表示 httpaction 查询读取数据超时。若超时，内部已经处理了3次重发数据请求。
3) my_ota_write_filedata(file, data, open_mode)
用户自定义函数，写文件。本例程，将4g http下载返回的数据写在内存中。
- file：存储路径，本例程中，为空。
- data：存储的数据，类型可以是‘数组’或‘字符串’，本例程中，4g http下载返回的数据类型是数组
- open_mode：文件打开模式：本例程中，每次写文件，将数据写在文件尾。
注意：本文不再阐述文件读写的详细说明，可参考相应的资料，如《lua应用-文件读写v1.0.pdf》
4) ota_destroy ( )
清除ota数据：对0x800000地址写入的数据清除。
5) ota_init (md5，filesize, addr)
视频播放回调函数
- md5：字符串，固定为‘0123456789abcdef’
- filesize：ota.bin文件的大小，单位：byte
- addr：固定为0x800000（16进制）
如ota.bin文件大小为17542byte，则ota_init(‘0123456789abcdef’, 17542, 0x800000)。
6) ota_write(writetb)
ota写入，用户调用ota_write(writetb)，将writetb数据写入到0x800000地址。
- writetb:写入字节数据，写入大小为2048 byte,不足2048byte补零。写入该地址的数据掉电后不清除。
7) ota_check_upgrade(state)
ota.bin文件校验、解压。当用户将ota.bin文件传输完毕后，调用ota_check_upgrade(state)对ota.bin进行先校验在解压，解压成功后即已经升级完成，屏幕自动重启。
- state：1，进入升级状态。
3. ota升级
ota文件下载完成，则调用ota_check_upgrade(1)开始进入校验解压过程，代码如程序清单 3所示：
程序清单 3 文件校验、解压
--[[************************************************************** ** function name: on_timer ** descriptions: 定时器超时回调 ******************************************************************--]] function on_timer(timer_id) ...... --延时解压ota文件 if timer_id == timerid_ota_check_upgrade then air_log('timer_id == timerid_ota_check_upgrade') ota_check_upgrade(1) --检查文件，并解压,参数 1 表示升级后重启 end end --[[******************************************************************* ** function name: on_ota_progress ** descriptions : 解压升级 ** @status : 解压状态 ** @value : 对于状态的具体数值 ** ** @开始校验 ** @status = 1 ** @value = 0 ** ** @校验结果 ** @status = 2 ** @value = 0 ，失败 ** 1 ，成功 ** ** @开始解压 ** @status = 3 ** @value = 0~100，解压进度 ** ** @解压结束 ** @status = 4 ** @value = 0 ，失败 ** 1 ，成功 ** ** @return : nil, 无返回值 ******************************************************************--]] function on_ota_progress(status,value) if status == 1 then set_text(screen_updata , 5, '开始校验') set_value(screen_updata, 6, 0) elseif status == 2 then if value == 0 then set_text(screen_updata , 5, '校验失败，文件错误，请检查下载文件') elseif value == 1 then set_text(screen_updata , 5, '校验成功') end elseif status == 3 then set_value(screen_updata, 6, value) set_text(screen_updata , 5, '文件解压进度: '..value..' %') elseif status == 4 then if value == 0 then set_text(screen_updata , 5, '解压失败') elseif value == 1 then set_text(screen_updata , 5, '解压成功') set_value(screen_updata, 6, 100) end end refresh_screen() --刷新画面 end
核心api函数
1) ota_check_upgrade(state)
ota.bin文件校验、解压。当用户将ota.bin文件传输完毕后，调用ota_check_upgrade(state)对ota.bin进行先校验在解压，解压成功后即已经升级完成，屏幕自动重启。
- state：1，进入升级状态。
2) on_ota_progress(status,value)
ota校验、解压回调。当用户ota_check_upgrade(state)函数后，会自动回到该api。
- status:状态。1-校验过程，2-校验结果，3-解压过程，4解压结果
- value：处理结果。
3) refresh_screen()
刷新屏幕。
工程编译成功后在输出窗口会提示编译成功，如图5-5所示；
图5-5编译成功
在菜单栏中，文件→打开工程目录，在‘dciot_build’目录的‘private’拷贝到sd卡中，如图5-6和图5-7所示；把sd卡接上串口屏后重新上电，等到提示烧录工程成功后，拔掉sd卡重新上电即可。
图5-6量产向导
图5-7拷贝到sd卡