patrick63730
Well-known member
Bonjour j'ai monté un systeme de régulation de chauffage solaire grace a mag1 ,c'est lui qui as tout pondu ,le schema les pcb et le programe ,moi je n'ai fait que réaliser le montage ,mais comme il ne faut rien me montrer si on ne veut pas etre copié j'ai réussi avec assez de difficultées ,surtout au niveau de la ponctuation et accentuation a faire ceci ,qui fonctionne sur le simulateur , j'ai des pcb qui ont servi pour le chauffage solaire il m'a suffi d'en utilier une partie pour faire mon projet ,une picaxe plus petite aurai suffit mais j'avais des 20m2 en stock et le pcb allant avec ,mais je suis preneur de conseils pour l'accentuation et ponctuation sur PE6 car j'ai beau lire et relire je n'ai pas tout compris
consignes de travail si T panneau>T ballon =circulateur on
siT panneau < T ballon = circulateur of
la temperature du ballon est gérée par un thermostat interne a celui -ci
C:\Users\Utilisateur\Documents\chauffage solaire douche piscine.bas
Exported from PICAXE Editor (www.picaxe.com) 1
01 ;chauffage solaire douche piscine
02 #picaxe 20M2
03 setfreq M16
04 symbol DSpano=C.7 ;Tpanneau
05 symbol selec=pinC.6 ;poussoir de selection
06 symbol Dsbalon=C.5 ;T ballon
07 symbol valid=pinC.6 ;poussoir de validation
08 symbol potar=B.5 ;pot de reglege consignes
09 Symbol LCD=B.0 ;LCD 2004
10 symbol circBal=outpinB.1 ;circulateur ballon
11 symbol Tpano =b1
12 symbol Tbalon =b2
13 symbol Cbalon =b6
14 symbol varb =b10 ;variable byte
15 symbol baud =N2400_16
16 dirsC=%00000000
17 dirsB=%00011111
18 pullup%1111111100000000;pullup sur les broches C
19 ;*****************************
20 bit0=1 ;simu MST
21 serout B.0,baud,(254,1)
22 serout B.0,baud,(254,130,"Pa Ba")
23 read 0,Cbalon;lecture des consignes en EEPROM
24 ;if Cbalon=0 then gosub consigne; si EEPROM vide
25 Cbalon=75; pour essai
26 do
27 readtemp Dspano,Tpano ; sur C.7 :readadc a remplacer par readtemp
28 readtemp Dsbalon,Tbalon ;sur C.5
29 serout B.0,baud,(254,192,"T",#Tpano,"",254,198,#Tbalon,"")
30 serout B.0, baud,(254,212,"P") ;petite verrue pour reafficher le "P",qui s'efface
avec le "" de 1
31 if valid=0 or bit0=1 then gosub consigne ;passage par consigne a la MST
32 gosub gescirc
33 loop
34 ;*************************************************
35 consigne:
36 bit0=0 ;a la MST seulement
37 serout B.0,baud,(254,148,"c",254,165,"")
38 return
39 gescirc:
40 if Tbalon>=90 or Tbalon>= Tpano then
41 circBal=0
42 serout B.0,baud,(254,218,#circBal)
43 endif
44 varb=Tbalon+5
45 if Tpano>varb then
46 circBal=1
47 endif
48 return
j'ai copié la majorité du texte sans pour autant comprendre une partie des caractéres
consignes de travail si T panneau>T ballon =circulateur on
siT panneau < T ballon = circulateur of
la temperature du ballon est gérée par un thermostat interne a celui -ci
C:\Users\Utilisateur\Documents\chauffage solaire douche piscine.bas
Exported from PICAXE Editor (www.picaxe.com) 1
01 ;chauffage solaire douche piscine
02 #picaxe 20M2
03 setfreq M16
04 symbol DSpano=C.7 ;Tpanneau
05 symbol selec=pinC.6 ;poussoir de selection
06 symbol Dsbalon=C.5 ;T ballon
07 symbol valid=pinC.6 ;poussoir de validation
08 symbol potar=B.5 ;pot de reglege consignes
09 Symbol LCD=B.0 ;LCD 2004
10 symbol circBal=outpinB.1 ;circulateur ballon
11 symbol Tpano =b1
12 symbol Tbalon =b2
13 symbol Cbalon =b6
14 symbol varb =b10 ;variable byte
15 symbol baud =N2400_16
16 dirsC=%00000000
17 dirsB=%00011111
18 pullup%1111111100000000;pullup sur les broches C
19 ;*****************************
20 bit0=1 ;simu MST
21 serout B.0,baud,(254,1)
22 serout B.0,baud,(254,130,"Pa Ba")
23 read 0,Cbalon;lecture des consignes en EEPROM
24 ;if Cbalon=0 then gosub consigne; si EEPROM vide
25 Cbalon=75; pour essai
26 do
27 readtemp Dspano,Tpano ; sur C.7 :readadc a remplacer par readtemp
28 readtemp Dsbalon,Tbalon ;sur C.5
29 serout B.0,baud,(254,192,"T",#Tpano,"",254,198,#Tbalon,"")
30 serout B.0, baud,(254,212,"P") ;petite verrue pour reafficher le "P",qui s'efface
avec le "" de 1
31 if valid=0 or bit0=1 then gosub consigne ;passage par consigne a la MST
32 gosub gescirc
33 loop
34 ;*************************************************
35 consigne:
36 bit0=0 ;a la MST seulement
37 serout B.0,baud,(254,148,"c",254,165,"")
38 return
39 gescirc:
40 if Tbalon>=90 or Tbalon>= Tpano then
41 circBal=0
42 serout B.0,baud,(254,218,#circBal)
43 endif
44 varb=Tbalon+5
45 if Tpano>varb then
46 circBal=1
47 endif
48 return
j'ai copié la majorité du texte sans pour autant comprendre une partie des caractéres