Script:Lib device

Un article de MacodaWiki.

Permet de gérer les devices Homeseer et contient l'ensemble des devices gérés.

'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'* LIBRAIRIE                                                                                             *
'*                                                                                                       *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*                                                                                                       *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

Const DEVICE_OFF = 3, DEVICE_ON = 2


Const DEVICE_TEMP_Bureau	= "Bureau Thermometre"
Const DEVICE_TEMP_Cave		= "Cave Thermometre"
Const DEVICE_TEMP_Garage	= "Garage Thermometre"
Const DEVICE_TEMP_Salon		= "Salon Thermometre"
Const DEVICE_TEMP_Exterieur	= "Exterieur_terrasse Thermometre"
Const DEVICE_TEMP_Grenier	= "Grenier Thermometre"
Const DEVICE_TEMP_Florian	= "Florian Thermometre"
Const DEVICE_TEMP_Entree	= "Entree Thermometre"
Const DEVICE_TEMP_Nous		= "Nous Thermometre"
Const DEVICE_TEMP_Salle_bain	= "Salle_bain Thermometre"
Const DEVICE_TEMP_Marion	= "Marion Thermometre"
Const DEVICE_TEMP_Eau_Chaude	= "Eau_Chaude Thermometre"
Const DEVICE_TEMP_Eau_Froide	= "Eau_Froide Thermometre"
Const DEVICE_Arrosage_v1	= "Garage Arrosage_voie1"
Const DEVICE_Arrosage_v2	= "Garage Arrosage_voie2"
Const DEVICE_Arrosage_v3	= "Garage Arrosage_voie3"
Const DEVICE_Compteur_Solaire	= "Solaire Voltage_panneau"
Const DEVICE_Compteur_Eau_froide	= "Eau_Froide Compteur"

Const DEVICE_VMC_PT 		= "Garage VMC_actif"
Const DEVICE_VMC_GD 		= "Garage VMC_grandevitesse"

Const DEVICE_Arrosage_Action_voie1	= "Virtuel Arrosage_status_voie1"
Const DEVICE_Arrosage_Action_voie2	= "Virtuel Arrosage_status_voie2"
Const DEVICE_Arrosage_Action_voie3	= "Virtuel Arrosage_status_voie3"

Const DEVICE_VMC_Action_temp_pt		= "Virtuel VMC_status_temp_pt_vitesse"
Const DEVICE_VMC_Action_temp_gd 	= "Virtuel VMC_status_temp_gd_vitesse"
Const DEVICE_VMC_Action_regulier_pt 	= "Virtuel VMC_status_regulier_pt"
Const DEVICE_VMC_Action_regulier_gd 	= "Virtuel VMC_status_regulier_gd"
Const DEVICE_VMC_Action_SB_pt 		= "Virtuel VMC_status_s_et_b_pt"
Const DEVICE_VMC_Action_SB_gd 		= "Virtuel VMC_status_s_et_b_gd"
Const DEVICE_VMC_Action_ponctuel_pt 	= "Virtuel VMC_status_ponctuel_pt"
Const DEVICE_VMC_Action_ponctuel_gd 	= "Virtuel VMC_status_ponctuel_gd"

Const DEVICE_PC_MARION		= "Virtuel PC_status_Marion"
Const DEVICE_PC_BUREAU		= "Virtuel PC_status_Bureau"
Const DEVICE_PC_VDR		= "Virtuel PC_status_VDR"
Const DEVICE_PC_CNRS		= "Virtuel PC_status_CNRS"

Const DEVICE_SAISON_ete 	= "Virtuel SAISON_ete"
Const DEVICE_SAISON_printemps 	= "Virtuel SAISON_printemps"
Const DEVICE_SAISON_automne 	= "Virtuel SAISON_automne"
Const DEVICE_SAISON_hiver 	= "Virtuel SAISON_hiver"

'----------------------------------------------------------
' gDEVICE_Set_etat_Device
' 
' Permet de fixer l'état d'un device (DEVICE_ON ou DEVICE_OFF)
sub gDEVICE_Set_etat_Device(sItem, iValeur)
Dim dv
	set dv = hs.GetDeviceEx(sItem)
	if dv is nothing then
		gFct_Log_LIB LOG_SANS, "gDEVICE_Set_etat_Device => Trouve pas "&sItem
	else
		hs.SetDeviceStatus dv.hc&dv.dc,iValeur
	end if
end sub


'----------------------------------------------------------
' gDEVICE_Get_etat_Device
' 
' Permet de récupérer l'état d'un device (DEVICE_ON ou DEVICE_OFF)
function gDEVICE_Get_etat_device(sItem)
Dim dv
	set dv = hs.GetDeviceEx(sItem)
	if dv is nothing then
		gFct_Log_LIB LOG_SANS, "gDEVICE_Get_etat_device => Trouve pas virtuel "&sItem
	else
		gDEVICE_Get_etat_device = hs.DeviceStatus(dv.hc&dv.dc)
	end if
end function


'----------------------------------------------------------
' gDEVICE_Get_valeur_Device
' 
' Permet de récupérer la valeur d'un device 
function gDEVICE_Get_valeur_device(sItem)
Dim dv
	set dv = hs.GetDeviceEx(sItem)
	if dv is nothing then
		gFct_Log_LIB LOG_SANS, "gDEVICE_Get_valeur_device => Trouve pas "&sItem
	else
		gDEVICE_Get_valeur_device = hs.DeviceValue(dv.hc&dv.dc)
	end if
end function