HouseBot

Code: Select all

'-------------------------------------------------------
'- Write Log Line --------------------------------------
'-------------------------------------------------------
Sub WriteLog(strLogFlag, strLogLine)
Dim FileSystem
Dim StdOut
Dim FileName
Dim AlarmLog
Dim LogLines
Dim LogCount
Dim nit

	On Error Resume Next
	If strLogFlag = "On" Then

		AlarmLog = GetPropertyValue("Alarm Status.Log")

		If AlarmLog = "No items present" Then
			AlarmLog = ""
		End If

		LogLines = Split(AlarmLog, vbLF)
		LogCount = UBound(LogLines)
		AlarmLog = "*S-" & vbTAB & GetPropertyValue("System Time.TimeAndDate") & "  " & strLogLine

		If LogCount > 300 Then
			LogCount = 300
		End If
		
		For nit = 0 to LogCount
			LogLines(nit) = Replace(LogLines(nit), "*S-", "")
			AlarmLog      = AlarmLog & vbLF & LogLines(nit)
		Next

		SetPropertyValue "Alarm Status.Log", AlarmLog
		Sleep 150 'Keep this Sleep here to prevent LogLines to be overwritten because of delay between HouseBot and script

		If GetPropertyValue("Alarm Status.Log Switch File") = "On" Then
			FileName       = GetPropertyValue("Alarm Status.Log File Path")
			Set FileSystem = CreateObject("Scripting.FileSystemObject")	
			Set StdOut     = FileSystem.OpenTextFile(FileName, 8, True)
                	
			If Err.Number = 0 Then
				StdOut.Write Date & " - " & Time & " - " & strLogLine & vbCRLF
				StdOut.Close
			Else
				Status = Err.Description
				Err.Clear
			End If
                	
			Set StdOut     = Nothing
			Set FileSystem = Nothing
		End If
	End If
	strLogLine = ""
End Sub

Code: Select all

#A sample gnuplot data file where columns are as follows:
#Timestamp          Outside Temperature     Inside Temperature
Mar-22-12:00:00    95.4                             72.3
Mar-22-12:01:00    95.2                             71.1
....

Code: Select all

Option Explicit
Dim CurTemp 'this is the inside temp from thermostat
Dim OutTemp ' this is the outside temp from weather device
CurTemp = GetPropertyValue("Thermostat 1.Current Temperature")
OutTemp= GetPropertyValue("Weather.Current Temperature")

if len(OutTemp) > 4 then ' this is to trim out the °F
OutTemp=Left(OutTemp,3) 
else
OutTemp=Left(OutTemp,2) 
end if

Call WriteLog("On",CurTemp,OutTemp) 'call writelog with the 2 variables above



'-------------------------------------------------------
'- Write Log Line --------------------------------------
' Written by R N 
' usage writelog(write to file?,var1,var2)
'-------------------------------------------------------
Sub WriteLog(strLogFlag, strLogLine,strLogLine2)
Dim FileSystem
Dim StdOut
Dim FileName
Dim AlarmLog
Dim LogLines
Dim LogCount
Dim nit

   On Error Resume Next
   If strLogFlag = "On" Then // are we logging to file? 

      AlarmLog = GetPropertyValue("Alarm Status.Log")

      If AlarmLog = "No items present" Then
         AlarmLog = ""
      End If

      LogLines = Split(AlarmLog, vbLF)
      LogCount = UBound(LogLines)
      AlarmLog = "*S-" & vbTAB & GetPropertyValue("System Time.TimeAndDate") & "  " & strLogLine & "  " & strLogLine2 'write to alphalist

      If LogCount > 300 Then
         LogCount = 300
      End If
      
      For nit = 0 to LogCount
         LogLines(nit) = Replace(LogLines(nit), "*S-", "")
         AlarmLog      = AlarmLog & vbLF & LogLines(nit)
      Next

      SetPropertyValue "Alarm Status.Log", AlarmLog
      Sleep 150 'Keep this Sleep here to prevent LogLines to be overwritten because of delay between HouseBot and script

      If GetPropertyValue("Alarm Status.Log Switch File") = "On" Then
         FileName       = GetPropertyValue("Alarm Status.Log File Path")
         Set FileSystem = CreateObject("Scripting.FileSystemObject")   
         Set StdOut     = FileSystem.OpenTextFile(FileName, 8, True)
                   
         If Err.Number = 0 Then
            StdOut.Write Date & " " & FormatDateTime(Time,4) & " " & strLogLine & " " & strLogLine2& vbCRLF 'here is where we write the variables to a file
            StdOut.Close
         Else
            Status = Err.Description
            Err.Clear
         End If
                   
         Set StdOut     = Nothing
         Set FileSystem = Nothing
      End If
   End If
   strLogLine = ""
End Sub