--[[*********************************************************************
** Function name:  on_init
** Descriptions :  系統(tǒng)初始化時(shí)，執(zhí)行此回調(diào)函數(shù)。
*********************************************************************--]]
function on_init()
    
    dofile(‘Air724at.lua') --加載 http.lua 文件
    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()  –- 獲取卡號(hào)
    --開啟自動(dòng)獲取型號(hào)強(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í)處理
    
    --自動(dòng)獲取型號(hào)強(qiáng)度、時(shí)間、天氣的定時(shí)處理
    if timer_id == timerId_Sig_Weather
    then
        --定時(shí)器計(jì)數(shù)，timer0_notify_cnt 每秒+1。計(jì)時(shí)長(zhǎng)度30min
        timer0_notify_cnt = timer0_notify_cnt + 1 
        if timer0_notify_cnt%15 == 0
        then
            --每15s調(diào)用一次，更新信號(hào)值
            at_cops_csq()
            --如果天氣圖標(biāo)沒有更新，則此處在調(diào)用一次
            if get_value(screen_main,10) == 0
            then
                get_wea_and_time() 
            end                                             
        elseif timer0_notify_cnt > 1800                     
        then                                                
            --每30min調(diào)用一次，更新天氣、時(shí)間、信號(hào)
            get_wea_and_time()
            --標(biāo)志位清空，重新開始30min計(jì)時(shí)
            timer0_notify_cnt = 0 
        end
    end
end
--[[*********************************************************************
** Function name : at_cops_csq
** Descriptions  : 獲取運(yùn)營(yíng)商信息、信號(hào)強(qiáng)度
** @return       : nil,無返回值
*********************************************************************--]]
function at_cops_csq()
    air_cmd_add('AT+COPS?','OK',1000) –獲取運(yùn)營(yíng)商
    air_cmd_add('AT+CSQ'  ,'OK',1000) –獲取信號(hào)
end

--[[*********************************************************************
** Function name:  on_air_resp_callback
** Descriptions :  4G模塊-數(shù)據(jù)回調(diào)接口
** @key         :  屏幕->4G模塊的發(fā)送請(qǐng)求
** @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指令獲取信號(hào)強(qiáng)度和運(yùn)營(yíng)商。
    --          使用 http get 請(qǐng)求天氣、北京時(shí)間。
    --調(diào)用函數(shù)：at_cops_csq()
    --函數(shù)功能：獲取信號(hào)強(qiáng)度和運(yùn)營(yíng)商
    --調(diào)用函數(shù)：get_wea_and_time()
    --函數(shù)功能：請(qǐng)求天氣、北京時(shí)間
    --********************************************************************
    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模塊返回卡號(hào)
    --功能：    獲取卡號(hào)并顯示
    --********************************************************************
    if string.find(key,'+ICCID') ~= nil and string.find(value,'+ICCID') ~= nil 
    then
        --****************************************************************
        --value：            +ICCID: 89860117831003134201
        --要提取的值：       89860117831003134201
        --正則表達(dá)式：       '+ICCID: (%d*)' 
        --****************************************************************
        local regular_e = '+ICCID: (%d*)' --正則表達(dá)式
        local my_iccid = string.match( value, regular_e) --獲取的值賦給 my_iccid
        set_text( screen_main, 3, 'SIM卡號(hào)ICCID：'..my_iccid)
    end
    
    --********************************************************************
    --條件：    4G模塊返回運(yùn)營(yíng)商信息
    --功能：    設(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] )
    end
    
    --*******************************************************************
    --條件：    4G模塊返回信號(hào)強(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è)置信號(hào)圖標(biāo)顯示第1幀
        elseif my_csq>=12 and my_csq<=13 
        then
            set_value( screen_main, 1, 2) --設(shè)置信號(hào)圖標(biāo)顯示第2幀
        elseif my_csq>=14 and my_csq<=15 
        then
            set_value( screen_main, 1, 3) --設(shè)置信號(hào)圖標(biāo)顯示第3幀
        elseif my_csq>=16 
        then
            set_value( screen_main, 1, 4) --設(shè)置信號(hào)圖標(biāo)顯示第4幀
        end
    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