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 <ON> = 1, <OFF> = 0

Dim Derogabit As Bit             ' Dérogation <ON> = 1, <OFF> = 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