--[[*********************************************************************
** 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庫(kù)函數(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è)置
    --開(kāi)啟自動(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庫(kù)函數(shù)的定時(shí)處理

    --定時(shí)獲取信號(hào)強(qiáng)度
    if timer_id == timerId_Sig_Weather
    then
        --定時(shí)器計(jì)數(shù)，timer0_notify_cnt 每秒+1。
        timer0_notify_cnt = timer0_notify_cnt + 1 
        if timer0_notify_cnt%15 == 0
        then
            --每15s調(diào)用一次，更新信號(hào)值
            at_cops_csq()
            timer0_notify_cnt = 0 --標(biāo)志位清空
        end
    end
end

--[[*********************************************************************
** Function name : at_cops_csq
** Descriptions  : 獲取運(yùn)營(yíng)商信息、信號(hào)強(qiáng)度
** @return       : nil,無(wú)返回值
*********************************************************************--]]
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)

--***********************************************************************
    --功能：    判斷 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)商。
    --調(diào)用函數(shù)：at_cops_csq()
    --函數(shù)功能：獲取信號(hào)強(qiáng)度和運(yùn)營(yíng)商
    --調(diào)用函數(shù)：at_tcp_client_cofig()
    --函數(shù)功能：TCP配置
     *********************************************************************
    if string.find(key,'+SAPBR=1,1') ~= nil and string.find(value,'OK') ~= nil 
    then
        at_cops_csq()
        at_tcp_client_cofig()
    end

    --********************************************************************
    --條件：    4G模塊返回運(yùn)營(yíng)商信息
    --功能：   
    --********************************************************************
    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)度信息
    --功能： 
    --********************************************************************
    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á)式
        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指令庫(kù)API
    on_air_recv_data(packet)
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)
    ......
    --******************************************************************
    --條件：    4G初始化完成
    --功能：    使用使用AT指令獲取信號(hào)強(qiáng)度和運(yùn)營(yíng)商。
    --調(diào)用函數(shù)：at_cops_csq()
    --函數(shù)功能：獲取信號(hào)強(qiáng)度和運(yùn)營(yíng)商
    --調(diào)用函數(shù)：at_tcp_client_cofig()
    --函數(shù)功能：TCP配置
    --*****************************************************************
    if string.find(key,'+SAPBR=1,1') ~= nil and string.find(value,'OK') ~= nil 
    then
        .......
        at_tcp_client_cofig()
    end
end

--[[*********************************************************************
** Function name : at_tcp_client_cofig
** Descriptions  : TCP配置
** @return       : nil,無(wú)返回值
******************************************************************** --]]
function at_tcp_client_cofig(connect) 
    local function my_get_ip_cb(key, value)

        if string.find(key,'+CIFSR') ~= nil and value ~= nil 
        then
        Tcp_ip = value
        set_text(sc_Tcp, 1, Tcp_ip)
        end
    end

    local function my_ip_state(key, value)
        air_log('my debugMsg key   -> '..key)
        air_log('my debugMsg value -> '..value)

        if string.find(key,'+CIPSTATUS') ~= nil 
            and string.find(value,'IP STATUS') ~= nil 
        then
            Tcp_state = 1
            air_log('at_tcp_client_cofig success !!!!!!')
        end
    end

    if connect == nil
    then
        connect = 0
    end
    air_cmd_add('AT+CREG=1', 'OK', 1000, 3) --設(shè)置當(dāng)前GPRS注冊(cè)狀態(tài)
    air_cmd_add('AT+CGREG=1', 'OK', 1000, 3) --設(shè)置當(dāng)前GPRS注冊(cè)狀態(tài)
    air_cmd_add('AT+CGATT=1', 'OK', 1000, 3) --設(shè)置當(dāng)前GPRS附著狀態(tài)
    air_cmd_add('AT+CIPMUX='.. connect, 'OK', 1000, 3) --設(shè)置為單、多鏈接模式

    --設(shè)置為快發(fā)模式（推薦使用這種模式）
    air_cmd_add('AT+CIPQSEND=1', 'OK', 1000, 3)
    air_cmd_add('AT+CSTT?', 'OK', 1000, 3) --啟動(dòng)任務(wù)，查看APN
    air_cmd_add('AT+CSTT="CMIOT"', 'OK', 1000, 3) --啟動(dòng)任務(wù)，設(shè)置APN

    air_cmd_add('AT+CIICR', 'OK', 1000, 3) --激活移動(dòng)場(chǎng)景
    air_cmd_add('AT+CIFSR' , 'OK', 1000, 3, my_get_ip_cb) --查詢(xún)分配的IP地址

    air_cmd_add('AT+CIPSTATUS' , 'STATE: IP STATUS', 1000, 3, my_ip_state) --查詢(xún)下鏈接狀態(tài)

end

--[[*********************************************************************
** Function name : at_tcp_client_connect
** Descriptions  : 設(shè)置接收模式
** @head         : 是否顯示頭部
** @showtp       : 是否顯示協(xié)議
** @srip         : 是否顯示IP、端口
** @return       : nil,無(wú)返回值
*********************************************************************--]]
function at_set_tcp_recv_mode(head, showtp,srip)
    air_cmd_add('AT+CIPHEAD='..head,      'OK', 1000, 3) --顯示頭部
    air_cmd_add('AT+CIPSHOWTP='..showtp,  'OK', 1000, 3) --顯示協(xié)議
    air_cmd_add('AT+CIPSRIP='..srip,      'OK', 1000, 3) --顯示IP、端口
end

--[[*********************************************************************
** Function name : at_tcp_client_connect
** Descriptions  : 連接服務(wù)器
** @mode         : 連接模式，TCPUPD
** @server_ip    : 服務(wù)器地址
** @port         : 服務(wù)器端口
** @return       : nil,無(wú)返回值
********************************************************************--]]
function at_tcp_client_connect(mode, server_ip, port)
    --連接服務(wù)器
    air_cmd_add(
        'AT+CIPSTART="'..mode..'",'..'"'..server_ip..'",'..port, 
        'OK', 
        1000,
        3)
    --查詢(xún)當(dāng)前GPRS注冊(cè)狀態(tài)
    air_cmd_add('AT+CIPSTATUS', 'STATE: CONNECT OK', 1000, 3) 

end
--[[*********************************************************************
** Function name : on_control_notify
** Descriptions  : 系統(tǒng)回調(diào)函數(shù)，用戶(hù)通過(guò)觸摸修改控件后，執(zhí)行此回調(diào)函數(shù)。
**                 點(diǎn)擊按鈕控件，修改文本控件、修改滑動(dòng)條都會(huì)觸發(fā)此事件。
** @return       : nil,無(wú)返回值
********************************************************************--]]
function on_control_notify(screen,control,value)
    if screen == sc_Tcp 
    then
        if control == 4 and value == 0 and Tcp_state == 1
        then
            Tcp_server_ip = get_text(sc_Tcp, 3)
            Tcp_server_port = get_text(sc_Tcp, 3)
            at_tcp_client_connect('TCP', Tcp_server_ip, Tcp_server_port) --連接服務(wù)器
            at_set_tcp_recv_mode(1, 1, 1)              --設(shè)置接收模式
        ......
        end

    end
end

--[[*********************************************************************
** Function name : on_control_notify
** Descriptions  : 系統(tǒng)回調(diào)函數(shù)，用戶(hù)通過(guò)觸摸修改控件后，執(zhí)行此回調(diào)函數(shù)。
**                 點(diǎn)擊按鈕控件，修改文本控件、修改滑動(dòng)條都會(huì)觸發(fā)此事件。
** @return       : nil,無(wú)返回值
*********************************************************************--]]
function on_control_notify(screen,control,value)
    if screen == sc_Tcp 
    then
       ......
          local send_data = get_text(sc_Tcp, 5)
          at_tcp_send(send_data)
       .......
    end
end

--[[*********************************************************************
** Function name : at_tcp_send
** Descriptions  : TCP、發(fā)送數(shù)據(jù)到服務(wù)端
** @str          : 發(fā)送數(shù)據(jù)
** @return       : nil,無(wú)返回值
********************************************************************--]]
function at_tcp_send(str)
    air_cmd_add('AT+CIPSEND='..string.len(str) , '>', 1000, 3)
    air_cmd_add(str, 'DATA ACCEPT', 1000, 3)
end

--[[*********************************************************************
** Function name: split
** Descriptions : 切割字符串
** @ str          : 源字符串
** @ pat          : 分割符號(hào)
*********************************************************************--]]
function split(str, pat)
    local t = {}
    local last_end = 0
    local s, e = string.find(str, pat, 1) --第一個(gè)分割號(hào)
    local i = 1
    while s do
        table.insert(t, string.sub(str, last_end + 1, last_end + s - last_end - 1))
        last_end = e
        s, e = string.find(str, pat, last_end + 1)
        i = i + 1
    end
    if last_end <= #str then
        cap = string.sub(str, last_end + 1)
        table.insert(t, cap)
    end
    return t  
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
        if string.find(value,'FROM') ~= nil 
        then
            --+RECV FROM: 60.166.12.210:7500
            --分割成3份，分別為+RECV FROM、60.166.12.210、7500
            local serverInfo = split(value,':')
            set_text(sc_Tcp, 7, serverInfo[2]) –- ip
            set_text(sc_Tcp, 8, serverInfo[3]) –-端口

        elseif  string.find(value,'IPD') ~= nil 
        then
            --+IPD,TCP,10:123456789
            --分割成2份，分別為+IPD,TCP,10、123456789
            local serverData = split(value,':')
            set_text(sc_Tcp, 9, serverData[2]) -- 數(shù)據(jù)內(nèi)容
        end
    end
    ......
end