大彩串口屏4g应用-米乐网页

--[[*********************************************************************
** 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模块初始化设置
    air_get_iccid()  –- 获取卡号
    --开启自动获取型号强度、时间、天气功能
    start_timer(timerid_sig_weather, 1000 , 0, 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。计时长度30min
        timer0_notify_cnt = timer0_notify_cnt   1 
        if timer0_notify_cnt == 0
        then
            --每15s调用一次，更新信号值
            at_cops_csq()
            --如果天气图标没有更新，则此处在调用一次
            if get_value(screen_main,10) == 0
            then
                get_wea_and_time() 
            end                                             
        elseif timer0_notify_cnt > 1800                     
        then                                                
            --每30min调用一次，更新天气、时间、信号
            get_wea_and_time()
            --标志位清空，重新开始30min计时
            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初始化完成
    --功能：    使用使用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_text(screen_main, 16, '')
        at_cops_csq()
        get_wea_and_time()
    end
    
    --********************************************************************
    --条件：    4g模块返回卡号
    --功能：    获取卡号并显示
    --********************************************************************
    if string.find(key,' iccid') ~= nil and string.find(value,' iccid') ~= nil 
    then
        --****************************************************************
        --value：             iccid: 89860117831003134201
        --要提取的值：       89860117831003134201
        --正则表达式：       ' iccid: (%d*)' 
        --****************************************************************
        local regular_e = ' iccid: (%d*)' --正则表达式
        local my_iccid = string.match( value, regular_e) --获取的值赋给 my_iccid
        set_text( screen_main, 3, 'sim卡号iccid：'..my_iccid)
    end
    
    --********************************************************************
    --条件：    4g模块返回运营商信息
    --功能：    设置串口波特率为 115200 
    --********************************************************************
    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模块返回信号强度信息
    --功能：    设置串口波特率为 115200 
    --*******************************************************************
    if string.find(key,' csq')~=nil and string.find(value,' csq')~=nil
    then
        --***************************************************************
        --value：             csq: 15,99
        --要提取的值：       15
        --正则表达式：       ' csq: (.*),.*' 
        --***************************************************************
        local regular_e = ' csq: (.*),.*' --正则表达式
         --获取的值赋给 my_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