FansBoard/apps/clock/application.lua at main · HelloWorksGroup/FansBoard · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

if not api then
	api = "http://quan.suning.com/getSysTime.do"
else
	return
end

display = require("display")

local api_tmr = tmr.create()
local time_disp_tmr = tmr.create()

local timeStr_Hour = "--"
local timeStr_Min = "--"
local timeStr_flag = true

-- 是否从网络获取时间
local timeWifi = 0

time_disp_tmr:register(1000, tmr.ALARM_AUTO,
function(t)
	local coma = " "
	if timeStr_flag then
		coma = ":"
	end
	if timeWifi == 0 then
		display:show_str("!"..timeStr_Hour..coma..timeStr_Min.."!")
	else
		timeWifi = timeWifi-1
		display:show_str(timeStr_Hour..coma..timeStr_Min)
	end
	timeStr_flag = not timeStr_flag
end)

local minute_tmr = tmr.create()
minute_tmr:register(60000, tmr.ALARM_SEMI,
function(t)
	local m = tonumber(timeStr_Min)
	local h = tonumber(timeStr_Hour)
	m = m+1
	if m>=60 then
		m = 0
		h = h+1
		if h>=24 then
			h = 0
		end
	end
	timeStr_Min = string.format("%02d",m)
	timeStr_Hour = string.format("%02d",h)
	minute_tmr:interval(60000)
	minute_tmr:start(true)
end
)

api_tmr:register(1000, tmr.ALARM_AUTO,
function(t)
	api_tmr:interval(60000)
	print("update")
    http.get(api, nil,
    function(code, data)
		print(code, data)
		if (code ~= 200) then
			print("HTTP RET"..tostring(code))
			-- display:update("HTTP RET", -1)
			-- display:update(tostring(code), -1)
        else
            local parsed = sjson.decode(data)
			if (parsed.sysTime2 ~= sjson.NULL) then
				print(parsed.sysTime2)
				timeStr_Hour = string.sub(parsed.sysTime2,-8,-7)
				timeStr_Min = string.sub(parsed.sysTime2,-5,-4)
				timeWifi = 210

				local timeStr_Sec = string.sub(parsed.sysTime2,-2,-1)
				print("Current sec:"..timeStr_Sec)
				print("Update After:"..(60-tonumber(timeStr_Sec)))
				minute_tmr:interval((60-tonumber(timeStr_Sec))*1000)
				minute_tmr:start(true)
			else
				display:update("ERROR X", -1)
            end
        end
    end)
end)
api_tmr:start()

time_disp_tmr:start()

-- 自动亮度调节
local adc_tab = {}
local bright = 6
local auto_up = {
	10,80,160,300,500,800,9999
}
local auto_down = {
	5,40,120,200,360,600
}
function auto_bright(adc)
	if adc>auto_up[bright+1] then
		bright = bright+1
		display:set_duty(bright)
		if bright == 1 then
			time_disp_tmr:interval(1000)
		end
	elseif bright>0 and adc<auto_down[bright] then
		bright = bright-1
		display:set_duty(bright)
		if bright == 0 then
			time_disp_tmr:interval(2000)
		end
	end
end

if adc then
	local adc_tmr = tmr.create()
	adc.force_init_mode(adc.INIT_ADC)
	adc_tmr:register(250, tmr.ALARM_AUTO,
	function(t)
		table.insert(adc_tab, adc.read(0))
		while(#adc_tab>8) do
			table.remove(adc_tab, 1)
		end
		local adc = 0
		for _,v in ipairs(adc_tab) do
			adc = adc+v
		end
		adc = adc / #adc_tab
		auto_bright(adc)
	end)
	adc_tmr:start()
end