Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

Sub Main(ByVal parm as Object)

	Dim Debug=0
	
	if Debug>0 then
		hs.writelog ("CO2", "Co2 logging activated")
	end if
	
	Dim currentDate As DateTime = DateTime.Now
	Dim devIdCO As String = "522"
	Dim devAddrCO As String = "F9"	
	   
	if Debug>0 then
		hs.writelog ("CO2", "Current: " & currentDate)	
		hs.writelog ("CO2", "Month: " & currentDate.ToString("MM"))
		hs.writelog ("CO2", "Day: " & currentDate.ToString("dd"))
	end if	
	
	Dim fileName = "C:\Users\freakstar\Desktop\ZyAura_USB_HUB_PC_software\" & currentDate.Year & "\" & currentDate.ToString("MM") & "\" & currentDate.ToString("dd") & ".CSV"
	'Dim fileName = "C:\Users\freakstar\Desktop\ZyAura_USB_HUB_PC_software\2015\12\19.CSV"
	
	if Debug>0 then
		hs.writelog ("CO2", "Filename: " & fileName)	
	end if	

	If My.Computer.FileSystem.FileExists(fileName) Then
		Dim line As String = System.IO.File.ReadLines(fileName).Last()
		
		if Debug>0 then
			hs.writelog ("CO2", "Read: "& line)
		end if		

		Dim fields() As String = line.Split(",".ToCharArray())
		Dim fileTime = fields(0)
		Dim fileCO = fields(1)
		Dim fileTemp = fields(2)
		Dim fileHum = fields(3)
			
		if Debug>0 then
			hs.writelog ("CO2", "Time: "& fileTime)
			hs.writelog ("CO2", "CO: "& fileCO)
			hs.writelog ("CO2", "Temp: "& fileTemp)
			hs.writelog ("CO2", "Humidity: "& fileHum)		
		end if	
		
		'Set values
		hs.SetDeviceString(devIdCO, fileCO & " PPM, " & fileTemp & "C, " & fileHum & "% (" & fileTime & ")", True)
		hs.SetDeviceValue(devAddrCO, fileCO)
		
	Else
		hs.writelog ("CO2", "File not found.")
	End If	
	
End Sub