Re: Regen monitor script
Posted: Wed Jul 21, 2010 11:35 pm
Klopt. In de nieuwe url staat ook niet de plaats. Dat was de eerste url die ik gebruikte. Kijk maar: http://www.weeronline.nl/Go/FlashCharts ... Id=4057886
Een aantal wijzigingen:
- Een extra parameter voor het bepalen of de string van het device in tekst moet staan (lichte regen, e.d.) of als een waarde ("0,20 mm/uur"). Zet je als parameter "yes" neer dan wordt het als tekst weggeschreven.
- Nog een extra parameter indien je wilt dat de 24 vermelde tijden in de XML van weeronline per device wordt vermeld. Daarbij moet je rekening houden met het gegeven dat de device die je als parameter meegeeft de eerste is uit de 24 devices. Ik heb bijv v7 als parameter. Bij het starten van het script zal het script controleren of v7 t/m v30 bestaat. Zo niet, dan zal het script de devices aanmaken. Zijn in die reeks bestaande devices, dan worden deze OVERSCHREVEN. Kijk dus of je een reeks vrij hebt! (ongetwijfeld!) De string van de devices zullen dan de tekst bevatten afhankelijk van de vorige ingevulde parameter + "om <tijdstip>".
- Bij niet multi device ondersteuning (dus parameter is "no" (of eigenlijk alles behalve "yes")) zal het ene device aangemaakt worden als deze niet bestaat. Daarbij zal gebruik worden gemaakt van de events die aangemaakt worden voor die 5 minuten intervallen. Bij multi device zal dit juist niet gedaan worden en krijgt iedere device DIRECT de value die opgegeven staat voor die interval. Dit moest ik wel doen, omdat het script recurring moet zijn en daarmee het event principe nooit zal werken, omdat de tijd binnen zo'n event telkens opschuift. Het eerste device zal dan telkens gevuld worden en de rest niet.
Nog even het nut van die multi-devices: Je zou in combinatie met andere events/scripts van te voren kunnen melden of op dat moment het regent of niet. Denk bijv maar even aan de was die buiten hangt, jullie/jij wilt even de deur uit en krijg van te voren gemeld of over twee uur het regent of niet, zodat of a) je op tijd terug moet om de was binnen te halen b) je de was direct binnenhaalt. Was kan natuurlijk vervangen door whatever (zonwering, open ramen?).
Helaas regent het weer niet, dus ik heb niet kunnen testen of de waarden goed worden meegenomen. Het werkte wel vanmiddag voordat ik ging verbouwen, maar durf mijn hand niet in het vuur te steken of dit zo gebleven is. Ik denk dat het wel werkt, maar zeker zijn doe ik niet. Graag testen dus.
Code: Select all
' RegenMonitor.vb script
' Author: Alexander
' Version: 2.2
' Last Update: 21-07-2010 23:40
' ChangeLog:
' 1.0: Initial
' 1.1: - Added the ability to stop the script if the website doesn't return a known text, if that is the case the device will get the status unknown.
' - If the website would update the rain prediction to a lower time, the event that is already created will get the earlier condition.
' - If the time of the rain prediction is suddenly earlier that the current time, the device will be set instantly and earlier created event is deleted.
' - Parameters have to be added. Example ("Main","4057886;v7"). First is the geoAreaId and second is the device.
' - First code optimization
' - Code fault in handling if rain is predicted was not defined
' 2.0: - Script rewrite for other url
' 2.1: - Added DeviceStatusString
' 2.2: - Multi Devices & Rain measurement in text or number support. Activation by extra parameters like ("Main","4057886;v7;yes;yes")
Sub Main(ByVal Params As String)
Dim strGeoAreaId As String = hs.StringItem(Params, 1, ";")
Dim strDevice As String = hs.StringItem(Params, 2, ";")
Dim blRainInText As Boolean = hs.StringItem(Params, 3, ";") = "yes"
Dim blMultiDevice As Boolean = hs.StringItem(Params, 4, ";") = "yes"
Dim strData As String = hs.GetURL("www.weeronline.nl", "/Go/FlashCharts/RainImmediate?geoAreaId=" & strGeoAreaId, false, 80)
Dim i As Integer
If blMultiDevice Then
For i = 0 To 23
If hs.DeviceExistsRef(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i) = -1 Then
Dim dv As Object
dv = hs.GetDeviceByRef(hs.NewDeviceRef("Regen" & "-" & i+1))
dv.hc = GetChar(strDevice,1)
dv.dc = Val(GetChar(strDevice,2))+i
dv.misc = "&h10"
End If
Next
Else
If hs.DeviceExistsRef(GetChar(strDevice,1) & GetChar(strDevice,2)) = -1 Then
Dim dv As Object
dv = hs.GetDeviceByRef(hs.NewDeviceRef("Regen"))
dv.hc = GetChar(strDevice,1)
dv.dc = GetChar(strDevice,2)
dv.misc = "&h10"
End If
End If
If (Not InStr(strData, "?xml") > 0) Then
hs.SetDeviceString(strDevice, "Website weeronline.nl down")
hs.SetDeviceStatus(strDevice, 17)
hs.SetDeviceLastChange(strDevice, Now)
Else
Dim strArr() As String
Dim strDate(24) As String
Dim strTime(24) As String
Dim strValue(24) As String
strArr = strdata.split(chr(13))
Dim j As Integer
For i = 12 To strArr.Length - 1
If InStr(strArr(i), "<date>") > 0 Then
Dim a As Integer = InStr(strArr(i), "<date>")
Dim b As Integer = InStr(strArr(i), "</date>")
Dim c As Integer = InStr(strArr(i), "<date>")
Dim strTmp = strArr(i).SubString(a+5, b-c-6)
strDate(j) = Left(strTmp, InStr(strTmp, "T")-1)
strTime(j) = Mid(strTmp, InStr(strTmp, "T")+1)
Else If InStr(strArr(i), "<item") > 0 Then
Dim a As Integer = InStr(strArr(i), "value=")
Dim b As Integer = InStr(strArr(i), " />")
Dim c As Integer = InStr(strArr(i), "value=")
strValue(j) = strArr(i).SubString(a+6, b-c-8)
j +=1
End If
Next
For i = 0 To j - 1
Dim strEvent As String = strDate(i) & "_" & strTime(i)
If hs.EventExists(strEvent) Then hs.DeleteEvent(strEvent)
Dim lngValueCommand As Long = Math.Round((Left(strValue(i), InStr(strValue(i), " mm") - 1) * 100), 0)
Dim strValueCommand As String
If blMultiDevice Then
strValueCommand = "&hs.SetDeviceValue(" & GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i & ", " & lngValueCommand.toString() & ")"
Else
strValueCommand = "&hs.SetDeviceValue(" & strDevice & ", " & lngValueCommand.toString() & ")"
End If
If (DateTime.Compare(strTime(i), FormatDateTime(Now, 4)) <= 0) Then
If InStr(strValue(i), "0 mm/uur") > 0 Then
If blMultiDevice Then
If Not hs.DeviceStatus(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i) = 3 Then hs.Transmit(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, "off")
hs.SetDeviceValue(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, 0)
hs.SetDeviceString(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, WeerType(lngValueCommand, blRainInText) & " om " & strTime(i))
Else
If Not hs.DeviceStatus(strDevice) = 3 Then hs.Transmit(strDevice, "off")
hs.SetDeviceValue(strDevice, 0)
hs.SetDeviceString(strDevice, WeerType(lngValueCommand, blRainInText))
End If
Else
If blMultiDevice Then
If Not hs.DeviceStatus(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i) = 2 Then hs.Transmit(strDevice, "on")
hs.SetDeviceValue(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, lngValueCommand.toString())
hs.SetDeviceString(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, WeerType(lngValueCommand, blRainInText) & " om " & strTime(i))
Else
If Not hs.DeviceStatus(strDevice) = 2 Then hs.Transmit(strDevice, "on")
hs.SetDeviceValue(strDevice, lngValueCommand.toString())
hs.SetDeviceString(strDevice, WeerType(lngValueCommand, blRainInText))
End If
End If
Else If Not blMultiDevice Then
If (InStr(strValue(i), "0 mm/uur") > 0) And ((Not InStr(strValue(i-1), "0 mm/uur") > 0) or (i = 0)) Then
hs.NewTimeEvent(strEvent, strTime(i), "", 1, 1, 1, 1, 1, 1, 1, strDevice & ":off", 1, "", "")
hs.AddAction(hs.GetEventRefByName(strEvent), 5, strValueCommand)
hs.AddAction(hs.GetEventRefByName(strEvent), 5, "&hs.SetDeviceString(" & strDevice & ", " & WeerType(lngValueCommand, blRainInText) & ")")
hs.EnableEvent(strEvent)
Else If (Not InStr(strValue(i), "0 mm/uur") > 0) Then
hs.NewTimeEvent(strEvent, strTime(i), "", 1, 1, 1, 1, 1, 1, 1, strDevice & ":on", 1, "", "")
hs.AddAction(hs.GetEventRefByName(strEvent), 5, strValueCommand)
hs.AddAction(hs.GetEventRefByName(strEvent), 5, "&hs.SetDeviceString(" & strDevice & ", " & WeerType(lngValueCommand, blRainInText) & ")")
hs.EnableEvent(strEvent)
End If
Else
If InStr(strValue(i), "0 mm/uur") > 0 Then
If Not hs.DeviceStatus(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i) = 3 Then hs.Transmit(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, "off")
hs.SetDeviceValue(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, 0)
hs.SetDeviceString(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, WeerType(lngValueCommand, blRainInText) & " om " & strTime(i))
Else
If Not hs.DeviceStatus(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i) = 2 Then hs.Transmit(strDevice, "on")
hs.SetDeviceValue(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, lngValueCommand.toString())
hs.SetDeviceString(GetChar(strDevice,1) & Val(GetChar(strDevice,2))+i, WeerType(lngValueCommand, blRainInText) & " om " & strTime(i))
End If
End If
'hs.writelog("RegenMonitor", strDate(i) & " - " & strTime(i) & " - " & strValue(i))
Next
End If
End Sub
Function WeerType(Value As Integer, blRainInText As Boolean) As String
If blRainInText Then
Select Case Value
Case 0
Return "Geen regen"
Case 1 To 100
Return "Lichte regen"
Case 101 To 500
Return "Matige regen"
Case 501 To 2500
Return "Zware regen"
Case Is > 2500
Return "Wolkbreuk"
End Select
Else
Return Math.Round(Value/100, 2).toString() & " mm/uur"
End If
End Function
Wat nog te doen:
- iconen?
- meerdere woonplaatsen checken zodat afhankelijk van de windrichting de logische woonplaats te gebruiken voor verwachting
- ?
Heuvels en dalen, en zo zijn er nog wel meer invloeden te bedenken. Ik bedoel, soms stevent een flinke bui recht op 'ons' af, maar met een heuveltje van +85 NAP in de buurt maakt die bui dan vaak toch maar een omweggetje... als je dat ook nog kan meenemen, dan mag je wat mij betreft je nick veranderen in Pelleboer 
