大彩串口屏4g应用-凯发k8一触即发

演示视频


一、适用范围


本文档适合大彩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.257.00。

版本查看:

a) 查看屏幕背面版本号贴纸;

b) visualtft与屏幕联机成功后,右下角显示的版本号。




三、概述


本例程中,介绍4g的http下载的应用,通过下载图片、视频、音频说明下载流程。




四、参考资料


 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

 4  at指令,可以通过下面子连接了解

uhttp://www.openluat.com/product/file/asr1802/luat 4g模块at命令手册v4.2.8.pdfu

 5  air系列4g模块at版本http应用说明(若连接失效请在luat社区中查找)

https://ask.openluat.com/article/626/0




五、教程实现


本文主要将以下2点进行说明:

1. 准备工程素材;

2. 配置串口屏工程;






5.1 准备工程素材

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下载软件






5.2 配置串口屏工程

本文主要介绍以下2点:

(1) 画面配置

(2) lua编辑


5.2.1 画面配置

在画面id0中,触发下载、下载过程、4g信号值及运营商3部分组成。

触发下载:3个按钮控件,作为触发下载条件。

  • 控件id1~3依次为图片下载、视频下载以及音频下载。

下载过程:控件id4~8作为下载过程的体现:

  • 文本控件id4用于显示下载速度(min/kb)
  • 文本控件id5显示下载信息
  • 进度条控件id6为显示下载进度
  • 文本控件id7用于显示下载进度百分比
  • 文本控件id8显示 ‘当前已下载大小/总下载大小’,单位kb

4g信号和运营商:图标控件控件id10作为信号显示、文本控件id11用于显示运营商。画面配置如图5-3所示:

注意:其他非关键控件不在一一介绍,下文不在累述

图5-3 画面配置


5.2.2 lua编辑 

本例程中,屏幕上电执行初始化操作,如加载4g at 指令的库、初始化4g模块、定时获取运营商和信号值等。

当用户点击图片下载的时,调用air_http_download()开始下载文件。在下载回调函数on_http_download_file_cb()里进行数据存储,显示下载信息等。若该文件单次下载不完,会多次回调on_http_download_file_cb()函数,直至下载完毕,如图5-4所示。

图5-4 下载流程

 1  初始化

调用系统函数on_init()执行代码如程序清单 1所示:

程序清单 1 初始化

--[[*******************************************************************
** function name:  on_init
** descriptions :  系统初始化时,执行此回调函数。
*******************************************************************--]]
function on_init()
    dofile('air724at.lua') --加载 http.lua 文件
    uart_set_baudrate3(115200) --设置与4g模块通讯的串口3的波特率为115200
    --设置4g库函数的命令发送函数,命令回调函数、调试信息打印函数
    air_set_callback(on_air_send_cb,on_air_resp_callback,on_air_log_cb)
    air_hw_int() --4g模块初始化设置
    --开启自动获取型号强度、时间、天气功能
    start_timer(timerid_sig_weather, 1000 , 0, 0)
    set_visiable(screen_mmedia_dl,6,0) --设置进度条不可见
    set_visiable(screen_mmedia_dl,7,0) --设置进度文本不可见
end
--[[*******************************************************************
** function name:  on_timer
** descriptions :  定时器超时回到调函数。
** @ timer_id    :  定时器id
*******************************************************************--]]
function on_timer(timer_id)
    on_air_timer(timer_id) --4g库函数的定时处理
    --定时获取信号强度
    if timer_id == timerid_sig_weather
    then
        --定时器计数,timer0_notify_cnt 每秒 1。
        timer0_notify_cnt = timer0_notify_cnt   1 
        if timer0_notify_cnt == 0
        then
            --每15s调用一次,更新信号值
            at_cops_csq()
            timer0_notify_cnt = 0 --标志位清空
        end
    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模块波特率成功
    --功能:    设置串口波特率为 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模块返回的数据

 

相关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~3,http协议下载对应的图片、视频、音频文件。文件,每次向服务器读取7k大小文件,然后在下载回调函里,每次以2k字节的数据写入文件,代码如程序清单2所示:

程序清单 2  http下载

--[[******************************************************************
** function name : on_control_notify
** descriptions  : 系统回调函数,用户通过触摸修改控件后,执行此回调函数。
**                 点击按钮控件,修改文本控件、修改滑动条都会触发此事件。
** @ screen       : 控件触发所在的页面
** @return        : 控件触发的id
** @return        : 控件值
** @return        : nil,无返回值
******************************************************************--]]
function on_control_notify(screen,control,value)
    if screen == screen_mmedia_dl 
    then
        if (control >= 1 and control <= 3) and value == 1
        then
            --停止音乐、视频的播放、下载的图片不显示
            picture_en = 0
            stop_sound()
            stop_video()
            --下载过程失能下载按钮,不允许点击
            set_enable(screen_mmedia_dl, 1, 0)
            set_enable(screen_mmedia_dl, 2, 0)
            set_enable(screen_mmedia_dl, 3, 0)
            set_visiable(screen_mmedia_dl,6,1) --设置进度条可见
            set_visiable(screen_mmedia_dl,7,1) --设置进度文本可见
            set_visiable(screen_mmedia_dl, 9, 0) --设置音乐图标隐藏
            --复位下载相关变量
            file_len           = 0
            file_current_dl    = 0
            file_curt_dl_perct = 0
            临时提升波特率,提高4g和屏幕串口传速度
            air_set_baudrate(921600)
            down_mode = control
            set_text(screen_mmedia_dl,5,httpdown_dl_process[down_mode])
            --开始下载
            air_http_download(httpdownfile_uritb[down_mode], 
                          7168,
                          on_http_download_file_cb)
        end
    end
end
--[[*********************************************************************
** function name: http_download_process
** descriptions : 计算当前写入(下载)进度
** @cur_process : 当前下载进度
** @return       : nil, 无返回值
*********************************************************************--]]
function 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_mmedia_dl, 6, file_curt_dl_perct)
    set_text(screen_mmedia_dl, 7, '下载进度: '..file_curt_dl_perct..' %')
    set_text(screen_mmedia_dl, 8, '文件大小:'..cursize..' k/'..allsize..' k')
end
--[[*********************************************************************
** function name: on_http_download_file_cb
** descriptions : 下载文件
** @key           : key, http下载返回标识
** @value        : value,4g模块屏幕  的应答数据 
** @return       : nil, 无返回值
*********************************************************************--]]
function on_http_download_file_cb(key, value)
    if key=='data_len' then
        file_len = value --获取文件长度
        --创建文件
        open_state = file_open( httpdownsave_filetb[down_mode], over_write)
        start_timer_download_speed(file_len) --开始计算下载时间
        set_text( screen_mmedia_dl, 4, '')   --速度显示为空
    elseif key=='data'  --文件数据包
    then
        --分段写入数据
        my_write_filedata(httpdownsave_filetb[down_mode],value,add_write) 
    elseif key=='finish' --下载结束
    then
        --重新开启自动获取信号
        start_timer(timerid_sig_weather, 5*1000 , 0, 0)  
        file_close() --关闭文件
        --复位相关下载变量
        file_len           = 0
        file_current_dl    = 0
        file_curt_dl_perct = 0
        set_value( screen_mmedia_dl, 6, 0) --初始化进度条数值
        set_text( screen_mmedia_dl, 7, '下载进度:0%') --初始化进度文本数值
        set_text( screen_mmedia_dl , 8, '')
        set_visiable( screen_mmedia_dl, 6, 0) --设置进度条不可见
        set_visiable( screen_mmedia_dl, 7, 0) --设置进度文本不可见
        --停止下载计时,比返回总用时秒数,每秒下载速度
        local dl_sec,dl_speed = stop_timer_download_speed()
        set_text(screen_mmedia_dl,4,
              '下载速度:'..string.format('%0.2f',(dl_speed*60))..'kb/min')
        --重新设置4g模块和串口3波特率为115200
        air_set_baudrate(115200) 
        --下载模式为1时显示图片
        if down_mode == 1
        then
            set_text(screen_mmedia_dl,5,httpdown_dl_process_end[down_mode])
            if surface ~= 0 
            then
                destroy_surface(surface) 
                surface = 0
            end
            picture_en=1
            surface = load_surface(httpdownsave_filetb[down_mode])
            redraw()
        --下载模式为2时播放视频
        elseif down_mode == 2
        then
            set_text(screen_mmedia_dl,5,httpdown_dl_process_end[down_mode])
            picture_en = 0
            stop_video()
            play_video(httpdownsave_filetb[down_mode], 40, 75, 480, 320)
        --下载模式为3时播放音乐
        elseif down_mode == 3
        then
            set_text(screen_mmedia_dl,5,httpdown_dl_process_end[down_mode])
            set_visiable(screen_mmedia_dl, 9, 1) --设置音乐图标显示
            picture_en = 0
            stop_video()
            stop_sound()
            play_sound(httpdownsave_filetb[down_mode])
        end
        set_value(screen_mmedia_dl    , 1, 0)
        set_value(screen_mmedia_dl    , 2, 0)
        set_value(screen_mmedia_dl    , 3, 0)
        set_enable(screen_mmedia_dl   , 1, 1)
        set_enable(screen_mmedia_dl   , 2, 1)
        set_enable(screen_mmedia_dl   , 3, 1)
        elseif key=='timeout' --下载超时
        then
            start_timer(timerid_sig_weather, 5*1000 , 0, 0)
            set_text(screen_mmedia_dl  , 5, '下载超时,请重新下载!')
            dl_reset_flag = 1
            set_value(screen_mmedia_dl , 1, 0)
            set_value(screen_mmedia_dl , 2, 0)
            set_value(screen_mmedia_dl , 3, 0)
            set_enable(screen_mmedia_dl, 1, 1)
            set_enable(screen_mmedia_dl, 2, 1)
            set_enable(screen_mmedia_dl, 3, 1)
            air_set_baudrate(115200) --重新设置4g模块和串口3波特率为115200
            stop_timer_download_speed() --停止下载计时
        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) 
        air_log('user r retry: '..httpread_retry..','..status)
        if httpread_retry == '-1' and ( status == '408' or
                                        status == '601' or
                                        status == '603' )
        then
            reset_4g()
            --提示
            set_text( screen_mmedia_dl, 5, '下载超时,发送网络错误,重新设置中...') 
            dl_reset_flag = 1
        end
    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) 
        air_log('user h retry: '..httpread_retry..','..status)
        if httphead_retry == '-1' and ( status == '408' or 
                                        status == '601' or 
                                        status == '603' )
        then
            reset_4g()
            set_text( screen_mmedia_dl, 5, '下载超时,发送网络错误,重新设置中...')
        dl_reset_flag = 1
        end
    end
end

▲下滑查看


核心api函数

1) air_http_download(url,break_size,user_callback)

4g库函数,http下载文件。
  • url:http下载资源连接,本例程中,将图片、视频以及音频的资源路径放在数组缓冲区中,如下所示:

local httpdownfile_uritb = 
                    {'http://video.gz-dc.com/logo_480320_165kv2.jpg',
                     'http://video.gz-dc.com/video2_62m9s.mp4',
                     'http://video.gz-dc.com/music503k32s.mp3'}

  • break_size:单次网络下载的包大小,单位字节(byte),本例程中为7k
  • user_callback:改形参是一个函数变量,http下载应答屏幕的回调函数。名称可自定义命名,如本例程为on_http_download_file_cb。


2) on_http_download_file_cb(key, value)

用户自定义函数,http下载回调函数。
  • key:http响应数据类型
  • value:http响应的内容

若key = ‘data_len’,表示http下载的文件大小;value 表示为文件大小,单位byte。

若key = ‘data’,表示http响应数据内容;value为数据内容,类型为字节数组,大小为air_http_download(url,break_size,user_callback)设置的break_size。

若key = ‘finish’,表示http下载完成;value为文件总大小,单位byte

若key = ‘timeout’,表示http下载超时。

若key = ‘dl_file_head_retry’,表示 httpaction 查询头信息超时。若超时,内部已经处理了3次重发数据请求。

若key = ‘dl_file_read_retry’,表示 httpaction 查询读取数据超时。若超时,内部已经处理了3次重发数据请求。


3) my_write_filedata(file, data, open_mode)

用户自定义函数,写文件。本例程,将4g http下载返回的数据写在文件中。
  • file:存储路径,本例程中,将图片、视频以及音频下载后的文件指定存储在屏内(3为屏内盘符),路径定义如下所示

local httpdownsave_filetb = {'3:/image.jpg','3:/bench.mp4', '3:/my dream.mp
3'}

  • data:存储的数据,类型可以是‘数组’或‘字符串’,本例程中,4g http下载返回的数据类型是数组
  • open_mode:文件打开模式:本例程中,每次写文件,将数据写在文件尾。

注意:本文不再阐述文件读写的详细说明,可参考相应的资料,如《lua应用-文件读写v1.0.pdf》


4) load_surface(filename)

加载图片到图层。
  • filename图片文件路径,支持jpeg/png

本例程中,当下载完成key=‘finish’时,且当前下载的是图片文件(down_mode = 1),调用此api申请图层绘图,并调用redraw()刷新触发on_draw()显示。

注意:本文不再阐述绘图的详细说明,可参考相应的资料,如《lua教程7-绘图api使用说明.pdf》


5) destroy_surface (surface)

销毁图层,w系列支持、m系列 >= v6.1.241.00、f系列不支持
  • surface图层资源指针


6) play_sound(filename)

播放指定的声音文件
  • filenam:音频文件路径,支持mp3/wav
本例程中,当下载完成key=‘finish’时,且当前下载的是音频文件(down_mode = 3),调用此api播放音频。若播放完毕,触发音频播放结束通知on_audio_callback(),在重复播放该音频文件。

注意:本文不再阐述音频的详细说明,,可参考相应的资料,如 《m系列-播放sd卡里视频、音频文件 v1.0.pdf》


7) play_video(file,left,top,width,height)

播放指定的视频文件
  • file:文件路径,支持mp4
  • left:起始坐标x
  • top:起始坐标y
  • width:视频显示的宽度
  • height:视频显示的高度
本例程中,当下载完成key=‘finish’时,且当前下载的是视频文件(down_mode = 2),调用此api播放视频,播放过程触发on_video_notify(msg,v1, v2)。若msg=0,表示播放完毕,在重复播放该视频文件。

注意:本文不再阐述视频的详细说明,,可参考相应的资料,如 《m系列-播放sd卡里视频、音频文件 v1.0.pdf》


8) on_video_notify(msg,v1, v2)

视频播放回调函数

  • msg:1-播放中,0-播放完毕
  • v1:当前播放进度,当前已播时长,单位s
  • v2:播放总进度, 当前视频总时长,单位s


9) on_audio_callback (state)

声音播放结束回调通知,state保留未使用。


10) on_draw(screen)

当界面的显示内容需要更新时,系统自动调用此函数,用户在此函数中添加自定义的绘图操作。用户绘制的内容叠加在画面内容之上。此函数为系统回调函数,用户不要直接调用。
下面几种情况会触发此函数:
  • 界面有动画播放、视频播放、rtc时间显示的动态刷新;
  • 用户操作屏幕控件控件;
  • 通过lua脚本或串口指令更新控件;
  • 通过执行redraw
界面上有任何变化,都会触发此函数

 

11) draw_surface (surface,dstx,dsty,width,height,srcx,srcy)

绘制图层,相比于draw_image_file,此方法效率较高,w系列支持、m系列 >= v6.1.241.00支持(裁剪显示)、f系列不支持
  • surface图层资源指针
  • dstx图片显示x坐标
  • dsty图片显示y坐标
  • width图片显示宽度[可选]
  • height图片显示高度[可选]
  • srcx图片裁剪x坐标[可选]
  • srcy图片裁剪y坐标[可选]

例如:

平铺显示:draw_surface(surface, dstx, dsty)

缩放显示:draw_surface(surface, dstx, dsty, width, height),此方法m型不支持

裁剪显示:draw_surface(surface, dstx, dsty, width, height ,srcx, srcy)






5.3 下载工程

工程编译成功后在输出窗口会提示编译成功,如图5-5所示;

图5-5编译成功


在菜单栏中,文件→打开工程目录,在‘dciot_build’目录的‘private’拷贝到sd卡中,如图5-6和图5-7所示;把sd卡接上串口屏后重新上电,等到提示烧录工程成功后,拔掉sd卡重新上电即可。

图5-6量产向导


图5-7拷贝到sd卡





网站地图