Quitte à avoir une station météo semi pro à la maison, je me suis dit qu'il pourrait être sympa de partager ces infos avec qui le voudra, notamment des personnes du village.
Au départ, j'avais utilisé un soft fourni avec ma station météo, qui génére une image contenant les infos météo, et l'envoi sur un FTP. Mais niveau temps de réponse, ce n'était pas ca.
Puis j'ai découvert l'API de Wunderground qui permet de collecter les infos des stations météo personnelles.
Il suffit d'appeler une adresse HTTP contenant les données en paramètres, de cette forme:
http://weatherstation.wunderground.com/weatherstation/updateweatherstation.php?ID=IDENTIFIANTSTATIONPERSO&PASSWORD=PASSWORD&dateutc=2009-03-02+10%3A32%3A35&winddir=230&windspeedmph=12&windgustmph=12&tempf=70&rainin=0&baromin=29.1&dewptf=68.2&humidity=90&weather=&clouds=&softwaretype=vws%20versionxx&action=updateraw
J'ai réalisé un petit script vbs très simple, qui récupère les infos de la station météo LaCrosse Technologie WS2307, construit l'adresse HTTP avec les variables, et l'envoi à Wundergound. Si ca intéresse certains, voici le script (à adapter selon les beoins, car il est configuré ici pour être lancé par Homeseer):
[sourcecode language=”vb”]Option Explicit
#include ..\lib\framework_domotics.vbs
#include local-parameters.inc
Sub main
Dim astrBuffer
Dim tabLines
Dim tabValues(14)
Dim astrDevices
Dim astrConfig
Dim atabDv
Dim astrNbDv
Dim i, l
Dim astrDevice
Dim astrparam1
Dim ligne, section, parametre, valeur, requete, result, jour, mois, annee, daterequete
jour = right(date,2)
annee = left(date,4)
mois = mid(date,6,2)
daterequete = annee & "-" & mois & "-" & jour
WriteLog G_FOLDER_NAME, G_SCRIPT_EVT, G_TIV_INF, "Launching " & G_FOLDER_NAME & " script", G_LOG_FILE
If CheckDevices(G_FOLDER_NAME, G_FILE_INI, G_STATUS_EXIST) Then
astrDevices = hs.GetINISetting("COMMON","DEVICES","", G_FILE_INI)
astrConfig = hs.GetINISetting("COMMON","CONFIG","..\scripts\config\", G_FILE_INI)
atabDv = Split(astrDevices, G_SEP)
astrNbDv = UBound(atabDv)
astrBuffer = loadfile("C:\HeavyWeather\currdat.lst",False)
‘Rcupration des infos de la station mto LaCrosse
If (astrBuffer <> "") Then
tabLines = Split(astrbuffer,chr(13))
l = 0
While (l < = ubound(tabLines))
If (Mid(tabLines(l),2,1) = "[") Then
section = Mid(tabLines(l),3,Len(tabLines(l))-3)
Else
If (Instr(tabLines(l),"=")) > 0 Then
parametre = Mid(tabLines(l),2,Instr(tabLines(l),"=")-3)
valeur = Replace(Mid(tabLines(l),Instr(tabLines(l),"=")+2),Chr(34),"")
If (section = "weather_picture" And parametre = "number") Then
If (valeur = 0) Then tabValues(1) = "Pluvieux"
If (valeur = 1) Then tabValues(1) = "Nuageux"
If (valeur = 2) Then tabValues(1) = "Ensoleill"
End If
If (section = "weather_tendency" And parametre = "number" ) Then
If (valeur = 0) Then tabValues(2) = "Stable"
If (valeur = 1) Then tabValues(2) = "Hausse"
If (valeur = 2) Then tabValues(2) = "Baisse"
End If
If (section = "indoor_temperature" And parametre = "deg_F" ) Then tabValues(3) = valeur
If (section = "outdoor_temperature" And parametre = "deg_F" ) Then tabValues(4) = valeur
If (section = "indoor_humidity" And parametre = "percent") Then tabValues(5) = valeur
If (section = "outdoor_humidity" And parametre = "percent") Then tabValues(6) = valeur
If (section = "wind_speed" And parametre = "mph" ) Then tabValues(7) = valeur
If (section = "wind_direction" And parametre = "deg" ) Then tabValues(8) = valeur
If (section = "rain_24h" And parametre = "inch" ) Then tabValues(9) = valeur
If (section = "pressure_relative" And parametre = "inHg" ) Then tabValues(10) = valeur
If (section = "rain_1h" And parametre = "inch" ) Then tabValues(11) = valeur
If (section = "windchill" And parametre = "deg_F" ) Then tabValues(12) = valeur
If (section = "dewpoint" And parametre = "deg_F" ) Then tabValues(13) = valeur
End If
End If
l = l+ 1
Wend
End if
‘Envoi des infos Wunderground
requete = "http://weatherstation.wunderground.com/weatherstation/updateweatherstation.php?ID=ICENTREV2&PASSWORD=0611346045&dateutc=" & daterequete & "+1%3A32%3A35&winddir=" & tabValues(8) & "&windspeedmph=" & tabValues(7) & "&windgustmph=0&tempf=" & tabValues(4) & "&rainin=" & tabValues(11) & "&dailyrainin=" & tabValues(9) & "&baromin=" & tabValues(10) & "&dewptf=42.0&humidity=" & tabValues(6) & "&weather=&clouds=&softwaretype=Heavy%20WeatherStation&action=updateraw"
result = hs.URLAction(requete, "GET", "", "")
WriteLog G_FOLDER_NAME, G_SCRIPT_EVT, G_TIV_INF, "Envoi des donnes a Wunderground:" & result, G_LOG_FILE
Else
WriteLog G_FOLDER_NAME, G_SCRIPT_EVT, G_TIV_SEV, "Expected Device is unknown !", G_LOG_FILE
End if
WriteLog G_FOLDER_NAME, G_SCRIPT_EVT, G_TIV_INF, "End of the script", G_LOG_FILE
End sub[/sourcecode]
Une fois recues les infos, Wunderground traite les données pour construire des graphiques, des stats, et mettre à disposition des gadgets pour Vista, Google, ou n'importe quel site web.
Tout est là: http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=ICENTREV2
Au final, de meilleurs temps de réponse pour ceux qui souhaient consulter les données, et la possibilité de consulter l'historique !
