Announcement

Collapse
No announcement yet.

TZ43 fan display

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

  • TZ43 fan display

    The device status maintained by homeseer/thermostat plug-in when the fan is running displays "fan (operating): low." It would seem to me that the stat would have a hard time knowing what speed the fan is running. I suppose you could assume fan speed from the cool/heat stage but the thermostat device status doesn’t seem to report that that information... So the question is - is this just a nuisance for me and is the result of a 'generic" plugin managing many thermostats or is this a bug or other setup problem unique to me?

    Hometroller pro 2.4.0.11

    Zwave thermostat plug-in 1.3.0.8
    RCS tz43

    -rick

    PS. As a suggestion - I find having to parse the device status to get discrete fields for the status of the thermostat a bit cumbersome and it would be nice to have an easy more direct way to interrogate the specific functions. Even altering the way the thermostat parameters are being stuffed into the device status would be helpful. Here’s is the spaghetti code I am doing presently – maybe someone could suggest (or has already done) improvements…

    Code:
    Dim Work
    Dim k
    Dim j
    Dim text
    Dim debug
    Dim temp
    Dim setpoint
    Dim status
    Dim fanmode
    Dim fanstatus
    Dim mode
    
    function DeviceString(s)
         DeviceString=StripHTML(hs.DeviceString(s))
         work=DeviceString
         debug=work
         temp=mid(work,1,Instr(1,work,"Setpoint")-1)
         temp=mid(temp,14)
         DeviceString=temp
         work=mid(work,Instr(1,work,"Setpoint"))
         mode=mid(work,1,Instr(1,work,"):"))
    
         if mid(mode,1,4)="Setp" then 
           mode=mid(mode,9)
         end if
        
         mode = Replace(mode, "(", "")
         mode = Replace(mode, ")", "")
         work=mid(work,Instr(1,work,"):")+2)
         setpoint=mid(work,1,Instr(1,work,"Mode:")-1)
         work=mid(work,Instr(1,work,"Mode:"))
         status=mid(work,1,Instr(1,work,"Fan:")-1)
         status=mid(status,7)
         status=mid(status,Instr(1,status," "))
         status = Replace(status, "(", "")
         status = Replace(status, ")", "")
         work=mid(work,Instr(1,work,"Fan:"))
         fanmode=mid(work,1,Instr(1,work,"Fan(")-1)
         fanmode=mid(fanmode,5)
         work=mid(work,Instr(1,work,"Fan("))
         fanmode = Replace(fanmode, "Fan", "")
         
         fanstatus=mid(work,1,Instr(1,work,"(")-1)
         fanstatus=mid(fanstatus,4)
         work=mid(work,Instr(1,work,"("))
         fanstatus=work
         fanstatus = Replace(fanstatus, "(", "")
         fanstatus = Replace(fanstatus, ")", "")     
    End function
    
    Function StripHTML(strText) 
    text = Replace(Replace(strText, " ", "", 1, -1, vbTextCompare), "&nbsp", "", 1, -1, vbTextCompare)
      Do
        k = InStr(1, text, "<")
        If k > 0 Then
        j = InStr(k + 1, text, ">")
          If j > 0 Then
             If k = 1 Then
                text = Mid(text, j + 1)
             ElseIf j < Len(text) Then
                text = Left(text, k - 1) & Mid(text, j + 1)
             Else
                text = Left(text, k - 1)
             End If
          Else
             Exit Do
             End If
          Else
              Exit Do
        End If
      Loop
      StripHTML = text
    End function
      
    %>
    Last edited by rmorton27; September 20th, 2010, 07:12 PM.
    -Rick
Working...
X