Changes for page 2 Script
Last modified by Devin Chen on 2025/06/06 14:03
From version 19.1
edited by Hunter
on 2022/07/29 15:56
on 2022/07/29 15:56
Change comment:
There is no comment for this version
To version 17.1
edited by Jim(Forgotten)
on 2022/07/09 17:47
on 2022/07/09 17:47
Change comment:
There is no comment for this version
Summary
-
Page properties (2 modified, 0 added, 0 removed)
Details
- Page properties
-
- Author
-
... ... @@ -1,1 +1,1 @@ 1 -XWiki. Hunter1 +XWiki.Jim - Content
-
... ... @@ -13,7 +13,7 @@ 13 13 for example. addr_setshort(addr,num) Function: Write 16-bit signed decimal address 14 14 addr_getshort(addr) Function:Read 16-bit signed decimal address 15 15 addr_getword(string addr)Function: Read 16-bit unsigned decimal address 16 -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]] 16 +More script function are in the second section of [[“V-BOX Script Interface Manual”>>doc:V-BOX.V-Net.1\.User Manual.04 Lua Script.01 Lua Functions.WebHome]] 17 17 18 18 == **1.2 Arithmetic** == 19 19 ... ... @@ -160,148 +160,141 @@ 160 160 161 161 Demo1: 162 162 163 -{{code language="lua"}} 164 --- Meta class 165 ---main 163 +(% class="box infomessage" %) 164 +((( 165 +~-~- Meta class 166 +~-~-main 166 166 function mq.main() 167 - if not mq.m then 168 - local err = "" 168 + if not mq.m then 169 + local err = "" 170 +\\ mq.m, err = mqtt.create("tcp:~/~/grouprobotinfo.com:1883", "ClienID") ~-~- create connection 171 + if mq.m then 172 + mq.config = { 173 + username = "",~-~- ID 174 + password = "",~-~- password 175 + netway = 1, ~-~- Ethernet connection, WIFI=1 176 + ~-~- keepalive = 100, ~-~- Optional, set the connection heartbeat interval for 100 seconds. 177 + ~-~- cleansession = 0, ~-~- Optional, keep session 178 + } 179 + mq.m:on("message", function(topic, msg) ~-~- Register for receiving message callbacks 180 + local str = string.format("%s:%s", topic, msg) 181 + ~-~- print("mqtt msg:", str) ~-~- Print out the received topics and content 182 + end 183 + ) 184 + mq.m:on("offline", function (cause) ~-~- Register for lost connection callbacks 185 + ~-~- addr_setstring("@xxx", "cause"..(cause or " got nil")) 186 + end) 187 + mq.m:on("arrived", function() ~-~- Registration for sending messages to callbacks 188 + print("msg arrived") 189 + end) 190 + else 191 + print("mqtt create failed:", err) ~-~- Create object failed 192 + end 193 + else 194 + if mq.m:isconnected() then ~-~- If online, post a message 195 + local phaseStatus ="unknow" 196 + if addr_getbit("@Standby")== 1 then 197 + phaseStatus = "Standby" 198 + elseif addr_getbit("@Pre-Freeze")==1 then 199 + phaseStatus= "Pre-Freeze" 200 + elseif addr_getbit("@Prepare")==1 then 201 + phaseStatus ="Prepare" 202 + elseif addr_getbit("@Primary Dry")==1 then 203 + phaseStatus = "Primary dry" 204 + elseif addr_getbit("@Secondary Dry")==1 then 205 + phaseStatus = "Secondary Dry" 206 + end 207 +~-~- print(addr_getbit("@Primary Dry")) 208 +~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 209 + local activating ="unknow" 210 + if addr_getbit("@Compressor")==1 then 211 + activating = ",".."Compressor" 212 + end 213 + if addr_getbit("@Silicone Pump")==1 then 214 + activating = activating..",".."Silicone Pump" 215 + end 216 + if addr_getbit("@Vacuum Pump")==1 then 217 + activating = activating..",".."Vacuum Pump" 218 + end 219 + if addr_getbit("@Root Pump")==1 then 220 + activating = activating..",".."Root Pump" 221 + end 222 + if addr_getbit("@Heater")==1 then 223 + activating = activating..",".."Heater" 224 + end 225 + if addr_getbit("@Valve Silicone")==1 then 226 + activating = activating..",".."Valve Silicone" 227 + end 228 + if addr_getbit("@Valve Ice Condenser")==1 then 229 + activating = activating..",".."Valve Ice Condenser" 230 + end 231 + if addr_getbit("@Valve Vacuum Pump")==1 then 232 + activating = activating..",".."Valve Vacuum Pump" 233 + end 234 + local pr_activating =string.sub(activating,2) 235 + ~-~- print(pr_activating) 169 169 170 - mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID") -- create connection 171 - if mq.m then 172 - mq.config = { 173 - username = "",-- ID 174 - password = "",-- password 175 - netway = 1, -- Ethernet connection, WIFI=1 176 - -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds. 177 - -- cleansession = 0, -- Optional, keep session 178 - } 179 - mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks 180 - local str = string.format("%s:%s", topic, msg) 181 - -- print("mqtt msg:", str) -- Print out the received topics and content 182 - end 183 - ) 184 - mq.m:on("offline", function (cause) -- Register for lost connection callbacks 185 - -- addr_setstring("@xxx", "cause"..(cause or " got nil")) 186 - end) 187 - mq.m:on("arrived", function() -- Registration for sending messages to callbacks 188 - print("msg arrived") 189 - end) 190 - else 191 - print("mqtt create failed:", err) -- Create object failed 192 - end 193 - else 194 - if mq.m:isconnected() then -- If online, post a message 195 - local phaseStatus ="unknow" 196 - if addr_getbit("@Standby")== 1 then 197 - phaseStatus = "Standby" 198 - elseif addr_getbit("@Pre-Freeze")==1 then 199 - phaseStatus= "Pre-Freeze" 200 - elseif addr_getbit("@Prepare")==1 then 201 - phaseStatus ="Prepare" 202 - elseif addr_getbit("@Primary Dry")==1 then 203 - phaseStatus = "Primary dry" 204 - elseif addr_getbit("@Secondary Dry")==1 then 205 - phaseStatus = "Secondary Dry" 206 - end 207 --- print(addr_getbit("@Primary Dry")) 208 -------------------------------------------------------------------------------------------------------------------------- 209 - local activating ="unknow" 210 - if addr_getbit("@Compressor")==1 then 211 - activating = ",".."Compressor" 212 - end 213 - if addr_getbit("@Silicone Pump")==1 then 214 - activating = activating..",".."Silicone Pump" 215 - end 216 - if addr_getbit("@Vacuum Pump")==1 then 217 - activating = activating..",".."Vacuum Pump" 218 - end 219 - if addr_getbit("@Root Pump")==1 then 220 - activating = activating..",".."Root Pump" 221 - end 222 - if addr_getbit("@Heater")==1 then 223 - activating = activating..",".."Heater" 224 - end 225 - if addr_getbit("@Valve Silicone")==1 then 226 - activating = activating..",".."Valve Silicone" 227 - end 228 - if addr_getbit("@Valve Ice Condenser")==1 then 229 - activating = activating..",".."Valve Ice Condenser" 230 - end 231 - if addr_getbit("@Valve Vacuum Pump")==1 then 232 - activating = activating..",".."Valve Vacuum Pump" 233 - end 234 - local pr_activating =string.sub(activating,2) 235 - -- print(pr_activating) 236 236 237 - 238 - 239 - local status_text ="unknow" 240 - if addr_getbit("@Status Run")==1 then 241 - status_text = "RUNNING" 242 - else 243 - status_text = "STOP" 244 - end 245 -------------------------------------------------------------------------------------------------------------------------- 246 - 247 - local js = {type="status", 248 - mc_name ="FD300", 249 - status=status_text, 250 - elapsed_time={ 251 - hour=addr_getword("@Elapsed Time (Hour)"), 252 - min=addr_getword("@Elapsed Time (Minute)"), 253 - sec=addr_getword("@Elapsed Time (Second)") 254 - }, 255 - phase = phaseStatus, 256 - step = addr_getword("@Step"), 257 - activating_output = pr_activating, 258 - sv=addr_getshort("@SV Silicone")/10, 259 - pv=addr_getshort("@PV Silicone")/10, 260 - product1=addr_getshort("@Product 1")/10, 261 - 262 - product2=addr_getshort("@Product 2")/10, 263 - product3=addr_getshort("@Product 3")/10, 264 - product4=addr_getshort("@Product 4")/10, 265 - ice1=addr_getshort("@Ice condenser 1")/10, 266 - ice2=addr_getshort("@Ice condenser 2")/10, 267 - vacuum=addr_getfloat("@Vacuum") 268 - 269 - } 270 - local jsAlarm = { HPC = addr_getbit("@B_25395#W0.00"), 271 - ODPC = addr_getbit("@B_25395#W0.01"), 272 - MTPC=addr_getbit("@B_25395#W0.02"), 273 - HTT = addr_getbit("@B_25395#W1.03"), 274 - CPC = addr_getbit("@B_25395#W0.08"), 275 - CPSP =addr_getbit("@B_25395#W1.00"), 276 - CPVP =addr_getbit("@B_25395#W0.10"), 277 - CPRP =addr_getbit("@B_25395#W0.11"), 278 - HP =addr_getbit("@B_25395#W1.01"), 279 - PP= addr_getbit("@B_25395#W1.02"), 280 - PO=addr_getbit("@B_25395#W0.07"), 281 - FSE=addr_getbit("@B_25395#W2.04"), 282 - AVVSVV=addr_getbit("@B_25395#W1.12"), 283 - ICHT=addr_getbit("@B_25395#W3.06") 284 - 285 - } 286 - 287 - -- ("@B_25395#CIO1.02") 288 - mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0) 289 - mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0) 290 - else 291 - local stat, err = mq.m:connect(mq.config) -- connection 292 - if stat == nil then --Determine whether to connect 293 - print("mqtt connect failed:", err) 294 - return -- Connection failed, return directly 295 - end 296 - mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics 297 - 298 - end 299 - -- mq.m:unsubscribe("stc/test") 300 - -- mq.m:disconnect() -- close matt 301 - -- mq.m:close() -- close clase 302 - end 238 + local status_text ="unknow" 239 + if addr_getbit("@Status Run")==1 then 240 + status_text = "RUNNING" 241 + else 242 + status_text = "STOP" 243 + end 244 +~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 245 +\\ local js = {type="status", 246 + mc_name ="FD300", 247 + status=status_text, 248 + elapsed_time={ 249 + hour=addr_getword("@Elapsed Time (Hour)"), 250 + min=addr_getword("@Elapsed Time (Minute)"), 251 + sec=addr_getword("@Elapsed Time (Second)") 252 + }, 253 + phase = phaseStatus, 254 + step = addr_getword("@Step"), 255 + activating_output = pr_activating, 256 + sv=addr_getshort("@SV Silicone")/10, 257 + pv=addr_getshort("@PV Silicone")/10, 258 + product1=addr_getshort("@Product 1")/10, 259 +\\ product2=addr_getshort("@Product 2")/10, 260 + product3=addr_getshort("@Product 3")/10, 261 + product4=addr_getshort("@Product 4")/10, 262 + ice1=addr_getshort("@Ice condenser 1")/10, 263 + ice2=addr_getshort("@Ice condenser 2")/10, 264 + vacuum=addr_getfloat("@Vacuum") 265 +\\ } 266 + local jsAlarm = { HPC = addr_getbit("@B_25395#W0.00"), 267 + ODPC = addr_getbit("@B_25395#W0.01"), 268 + MTPC=addr_getbit("@B_25395#W0.02"), 269 + HTT = addr_getbit("@B_25395#W1.03"), 270 + CPC = addr_getbit("@B_25395#W0.08"), 271 + CPSP =addr_getbit("@B_25395#W1.00"), 272 + CPVP =addr_getbit("@B_25395#W0.10"), 273 + CPRP =addr_getbit("@B_25395#W0.11"), 274 + HP =addr_getbit("@B_25395#W1.01"), 275 + PP= addr_getbit("@B_25395#W1.02"), 276 + PO=addr_getbit("@B_25395#W0.07"), 277 + FSE=addr_getbit("@B_25395#W2.04"), 278 + AVVSVV=addr_getbit("@B_25395#W1.12"), 279 + ICHT=addr_getbit("@B_25395#W3.06") 280 +\\ } 281 +\\ ~-~- ("@B_25395#CIO1.02") 282 + mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0) 283 + mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0) 284 + else 285 + local stat, err = mq.m:connect(mq.config) ~-~- connection 286 + if stat == nil then ~-~-Determine whether to connect 287 + print("mqtt connect failed:", err) 288 + return ~-~- Connection failed, return directly 289 + end 290 + mq.m:subscribe("mqtt-v-box-epsilon", 0)~-~- Subscribe to topics 291 +\\ end 292 + ~-~- mq.m:unsubscribe("stc/test") 293 + ~-~- mq.m:disconnect() ~-~- close matt 294 + ~-~- mq.m:close() ~-~- close clase 295 + end 303 303 end 304 - {{/code}}297 +))) 305 305 306 306 == **2.2 V-Box connect with Azure platform** == 307 307