Script:compteur solaire

Un article de MacodaWiki.

Ce script Homeseer est associé au montage compteur solaire qui permet de mesurer l'ensoleillement grâce à une tension fournie par un panneau solaire. Il y a également un script permettant d'afficher des graphiques : Script ASP d'affichage des données du compteur solaire.

Librairies associées :

• lib_log.vbs
• lib_device.vbs
• lib_util.vbs
• lib_bddata.vbs

'#######################################################################################
#include lib\lib_log.vbs 
#include lib\lib_device.vbs 
#include lib\lib_util.vbs 
#include lib\lib_bddata.vbs 
 
 
 
' LOG_SANS LOG_NORMAL LOG_BAVARD 
NIVEAU_LOG_PROG = LOG_SANS 
'NIVEAU_LOG_PROG = LOG_NORMAL 
'NIVEAU_LOG_PROG = LOG_BAVARD 
NOM_PROG = "compteur_solaire.vbs" 
 
'############################################################################################# 
sub main() 
Dim sTable 
Dim bBase 
Dim rRequete 
Dim sSQL 
Dim iVoltageAct 
 
 
gFct_Log_Deb_Prog 
   
  	' On récupère la valeur du compteur 
	iVoltageAct = (gDEVICE_Get_valeur_device(DEVICE_Compteur_Solaire)/1000) 
	gFct_Log LOG_BAVARD,"*** iVoltageAct : >"&cstr(iVoltageAct)&"<" 
 
	' La nuit, la valeur 10.23 apparaît .... on l'a fait sauter 
	If (iVoltageAct < 10) Then  
 
		'Sauvegarde les nouvelles valeurs dans la mémoire	 
		hs.SaveVar "Gi_SolaireVoltagePrec",iVoltageAct 
 
		' Sauvegarde dans une base de données 
		gBDDATA_Ouvre_Base bBase,"HOMESEER" 
 
		sSQL = "INSERT INTO tb_solaire ( [Date_op], [Voltage]) VALUES (Now, '"&cstr(iVoltageAct)&"');" 
 
		gFct_Log LOG_BAVARD,"SQL = >"&sSQL&"<" 
 		gBDDATA_Lance_Requete bBase,sSQL,rRequete 
 	 	 
		gBDDATA_Ferme_Base bBase	 
	End If 
 
gFct_Log_Fin_Prog 
 
 
end sub