admin
04aa36be43
原 master 12f4831「更新工程/XD/素材 (x1Y2, 组1982)」。仓库瘦身：历史合并为单一根提交；unitouch.cxob（EB Pro 编译产物）不再入库。
27 lines
502 B
Plaintext
27 lines
502 B
Plaintext
macro_command main()
|
|
short res = 0, idx = 0
|
|
GetData(res, "Local HMI", LW, 101, 1)
|
|
idx = 7
|
|
if res == 1 then
|
|
idx = 1
|
|
end if
|
|
if res == 8 then
|
|
idx = 2
|
|
end if
|
|
if res == 16 then
|
|
idx = 3
|
|
end if
|
|
if res == 32 then
|
|
idx = 4
|
|
end if
|
|
if res == 64 then
|
|
idx = 5
|
|
end if
|
|
if res == 128 then
|
|
idx = 6
|
|
end if
|
|
if res == 0 then
|
|
idx = 0
|
|
end if
|
|
SetData(idx, "Local HMI", LW, 261, 1)
|
|
end macro_command |