--[[
--使用PC虛擬串口屏調(diào)試4G模塊時(shí)使用
--屏幕需要升級工程 UART3_TO_UART1
--使用虛擬屏與實(shí)體屏聯(lián)調(diào)時(shí)，設(shè)置air_debug_mode = 1
--使用實(shí)體屏允許時(shí)，設(shè)置air_debug_mode = 0
--]]
local air_debug_mode = 1
uart_free_protocol = air_debug_mode      --自由串口協(xié)議
--[[***************************************************************************
** Function name : on_uart_recv_data
** Descriptions  :  接收串口1的數(shù)據(jù)的回調(diào)函數(shù)。串口1是普通串口。
**               虛擬屏調(diào)試時(shí), air_debug_mode = 1，處理串口1的數(shù)據(jù)。
** @packet       :接收的數(shù)據(jù)包
** @return       : nil,無返回值
***************************************************************************--]]
function on_uart_recv_data(packet)
    --4G模塊直接PC串口
    if air_debug_mode == 1 
       then
        on_air_recv_data(packet)
    end
end

--[[***************************************************************************
** Function name:  on_air_send_cb
** Descriptions:   4G模塊-發(fā)送數(shù)據(jù)
***************************************************************************--]]
function on_air_send_cb(msg)
    if air_debug_mode==1  then
        uart_send_string(msg)      -- air_debug_mode==1 ，使用虛擬屏調(diào)試，通過串口1發(fā)送數(shù)據(jù)
    else
        uart_send_string3(msg)     -- air_debug_mode==0 ，使用實(shí)體屏調(diào)試，通過串口3發(fā)送數(shù)據(jù)
    end
end

--[[*********************************************************************
** Function name:  on_init
** Descriptions :  系統(tǒng)初始化時(shí)，執(zhí)行此回調(diào)函數(shù)。
*********************************************************************--]]
function on_init()

    dofile(‘'Air724at.lua') --加載 4G庫文件
    uart_set_baudrate3(115200) --設(shè)置與4G模塊通訊的串口3的波特率為115200

    --設(shè)置4G庫函數(shù)的命令發(fā)送函數(shù)，命令回調(diào)函數(shù)、調(diào)試信息打印函數(shù)
    air_set_callback(on_air_send_cb,on_air_resp_callback,on_air_log_cb)
    air_hw_int()     --4G模塊初始化設(shè)置
    air_get_iccid()  –- 獲取卡號
    --開啟自動獲取型號強(qiáng)度、時(shí)間、天氣功能
    start_timer(timerId_Sig_Weather, 1000 , 0, 0)
end

--[[*********************************************************************
** Function name:  on_timer
** Descriptions :  定時(shí)器超時(shí)回到調(diào)函數(shù)。
** @ timer_id    :  定時(shí)器ID
*********************************************************************--]]
function on_timer(timer_id)
    on_air_timer(timer_id) --4G庫函數(shù)的定時(shí)處理

    --自動獲取型號強(qiáng)度
    if timer_id == timerId_Sig_Weather
    then
        --定時(shí)器計(jì)數(shù)，timer0_notify_cnt 每秒+1。計(jì)時(shí)長度30min
        timer0_notify_cnt = timer0_notify_cnt + 1 
        if timer0_notify_cnt%15 == 0
        then
            --每15s調(diào)用一次，更新信號值
            at_cops_csq() 
        elseif timer0_notify_cnt > 1800                     
        then                                                
            --標(biāo)志位清空，重新開始30min計(jì)時(shí)
            timer0_notify_cnt = 0 
        end
    end
end
--[[*********************************************************************
** Function name : at_cops_csq
** Descriptions  : 獲取運(yùn)營商信息、信號強(qiáng)度
** @return       : nil,無返回值
*********************************************************************--]]
function at_cops_csq()
    air_cmd_add('AT+COPS?','OK',1000) –獲取運(yùn)營商
    air_cmd_add('AT+CSQ'  ,'OK',1000) –獲取信號
end

--[[*********************************************************************
** Function name:  on_air_resp_callback
** Descriptions :  4G模塊-數(shù)據(jù)回調(diào)接口
** @key         :  屏幕->4G模塊的發(fā)送請求
** @value       :  4G模塊->返回的數(shù)據(jù)
*********************************************************************--]]
function on_air_resp_callback(key, value)  
    if value == nil
    then 
        return              --value為空時(shí)退出
    end

    --********************************************************************
    --功能：    判斷 key
    --          如果 key 為空，則退出函數(shù)。
    --          因?yàn)?key 為空時(shí)，下方 string.find( key , ) 是不正確的使用。
    --          以下key的處理必須不為空，
    --********************************************************************
    if key == nil 
    then
        return
    end

    --********************************************************************
    --條件：    4G初始化完成
    --功能：    使用使用AT指令獲取信號強(qiáng)度和運(yùn)營商。
    --調(diào)用函數(shù)：at_cops_csq()
    --函數(shù)功能：獲取信號強(qiáng)度和運(yùn)營商
    --********************************************************************
    if string.find(key,'+SAPBR=1,1') ~= nil and string.find(value,'OK') ~= nil 
    then
        set_text(screen_main, 16, '')
        at_cops_csq()
    end

    --********************************************************************
    --條件：    4G模塊返回運(yùn)營商信息
    --功能：    設(shè)置串口波特率為 115200 
    --********************************************************************
    if string.find(key,'+COPS')~=nil and string.find(value,'+COPS')~=nil
    then
        --****************************************************************
        --value：            +COPS: 0,2,"46000",7
        --要提取的值：       46000
        --正則表達(dá)式：       '+COPS:.*,.*,"(%d*)"' 
        --****************************************************************
        local regular_e = '+COPS:.*,.*,"(%d*)"' --正則表達(dá)式
        --獲取的值賦給 my_mobile_MCCMNC
        local my_mobile_MCCMNC = string.match( value, regular_e ) 
        set_text( screen_main, 2, mobile_MCCMNC[my_mobile_MCCMNC] )
        my_print( mobile_MCCMNC[my_mobile_MCCMNC] )
    end

    --*******************************************************************
    --條件：    4G模塊返回信號強(qiáng)度信息
    --功能：    設(shè)置串口波特率為 115200 
    --*******************************************************************
    if string.find(key,'+CSQ')~=nil and string.find(value,'+CSQ')~=nil
    then
        --***************************************************************
        --value：            +CSQ: 15,99
        --要提取的值：       15
        --正則表達(dá)式：       '+CSQ: (.*),.*' 
        --***************************************************************
        local regular_e = '+CSQ: (.*),.*' --正則表達(dá)式
        --獲取的值賦給 my_csq 
        local my_csq = tonumber(string.match(value,regular_e))
        if my_csq<=11
        then
            set_value( screen_main, 1, 1) --設(shè)置信號圖標(biāo)顯示第1幀
            set_text( screen_main, 5, "弱")     --設(shè)置文本，顯示“弱”
        elseif my_csq>=12 and my_csq<=13 
        then
            set_value( screen_main, 1, 2) --設(shè)置信號圖標(biāo)顯示第2幀
             set_text( screen_main, 5, "良")    --設(shè)置文本，顯示“良”
        elseif my_csq>=14 and my_csq<=15 
        then
            set_value( screen_main, 1, 3) --設(shè)置信號圖標(biāo)顯示第3幀
             set_text( screen_main, 5, "良")    --設(shè)置文本，顯示“良”
        elseif my_csq>=16 
        then
            set_value( screen_main, 1, 4) --設(shè)置信號圖標(biāo)顯示第4幀
             set_text( screen_main, 5, "強(qiáng)")    --設(shè)置文本，顯示“強(qiáng)”
        end
        my_print(my_csq)
    end

    ......
end

--[[**********************************************************************
** Function name: on_uart_recv_data3
** Descriptions : 接收串口3數(shù)據(jù)回調(diào)函數(shù)，連接4G模塊。
**********************************************************************--]]
function on_uart_recv_data3(packet)
    --4G AT指令庫API
    on_air_recv_data(packet)
end