Changes for page 2 Script

Last modified by Devin Chen on 2025/06/06 14:03

From 17.1 to 18.1 From 22.1 to 23.1

From version 18.1

edited by Stone Wu
on 2022/07/25 11:32

Change comment: Renamed back-links.

To version 22.1

edited by Hunter
on 2022/09/08 18:57

Change comment: There is no comment for this version

Raw
Rendered

Summary

Page properties (2 modified, 0 added, 0 removed)

Details

Page properties

Author

@@ -1,1 +1,1 @@
--XWiki.Stone
++XWiki.Hunter

Content

@@ -13,7 +13,7 @@
  for example. addr_setshort(addr,num) Function: Write 16-bit signed decimal address
  addr_getshort(addr) Function:Read 16-bit signed decimal address
  addr_getword(string addr)Function: Read 16-bit unsigned decimal address
--More script function are in the second section of  [[“V-BOX Script Interface Manual”>>doc:V-BOX.V-Net.04 Lua Script.01 Lua Functions.WebHome]]
++More script function are in the second section of  [[“V-BOX Script Interface Manual”>>doc:V-BOX.V-Net.Manual.04 Lua Script.01 Lua Functions.WebHome]]
  == **1.2 Arithmetic** ==
@@ -135,7 +135,85 @@
  end
  {{/code}}
++== **1.6 LINE Notify** ==
++This example shows how to use the LINE Notify to send message into LINE group. When monitoring bit "@test" changes, it will trigger and send the message. Please replace with your own Token.
++
++{{code}}
++local tempBit = 0
++local tempWord = 0
++
++local LineToken = "08XCpubkOdwGdGgRTXF0x8umiyrALtoM0v6lBFUV6PC"
++
++local https = require("https")
++local json = require("json")
++local ltn12 = require("ltn12")
++
++-- Send http.get request and return response result
++function getHttpsUrl(url,header,reqbody)
++    local body = {}
++    local bodyJson = json.encode(body)
++    local result_table, code, headers, status = https.request{
++        method = "POST",
++        url = url,
++        source = ltn12.source.string(reqbody),
++        headers = header,
++        sink = ltn12.sink.table(body)
++   }
++    print("code:"..code)
++    if code~= 200 then
++        return
++    else
++        return body
++    end
++end
++
++function getMessageUrl(lineMessage)
++    local url = "https://notify-api.line.me/api/notify"
++    local reqMess = "message="..lineMessage
++    local headers =
++                {
++                        ["Authorization"] = "Bearer "..LineToken,
++                        ["Content-Type"] = "application/x-www-form-urlencoded",
++                        ["Content-Length"] = #reqMess
++                }
++
++    print("Get the link:"..url)
++    getHttpsUrl(url, headers, reqMess)
++end
++
++
++function linenotify.main()
++    local bitValue = addr_getbit("@test");
++    local message = ''
++    print("b=="..bitValue)
++    if bitValue == 1 and bitValue ~= tempBit then
++        message = 'Alarm V-Box triggered, the output is '.. bitValue
++        getMessageUrl(message)
++        print("Notification pushed of triggering alarm,"..bitValue)
++    elseif bitValue == 0 and bitValue ~= tempBit then
++        message = 'Alarm V-Box dismissed, the output is '.. bitValue
++        getMessageUrl(message)
++        print("Notification pushed of dismissing alarm,"..bitValue)
++    end
++    tempBit = bitValue----Prevent monitoring values from continuous being sent to the platform
++
++    local wordValue = addr_getword("@t2")
++    print("w=="..wordValue)
++    --dosomething
++    if wordValue >= 100 and wordValue ~= tempWord and tempWord <= 100 then
++        message = 'Alarm V-Box triggered, the temperature is '.. wordValue
++        getMessageUrl(message)
++        print("Notification pushed of triggering alarm,"..wordValue)
++    elseif wordValue < 100 and wordValue ~= tempWord and tempWord >= 100 then
++        message = 'Alarm V-Box dismissed, the temperature is '.. wordValue
++        getMessageUrl(message)
++        print("Notification pushed of dismissing alarm,"..wordValue)
++    end
++    tempWord = wordValue----Prevent monitoring values from continuous being sent to the platform
++end
++{{/code}}
++
  = **2 V-Box connect with third part server** =
  V-Box have two mode.One is for V-Net,User need to use WECON server to store data.We call this V-NET platform.
@@ -154,149 +154,280 @@
  (% class="mark" %)2.If your server requires SSL certificate to log in,please use OpenCloud.Because only OpenCloud platform can support to upload certificate
--== **2.1 V-Box connect with customer server:grouprobotinfo.com** ==
++(% class="wikigeneratedid" %)
++**✎Note: **Before program the script of MQTT, please make sure the server(MQTT broker) can be connected through MQTT Client tool.
++(% class="wikigeneratedid" %)
++Tool link: **[[MQTT.fx>>http://mqttfx.jensd.de/index.php/download]]**
++
++== **2.1 V-Box connect with test server(General Example)** ==
++
++{{code language="lua"}}
++--MQTT configuration table
++local MQTT_CFG={}
++MQTT_CFG.username = "weconsupport"
++MQTT_CFG.password = "123456"
++MQTT_CFG.netway = 0
++MQTT_CFG.keepalive = 60
++MQTT_CFG.cleansession = 1
++--TCP URL
++MQTT_URL = "tcp://mq.tongxinmao.com:1883"
++--Client ID
++MQTT_CLIENT_ID = "V-BOXH-AG"
++
++--Generate UUID
++function uuid()
++    local seed = {'e','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
++    local tb = {}
++    for i=1, 32 do
++        table.insert(tb, seed[math.random(1,16)])
++    end
++    local sid=table.concat(tb)
++    return string.format('%s',
++        string.sub(sid,1,32)
++    )
++end
++
++
++--Topic name to subscribed
++local SUBSCRIBE_TOPIC = 'testtopic/test/no1/123456'
++
++--Topic name to be published
++local PUBLISH_TOPIC = 'testtopic/test/no1/7890'
++
++
++--real time
++local LAST_TIME = 0
++
++
++--initialize mqtt
++function mqtt_init()
++    print(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENT_ID))
++    g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENT_ID) -- create mqtt object,and declare it as a global variable
++    if g_mq then
++        g_mq:on("message", mqtt_msg_callback) -- Register a callback for receiving messages
++        print("mqtt init success")
++    else
++        print("mqtt init failed:", err)
++    end
++end
++
++-- connect to mqtt
++function mqtt_connect()
++    print("mqtt connecting...")
++    local stat, err = g_mq:connect(MQTT_CFG)
++    if stat == nil then
++        print("mqtt connect failed:", err)
++        return
++    else
++        print("mqtt connected")
++    end
++    g_mq:subscribe(SUBSCRIBE_TOPIC, 0)
++end
++
++-- Received message callback function
++function mqtt_msg_callback(topic, msg)
++    print("topic:", topic)
++    print("msg:", msg)
++    local objMsg = json.decode(msg)
++    local water = objMsg.data.waterlevel
++    local temp = objMsg.data.temperature
++    addr_setword("@HDW20",water)
++    addr_setword("@HDW10",temp)
++end
++
++--Send data (data upload to platform and encapsulate it with custom functions)
++function send_data()
++    local pub_data = {
++        timestamp = os.time(),
++        messageId = 1,
++        event = 'test_data',
++        mfrs = 'V-Box',
++        data = {
++            id = uuid(),
++            waterlevel = addr_getword("@HDW10"),
++            temperature = addr_getword("@HDW20")
++        }
++    }
++    return g_mq:publish(PUBLISH_TOPIC, json.encode(pub_data), 0, 0)
++end
++
++
++--main function fixed timed execution
++function MQTT.main()
++    --dosomething
++    print(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " main start")
++    --determine the mqtt object whether exist
++    if g_mq then
++        --determine the mqtt object whether has been connected or not
++        if g_mq:isconnected() then
++            send_data()
++        else
++            --if exceed 20 sec not connect, reconnect once
++            if os.time() - LAST_TIME > 20 then
++                LAST_TIME = os.time()
++                --connect to mqtt or reconnect
++                mqtt_connect()
++            end
++        end
++    else
++        --mqtt object does not exist so create new one
++        mqtt_init()
++    end
++    print(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " main end")
++end
++{{/code}}
++
++== **2.2 V-Box connect with customer server:grouprobotinfo.com** ==
++
  This demo does not use SSL certification. Script is as below
  Demo1:
--(% class="box infomessage" %)
--(((
--~-~- Meta class
--~-~-main
++{{code language="lua"}}
++-- Meta class
++--main
  function mq.main()
-- if not mq.m then
--  local err = ""
--\\  mq.m, err = mqtt.create("tcp:~/~/grouprobotinfo.com:1883", "ClienID")  ~-~- create connection
--  if mq.m then
--   mq.config = {
--    username = "",~-~- ID
--    password = "",~-~- password
--    netway = 1, ~-~- Ethernet connection, WIFI=1
--    ~-~- keepalive = 100, ~-~- Optional, set the connection heartbeat interval for 100 seconds.
--    ~-~- cleansession = 0, ~-~- Optional, keep session
--   }
--   mq.m:on("message", function(topic, msg) ~-~- Register for receiving message callbacks
--    local str = string.format("%s:%s", topic, msg)
--    ~-~- print("mqtt msg:", str) ~-~- Print out the received topics and content
--   end
--   )
--   mq.m:on("offline", function (cause) ~-~- Register for lost connection callbacks
--    ~-~- addr_setstring("@xxx", "cause"..(cause or " got nil"))
--   end)
--   mq.m:on("arrived", function() ~-~- Registration for sending messages to callbacks
--    print("msg arrived")
--   end)
--  else
--   print("mqtt create failed:", err) ~-~- Create object failed
--  end
-- else
--  if mq.m:isconnected() then ~-~- If online, post a message
--     local phaseStatus ="unknow"
--     if addr_getbit("@Standby")== 1 then
--         phaseStatus = "Standby"
--     elseif addr_getbit("@Pre-Freeze")==1 then
--         phaseStatus= "Pre-Freeze"
--     elseif addr_getbit("@Prepare")==1 then
--         phaseStatus ="Prepare"
--     elseif addr_getbit("@Primary Dry")==1 then
--         phaseStatus = "Primary dry"
--     elseif addr_getbit("@Secondary Dry")==1 then
--         phaseStatus = "Secondary Dry"
--     end
--~-~-   print(addr_getbit("@Primary Dry"))
--~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~--
--     local activating ="unknow"
--     if addr_getbit("@Compressor")==1 then
--         activating = ",".."Compressor"
--     end
--     if addr_getbit("@Silicone Pump")==1 then
--         activating = activating..",".."Silicone Pump"
--     end
--     if addr_getbit("@Vacuum Pump")==1 then
--         activating = activating..",".."Vacuum Pump"
--     end
--     if addr_getbit("@Root Pump")==1 then
--         activating = activating..",".."Root Pump"
--     end
--     if addr_getbit("@Heater")==1 then
--         activating = activating..",".."Heater"
--     end
--     if addr_getbit("@Valve Silicone")==1 then
--         activating = activating..",".."Valve Silicone"
--     end
--     if addr_getbit("@Valve Ice Condenser")==1 then
--         activating = activating..",".."Valve Ice Condenser"
--     end
--     if addr_getbit("@Valve Vacuum Pump")==1 then
--         activating = activating..",".."Valve Vacuum Pump"
--     end
--     local pr_activating =string.sub(activating,2)
--    ~-~-  print(pr_activating)
++ if not mq.m then
++  local err = ""
++  mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID")  -- create connection
++  if mq.m then
++   mq.config = {
++    username = "",-- ID
++    password = "",-- password
++    netway = 1, -- Ethernet connection, WIFI=1
++    -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds.
++    -- cleansession = 0, -- Optional, keep session
++   }
++   mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks
++    local str = string.format("%s:%s", topic, msg)
++    -- print("mqtt msg:", str) -- Print out the received topics and content
++   end
++   )
++   mq.m:on("offline", function (cause) -- Register for lost connection callbacks
++    -- addr_setstring("@xxx", "cause"..(cause or " got nil"))
++   end)
++   mq.m:on("arrived", function() -- Registration for sending messages to callbacks
++    print("msg arrived")
++   end)
++  else
++   print("mqtt create failed:", err) -- Create object failed
++  end
++ else
++  if mq.m:isconnected() then -- If online, post a message
++     local phaseStatus ="unknow"
++     if addr_getbit("@Standby")== 1 then
++         phaseStatus = "Standby"
++     elseif addr_getbit("@Pre-Freeze")==1 then
++         phaseStatus= "Pre-Freeze"
++     elseif addr_getbit("@Prepare")==1 then
++         phaseStatus ="Prepare"
++     elseif addr_getbit("@Primary Dry")==1 then
++         phaseStatus = "Primary dry"
++     elseif addr_getbit("@Secondary Dry")==1 then
++         phaseStatus = "Secondary Dry"
++     end
++--   print(addr_getbit("@Primary Dry"))
++-------------------------------------------------------------------------------------------------------------------------
++     local activating ="unknow"
++     if addr_getbit("@Compressor")==1 then
++         activating = ",".."Compressor"
++     end
++     if addr_getbit("@Silicone Pump")==1 then
++         activating = activating..",".."Silicone Pump"
++     end
++     if addr_getbit("@Vacuum Pump")==1 then
++         activating = activating..",".."Vacuum Pump"
++     end
++     if addr_getbit("@Root Pump")==1 then
++         activating = activating..",".."Root Pump"
++     end
++     if addr_getbit("@Heater")==1 then
++         activating = activating..",".."Heater"
++     end
++     if addr_getbit("@Valve Silicone")==1 then
++         activating = activating..",".."Valve Silicone"
++     end
++     if addr_getbit("@Valve Ice Condenser")==1 then
++         activating = activating..",".."Valve Ice Condenser"
++     end
++     if addr_getbit("@Valve Vacuum Pump")==1 then
++         activating = activating..",".."Valve Vacuum Pump"
++     end
++     local pr_activating =string.sub(activating,2)
++    --  print(pr_activating)
--     local status_text ="unknow"
--     if addr_getbit("@Status Run")==1 then
--         status_text = "RUNNING"
--     else
--         status_text = "STOP"
--     end
--~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~--
--\\     local js =  {type="status",
--                  mc_name ="FD300",
--                  status=status_text,
--                  elapsed_time={
--                                hour=addr_getword("@Elapsed Time (Hour)"),
--                                min=addr_getword("@Elapsed Time (Minute)"),
--                                sec=addr_getword("@Elapsed Time (Second)")
--                                },
--                   phase = phaseStatus,
--                   step = addr_getword("@Step"),
--                   activating_output = pr_activating,
--                   sv=addr_getshort("@SV Silicone")/10,
--                   pv=addr_getshort("@PV Silicone")/10,
--                   product1=addr_getshort("@Product 1")/10,
--\\                   product2=addr_getshort("@Product 2")/10,
--                   product3=addr_getshort("@Product 3")/10,
--                   product4=addr_getshort("@Product 4")/10,
--                   ice1=addr_getshort("@Ice condenser 1")/10,
--                   ice2=addr_getshort("@Ice condenser 2")/10,
--                   vacuum=addr_getfloat("@Vacuum")
--\\                }
--     local jsAlarm = {  HPC = addr_getbit("@B_25395#W0.00"),
--                        ODPC = addr_getbit("@B_25395#W0.01"),
--                        MTPC=addr_getbit("@B_25395#W0.02"),
--                        HTT = addr_getbit("@B_25395#W1.03"),
--                        CPC = addr_getbit("@B_25395#W0.08"),
--                        CPSP =addr_getbit("@B_25395#W1.00"),
--                        CPVP =addr_getbit("@B_25395#W0.10"),
--                        CPRP =addr_getbit("@B_25395#W0.11"),
--                        HP =addr_getbit("@B_25395#W1.01"),
--                        PP= addr_getbit("@B_25395#W1.02"),
--                        PO=addr_getbit("@B_25395#W0.07"),
--                        FSE=addr_getbit("@B_25395#W2.04"),
--                        AVVSVV=addr_getbit("@B_25395#W1.12"),
--                        ICHT=addr_getbit("@B_25395#W3.06")
--\\                }
--\\    ~-~- ("@B_25395#CIO1.02")
--     mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0)
--     mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0)
--  else
--   local stat, err = mq.m:connect(mq.config) ~-~- connection
--   if stat == nil then ~-~-Determine whether to connect
--    print("mqtt connect failed:", err)
--    return ~-~- Connection failed, return directly
--   end
--   mq.m:subscribe("mqtt-v-box-epsilon", 0)~-~- Subscribe to topics
--\\  end
--  ~-~- mq.m:unsubscribe("stc/test")
--  ~-~- mq.m:disconnect() ~-~- close matt
--  ~-~- mq.m:close() ~-~- close clase
-- end
++
++
++     local status_text ="unknow"
++     if addr_getbit("@Status Run")==1 then
++         status_text = "RUNNING"
++     else
++         status_text = "STOP"
++     end
++-------------------------------------------------------------------------------------------------------------------------
++
++     local js =  {type="status",
++                  mc_name ="FD300",
++                  status=status_text,
++                  elapsed_time={
++                                hour=addr_getword("@Elapsed Time (Hour)"),
++                                min=addr_getword("@Elapsed Time (Minute)"),
++                                sec=addr_getword("@Elapsed Time (Second)")
++                                },
++                   phase = phaseStatus,
++                   step = addr_getword("@Step"),
++                   activating_output = pr_activating,
++                   sv=addr_getshort("@SV Silicone")/10,
++                   pv=addr_getshort("@PV Silicone")/10,
++                   product1=addr_getshort("@Product 1")/10,
++
++                   product2=addr_getshort("@Product 2")/10,
++                   product3=addr_getshort("@Product 3")/10,
++                   product4=addr_getshort("@Product 4")/10,
++                   ice1=addr_getshort("@Ice condenser 1")/10,
++                   ice2=addr_getshort("@Ice condenser 2")/10,
++                   vacuum=addr_getfloat("@Vacuum")
++
++                }
++     local jsAlarm = {  HPC = addr_getbit("@B_25395#W0.00"),
++                        ODPC = addr_getbit("@B_25395#W0.01"),
++                        MTPC=addr_getbit("@B_25395#W0.02"),
++                        HTT = addr_getbit("@B_25395#W1.03"),
++                        CPC = addr_getbit("@B_25395#W0.08"),
++                        CPSP =addr_getbit("@B_25395#W1.00"),
++                        CPVP =addr_getbit("@B_25395#W0.10"),
++                        CPRP =addr_getbit("@B_25395#W0.11"),
++                        HP =addr_getbit("@B_25395#W1.01"),
++                        PP= addr_getbit("@B_25395#W1.02"),
++                        PO=addr_getbit("@B_25395#W0.07"),
++                        FSE=addr_getbit("@B_25395#W2.04"),
++                        AVVSVV=addr_getbit("@B_25395#W1.12"),
++                        ICHT=addr_getbit("@B_25395#W3.06")
++
++                }
++
++    -- ("@B_25395#CIO1.02")
++     mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0)
++     mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0)
++  else
++   local stat, err = mq.m:connect(mq.config) -- connection
++   if stat == nil then --Determine whether to connect
++    print("mqtt connect failed:", err)
++    return -- Connection failed, return directly
++   end
++   mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics
++
++  end
++  -- mq.m:unsubscribe("stc/test")
++  -- mq.m:disconnect() -- close matt
++  -- mq.m:close() -- close clase
++ end
  end
--)))
++{{/code}}
--== **2.2 V-Box connect with Azure platform** ==
++== **2.3 V-Box connect with Azure platform** ==
  In this demo,V-Box connects with Azure by SSL certification.
@@ -427,7 +427,7 @@
  end
  )))
--== **2.3 How to configure the Huawei platform?（✎Note: Huawei IOT DA function is only in China area.If you want this function,you need to use chinese mobile to register）** ==
++== **2.4 How to configure the Huawei platform?（✎Note: Huawei IOT DA function is only in China area.If you want this function,you need to use chinese mobile to register）** ==
 .Register a account: [[https:~~/~~/www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ>>https://www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ]]
@@ -576,7 +576,7 @@
  (% style="text-align:center" %)
  [[image:1624441186851-536.png||height="434" width="700" class="img-thumbnail"]]
--== **2.4 V-Box connect with Huawei platform** ==
++== **2.5 V-Box connect with Huawei platform** ==
  In this demo,V-Box connects with Huawei by SSL certification.
@@ -697,7 +697,7 @@
  (% style="text-align:center" %)
  [[image:1624506666650-161.png||height="547" width="1000" class="img-thumbnail"]]
--== **2.5 V-Box connect with AWS platform** ==
++== **2.6 V-Box connect with AWS platform** ==
  === **Log in AWS** ===

Changes for page 2 Script

Summary

Details

Navigation

Table of Contents