Changes for page 2 Script

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

From 19.1 to 18.1 From 52.1 to 51.1

From version 51.1

edited by Hunter
on 2023/05/06 10:19

Change comment: There is no comment for this version

To version 19.1

edited by Hunter
on 2022/07/29 15:56

Change comment: There is no comment for this version

Raw
Rendered

Summary

Page properties (1 modified, 0 added, 0 removed)
Attachments (0 modified, 0 added, 1 removed)
- InputHTTPparameter.png

Details

Page properties

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.Manual.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.04 Lua Script.01 Lua Functions.WebHome]]
  == **1.2 Arithmetic** ==
@@ -27,19 +27,25 @@
  == **1.4 Short message** ==
--The following demo shows that when the alarm condition is reached: temp1 > 5 & temp2 >10 & temp3 < 20(lasts more than 5 seconds) , then send an "alarm trigger" sms.
++When the alarm condition is reached: temp1 > 5 & temp2 >10 & temp3 < 20(lasts more than 5 seconds) , then send an "alarm trigger" sms.
--When the alarm condition is released，then send an  "alarm release" sms. Script is as below:
++When the alarm condition is released，then send an "alarm release" sms.
--{{code language="lua"}}
++(% style="text-align:center" %)
++[[image:1645535936750-316.png||height="385" width="400" class="img-thumbnail"]]
++
++Script is as below:
++
++(% class="box infomessage" %)
++(((
  function sms.main()
--------send condition------
++~-~-~-~-~-~-send condition~-~-~-~-~-~-
  local temp1 = addr_getword("@Temperature1")
  local temp2 = addr_getword("@Temperature2")
  local temp3 = addr_getword("@Temperature3")
  local timer = addr_getword("@Timer")
  local tag = addr_getbit("@Tag")
--------lasting time------
++~-~-~-~-~-~-lasting time~-~-~-~-~-~-
  if temp1 > 5 and temp2 > 10 and temp3 < 20 then
      timer = timer + 1
      addr_setword("@Timer",timer)
@@ -47,7 +47,7 @@
      timer = 0
      addr_setword("@Timer",timer)
  end
--------send sms & output Y0------
++~-~-~-~-~-~-send sms & output Y0~-~-~-~-~-~-
  if timer > 5 then
      if tag == 0 then
          send_sms_ira("19859254700","alarm trigger")
@@ -58,18 +58,12 @@
  addr_setbit("@Tag",0)
  end
  end
--{{/code}}
++)))
  == **1.5 Telegram notification** ==
  This example shows how to use the Bot API to send message into Telegram group or channel. When monitoring bit "@HDX" changes, it will trigger and send the message. Please replace with your own Token and chat id.
--As for How to get the botToken and chatID, please check the followig videos:
--
--[[https:~~/~~/www.youtube.com/watch?v=zh6yYlnjX7k>>https://www.youtube.com/watch?v=zh6yYlnjX7k]]
--
--[[https:~~/~~/www.youtube.com/watch?v=Pj8mwuMZZvg>>https://www.youtube.com/watch?v=Pj8mwuMZZvg]]
--
  {{code language="Lua"}}
  local tempBit = 0
  local tempWord = 0
@@ -135,343 +135,7 @@
  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 language="lua"}}
--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}}
--
--== **1.7 Twilio WhatsApp Messaging** ==
--
--This example shows how to use the Twilio API to send WhatsApp message to private number. When monitoring bit "@testBit" changes, it will trigger and send the message. Please replace with your own SID, Token, twilioPhoneNumber and receiverPhoneNumber.
--
--About how to register the Twilio API, please check the following video:
--
--[[https:~~/~~/www.youtube.com/watch?v=Id4lKichauU>>https://www.youtube.com/watch?v=Id4lKichauU]]
--
--{{code language="Lua"}}
--local tempBit = 0
--local tempWord = 0
--
--local https = require("https")
--local json = require("json")
--local ltn12 = require("ltn12")
--
--local SID = 'AC1703bd710ffa98006d2bcc0b********'
--local Token = 'd3c11897623c39e538b20263ec19****'
--
--local twilioPhoneNumber = '+14155238886'
--local receiverPhoneNumber = '+8615880018277'
--
--local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
--function encodingBase64(data)
--    return ((data:gsub('.', function(x)
--        local r,b='',x:byte()
--        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
--        return r;
--    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
--        if (#x < 6) then return '' end
--        local c=0
--        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
--        return b:sub(c+1,c+1)
--    end)..({ '', '==', '=' })[#data%3+1])
--end
--
--function encodeUrl(str)
--    str = string.gsub(str, "([^%w%.%- ])", function(c)
--    return string.format("%%%02X", string.byte(c)) end)
--    return string.gsub(str, " ", "+")
--end
--
--
--
--
--function requestBodySplice(message, sender, receiver)
--    local reqBody = ''
--    local encodeMess = encodeUrl(message)
--    local encodeSend = encodeUrl(sender)
--    local encodeRece = encodeUrl(receiver)
--    --reqBody = "Body=Hello%20Wecon2&From=whatsapp%3A%2B14155238886&To=whatsapp%3A%2B8615880018277"
--    reqBody = string.format("Body=%s&From=whatsapp:%s&To=whatsapp:%s", encodeMess, encodeSend, encodeRece)
--    print(reqBody)
--    return reqBody
--end
--
--
---- 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(whatsAppMessage)
--    local auth = SID..':'..Token
--    local url = "https://api.twilio.com/2010-04-01/Accounts/"..SID.."/Messages"
--    --local reqMess = "message="..twilioMessage
--    local reqMess = requestBodySplice(whatsAppMessage, twilioPhoneNumber, receiverPhoneNumber)
--    local headers =
--                {
--                        ["Authorization"] = "Basic "..encodingBase64(auth),
--                        ["Content-Type"] = "application/x-www-form-urlencoded",
--                        ["Content-Length"] = #reqMess
--                }
--
--    print("Get the link:"..url)
--    getHttpsUrl(url, headers, reqMess)
--end
--
--
--
--function Twilio.main()
--  --dosomething
--  --local auth = SID..':'..Token
--  --print(requestBodySplice("HelloWorld", twilioPhoneNumber, receiverPhoneNumber))
--  --print(encodingBase64(auth))
--  local bitValue = addr_getbit("@testBit");
--    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("@testWord")
--    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}}
--
--== **1.8 How to parse value from HTTP response body** ==
--
--This example use [[https:~~/~~/www.weatherapi.com/>>https://www.weatherapi.com/]] as example, to show how to parse value from HTTP response body. When we input the city name into address "@HDW5050":
--
--(% style="text-align:center" %)
--[[image:InputHTTPparameter.png]]
--
--Then the response body would be like as following:
--
--{{code language="json"}}
--{
--    "location": {
--        "name": "Madrid",
--        "region": "Madrid",
--        "country": "Spain",
--        "lat": 40.4,
--        "lon": -3.68,
--        "tz_id": "Europe/Madrid",
--        "localtime_epoch": 1669022636,
--        "localtime": "2022-11-21 10:23"
--    },
--    "current": {
--        "last_updated_epoch": 1669022100,
--        "last_updated": "2022-11-21 10:15",
--        "temp_c": 13.0,
--        "temp_f": 55.4,
--        "is_day": 1,
--        "condition": {
--            "text": "Partly cloudy",
--            "icon": "//cdn.weatherapi.com/weather/64x64/day/116.png",
--            "code": 1003
--        },
--        "wind_mph": 11.9,
--        "wind_kph": 19.1,
--        "wind_degree": 210,
--        "wind_dir": "SSW",
--        "pressure_mb": 1015.0,
--        "pressure_in": 29.97,
--        "precip_mm": 0.0,
--        "precip_in": 0.0,
--        "humidity": 88,
--        "cloud": 75,
--        "feelslike_c": 10.8,
--        "feelslike_f": 51.4,
--        "vis_km": 10.0,
--        "vis_miles": 6.0,
--        "uv": 3.0,
--        "gust_mph": 22.1,
--        "gust_kph": 35.6
--    }
--}
--{{/code}}
--
--(% class="wikigeneratedid" %)
--So we decode json into lua object to assign the value into addresses HDW6060(temperature), HDW7070(humidity), the code example like follows:
--
--{{code language="lua"}}
--local APIkey = '70faaecf926b4341b1974006221711'
--
--
--local http = require("socket.http")
--local json = require("json")
--
---- Send http.get request and return response result
--function getHttpsUrl(url)
--    local result_table, code, headers, status = http.request(url)
--    print("code:"..code)
--    if code~= 200 then
--        return
--    else
--        return result_table
--    end
--end
--
--function sendAPI(key, city)
--    local url = "http://api.weatherapi.com/v1/current.json?key="..key.."&q="..city.."&aqi=no"
--    --local url = 'http://v-box.net'
--    --local url = 'https://www.google.com/'
--    --http://api.weatherapi.com/v1/current.json?key=70faaecf926b4341b1974006221711&q=Barcelona&aqi=no
--    print("Get the link:"..url)
--    local body = getHttpsUrl(url)
--    --print(body)
--    local jsonBody = json.decode(body)
--    --print(jsonBody["current"]["temp_c"])
--    --print(type(jsonBody["current"]["temp_c"]))
--    --print(type(jsonBody["current"]["humidity"]))
--    addr_setfloat("@HDW6060", jsonBody["current"]["temp_c"])
--    addr_setword("@HDW7070", jsonBody["current"]["humidity"])
--end
--
--
--function Weather.main()
--    local cityName = addr_getstring("@HDW5050",6)
--    print("cityName: "..cityName)
--    sendAPI(APIkey, cityName)
--end
--{{/code}}
--
--== **1.9 High-Low Byte Switch** ==
--
--The following example is converting the floating number from order 1234 to order 3412, and formating output the number with 2 decimal point. About which high-low word order corresponding to which value, please refer to the [[Address Operation Table>>doc:V-BOX.V-Net.Manual.04 Lua Script.01 Lua Functions.WebHome||anchor="H2Addressoperation"]].
--
--{{code language="lua"}}
--function highLowByteSwitch(floatNumber)
--    addr_setfloat("@W_0#HDW23036",floatNumber,0,2)
--    local newFloat = addr_getfloat("@W_0#HDW23036")
--    local formattedFloat = string.format("%.2f",newFloat)
--    print("The formatted float value is the : "..formattedFloat)
--    return formattedFloat
--end
--{{/code}}
--
--== **1.10 Read 64bits Unsigned Value** ==
--
--In our built-in function library doesn't have the function for reading 64-bit unsigned format value, so the following function is for solve this. But if the number is greater 2^53, the precision will be lost. So the final result will be a little bit different from the original value.
--
--{{code language="lua"}}
--function addr_getquatra(address)
--    local highAddress = addr_newnoaddr(address,2)
--    local low32 = addr_getdword(address)
--    local high32 = addr_getdword(highAddress)
--    --print("the low number is "..low32)
--    --print("the high number is "..high32)
--    local formatVal = string.format("%64.0f",2^32*high32+low32)
--    print("the format value is ".. formatVal)
--    return formatVal
--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.
@@ -490,304 +490,157 @@
  (% class="mark" %)2.If your server requires SSL certificate to log in,please use OpenCloud.Because only OpenCloud platform can support to upload certificate
--{{info}}
--**✎Note: **Before program the script of MQTT, please make sure the server(MQTT broker) can be connected through MQTT Client tool.
--{{/info}}
++== **2.1 V-Box connect with customer server:grouprobotinfo.com** ==
--(% class="wikigeneratedid" %)
--Tool link: **[[MQTT.fx>>http://mqttfx.jensd.de/index.php/download]]**
++This demo does not use SSL certification. Script is as below
--== **2.1 V-Box connect with test server(General Example)** ==
++Demo1:
--The following example is trying to publish to the topic "testtopic/test/no1/7890", and subscribe the topic "testtopic/test/no1/123456".
--
--And the JSON message is like follows:
--
--{{code language="JSON"}}
--{
-- "timestamp": 1631152760,
-- "messageId": 1,
-- "event": "test_data",
-- "mfrs": "HMI/box",
-- "data":
--  {
--   "id" : 1436217747670454274,
--   "waterlevel" : 48,
--   "temperture" : 23
--  }
--}
--{{/code}}
--
  {{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"
++-- Meta class
++--main
++function mq.main()
++ if not mq.m then
++  local err = ""
----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
++  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)
----Topic name to subscribed
--local SUBSCRIBE_TOPIC = 'testtopic/test/no1/123456'
----Topic name to be published
--local PUBLISH_TOPIC = 'testtopic/test/no1/7890'
++     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,
----real time
--local LAST_TIME = 0
++                   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")
----initialize mqtt
--function mqtt_init()
--    print(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENT_ID))
--    if g_mq then
--        mqtt.close() --Close mqtt object
--    end
--    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
--        g_mq:on("offline", mqtt_msg_offline)  -- Register a callback for offline
--        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
++    -- ("@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
----Offline callback function
--function mqtt_msg_offline(cause)
--    print("mqtt offline, cause:", cause)
++  end
++  -- mq.m:unsubscribe("stc/test")
++  -- mq.m:disconnect() -- close matt
++  -- mq.m:close() -- close clase
++ end
  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 5 sec not connect, reconnect once
--            if os.time() - LAST_TIME > 5 then
--                LAST_TIME = os.time()
--                --reinitial the mqtt object
--                mqtt_init()
--                --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** ==
++== **2.2 V-Box connect with Azure platform** ==
--This demo does not use SSL certification. Script is as below
--
--Demo1:
--
--{{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)
--     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.3 V-Box connect with Azure platform** ==
--
  In this demo,V-Box connects with Azure by SSL certification.
  Video link: [[https:~~/~~/youtu.be/cdI6rIQcpMY?list=PL_Bpnb2RgaksCic9HCcVAZhU9sYwCRKzW>>https://youtu.be/cdI6rIQcpMY?list=PL_Bpnb2RgaksCic9HCcVAZhU9sYwCRKzW]]
@@ -917,7 +917,7 @@
  end
  )))
--== **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）** ==
++== **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）** ==
 .Register a account: [[https:~~/~~/www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ>>https://www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ]]
@@ -1066,7 +1066,7 @@
  (% style="text-align:center" %)
  [[image:1624441186851-536.png||height="434" width="700" class="img-thumbnail"]]
--== **2.5 V-Box connect with Huawei platform** ==
++== **2.4 V-Box connect with Huawei platform** ==
  In this demo,V-Box connects with Huawei by SSL certification.
@@ -1187,7 +1187,7 @@
  (% style="text-align:center" %)
  [[image:1624506666650-161.png||height="547" width="1000" class="img-thumbnail"]]
--== **2.6 V-Box connect with AWS platform** ==
++== **2.5 V-Box connect with AWS platform** ==
  === **Log in AWS** ===
@@ -1212,20 +1212,35 @@
  {{code language="java"}}
  {
++
    "Version": "2012-10-17",
++
    "Statement": [
++
      {
++
        "Effect": "Allow",
++
        "Action": [
++
          "iot:Connect",
++
          "iot:Publish",
++
          "iot:Subscribe",
++
          "iot:Receive",
++
          "greengrass:Discover"
++
        ],
++
        "Resource": "*"
++
      }
++
    ]
++
  }
  {{/code}}
@@ -1290,190 +1290,185 @@
  [[image:image-20220709165402-20.png]]
--{{info}}
--**✎Note:** Before using the following demo script, please make sure the V-Box firmware is newer than 22110701
--{{/info}}
--
--{{code language="lua"}}
  sprint = print
----Cloud mode interface to obtain the MQTT information configured by the cloud platform: (5 returns, namely the server address, client ID, connection table, last word table, certificate table)
++~-~-Cloud mode interface to obtain the MQTT information configured by the cloud platform: (5 returns, namely the server address, client ID, connection table, last word table, certificate table)
  local MQTT_URL, MQTT_CLIENTID, MQTT_CFG, MQTT_LWT, MQTT_CART = mqtt.setup_cfg()
----publish to topics
++~-~-publish to topics
  local pub_RE_TOPIC = string.format('TEST')
----Subscribe topics
++~-~-Subscribe topics
  local Subscribe_RE_TOPIC1 = string.format('TEST')
----variable
++~-~-variable
  local last_time = 0
----Timing main function
++~-~-Timing main function
  function aws.main()
--            sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " aws.main start")
++   sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " aws.main start")
--            if g_mq then
++   if g_mq then
--                if g_mq:isconnected() then
++        if g_mq:isconnected() then
--                    send_Data()
++            send_Data()
--                else
++        else
--                if os.time() - last_time > 5 then
++            if os.time() - last_time > 5 then
--                    last_time = os.time()
++                last_time = os.time()
--                    mymqtt_connect()
++                mymqtt_connect()
--                end
--
              end
--            else
++        end
--                mymqtt_init()
++    else
--            end
++        mymqtt_init()
--            sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " aws.main end")
++    end
++    sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " aws.main end")
++
  end
++~-~- Initialize MQTT
---- Initialize MQTT
--
  function mymqtt_init()
--                sprint(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENTID))
++    sprint(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENTID))
--                g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENTID, 1) -- Create the object and declare it as a global variable, 1 means using the domain to connect
++    g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENTID) ~-~- Create the object and declare it as a global variable
--                if g_mq then
++    if g_mq then
--                    g_mq:on("message", mymqtt_msg_callback) -- Register to receive message callbacks
++        g_mq:on("message", mymqtt_msg_callback) ~-~- Register to receive message callbacks
--                    sprint("mqtt init success")
++        sprint("mqtt init success")
--                else
++    else
--                    sprint("mqtt init failed:", err)
++        sprint("mqtt init failed:", err)
--                end
++    end
  end
---- Connect to MQTT server
++~-~- Connect to MQTT server
  function mymqtt_connect()
--                sprint("mqtt connecting...")
++    sprint("mqtt connecting...")
--                local stat, err = g_mq:connect(MQTT_CFG,MQTT_LWT, MQTT_CART)
++    local stat, err = g_mq:connect(MQTT_CFG,MQTT_LWT, MQTT_CART)
--                if stat == nil then
++    if stat == nil then
--                    sprint("mqtt connect failed:", err)
++        sprint("mqtt connect failed:", err)
--                    return
++        return
--                else
++    else
--                    sprint("mqtt connected")
++        sprint("mqtt connected")
--                end
++    end
--                g_mq:subscribe(Subscribe_RE_TOPIC1, 0)
++    g_mq:subscribe(TEST, 0)
  end
---- Receive MQTT message callback function
++~-~- Receive MQTT message callback function
  function mymqtt_msg_callback(topic, msg)
--                print("topic:",topic)
++    print("topic:",topic)
--                print("revdata:",msg)
++    print("revdata:",msg)
--                local revData = json.decode(msg)
++    local revData = json.decode(msg)
--                print (revData)
++    print (revData)
--                if topic == Subscribe_RE_TOPIC1 then --Process topic information subscribed from the cloud
++ if topic == Subscribe_RE_TOPIC1 then ~-~-Process topic information subscribed from the cloud
--                    if string.match(topic,Subscribe_RE_TOPIC1) then
++if string.match(topic,Subscribe_RE_TOPIC1) then
--                        --if revData ~= nil then
++    ~-~-if revData ~~= nil then
--                        for k,v in pairs (revData) do
++        for k,v in pairs (revData) do
--                            print("printing revdata after kv here")
++            print("printing revdata after kv here")
--                            print (k,v)
++            print (k,v)
--                        end
++        end
--                    print ("current state is",fanstate)
++        print ("current state is",fanstate)
--                        --end
++    ~-~-end
--                    end
++end
--                end
++end
  end
++~-~-Get real-time data
----Get real-time data
--
  function getData()
--                local jdata = {}
++    local jdata = {}
--                local addr = bns_get_alldata()
++    local addr = bns_get_alldata()
--                print(json.encode(addr))
++    print(json.encode(addr))
--                for i,v in pairs(addr) do
++    for i,v in pairs(addr) do
--                    if v[2] == 1 then
++        if v[2] == 1 then
--                        jdata[v[3]] = v[4]
++           jdata[v[3]] = v[4]
--                    end
++        end
--                end
++    end
--                return jdata
++    return jdata
  end
----send data
++~-~-send data
  function send_Data()
--                local pub_data =
--                {
--                    123
--                }
++    local pub_data =
++    {
++
++123
++
++}
++
  sprint(json.encode(pub_data))
  print("..........",pub_RE_TOPIC)
--                return g_mq:publish(pub_RE_TOPIC, json.encode(pub_data), 0, 0)
++    return g_mq:publish(pub_RE_TOPIC, json.encode(pub_data), 0, 0)
  end
--{{/code}}
  Get message in AWS

InputHTTPparameter.png

Author

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

Size

...	...	@@ -1,1 +1,0 @@
1		-17.9 KB

Content

Changes for page 2 Script

Summary

Details

Navigation

Table of Contents