Announcement

Collapse
No announcement yet.

Associating 3-way switch - howto

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    #46
    Turn of the logging

    Hi Al,

    is there a way to turn of the logging in this script? It really fills up my log file.

    thanks

    Comment


      #47
      Hi Arve, yes, see post 23 in this thread.

      Cheers
      Al
      HS 4.2.8.0: 2134 Devices 1252 Events
      Z-Wave 3.0.10.0: 133 Nodes on one Z-Net

      Comment


        #48
        I tried that one already, it still kept on logging full speed, unless I need to reboot hs for it to take effect?

        thanks

        Arve

        I rebooted the entire hs server, its still logging a lot

        AL,

        NEVER MIND, SORRY , ITS WAS SOMETHING ELSE LOGGING, HS TOUCH....


        thanks

        Arve
        Last edited by Arve; February 10, 2016, 08:31 PM.

        Comment


          #49
          Hi Sparkman,

          Can you help me recreate this in HS4

          I see in post #33 above the script we used in HS3 was



          Sub Main(ByVal Parms as String) Dim ParmArray() as String ParmArray = Parms.tostring.split(",") dim targetDev1 as Double = CDbl(ParmArray(0)) 'reference ID of the device to use for existing value dim targetDev2 as Double = CDbl(ParmArray(1)) 'reference ID of the device to set based on value of targetDev1 dim Debug as Boolean = False Dim logName = "Dim Follower" 'set log name for HS log Dim dev1Value,dev2Value As Double dev1Value = hs.DeviceValue(targetDev1) dev2Value = hs.DeviceValue(targetDev2) If Debug Then hs.writelog(logName,CStr(targetDev1) & ":" & CStr(dev1Value)) If dev1Value <> dev2Value Then Select Case dev1Value Case 1 to 98 ' Device DIM, set its current dim level hs.CAPIControlHandler(hs.CAPIGetSingleControl(targetDev2, false, CStr(dev1Value), false, true)) If Debug Then hs.writelog(logName,CStr(targetDev2) & ":" & CStr(dev1Value)) Case 99 ' Device ON, set it to on hs.CAPIControlHandler(hs.CAPIGetSingleControl(targetDev2, false, "On", false, false)) If Debug Then hs.writelog(logName,CStr(targetDev2) & " Set to On") Case 0 ' Device OFF, set it to off hs.CAPIControlHandler(hs.CAPIGetSingleControl(targetDev2, false, "Off", false, true)) If Debug Then hs.writelog(logName,CStr(targetDev2) & " Set to Off") End Select Else If Debug Then hs.writelog(logName,"Devices are at same value already") End If


          How would this script look in HS4

          Do we still save it in HS4 script folder? Events setup the same?

          Thanks
          Chris

          Comment

          Working...
          X