Liste des variables et des constantes ------------------------------------- Constantes ********** TempConsJour = 20 ' Température de consigne Jour TempConsNuit = 10 ' Température de consigne Nuit TempConsECS = 60 ' Température de consigne ECS TempMiniExt = -9 ' Température Minimum Extérieure TempMaxiChau = 80 ' Température Maximum de la chaudière HysEau = 5 ' Hystérésis de température d'eau chaudiére HysHab = 0.5 ' Hystérésis de température de l'habitation HysECS = 5 ' Hystérésis de température ECS Regulation = 0 ' 0 = régulation chaudière, 1 = vanne à 3 voies TypeVanne = 0 ' 0 = Vanne à positionement, 1 = vanne analogique Variables & Alias ***************** Dim LCDLed As Bit ' Rétroéclairage = 1, = 0 Dim Override As Bit ' Dérogation = 1, = 0 Dim A As word ' Variable de travail Dim B As Byte ' Variable de travail Dim C As Byte ' Variable de travail Dim D As Byte ' Variable de travail Dim Joursem As Byte ' Variable de travail Dim Bissext As Byte ' Année bissextile Dim X As Word ' Variable de travail Dim Y As Byte ' Variable de travail Dim Z As Word ' Variable de travail Dim BMois As Byte ' Variable de travail Dim Mois As Byte ' Variable de travail Dim I As Byte ' Variable de travail Dim J As Byte ' Variable de travail Dim Annee As Word ' Année sur 4 chiffres (ex.:2010) Dim Curseur As Byte ' Position du curseur Dim Tempo As Byte ' Variable de temporisation ( comptage ) Dim Entree As Byte ' Valeur lue sur le bouton Dim Oldval As Byte ' Valeur précédente de la variable Dim Ligne1 As String * 16 ' Première ligne d'affichage du LCD Dim Ligne2 As String * 16 ' Deuxième ligne d'affichage du LCD Dim Jour As String * 3 ' Les 7 jours de la semaine (3 Chars) Dim Mois As String * 3 ' Les 12 mois de l'année (3 Chars) Dim Temperature As Word ' Lecture de la température dans le DS Dim Hseconde As Byte ' Secondes de la RTC du DS1302 ($81H-$80H) Dim Hminute As Byte ' Minutes de la RTC du DS1302 ($83H-$82H) Dim Hheure As Byte ' Heures de la RTC du DS1302 ($85H-$84H) Dim Hdate As Byte ' Date de la RTC du DS1302 ($87H-$86H) Dim Hmois As Byte ' Mois de la RTC du DS1302 ($89H-$88H) Dim Hjour As Byte ' Jour de la RTC du DS1302 ($8BH-$8AH) Dim Hannee As Byte ' Année de la RTC du DS1302 ($8DH-$8CH) Dim Affit As String * 6 ' Affichage de la température (6 Chars) Dim Affisec As String * 2 ' Affichage des secondes (2 Chars) Dim Affimin As String * 2 ' Affichage des minutes (2 Chars) Dim Affiheu As String * 2 ' Affichage des heures (2 Chars) Dim Affidat As String * 2 ' Affichage du jour du mois (2 Chars) Dim Affiann As String * 4 ' Affichage des années (4 Chars) DshSDA Alias Portc.0 ' Serial Data sur portC-Bit0 en sortie DshSCL Alias Portc.1 ' Serial Clock sur portC-Bit1 en sortie Dim Varout1 As Byte ' Variable à envoyer en mode série (Command) Dim Varout2 As Byte ' Deuxième variable à envoyer (Byte à écrire) Dim Varinw As Word ' Variable word lue en mode série Dim Varinb As Byte ' Variable byte lue en mode série Dim Varbit As Bit ' Bit envoyé ou lu par les routines séries