Changement heure M340

[MikeKol]

Bonjour

Si quelqu un peu me sauver la vie j ai un M340 sans IHM, Donc j aimerais que le changement d heure se fasse tout seul

Avez vous un bout de programme?

Cordialement

[geronimo]

Schneider peut fournir un dfb qui gère le changement d'heure tout seul
Voir plaquette ci dessous

http://xsl.schneider-electric.com/libre ... PREMCH.pdf

Sinon il est assez facile de se faire un dfb maison, il suffit de récupérer l'heure, le mois et le jour et si on est le dernier dimanche de mars ou d'octobre alors on ajoute ou retire 1h avec le %SW51

[philou77]

Salut !

sujet traité auparavent déjà dans le forum il me semble..

Itasoft à fourni une solution en premium qui peut être adapté au M340

[chgui]

Bonjour,
Moi je fais ca :

(*COMPARAISON ET CHANGEMENT HEURE*)
(*HEURE HIVER->HEURE ETE*)
IF BCD_TO_INT(SHR(%SW52,8))=3 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0200 THEN
TAB_CHGT_HEURE[0]:=%SW50;
TAB_CHGT_HEURE[1]:=16#0300;
TAB_CHGT_HEURE[2]:=%SW52;
TAB_CHGT_HEURE[3]:=%SW53;
DATE_TIME:=ARINT_TO_DT(TAB_CHGT_HEURE);
WRTC_DT(DATE_TIME);
END_IF;

(*HEURE ETE->HEURE HIVER*)
IF BCD_TO_INT(SHR(%SW52,8))=10 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0300 AND NOT CHGT_H_EH THEN
CHGT_H_EH:=TRUE;
TAB_CHGT_HEURE[0]:=%SW50;
TAB_CHGT_HEURE[1]:=16#0200;
TAB_CHGT_HEURE[2]:=%SW52;
TAB_CHGT_HEURE[3]:=%SW53;
DATE_TIME:=ARINT_TO_DT(TAB_CHGT_HEURE);
WRTC_DT(DATE_TIME);
END_IF;
(*RAZ MEMO*)
IF BCD_TO_INT(SHR(%SW52,8))=10 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0301 THEN CHGT_H_EH:=FALSE;END_IF;


A+

[fish]

Salut,
Dans les FAQ Schneider : http://www.schneider-electric.fr/fr/faq ... _highlight

[skip74]

Bonjour,
Moi je fais ca :

(*COMPARAISON ET CHANGEMENT HEURE*)
(*HEURE HIVER->HEURE ETE*)
IF BCD_TO_INT(SHR(%SW52,8))=3 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0200 THEN
TAB_CHGT_HEURE[0]:=%SW50;
TAB_CHGT_HEURE[1]:=16#0300;
TAB_CHGT_HEURE[2]:=%SW52;
TAB_CHGT_HEURE[3]:=%SW53;
DATE_TIME:=ARINT_TO_DT(TAB_CHGT_HEURE);
WRTC_DT(DATE_TIME);
END_IF;

(*HEURE ETE->HEURE HIVER*)
IF BCD_TO_INT(SHR(%SW52,8))=10 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0300 AND NOT CHGT_H_EH THEN
CHGT_H_EH:=TRUE;
TAB_CHGT_HEURE[0]:=%SW50;
TAB_CHGT_HEURE[1]:=16#0200;
TAB_CHGT_HEURE[2]:=%SW52;
TAB_CHGT_HEURE[3]:=%SW53;
DATE_TIME:=ARINT_TO_DT(TAB_CHGT_HEURE);
WRTC_DT(DATE_TIME);
END_IF;
(*RAZ MEMO*)
IF BCD_TO_INT(SHR(%SW52,8))=10 AND BCD_TO_INT(16#00FF AND %SW52)>=25 AND %SW49=7 AND %SW51=16#0301 THEN CHGT_H_EH:=FALSE;END_IF;


A+

Oui ca marche mais quid si l'automate est hors tension lors du passage été ou hivers...

il faudrait mémoriser par bit le changement effectué pour le faire le cas échéant lors de la remise sous tension....
C'est sur que ca complique bien le truc...

[chgui]

Ha oui,
Je me pose pas la question, automate sous tension 24/24, 7/7 , ondulé et tout et tout ... Bref quant ca s'arrête je prend la console!

[kcnarf]

merci Skip74