WhyCan Forum(哇酷开发者社区)

PROJECT = "hmi_test"
VERSION = "1.0.0"

sys = require("sys")

local do_data = {0, 0, 0, 0, 0, 0, 0, 0}

local sfdb_info

local uart0_baud = 9600

local img_index = 0

local line_series_tm_id = 0

local bar_series_tm_id = 0

local gauge_tm_id = 0

local liquid_flow_tm_id = 0

local flow_tank_img_index = 4

local left_pointer_angle = -129

local right_pointer_angle = -129

local datetime = {0}

local data_queue = {}

local timer_id = 0

local trh_tm_id = 0

local temp_tm_id = 0

local period_send_tm = 0

s_preload_res = {
  {type = AssetType.IMAGE, name = "bg"},
  {type = AssetType.IMAGE, name = "bar_chart"},
  {type = AssetType.IMAGE, name = "button"},
  {type = AssetType.IMAGE, name = "chart_view"},
  {type = AssetType.IMAGE, name = "checkbox"},
  {type = AssetType.IMAGE, name = "clock_bg"},
  {type = AssetType.IMAGE, name = "clock_hour"},
  {type = AssetType.IMAGE, name = "clock_minute"},
  {type = AssetType.IMAGE, name = "clock_second"},
  {type = AssetType.IMAGE, name = "color_picker"},
  {type = AssetType.IMAGE, name = "coolingCoilFalse"},
  {type = AssetType.IMAGE, name = "fanRightFalse"},
  {type = AssetType.IMAGE, name = "damperV5"},
  {type = AssetType.IMAGE, name = "damperH5"},
  {type = AssetType.IMAGE, name = "filterV1"},
  {type = AssetType.IMAGE, name = "heatingCoilv2wRFalse"},
  {type = AssetType.IMAGE, name = "coolingCoilv2wRFalse"},
  {type = AssetType.IMAGE, name = "data_log"},
  {type = AssetType.IMAGE, name = "ductD"},
  {type = AssetType.IMAGE, name = "gesture_lock"},
  {type = AssetType.IMAGE, name = "grid"},
  {type = AssetType.IMAGE, name = "guage_bg_1"},
  {type = AssetType.IMAGE, name = "guage_bg_2"},
  {type = AssetType.IMAGE, name = "img_animation"},
  {type = AssetType.IMAGE, name = "log"},
  {type = AssetType.IMAGE, name = "meter"},
  {type = AssetType.IMAGE, name = "num_lab"},
  {type = AssetType.IMAGE, name = "progress_circle"},
  {type = AssetType.IMAGE, name = "qr_code"},
  {type = AssetType.IMAGE, name = "radio_button"},
  {type = AssetType.IMAGE, name = "slider_circle"},
  {type = AssetType.IMAGE, name = "text_select"},
  {type = AssetType.IMAGE, name = "time_clock"},
  {type = AssetType.IMAGE, name = "uiex_clock_bg"},
  {type = AssetType.IMAGE, name = "uiex_load1_bg"},
  {type = AssetType.IMAGE, name = "uiex_load2_bg"},
  {type = AssetType.IMAGE, name = "uiex_load1_loading"},
  {type = AssetType.IMAGE, name = "uiex_load2_loading"},
  {type = AssetType.IMAGE, name = "Tank_Fuel0"},
  {type = AssetType.IMAGE, name = "Tank_Fuel1"},
  {type = AssetType.IMAGE, name = "Tank_Fuel2"},
  {type = AssetType.IMAGE, name = "Tank_Fuel3"},
  {type = AssetType.IMAGE, name = "Tank_Fuel4"},
  {type = AssetType.IMAGE, name = "Tank_Water0"},
  {type = AssetType.IMAGE, name = "Tank_Water1"},
  {type = AssetType.IMAGE, name = "Tank_Water2"},
  {type = AssetType.IMAGE, name = "Tank_Water3"},
  {type = AssetType.IMAGE, name = "Tank_Water4"},
  {type = AssetType.IMAGE, name = "calendar"}
}

local TIME_PER_DIV = 2000        -- 每个DIV的持续时间
local SAMPLE_COUNT_PER_DIV = 10  -- 每个DIV的采样点数

local trh = 0

local temp = 0

local sscom_uart_cfg = {
  baudrate = 115200, databit = 8, stopbit = 1, paritybit = uart.NONE
}

local sscom_cfg = {
  hex_disp = 0, hex_send = 0, rx_to_file = 0, send_with_crc = 0, send_with_crlf = 0, cycle_send = 0, send_period = 100  
}

local sscom_rx = ""

local sscom_tx = ""

local sscom_rx_num = 0

local sscom_tx_num = 0

--**************************************************** 初始化系统参数 *******************************************************************
AppConf.init_ini("cfg")

if  AppConf.exist("sys.password") == false then
  AppConf.set_str("sys.password", "0124678")
end

local password = AppConf.get_str("sys.password", 0)
log.info("password", password)

if  AppConf.exist("sys.backlight") == false then
  AppConf.set_int("sys.backlight", 100)
end

local backlight = AppConf.get_int("sys.backlight", 80)
log.info("backlight", backlight)

if  AppConf.exist("sys.csv_idx") == false then
  AppConf.set_int("sys.csv_idx", 1)
end

local csv_idx = AppConf.get_int("sys.csv_idx", 1)
log.info("csv_idx", csv_idx)

if  AppConf.exist("sys.beepon") == false then
  AppConf.set_bool("sys.beepon", true)
end
local beepon = AppConf.get_bool("sys.beepon", true)

log.info("beepon", beepon)

if  AppConf.exist("sys.timeout") == false then
  AppConf.set_double("sys.timeout", 0)
end
local timeout = AppConf.get_double("sys.timeout", 0)
log.info("timeout", timeout)

if  AppConf.exist("sys.bootcnt") == false then
  AppConf.set_int("sys.bootcnt", 0)
end

local bootcnt = AppConf.get_int("sys.bootcnt", 0)
bootcnt = bootcnt + 1
AppConf.set_int("sys.bootcnt", bootcnt)
log.info("bootcnt", bootcnt)

local backlight = AppConf.get_int("sys.backlight", 80)
log.info("backlight", backlight)

AppConf.save()

--/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

--****************************************************modbus rtu master 绑点*************************************************************************
--[[

mdb.setup(1, 9600, 8, 1, mdb.NONE, mdb.LSB, 100)
mdb.add_tag(1, 6, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, "tag_co2")
mdb.add_tag(1, 6, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 2, 2, "tag_co")
mdb.add_tag(1, 1, mdb.MODBUS_FC_READ_DISCRETE_INPUTS, 0, 8, "tag_di")
mdb.add_tag(1, 8, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, "tag_pm25_1")
mdb.add_tag(1, 9, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, "tag_pm25_2")
mdb.add_tag(1, 10, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, "tag_pm25_3")
mdb.add_tag(1, 11, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, "tag_pm25_4")
mdb.add_tag(1, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 0, 1, "tag_do1")
mdb.add_tag(1, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 1, 1, "tag_do2")
mdb.add_tag(1, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 2, 1, "tag_do3")
mdb.add_tag(1, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 3, 1, "tag_do4")
mdb.add_tag(1, 7, mdb.MODBUS_FC_WRITE_MULTIPLE_REGISTERS, 0, 2, "tag_ao1")
mdb.start(1)

]]
  
mdb.setup(0, 9600, 8, 1, mdb.NONE, mdb.LSB, 100)
mdb.add_tag(0, 1, mdb.MODBUS_FC_READ_HOLDING_REGISTERS, 0, 1, "tag_trh")
mdb.add_tag(0, 1, mdb.MODBUS_FC_READ_HOLDING_REGISTERS, 1, 1, "tag_temp")
mdb.start(0)

--****************************************************modbus rtu master 绑点，并转换为modbus rtu slave 点位,供外部其他设备调用*************************************************************************
--[[
--rtu master init uart1
mdb.setup(1, 9600, 8, 1, mdb.NONE, mdb.LSB, 100)

--rtu slave init uart0
mdb.setup_ex(0, 9600, 8, 1, mdb.NONE, mdb.LSB, 100, 1)

mdb.add_tag_ex(1, 0, 6, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 0, 2, mdb.btsw_badc, "tag_co2")
mdb.add_tag_ex(1, 0, 6, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 2, 2, 2, mdb.btsw_badc, "tag_co")
mdb.add_tag_ex(1, 0, 1, mdb.MODBUS_FC_READ_DISCRETE_INPUTS, 0, 0, 8, mdb.btsw_badc, "tag_di")
mdb.add_tag_ex(1, 0, 8, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 0, 2, mdb.btsw_badc, "tag_pm25_1")
mdb.add_tag_ex(1, 0, 9, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 2, 2, mdb.btsw_badc, "tag_pm25_2")
mdb.add_tag_ex(1, 0, 10, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 4, 2, mdb.btsw_badc, "tag_pm25_3")
mdb.add_tag_ex(1, 0, 11, mdb.MODBUS_FC_READ_INPUT_REGISTERS, 0, 6, 2, mdb.btsw_badc, "tag_pm25_4")
mdb.add_tag_ex(1, 0, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 0, 0, 1, mdb.btsw_badc, "tag_do1")
mdb.add_tag_ex(1, 0, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 1, 1, 1, mdb.btsw_badc, "tag_do2")
mdb.add_tag_ex(1, 0, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 2, 2, 1, mdb.btsw_badc, "tag_do3")
mdb.add_tag_ex(1, 0, 7, mdb.MODBUS_FC_WRITE_SINGLE_COIL, 3, 3, 1, mdb.btsw_badc, "tag_do4")
mdb.add_tag_ex(1, 0, 7, mdb.MODBUS_FC_WRITE_MULTIPLE_REGISTERS, 0, 0, 2, mdb.btsw_badc, "tag_ao1")

mdb.start_ex(1, 0)
]]

--[[

--****************************************************dlt645 绑点*************************************************************************

dlt.setup(1, 9600, 8, 1, mdb.NONE, mdb.LSB, 100, 4)
--读A项电压
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2010100, dlt.DLT645_2007, "ch_a_voltage")
--读B项电压
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2010200, dlt.DLT645_2007, "ch_b_voltage")
--读C项电压
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2010300, dlt.DLT645_2007, "ch_c_voltage")
--读A项电流
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2020100, dlt.DLT645_2007, "ch_a_current")
--读B项电流
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2020200, dlt.DLT645_2007, "ch_b_current")
--读C项电流
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_2020300, dlt.DLT645_2007, "ch_c_current")
--读正向有功总电能
dlt.add_tag(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, dlt.DIC_10000, dlt.DLT645_2007, "total_energy")

dlt.start(1)

]]

--注册串口1的数据接收通知函数
uart.on(1,"recv", function() sys.publish("UART1_RECEIVE") end)

-- rs232
uart.setup(1, sscom_uart_cfg.baudrate, sscom_uart_cfg.databit, sscom_uart_cfg.stopbit, sscom_uart_cfg.paritybit)

local function uart_read()
  local cacheData = ""

  while true do
      local s = uart.read(1,1)
      if s == "" then
          if not sys.waitUntil("UART1_RECEIVE",  math.ceil(35000/sscom_uart_cfg.baudrate)) then
              local data_len = cacheData:len()
              if data_len > 0 then
                  if win_sscom ~= nil then
                    sscom_rx_num = sscom_rx_num + data_len
                    win_sscom:lookup('rx_num', TRUE):set_text(string.format("%d", sscom_rx_num))
                    sscom_rx = cacheData
                    local data,_ = string.toHex(cacheData, " ")
                    local rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())

                    --大于4K自动清屏
                    if rx_txt:len() > 4096 then
                      win_sscom:lookup('mledit_rx', TRUE):set_text("")
                    end

                    --log.info("rx_txt", rx_txt:len())
                    if sscom_cfg.hex_disp == 1 then
                      data ="\r\nRX: "..data
                      win_sscom:lookup('mledit_rx', TRUE):insert_text(rx_txt:len(), data)
                      rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())
                      --win_sscom:lookup('mledit_rx', TRUE):insert_text(rx_txt:len(), "\r\n")
                    else
                      sscom_rx ="\r\nRX: "..sscom_rx
                      win_sscom:lookup('mledit_rx', TRUE):insert_text(rx_txt:len(), sscom_rx)
                    end

                    local virtual_size = ScrollBar.cast(win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d).virtual_size
                    win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d:set_value(virtual_size)

                    --大于4K自动清屏
                    rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())
                    if rx_txt:len() > 4096 then
                      win_sscom:lookup('mledit_rx', TRUE):set_text("")
                    end
                  end
                  
                  cacheData = ""
                  data = ""
                  sscom_rx = ""

              end
          end
      else
          cacheData = cacheData..s
      end
  end
end

--***************************************************UI界面更新及切换**************************************************************

function str_contains(str, substr) 
  local s, e = string.find(str, substr);

  return s ~= nil;
end

function qr_view_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'btn_update_qr'))
  then
    iter:on(EventType.CLICK, function(evt)
      local qr_data = win_qr_view:lookup('edit_qr_data', TRUE):get_text()
      if qr_data ~= nil then
          win_qr_view:lookup('qr', TRUE):set_value(to_str(qr_data))
      end
    end)
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_qr_view:close()
      win_qr_view = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function win_line_series_parall_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'new_graph'))
  then
    iter:on(EventType.CLICK, function(evt)
      local count = win_line_series_parall:lookup('chartview', TRUE):get_series_capacity_min()
      win_line_series_parall:lookup('chartview', TRUE):on_series_rset_float_data(count)
    end)
  elseif(str_contains(widget_name, 'line'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_line_series_parall:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SHOW, "line", "line", "line_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'area'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_line_series_parall:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_AREA_SHOW, "area", "area", "area_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'symbol'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_line_series_parall:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_SYMBOL_SHOW, "symbol", "symbol", "symbol_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'smooth'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_line_series_parall:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SMOOTH, "smooth", "smooth", "smooth_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(line_series_tm_id)
      line_series_tm_id = 0
      win_line_series_parall:close()
      win_line_series_parall = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function win_bar_series_parall_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(bar_series_tm_id)
      bar_series_tm_id = 0
      win_bar_series_parall:close()
      win_bar_series_parall = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function line_series_push_rand_float_data(info)
  local ch_a = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}
  local ch_b = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}
  local ch_c = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}

  for i=1,SAMPLE_COUNT_PER_DIV do
    ch_a[i] = math.random(160, 260)
    ch_b[i] = math.random(160, 260)
    ch_c[i] = math.random(160, 260)
  end 

  win_line_series_parall:lookup('chartview', TRUE):on_series_push_data("s1", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_a, 0)
  win_line_series_parall:lookup('chartview', TRUE):on_series_push_data("s2", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_b, 0)
  win_line_series_parall:lookup('chartview', TRUE):on_series_push_data("s3", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_c, 1)

  return Ret.REPEAT
end

function bar_series_push_rand_float_data(info)
  local ch_a = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}
  local ch_b = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}
  local ch_c = {1.23,2.3,2.3,2.3,2.3,2.3,2.3,2.3,2.3}

  for i=1,SAMPLE_COUNT_PER_DIV do
    ch_a[i] = math.random(0, 260)
    ch_b[i] = math.random(0, 260)
    ch_c[i] = math.random(0, 260)
  end 

  win_bar_series_parall:lookup('chartview', TRUE):on_series_push_data("s1", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_a, 0)
  win_bar_series_parall:lookup('chartview', TRUE):on_series_push_data("s2", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_b, 0)
  win_bar_series_parall:lookup('chartview', TRUE):on_series_push_data("s3", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, ch_c, 1)

  return Ret.REPEAT
end

function chart_view_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'window_line_series_parall'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_line_series_parall = Window.open('win_line_series_parall')

      if win_line_series_parall ~= nil then
        win_line_series_parall:lookup('chartview', TRUE):axis_time_init(TIME_PER_DIV, SAMPLE_COUNT_PER_DIV)
        win_line_series_parall:foreach(win_line_series_parall_init)
        
        if line_series_tm_id == 0 then
          line_series_tm_id = Timer.add(line_series_push_rand_float_data, TIME_PER_DIV)
        end
      end
    end)
  elseif(str_contains(widget_name, 'window_bar_series_parall'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_bar_series_parall = Window.open('win_bar_series_parall')
      if win_bar_series_parall ~= nil then
        win_bar_series_parall:lookup('chartview', TRUE):axis_time_init(TIME_PER_DIV, SAMPLE_COUNT_PER_DIV)
        win_bar_series_parall:foreach(win_bar_series_parall_init)

        if bar_series_tm_id == 0 then
          bar_series_tm_id = Timer.add(bar_series_push_rand_float_data, TIME_PER_DIV)
        end
      end
    end)    
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(bar_series_tm_id)
      bar_series_tm_id = 0
      win_chart_view:close()
      win_chart_view = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function win_btn_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'btn_lvl0'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:lookup('image_lvl', TRUE):set_prop_str("image", "Tank_Fuel0")
    end)
  elseif(str_contains(widget_name, 'btn_lvl1'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:lookup('image_lvl', TRUE):set_prop_str("image", "Tank_Fuel1")
    end)   
  elseif(str_contains(widget_name, 'btn_lvl2'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:lookup('image_lvl', TRUE):set_prop_str("image", "Tank_Fuel2")
    end)   
  elseif(str_contains(widget_name, 'btn_lvl3'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:lookup('image_lvl', TRUE):set_prop_str("image", "Tank_Fuel3")
    end)   
  elseif(str_contains(widget_name, 'btn_lvl4'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:lookup('image_lvl', TRUE):set_prop_str("image", "Tank_Fuel4")
    end)   
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn:close()
      win_btn = nil
      return Ret.OK
    end)
  end

  return Ret.OK
end

function timer_hvac(info)
  local t1 
  t1 = math.random(10,100)
  win_check_btn:lookup('number_label_t1', TRUE):set_value(t1);
  t1 = math.random(10,100)
  win_check_btn:lookup('number_label_t2', TRUE):set_value(t1);
  t1 = math.random(10,100)
  win_check_btn:lookup('number_label_t3', TRUE):set_value(t1);
  t1 = math.random(10,100)
  win_check_btn:lookup('number_label_t4', TRUE):set_value(t1);

  img_index = img_index + 1
  local str_name_v = "damperV"..img_index
  win_check_btn:lookup('gif_damper_v', TRUE):set_prop_str("image", str_name_v)
  local str_name_h = "damperH"..img_index
  win_check_btn:lookup('gif_damper_h', TRUE):set_prop_str("image", str_name_h)

  if img_index == 5 then
    img_index = 1
  end
  
  return Ret.REPEAT
end

function win_check_btn_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'btn_check_btn'))
  then
    iter:on(EventType.CLICK, function(evt)
      fan_check_btn = iter:get_value()
      if fan_check_btn == 1 then
        win_check_btn:lookup('gif_fan_r', TRUE):set_prop_str("image", "fanRightTrue")
        if timer_id == 0 then
          timer_id = Timer.add(timer_hvac, 2000)
        end
      else
        win_check_btn:lookup('gif_fan_r', TRUE):set_prop_str("image", "fanRightFalse")
        Timer.remove(timer_id)
        timer_id = 0
      end
    end)
  elseif(str_contains(widget_name, 'slider_set'))
  then
    local set_point = iter:get_value()
    iter:get_window().lab_t_set:set_text(string.format("%d", set_point))
    
    iter:on(EventType.VALUE_CHANGING, function(evt)
      local set_point = iter:get_value()
      iter:get_window().lab_t_set:set_text(string.format("%d", set_point))
    end) 
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_check_btn:close()
      win_check_btn = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function on_gauge_set_angle(info)
  left_pointer_angle = left_pointer_angle + 1
  right_pointer_angle = right_pointer_angle + 1

  --win_gauge:lookup('guage_l', TRUE):lookup('left_pointer', TRUE):set_angle(left_pointer_angle)
  --win_gauge:lookup('guage_r', TRUE):lookup('right_pointer', TRUE):set_angle(right_pointer_angle)

  local guage_pointer_l = win_gauge:lookup('guage_l', TRUE):lookup('left_pointer', TRUE)
  GaugePointer.cast(guage_pointer_l):set_angle(left_pointer_angle)

  --local guage_pointer_r = win_gauge:lookup('guage_r', TRUE):lookup('right_pointer', TRUE)
  --GaugePointer.cast(guage_pointer_r):set_angle(right_pointer_angle)


  if left_pointer_angle >= 128 then
    left_pointer_angle = -129
  end

  if right_pointer_angle >= 128 then
    right_pointer_angle = -129
  end

  return Ret.REPEAT
end

function win_gauge_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'btn_start'))
  then
    iter:on(EventType.CLICK, function(evt)
      if gauge_tm_id == 0 then
        gauge_tm_id = Timer.add(on_gauge_set_angle, 100)
      end
    end)
  elseif(str_contains(widget_name, 'btn_stop'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(gauge_tm_id)
      gauge_tm_id = 0
    end)   
  elseif(str_contains(widget_name, 'btn_close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(gauge_tm_id)
      gauge_tm_id = 0
      win_gauge:close()
      win_gauge = nil
      return Ret.OK
    end)  
  end
  return Ret.OK
end

function baud_to_comb_index(in_baud)
  local uart_baud = tonumber(in_baud)
  if uart_baud == 2400 then
    combindx = 0
  elseif uart_baud == 4800 then
    combindx = 1
  elseif uart_baud == 9600 then
    combindx = 2
  elseif uart_baud == 14400 then
    combindx = 3
  elseif uart_baud == 19200 then
    combindx = 4
  elseif uart_baud == 38400 then
    combindx = 5
  elseif uart_baud == 56000 then
    combindx = 6
  elseif uart_baud == 57600 then
    combindx = 7
  elseif uart_baud == 115200 then
    combindx = 8
  elseif uart_baud == 128000 then
    combindx = 9
  elseif uart_baud == 230400 then
    combindx = 10
  elseif uart_baud == 256000 then
    combindx = 11
  end

  return combindx
end

function uart_period_send(info)
  local tx_txt = to_str(win_sscom:lookup('edit', TRUE):get_text())
  local rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())    
  local tx_hex = string.fromHex(tx_txt) 
  local tx_disp = ''

  --大于4K自动清屏
  if rx_txt:len() > 4096 then
    win_sscom:lookup('mledit_rx', TRUE):set_text("")
  end

  if sscom_cfg.send_with_crc == 1 then
    local modbus_crc_data= pack.pack('<h', crypto.crc16("MODBUS",tx_hex))
    tx_hex = tx_hex..modbus_crc_data
    tx_disp ="\r\nTX: "..tx_txt..string.toHex(modbus_crc_data)
  else
    tx_disp ="\r\nTX: "..tx_txt
  end 

  win_sscom:lookup('mledit_rx', TRUE):insert_text(rx_txt:len(), tx_disp)
  local virtual_size = ScrollBar.cast(win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d).virtual_size
  win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d:set_value(virtual_size)

  if sscom_cfg.hex_send == 1 then
    --log.info("tx hex", tx_hex:len())
    sscom_tx_num = sscom_tx_num + tx_hex:len()
    win_sscom:lookup('tx_num', TRUE):set_text(string.format("%d", sscom_tx_num))
    uart.write(1, tx_hex, tx_hex:len())
  else
    if sscom_cfg.send_with_crlf == 1 then
      tx_txt = tx_txt.."\r\n"
    end
    sscom_tx_num = sscom_tx_num + tx_txt:len()
    win_sscom:lookup('tx_num', TRUE):set_text(string.format("%d", sscom_tx_num))
    --log.info("tx txt", tx_txt:len())
    uart.write(1, tx_txt, tx_txt:len())
  end

  --大于4K自动清屏
  rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())
  if rx_txt:len() > 4096 then
    win_sscom:lookup('mledit_rx', TRUE):set_text("")
  end

  return Ret.REPEAT
end

function win_serial_setup_init(iter)
  local widget_name = iter.name
  if(str_contains(widget_name, 'comb_baud'))
  then
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local baudrate = iter:get_text_value()
      --log.info("new baudrate", baudrate)
      sscom_uart_cfg.baudrate = baudrate
    end)  
  elseif(str_contains(widget_name, 'comb_databit'))
  then
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local databit = iter:get_text_value()
      --log.info("new databit", databit)
      sscom_uart_cfg.databit = databit
    end)
  elseif(str_contains(widget_name, 'comb_stopbit'))
  then
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local stopbit = iter:get_text_value()
      --log.info("new stopbit", stopbit)
      sscom_uart_cfg.stopbit = stopbit
    end)
  elseif(str_contains(widget_name, 'comb_parity'))
  then
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local parity = iter:get_text_of_selected()
      --log.info("new parity", parity)
      if parity == 'none' then
        sscom_uart_cfg.paritybit = uart.NONE
      elseif parity == 'old' then
        sscom_uart_cfg.paritybit = uart.ODD
      elseif parity == 'even' then
        sscom_uart_cfg.paritybit = uart.EVEN
      end
    end)
  elseif(str_contains(widget_name, 'btn_set'))
  then
    iter:on(EventType.CLICK, function(evt)
      uart.setup(1, sscom_uart_cfg.baudrate, sscom_uart_cfg.databit, sscom_uart_cfg.stopbit, sscom_uart_cfg.paritybit)
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'btn_ret'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_serial_setup:close()
      win_serial_setup = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end


function win_sscom_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'chk_hex_disp'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_hex_disp = iter:get_value()
      if chk_hex_disp == 1 then
        sscom_cfg.hex_disp = 1
      else
        sscom_cfg.hex_disp = 0
      end
    end)
  elseif(str_contains(widget_name, 'comb_baud'))
  then
    --log.info("baud_to_comb_index", baud_to_comb_index(sscom_uart_cfg.baudrate), sscom_uart_cfg.baudrate)
    iter:set_selected_index(baud_to_comb_index(sscom_uart_cfg.baudrate))
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local baudrate = iter:get_text_value()
      --log.info("new baudrate", baudrate)
      sscom_uart_cfg.baudrate = baudrate
      uart.setup(1, sscom_uart_cfg.baudrate, sscom_uart_cfg.databit, sscom_uart_cfg.stopbit, sscom_uart_cfg.paritybit)
    end)  
  elseif(str_contains(widget_name, 'btn_u_setup'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_serial_setup = Window.open('win_serial_setup')
      if win_serial_setup ~= nil then
        win_serial_setup:foreach(win_serial_setup_init)
      end
    end) 
  elseif(str_contains(widget_name, 'chk_hex_snd'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_hex_snd = iter:get_value()
      if chk_hex_snd == 1 then
        sscom_cfg.hex_send = 1
      else
        sscom_cfg.hex_send = 0
      end
    end)  
  elseif(str_contains(widget_name, 'chk_add_parity'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_add_parity = iter:get_value()
      if chk_add_parity == 1 then
        sscom_cfg.send_with_crc = 1
      else
        sscom_cfg.send_with_crc = 0
      end
    end)
  elseif(str_contains(widget_name, 'chk_to_file'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_to_file = iter:get_value()
      if chk_to_file == 1 then
        sscom_cfg.rx_to_file = 1
      else
        sscom_cfg.rx_to_file = 0
      end
    end)
  elseif(str_contains(widget_name, 'chk_add_cr'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_add_cr = iter:get_value()
      if chk_add_cr == 1 then
        sscom_cfg.send_with_crlf = 1
      else
        sscom_cfg.send_with_crlf = 0
      end
    end)
  elseif(str_contains(widget_name, 'chk_snd_period'))
  then
    iter:on(EventType.CLICK, function(evt)
      chk_snd_period = iter:get_value()
      if chk_snd_period == 1 then
        sscom_cfg.cycle_send = 1
        sscom_cfg.send_period = win_sscom:lookup("sp_snd_period", TRUE):get_value_int()
        log.info("period send start", sscom_cfg.send_period)

        if period_send_tm == 0 then
          period_send_tm = Timer.add(uart_period_send, sscom_cfg.send_period)
        end
      else
        if period_send_tm > 0 then
          Timer.remove(period_send_tm)
          period_send_tm = 0
        end
        sscom_cfg.cycle_send = 0
        log.info("period send stop", sscom_cfg.send_period)
      end
    end)
  elseif(str_contains(widget_name, 'btn_clr_win'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_sscom:lookup('mledit_rx', TRUE):set_text("")
      sscom_rx = ""
      sscom_rx_num = 0
      win_sscom:lookup('rx_num', TRUE):set_text("0")
      sscom_tx_num = 0
      win_sscom:lookup('tx_num', TRUE):set_text("0")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'btn_clr_tx'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_sscom:lookup('edit', TRUE):set_text("")
      sscom_tx = ""
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'btn_snd'))
  then
    iter:on(EventType.CLICK, function(evt)
      if sscom_cfg.cycle_send == 0 then
        local tx_txt = to_str(win_sscom:lookup('edit', TRUE):get_text())
        local tx_hex = string.fromHex(tx_txt) 
        local tx_disp = ''
        local rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text()) 

        --大于4K自动清屏
        if rx_txt:len() > 4096 then
          win_sscom:lookup('mledit_rx', TRUE):set_text("")
        end

        if sscom_cfg.send_with_crlf == 1 then
          tx_txt = tx_txt.."\r\n"
        end
        
        if sscom_cfg.send_with_crc == 1 then
          local modbus_crc_data= pack.pack('<h', crypto.crc16("MODBUS",tx_hex))
          tx_hex = tx_hex..modbus_crc_data
          tx_disp ="\r\nTX: "..tx_txt..string.toHex(modbus_crc_data)
        else
          tx_disp ="\r\nTX: "..tx_txt
        end

        win_sscom:lookup('mledit_rx', TRUE):insert_text(rx_txt:len(), tx_disp)
        local virtual_size = ScrollBar.cast(win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d).virtual_size
        win_sscom:lookup('mledit_rx', TRUE).scroll_bar_d:set_value(virtual_size)

        if sscom_cfg.hex_send == 1 then
          --log.info("tx hex", tx_hex:len())
          sscom_tx_num = sscom_tx_num + tx_hex:len()
          win_sscom:lookup('tx_num', TRUE):set_text(string.format("%d", sscom_tx_num))
          uart.write(1, tx_hex, tx_hex:len())
        else
          --log.info("tx txt", tx_txt:len())
          sscom_tx_num = sscom_tx_num + tx_txt:len()
          win_sscom:lookup('tx_num', TRUE):set_text(string.format("%d", sscom_tx_num))
          uart.write(1, tx_txt, tx_txt:len())
        end
        --大于4K自动清屏
        rx_txt = to_str(win_sscom:lookup('mledit_rx', TRUE):get_text())
        if rx_txt:len() > 4096 then
          win_sscom:lookup('mledit_rx', TRUE):set_text("")
        end
      end
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      if period_send_tm > 0 then
        Timer.remove(period_send_tm)
        sscom_cfg.cycle_send = 0
      end
      win_sscom:close()
      win_sscom = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function win_gesture_lock_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_gesture_lock:close()
      win_gesture_lock = nil
      return Ret.OK
    end)  
  elseif(str_contains(widget_name, 'gesture_lock_set'))
  then
    iter:on(EventType.VALUE_CHANGED, function(evt)
      local value = ValueChangeEvent.cast(evt).new_value
      local pass_input = Value.cast(value):str()

      log.info("password input ", pass_input)
      if password == pass_input then
        win_popup = Window.open('win_popup')
        win_popup.lab_pass_info:set_text("密码正确！")
        win_popup.btn_ret:on(EventType.CLICK, function(evt)
          win_popup:close()
          win_popup = nil
          return Ret.OK
        end)  
      else
        win_popup = Window.open('win_popup')
        win_popup.lab_pass_info:set_text("密码错误！")
        win_popup.btn_ret:on(EventType.CLICK, function(evt)
          win_popup:close()
          win_popup = nil
          return Ret.OK
        end)  
      end
      
      return Ret.REMOVE
    end)
  end
  return Ret.OK
end

function win_pro_circle_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():close()
      win_pro_circle = nil
      return Ret.OK
    end)  
  end
  return Ret.OK
end

function win_text_select_init(iter)
  local widget_name = iter.name
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      datetime:destroy()
      iter:get_window():close()
      win_text_select = nil
      return Ret.OK
    end)  
  elseif(str_contains(widget_name, 'text_selector_year'))
  then
    iter:set_selected_index(24)
  elseif(str_contains(widget_name, 'text_selector_mon'))
  then
    iter:set_selected_index(1)
  elseif(str_contains(widget_name, 'text_selector_day'))
  then
    iter:set_selected_index(17)
  elseif(str_contains(widget_name, 'text_selector_hour'))
  then
    iter:set_selected_index(12)
  elseif(str_contains(widget_name, 'text_selector_min'))
  then
    iter:set_selected_index(46)
  elseif(str_contains(widget_name, 'text_selector_sec'))
  then
    iter:set_selected_index(30)
  elseif(str_contains(widget_name, 'btn_time_set'))
  then
    iter:on(EventType.CLICK, function(evt)
      local year = iter:get_window():lookup('text_selector_year'):get_value_int()
      local month = iter:get_window():lookup('text_selector_mon'):get_value_int()
      local day = iter:get_window():lookup('text_selector_day'):get_value_int()
      local hour = iter:get_window():lookup('text_selector_hour'):get_value_int()
      local minute = iter:get_window():lookup('text_selector_min'):get_value_int()
      local second = iter:get_window():lookup('text_selector_sec'):get_value_int()

      datetime:set_year(year)
      datetime:set_month(month)
      datetime:set_day(day)
      datetime:set_hour(hour)
      datetime:set_minute(minute)
      datetime:set_second(second)
      datetime:set()
      
      return Ret.OK
    end) 
  end
  return Ret.OK
end

function win_slider_circle_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():close()
      win_slider_circle = nil
      return Ret.OK
    end)  
  elseif(str_contains(widget_name, 'slider_circle_l'))
  then
    iter:on(EventType.VALUE_CHANGING, function(evt)
      local vlab = iter:get_value()
      local v_txt = string.format("%d", vlab)
      iter:get_window():lookup('slider_circle_l', TRUE):lookup('value_l', TRUE):set_text(v_txt)
      return Ret.OK
    end) 
  elseif(str_contains(widget_name, 'slider_circle_r'))
  then
    iter:on(EventType.VALUE_CHANGING, function(evt)
      local vlab = iter:get_value()
      local v_txt = string.format("%d", vlab)
      iter:get_window():lookup('slider_circle_r', TRUE):lookup('value_r', TRUE):set_text(v_txt)
      return Ret.OK
    end) 
  end
  return Ret.OK
end

function win_radio_btn_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():close()
      win_radio_btn = nil
      return Ret.OK
    end)  
  end
  return Ret.OK
end


function win_temp_chart_view_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'new_graph'))
  then
    iter:on(EventType.CLICK, function(evt)
      local count = win_temp_chart_view:lookup('chartview', TRUE):get_series_capacity_min()
      win_temp_chart_view:lookup('chartview', TRUE):on_series_rset_float_data(count)
    end)
  elseif(str_contains(widget_name, 'line'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_temp_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SHOW, "line", "line", "line_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'area'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_temp_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_AREA_SHOW, "area", "area", "area_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'symbol'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_temp_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_SYMBOL_SHOW, "symbol", "symbol", "symbol_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'smooth'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_temp_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SMOOTH, "smooth", "smooth", "smooth_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(temp_tm_id)
      temp_tm_id = 0
      win_temp_chart_view:close()
      win_temp_chart_view = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function win_trh_chart_view_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'new_graph'))
  then
    iter:on(EventType.CLICK, function(evt)
      local count = win_trh_chart_view:lookup('chartview', TRUE):get_series_capacity_min()
      win_trh_chart_view:lookup('chartview', TRUE):on_series_rset_float_data(count)
    end)
  elseif(str_contains(widget_name, 'line'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SHOW, "line", "line", "line_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'area'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_AREA_SHOW, "area", "area", "area_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'symbol'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_SYMBOL_SHOW, "symbol", "symbol", "symbol_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'smooth'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_chart_view:lookup('chartview', TRUE):on_series_prop_changed(WidgetProp.SERIES_PROP_LINE_SMOOTH, "smooth", "smooth", "smooth_select")
      return Ret.OK
    end)
  elseif(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(trh_tm_id)
      trh_tm_id = 0
      win_trh_chart_view:close()
      win_trh_chart_view = nil
      return Ret.OK
    end)
  end
  return Ret.OK
end

function temp_line_series_push_float_data(info)
  local temp_v = {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}

  for i=1,SAMPLE_COUNT_PER_DIV do
    local reg_temp = mdb.get_tag_data(0, 1, "tag_temp")
    if reg_temp[1] & 0x8000 > 0 then
      temp_v[i] = (~reg_temp[1] + 1)/10
    else
      temp_v[i] = reg_temp[1]/10
    end
  end 

  win_temp_chart_view:lookup('chartview', TRUE):on_series_push_data("s1", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, temp_v, 1)

  return Ret.REPEAT
end

function trh_line_series_push_float_data(info)
  local trh_v = {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}

  for i=1,SAMPLE_COUNT_PER_DIV do
    local reg_trh = mdb.get_tag_data(0, 1, "tag_trh")
    trh_v[i] = reg_trh[1]/10
  end 

  win_trh_chart_view:lookup('chartview', TRUE):on_series_push_data("s1", TIME_PER_DIV, SAMPLE_COUNT_PER_DIV, SAMPLE_COUNT_PER_DIV, trh_v, 1)

  return Ret.REPEAT
end

function win_trh_view_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():close()
      win_trh_view = nil
      return Ret.OK
    end)  
  elseif(str_contains(widget_name, 'btn_temp_chart'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_temp_chart_view = Window.open('win_temp_chart_view')

      if win_temp_chart_view ~= nil then
        win_temp_chart_view:lookup('chartview', TRUE):axis_time_init(TIME_PER_DIV, SAMPLE_COUNT_PER_DIV)
        win_temp_chart_view:foreach(win_temp_chart_view_init)
        
        if temp_tm_id == 0 then
          temp_tm_id = Timer.add(temp_line_series_push_float_data, TIME_PER_DIV)
        end
      end
    end)
  elseif(str_contains(widget_name, 'btn_trh_chart'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_chart_view = Window.open('win_trh_chart_view')

      if win_trh_chart_view ~= nil then
        win_trh_chart_view:lookup('chartview', TRUE):axis_time_init(TIME_PER_DIV, SAMPLE_COUNT_PER_DIV)
        win_trh_chart_view:foreach(win_trh_chart_view_init)
        
        if trh_tm_id == 0 then
          trh_tm_id = Timer.add(trh_line_series_push_float_data, TIME_PER_DIV)
        end
      end
    end)
  elseif(str_contains(widget_name, 'btn_trh_temp_data'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_tt_data = Window.open('win_tt_data')

      if win_tt_data ~= nil then
        win_tt_data:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_tt_data:close()
          win_tt_data = nil
          return Ret.OK
        end)
      end
    end)
  end
  return Ret.OK
end

function win_liquid_flow_init(iter)
  local widget_name = iter.name;
  if(str_contains(widget_name, 'close'))
  then
    iter:on(EventType.CLICK, function(evt)
      Timer.remove(liquid_flow_tm_id)
      liquid_flow_tm_id = 0
      flow_tank_img_index = 4
      iter:get_window():close()
      win_liquid_flow = nil
      return Ret.OK
    end)  
  elseif(str_contains(widget_name, 'btn_flow_stop'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():lookup('gif_pump', TRUE):set_prop_str("image", "generatorFalse")
      iter:get_window():lookup('gif_boiler', TRUE):set_prop_str("image", "Boiler_Generic_Left_Off")
      iter:get_window():lookup('flow1', TRUE):set_running(false)
      iter:get_window():lookup('flow2', TRUE):set_running(false)
      iter:get_window():lookup('flow3', TRUE):set_running(false)
      iter:get_window():lookup('flow4', TRUE):set_running(false)
      Timer.remove(liquid_flow_tm_id)
      liquid_flow_tm_id = 0
    end)
  elseif(str_contains(widget_name, 'btn_flow_start'))
  then
    iter:on(EventType.CLICK, function(evt)
      iter:get_window():lookup('gif_pump', TRUE):set_prop_str("image", "generatorTrue")
      iter:get_window():lookup('gif_boiler', TRUE):set_prop_str("image", "Boiler_Generic_Left_On")
      iter:get_window():lookup('flow1', TRUE):set_running(true)
      iter:get_window():lookup('flow2', TRUE):set_running(true)
      iter:get_window():lookup('flow3', TRUE):set_running(true)
      iter:get_window():lookup('flow4', TRUE):set_running(true)
      if liquid_flow_tm_id == 0 then 
          liquid_flow_tm_id = Timer.add(function(info) 
          local tank_name_v = "Tank_Fuel"..flow_tank_img_index
          iter:get_window():lookup('img_tank', TRUE):set_prop_str("image", tank_name_v)
          flow_tank_img_index = flow_tank_img_index - 1
          if flow_tank_img_index == 0 then
            flow_tank_img_index = 4
          end

          return Ret.REPEAT
        end, 2000)
      end
    end)  
  elseif(str_contains(widget_name, 'flow1') or str_contains(widget_name, 'flow2') or str_contains(widget_name, 'flow3') or str_contains(widget_name, 'flow4'))
  then
    iter:set_running(false)
    iter:set_forward(true)
    iter:set_update_delta(20)
    iter:set_update_interval(200)
  elseif(str_contains(widget_name, 'img_tank'))
  then
    iter:set_prop_str("image", "Tank_Fuel4")
  elseif(str_contains(widget_name, 'gif_pump'))
  then
    iter:set_prop_str("image", "generatorFalse")
  elseif(str_contains(widget_name, 'gif_boiler'))
  then
    iter:set_prop_str("image", "Boiler_Generic_Left_Off")
  end
  return Ret.OK
end

function home_page_init(iter) 
  local widget_name = iter.name;
  if(str_contains(widget_name, 'btn_qr'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_qr_view = Window.open('win_qr_view')
      if win_qr_view ~= nil then
        win_qr_view:foreach(qr_view_init);
      end
    end)   
  elseif(str_contains(widget_name, 'btn_number_lab'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_number_lab = Window.open('win_number_lab')
      if win_number_lab ~= nil then
        win_number_lab:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_number_lab:close()
          win_number_lab = nil
          return Ret.OK
        end)   
      end
    end)   
  elseif(str_contains(widget_name, 'btn_select'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_text_select = Window.open('win_text_select')
      if win_text_select ~= nil then
        datetime = DateTime.create()
        win_text_select:foreach(win_text_select_init)
      end
    end)   
  elseif(str_contains(widget_name, 'btn_trh_view'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_trh_view = Window.open('win_trh_view')
      if win_trh_view ~= nil then
        win_trh_view:foreach(win_trh_view_init)
      end
    end)
  elseif(str_contains(widget_name, 'btn_image_anim'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_image_anim = Window.open('win_image_anim')
      if win_image_anim ~= nil then
        win_image_anim:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_image_anim:close()
          win_image_anim = nil
          return Ret.OK
        end) 
      end
    end)   
  elseif(str_contains(widget_name, 'btn_grid'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_grid = Window.open('win_grid')
      if win_grid ~= nil then
        win_grid:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_grid:close()
          win_grid = nil
          return Ret.OK
        end)
      end
    end)   
  elseif(str_contains(widget_name, 'btn_time_clock'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_time_clock = Window.open('win_time_clock')
      if win_time_clock ~= nil then
        win_time_clock:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_time_clock:close()
          win_time_clock = nil
          return Ret.OK
        end)
      end
    end)   
  elseif(str_contains(widget_name, 'btn_check'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_check_btn = Window.open('win_check_btn')
      if win_check_btn ~= nil then
        if timer_id ~= 0 then
          Timer.remove(timer_id)
          timer_id = 0
        end
        win_check_btn:foreach(win_check_btn_init)
      end
    end) 
  elseif(str_contains(widget_name, 'btn_buton'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_btn = Window.open('win_btn')
      if win_btn ~= nil then
        win_btn:foreach(win_btn_init)
      end
    end)   
  elseif(str_contains(widget_name, 'btn_chart_view'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_chart_view = Window.open('win_chart_view')
      if win_chart_view ~= nil then
        win_chart_view:foreach(chart_view_init)
      end
    end)    
  elseif(str_contains(widget_name, 'btn_gauge'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_gauge = Window.open('win_gauge')
      if win_gauge ~= nil then
        win_gauge:foreach(win_gauge_init)
      end
    end)    
  elseif(str_contains(widget_name, 'btn_sscom'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_sscom = Window.open('win_sscom')
      if win_sscom ~= nil then
        win_sscom:foreach(win_sscom_init)
      end
    end)    
  elseif(str_contains(widget_name, 'btn_gesture_lock'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_gesture_lock = Window.open('win_gesture_lock')
      if win_gesture_lock ~= nil then
        win_gesture_lock:foreach(win_gesture_lock_init)
      end
    end)   
  elseif(str_contains(widget_name, 'btn_pro_circle'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_pro_circle = Window.open('win_pro_circle')
      if win_pro_circle ~= nil then
        win_pro_circle:foreach(win_pro_circle_init)
      end
    end) 
  elseif(str_contains(widget_name, 'btn_radio_btn'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_radio_btn = Window.open('win_radio_btn')
      if win_radio_btn ~= nil then
        win_radio_btn:foreach(win_radio_btn_init)
      end
    end)  
  elseif(str_contains(widget_name, 'btn_vlabel'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_vlabel = Window.open('win_vlabel')
      if win_vlabel ~= nil then
        win_vlabel:lookup('close', TRUE):on(EventType.CLICK, function(evt)
          win_vlabel:close()
          win_vlabel = nil
          return Ret.OK
        end)
      end
    end) 
  elseif(str_contains(widget_name, 'btn_slider_circle'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_slider_circle = Window.open('win_slider_circle')
      if win_slider_circle ~= nil then
        win_slider_circle:foreach(win_slider_circle_init)
      end
    end) 
  elseif(str_contains(widget_name, 'btn_liquid_flow'))
  then
    iter:on(EventType.CLICK, function(evt)
      win_liquid_flow = Window.open('win_liquid_flow')
      if win_liquid_flow ~= nil then
        win_liquid_flow:foreach(win_liquid_flow_init)
      end
    end) 
  end
  
  return Ret.OK
end

function show_preload_res_window()
  local win = Window.open('win_preload')
  local interval =  math.ceil(1000 / #s_preload_res)
  local bar = win:lookup('progress_bar', TRUE)
  local total = #s_preload_res
  local finish = 0
  local bitmap = Bitmap.create()

  bar:set_value(10)

  Timer.add(function(info) 
    if(finish == total)
    then
      win_home_page = Window.open('win_home_page')
      if win_home_page ~= nil then
        win_home_page:foreach(home_page_init);
      end
      bitmap:destroy()

      return Ret.REMOVE
    else
      local type = s_preload_res[finish+1].type
      local name = s_preload_res[finish+1].name

      if(type == AssetType.IMAGE)
      then
        ImageManager.instance():get_bitmap(name, bitmap)
      end

      finish = finish + 1
      local value = finish * 100 / total

      bar:set_value(value)

      return Ret.REPEAT
    end
  end, interval)

end

function application_init()
  show_preload_res_window()
end

application_init()

sys.timerLoopStart(function() 

  --[[

  local a_v = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_a_voltage")
  log.info("ch_a_voltage", a_v, " V")
  local b_v = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_b_voltage")
  log.info("ch_b_voltage", b_v, " V")
  local c_v = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_c_voltage")
  log.info("ch_c_voltage", c_v, " V")
  local a_a = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_a_current")
  log.info("ch_a_current", a_a, " A")
  local b_a = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_b_current")
  log.info("ch_b_current", b_a, " A")
  local c_a = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "ch_c_current")
  log.info("ch_c_current", c_a, " A")
  local p_all = dlt.get_tag_data(1, {0xAA, 0xAA, 0xAA, 0xAA, 0xAA, 0xAA}, "total_energy")
  log.info("total_energy", p_all, " kw/h")

  ]]

  --local co2_regs = mdb.get_tag_data(1, 6, "tag_co2")

  --两个16位寄存器转flaot，高16位在前
  --local co2 = mdb.get_f32(co2_regs[1], co2_regs[2])
  --log.info("co2", co2, " ppm")
  --两个16位寄存器转flaot，低16位在前
  --co2 = mdb.get_f32le(co2_regs[1], co2_regs[2])
  --log.info("co2_1", co2, " ppm")

  --[[

  local co_regs = mdb.get_tag_data(1, 6, "tag_co")
  local co = mdb.get_f32(co_regs[1], co_regs[2])
  log.info("co", co, " ppm")

  local pm25_regs = mdb.get_tag_data(1, 8, "tag_pm25_1")
  local pm25 = mdb.get_f32(pm25_regs[1], pm25_regs[2])
  log.info("pm25_1", pm25, " mg/m3")

  pm25_regs = mdb.get_tag_data(1, 9, "tag_pm25_2")
  pm25 = mdb.get_f32(pm25_regs[1], pm25_regs[2])
  log.info("pm25_2", pm25, " mg/m3")

  pm25_regs = mdb.get_tag_data(1, 10, "tag_pm25_3")
  pm25 = mdb.get_f32(pm25_regs[1], pm25_regs[2])
  log.info("pm25_3", pm25, " mg/m3")

  pm25_regs = mdb.get_tag_data(1, 11, "tag_pm25_4")
  pm25 = mdb.get_f32(pm25_regs[1], pm25_regs[2])
  log.info("pm25_4", pm25, " mg/m3")

  local di_regs = mdb.get_tag_data(1, 1, "tag_di")
  log.info("di_regs1", di_regs[1])
  log.info("di_regs2", di_regs[2])
  log.info("di_regs3", di_regs[3])
  log.info("di_regs4", di_regs[4])
  log.info("di_regs5", di_regs[5])
  log.info("di_regs6", di_regs[6])
  log.info("di_regs7", di_regs[7])
  log.info("di_regs8", di_regs[8])

  if di_regs[1] > 0 then
    mdb.set_tag_data(1, 7, "tag_do1", {1})
  else
    mdb.set_tag_data(1, 7, "tag_do1", {0})
  end

  if di_regs[2] > 0 then
    mdb.set_tag_data(1, 7, "tag_do2", {1})
  else
    mdb.set_tag_data(1, 7, "tag_do2", {0})
  end

  if di_regs[3] > 0 then
    mdb.set_tag_data(1, 7, "tag_do3", {1})
  else
    mdb.set_tag_data(1, 7, "tag_do3", {0})
  end

  if di_regs[4] > 0 then
    mdb.set_tag_data(1, 7, "tag_do4", {1})
  else
    mdb.set_tag_data(1, 7, "tag_do4", {0})
  end

  local ao = math.random(10, 100) + math.random()
  --float转两个16位寄存器，高16位在前
  log.info("wr ao1 ", ao)

  local reg1,reg2 = mdb.set_f32(ao)
  mdb.set_tag_data(1, 7, "tag_ao1", {reg1, reg2})

  ]]
  
  local reg_trh = mdb.get_tag_data(0, 1, "tag_trh")
  trh = reg_trh[1]/10
  log.info("trh", trh, " %")
  local reg_temp = mdb.get_tag_data(0, 1, "tag_temp")
  if reg_temp[1] & 0x8000 > 0 then
    temp = (~reg_temp[1] + 1)/10
  else
    temp = reg_temp[1]/10
  end
  log.info("temp", temp, " C")

  if win_tt_data ~= nil then
    if reg_temp[1] & 0x8000 > 0 then
      win_tt_data:lookup('lab_dat_temp', TRUE):set_value(-temp)
    else
      win_tt_data:lookup('lab_dat_temp', TRUE):set_value(temp)
    end
    win_tt_data:lookup('lab_dat_trh', TRUE):set_value(trh)
  end

  --模拟数据
  local d1 = math.random(20, 500) + math.random()
  local d2 = math.random(10, 600) + math.random()
  local d3 = math.random(20, 500) + math.random()
  local d4 = math.random(10, 600) + math.random()
  local d5 = math.random(20, 500) + math.random()
  local d6 = math.random(10, 600) + math.random()
  local d7 = math.random(10, 600) + math.random()

  local data2save = {trh = 0.0, temp = 0.0, pm1 = 0.0, pm10 = 0.0, tvoc = 0.0, co2 = 0.0, ch2o = 0.0}
  data2save.trh = trh
  data2save.temp = temp
  data2save.pm1 = d3
  data2save.pm10 = d4
  data2save.tvoc = d5
  data2save.co2 = d6
  data2save.ch2o = d7

  table.insert(data_queue, data2save)

end, 1000)


sys.taskInit(function ()
  local line_idx = 1
  local page_idx = 1
  local file_idx = 1
  local pdfdoc = nil
  
  --初始化记录数据
  local csv_path = string.format("caq_data_%d.csv", csv_idx)
  sfdb_info = sfdb.read_info(sfdb.TF, csv_path)
  if sfdb_info then 
      log.info("record_index", "record_count", "record_len", "max_record_num", sfdb_info[1], sfdb_info[2], sfdb_info[3], sfdb_info[4])
      if sfdb_info[2] == 0 then
        sfdb.append(sfdb.TF, csv_path, "caq数据纪录")
        sfdb.append(sfdb.TF, csv_path, "trh,temp,pm1,pm10,tvoc,co2,ch2o")
      elseif sfdb_info[2] == 1000000 then
        csv_idx = csv_idx + 1
        csv_path = string.format("caq_data_%d.csv", csv_idx)
      end
  end

  while true do
    --存储缓存数据
    if #data_queue > 0 then

      for i=1,#data_queue do

        local data2save = {trh = 0.0, temp = 0.0, pm1 = 0.0, pm10 = 0.0, tvoc = 0.0, co2 = 0.0, ch2o = 0.0}
        data2save = table.remove(data_queue, 1)

        if data2save then
          if sfdb_info then
            --存满了，新建个文件
            if sfdb_info[2] == 1000000 then
              csv_idx = csv_idx + 1
              csv_path = string.format("caq_data_%d.csv", csv_idx)
              AppConf.set_int("sys.csv_idx", csv_idx)
              AppConf.save()
            end
          end
          local data_str = string.format("%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f", data2save.trh, data2save.temp, data2save.pm1, data2save.pm10, data2save.tvoc, data2save.co2, data2save.ch2o)
          --sfdb.append(sfdb.TF, csv_path, data_str)
          --sfdb_info[2] = sfdb_info[2] + 1

          --[[
          --每10页新建一个pdf文档，减少单文档存储时间
          if page_idx == 10 then
            if line_idx == 32 then
              page_idx = 1
              line_idx = 1
              if pdfdoc then
                local pdf_path = string.format("/mmc/caq_data_%d_%d.pdf", bootcnt, file_idx)
                PDFgen.save(pdfdoc, pdf_path)
                PDFgen.destroy(pdfdoc)
                pdfdoc = nil
                log.info("save new pdfdoc")
              end
              file_idx = file_idx + 1
            end
          end

          if page_idx == 1 then
            if pdfdoc == nil then
              log.info("create new pdfdoc")
              pdfdoc = PDFgen.create(PdfPaper.A3_HEIGHT, PdfPaper.A3_WIDTH)
              PDFgen.set_font(pdfdoc, "Times-Roman")
              PDFgen.append_page(pdfdoc)
            end
          end

          if pdfdoc then
            --一页存32行数据
            if line_idx == 32 then
              PDFgen.append_page(pdfdoc)
              line_idx = 1
              page_idx = page_idx +1
            end
            local pdf_data_str = string.format("trh: %.2f, temp: %.2f, pm1: %.2f, pm10: %.2f, tvoc: %.2f, co2: %.2f, ch2o: %.2f", data2save.trh, data2save.temp, data2save.pm1, data2save.pm10, data2save.tvoc, data2save.co2, data2save.ch2o)
            PDFgen.add_text(pdfdoc, pdf_data_str, 16, 40, 800 - line_idx*24, FontColour.BLACK)
            line_idx = line_idx + 1
          end
          ]]
        end

        sys.wait(100)

      end

      --if pdfdoc then
      --  local pdf_path = string.format("/mmc/caq_data_%d_%d.pdf", bootcnt, file_idx)
      --  PDFgen.save(pdfdoc, pdf_path)
      --ends
      
    end

    log.info("lua", rtos.meminfo("lua"))
    log.info("sys", rtos.meminfo("sys"))

    sys.wait(10000)
  end

end)


--启动串口数据接收任务
sys.taskInit(uart_read)

-- 用户代码已结束---------------------------------------------
-- 结尾总是这一句
sys.run()
-- sys.run()之后后面不要加任何语句!!!!!