Hi
my first time I try to use scripts
I want to take an average of three temperature sensors and provide value to a virtuel device
this is my code
Sub Main()
Dim Temp1-Hall'
Dim Temp2-Koket
Dim Temp3-Vardagsrum
Temp1-Hall = dvRef 2272
Temp2-Koket = dvRef 2273
Temp3-Vardagsrum = dvRef 2274
hs.writelog Temp1-Hall
hs.SetDeviceValueByRef 2284, CDbl(Temp1-Hall+Temp2-Koket+Temp3-Vardagsrum/3), True
End Sub
the log say it stops on 2 line
Running script, script run or compile error in file: C:/HomeSeer HS3/scripts/getsolarday - kopia.vbs1025 in line 2 More info
my first time I try to use scripts
I want to take an average of three temperature sensors and provide value to a virtuel device
this is my code
Sub Main()
Dim Temp1-Hall'
Dim Temp2-Koket
Dim Temp3-Vardagsrum
Temp1-Hall = dvRef 2272
Temp2-Koket = dvRef 2273
Temp3-Vardagsrum = dvRef 2274
hs.writelog Temp1-Hall
hs.SetDeviceValueByRef 2284, CDbl(Temp1-Hall+Temp2-Koket+Temp3-Vardagsrum/3), True
End Sub
the log say it stops on 2 line
Running script, script run or compile error in file: C:/HomeSeer HS3/scripts/getsolarday - kopia.vbs1025 in line 2 More info
Comment