Script:Lib Temp

Un article de MacodaWiki.

lib_temp.vbs : Permet de gérer les thermomètre et device 1820 et autres

' Les valeurs de consigne (initialement dans setting_perso.ini

Const Temp_TRES_CHAUD = 24
Const Temp_CHAUD_OK = 22
Const Temp_JOUR = 20
Const Temp_NUIT = 18.5
Const Temp_BON = 19
Const Temp_MIN = 15
Const Temp_AUCUNE = 0


'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*
'* LIBRAIRIE                                                                                             *
'*                                                                                                       *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*                                                                                                       *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*
'----------------------------------------------------------------------
' Fonction qui retourne la valeur de la température du device 1wire (à priori un DS18B20)
function gGet_temp(sNom_device)
dim dv
	gGet_Temp = 999
	set dv = hs.GetDeviceEx(sNom_device)
	if dv is nothing then
		 gFct_Log_LIB LOG_SANS, "gGet_temp => Trouve pas "&sNom_device
	else               	
		gGet_temp = (hs.DeviceValue(dv.hc&dv.dc)/1000)
	end if
end function