--[[*******************************************************************
** 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)
    set_visiable(screen_mmedia_dl,6,0) --設(shè)置進(jìn)度條不可見(jiàn)
    set_visiable(screen_mmedia_dl,7,0) --設(shè)置進(jìn)度文本不可見(jiàn)
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)

    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

    ......
    --****************************************************************
    --條件：    設(shè)置4G模塊波特率成功
    --功能：    設(shè)置串口波特率為 921600 
    --****************************************************************
    if string.find(key,'+IPR=921600') ~= nil and
        string.find(value,'OK') ~= nil 
    then
        uart_set_baudrate3(921600)
    end

    --****************************************************************
    --條件：    設(shè)置4G模塊波特率成功
    --功能：    設(shè)置串口波特率為 115200 
    --****************************************************************
    if string.find(key,'+IPR=115200') ~= nil and
    string.find(value,'OK') ~= nil 
    then
        uart_set_baudrate3(115200)
   end

    --****************************************************************
    --條件：    4G模塊返回運(yùn)營(yíng)商信息
    --功能：    設(shè)置顯示運(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)度信息
    --功能：    設(shè)置4G模塊的信號(hào)等級(jí)
    --****************************************************************
    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_control_notify
** Descriptions  : 系統(tǒng)回調(diào)函數(shù)，用戶通過(guò)觸摸修改控件后，執(zhí)行此回調(diào)函數(shù)。
**                 點(diǎn)擊按鈕控件，修改文本控件、修改滑動(dòng)條都會(huì)觸發(fā)此事件。
** @ screen       : 控件觸發(fā)所在的頁(yè)面
** @return        : 控件觸發(fā)的ID
** @return        : 控件值
** @return        : nil,無(wú)返回值
******************************************************************--]]
function on_control_notify(screen,control,value)
    if screen == screen_mmedia_dl 
    then

        if (control >= 1 and control <= 3) and value == 1
        then
            --停止音樂(lè)、視頻的播放、下載的圖片不顯示
            picture_en = 0
            stop_sound()
            stop_video()

            --下載過(guò)程失能下載按鈕，不允許點(diǎn)擊
            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) --設(shè)置進(jìn)度條可見(jiàn)
            set_visiable(screen_mmedia_dl,7,1) --設(shè)置進(jìn)度文本可見(jiàn)
            set_visiable(screen_mmedia_dl, 9, 0) --設(shè)置音樂(lè)圖標(biāo)隱藏

            --復(fù)位下載相關(guān)變量
            file_len           = 0
            file_current_dl    = 0
            file_curt_dl_perct = 0

            臨時(shí)提升波特率，提高4G和屏幕串口傳速度
            air_set_baudrate(921600)
            down_mode = control
            set_text(screen_mmedia_dl,5,httpDown_dl_process[down_mode])

            --開(kāi)始下載
            air_http_download(HttpDownFile_URITb[down_mode], 
                          7168,
                          on_http_download_file_cb)
        end
    end
end

--[[*********************************************************************
** Function name: http_download_process
** Descriptions : 計(jì)算當(dāng)前寫(xiě)入（下載）進(jìn)度
** @cur_process : 當(dāng)前下載進(jìn)度
** @return       : nil, 無(wú)返回值
*********************************************************************--]]
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, '下載進(jìn)度: '..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下載返回標(biāo)識(shí)
** @value        : value,4G模塊屏幕  的應(yīng)答數(shù)據(jù) 
** @return       : nil, 無(wú)返回值
*********************************************************************--]]
function on_http_download_file_cb(key, value)

    if key=='data_len' then
        file_len = value --獲取文件長(zhǎng)度
        --創(chuàng)建文件
        open_state = file_open( HttpDownSave_FileTb[down_mode], over_write)
        start_timer_download_speed(file_len) --開(kāi)始計(jì)算下載時(shí)間
        set_text( screen_mmedia_dl, 4, '')   --速度顯示為空

    elseif key=='data'  --文件數(shù)據(jù)包
    then
        --分段寫(xiě)入數(shù)據(jù)
        my_write_filedata(HttpDownSave_FileTb[down_mode],value,add_write) 

    elseif key=='finish' --下載結(jié)束
    then
        --重新開(kāi)啟自動(dòng)獲取信號(hào)
        start_timer(timerId_Sig_Weather, 5*1000 , 0, 0)  
        file_close() --關(guān)閉文件
        --復(fù)位相關(guān)下載變量
        file_len           = 0
        file_current_dl    = 0
        file_curt_dl_perct = 0
        set_value( screen_mmedia_dl, 6, 0) --初始化進(jìn)度條數(shù)值
        set_text( screen_mmedia_dl, 7, '下載進(jìn)度：0%') --初始化進(jìn)度文本數(shù)值
        set_text( screen_mmedia_dl , 8, '')
        set_visiable( screen_mmedia_dl, 6, 0) --設(shè)置進(jìn)度條不可見(jiàn)
        set_visiable( screen_mmedia_dl, 7, 0) --設(shè)置進(jìn)度文本不可見(jiàn)

        --停止下載計(jì)時(shí)，比返回總用時(shí)秒數(shù)，每秒下載速度
        local dl_sec,dl_speed = stop_timer_download_speed()
        set_text(screen_mmedia_dl,4,
              '下載速度：'..string.format('%0.2f',(dl_speed*60))..'KB/min')
        --重新設(shè)置4G模塊和串口3波特率為115200
        air_set_baudrate(115200) 

        --下載模式為1時(shí)顯示圖片
        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時(shí)播放視頻
        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時(shí)播放音樂(lè)
        elseif down_mode == 3
        then
            set_text(screen_mmedia_dl,5,httpDown_dl_process_end[down_mode])
            set_visiable(screen_mmedia_dl, 9, 1) --設(shè)置音樂(lè)圖標(biāo)顯示
            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' --下載超時(shí)
        then
            start_timer(timerId_Sig_Weather, 5*1000 , 0, 0)

            set_text(screen_mmedia_dl  , 5, '下載超時(shí)，請(qǐng)重新下載！')
            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) --重新設(shè)置4G模塊和串口3波特率為115200
            stop_timer_download_speed() --停止下載計(jì)時(shí)

        elseif key=='dl_file_read_retry' -- HTTPREAD 重下
        then
        --****************************************************************
        --value    ：retry: -1,601
        --要提取的值： -1
        --             601
        --正則表達(dá)式：       'retry: (%d*),(%d*)'
        --****************************************************************

        local httpread_retry=''
        local status=''
        local regular_e = 'retry: (.*),(%d*)' --正則表達(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, '下載超時(shí)，發(fā)送網(wǎng)絡(luò)錯(cuò)誤，重新設(shè)置中...') 
            dl_reset_flag = 1
        end

    elseif key=='dl_file_head_retry' -- HTTPHEAD 重下
    then
        --****************************************************************
        --value    ：     retry: -1,601
        --要提取的值：       -1
        --                   601
        --正則表達(dá)式：       'retry: (%d*),(%d*)'
        --****************************************************************
        local httphead_retry=''
        local status=''
        local regular_e = 'retry: (.*),(%d*)'  --正則表達(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, '下載超時(shí)，發(fā)送網(wǎng)絡(luò)錯(cuò)誤，重新設(shè)置中...')
        dl_reset_flag = 1
        end
    end
end