Optimiseur de chauffage. ======================== Liste des variables, des constantes et des Alias. ------------------------------------------------- Variables ' Nom termine par b= Byte, w= Word, i= Integer ********* Dim Aw As word ' Variable de travail Dim Bb As Byte ' Variable de travail Dim Cb As Byte ' Variable de travail Dim Db As Byte ' Variable de travail Dim Ib As Byte ' Variable de travail Dim Jb As Byte ' Variable de travail Dim Xw As Word ' Variable de travail Dim Yb As Byte ' Variable de travail Dim Zw As Word ' Variable de travail Dim TConsJourb(4) As Byte ' Température consigne Jour exprimée en 1/2°C Dim TConsNuitb(4) As Byte ' Température consigne Nuit exprimée en 1/2°C Dim TConsECSb As Byte ' Température de consigne ECS exprimée en degré Dim TMiniExtb As Byte ' Température Minimum Extérieure en degré Dim TMaxiChaub As Byte ' Température Maximum de la chaudière en degré Dim HysEaub As Byte ' Hystérésis de temp. eau chaudiére en 1/2°C Dim HysHabib As Byte ' Hysté. de temp. habitation exprimé en 1/10°C Dim HysECSb As Byte ' Hystérésis de température ECS en 1/2°C Dim Regulation As Bit ' 0 = régulation chaudière, 1 = vanne à 3 voies Dim TypeVanne As Bit ' 0 = Vanne ouvert/fermer, 1 = vanne analogique Dim TConsJour As Bit ' Température de Consigne Jour Dim TConsJourOld As Bit ' Température de Consigne Jour Ancienne Dim TConsJourTmp As Bit ' Température de Consigne Jour Temporaire Dim TConsNuit As Bit ' Température de Consigne Nuit Dim TConsNuitOld As Bit ' Température de Consigne Nuit Ancienne Dim Temperaturew As Word ' Lecture de la température dans le DS Dim LCDLed As Bit ' Rétroéclairage = 1, = 0 Dim Derogabit As Bit ' Dérogation = 1, = 0 Dim Joursemb As Byte ' Variable de travail Dim Bissextb As Byte ' Année bissextile Dim BMoisb As Byte ' Mois Dim Anneew As Word ' Année sur 4 chiffres (ex.:2010) Dim Curseurb As Byte ' Position du curseur Dim Tempob As Byte ' Variable de temporisation ( comptage ) Dim Entreeb As Byte ' Valeur lue sur le bouton Dim Oldvalb 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 Hsecondeb As Byte ' Secondes de la RTC du DS3231 ($00H) Dim Hminuteb As Byte ' Minutes de la RTC du DS3231 ($01H) Dim Hheureb As Byte ' Heures de la RTC du DS3231 ($02H) Dim Hjourb As Byte ' Jour de la RTC du DS3231 ($03H) Dim Hdateb As Byte ' Date de la RTC du DS3231 ($04H) Dim Hmoisb As Byte ' Mois de la RTC du DS3231 ($05H) Dim Hanneeb As Byte ' Année de la RTC du DS3231 ($06H) Dim SortieW As Word ' 595 = MSB First (Led = MSB, Relais = LSB) Dim LedJOFF As SortieW.15 ' Led Jaune - système en veille Dim LedRNuit As SortieW.14 ' Led Rouge - Mode Nuit Dim LedVJour As SortieW.13 ' Led Verte - Mode Jour Dim LedBHorloge As SortieW.12 ' Led Bleue - Mode Horloge Dim RelChau As SortieW.7 ' Led rouge - Relais circulateur chauffage Dim RelECS As SortieW.6 ' Led rouge - Relais circulateur ECS Dim RelVanneOn As SortieW.5 ' Led rouge - Relais chaudière ou Vanne < ON > Dim RelVanneOff As SortieW.4 ' Led rouge - Relais chaudière ou Vanne < OFF > 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) Dim Varout1b As Byte ' Variable à envoyer en mode série (Command) Dim Varout2b 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 Alias ***** Boots1Wire Alias PortA.7 ' 1 Wire Pin 1Wire Alias PortA.6 ' 1 Wire Pin DshSCL Alias PortA.5 ' Serial Clock sur portA-Bit5 en sortie DshSDA Alias PortA.4 ' Serial Data sur portA-Bit4 en sortie Bouton Alias PortA.3 ' Bouton poussoir sur encodeur MoletteA Alias PortA.2 ' Canal A Encodeur MoletteB Alias PortA.1 ' Canal B Encodeur LCDLedOn Alias PortA.0 ' Pin de commande du rétro-éclairage AnaPWM Alias PortB.0 ' Pin de commande de la vanne anlogique CK595 Alias PortB.2 ' Serial Clock pour 74HC595 CS595 Alias PortB.3 ' Chip Select pour 74HC595 DIn595 Alias PortB.4 ' Data IN pour 74HC595 CK165 Alias PortB.6 ' Serial Clock pour 74HC165 CS165 Alias PortB.5 ' Chip Select pour 74HC165 DOut165 Alias PortB.7 ' Data OUT pour 74HC165 Valeurs à donner au départ ************************** TConsJourC = 20 ' Température de consigne Jour TConsNuitC = 10 ' Température de consigne Nuit TConsECSC = 60 ' Température de consigne ECS TMiniExtC = -9 ' Température Minimum Extérieure TMaxiChauC = 80 ' Température Maximum de la chaudière HysEauC = 5 ' Hystérésis de température d'eau chaudiére HysHabC = 0.5 ' Hystérésis de température de l'habitation HysECSC = 5 ' Hystérésis de température ECS RegulationC = 0 ' 0 = régulation chaudière, 1 = vanne à 3 voies TypeVanneC = 0 ' 0 = Vanne ouvert/fermer, 1 = vanne analogique Datas ***** JourSemaine: Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche