Bonjour,
J'ai besoin d'aide car je ne connais pas grand chose à la programmation et j'ai un code qui ne fonctionne pas.
Voici mon probleme :
Je gère mon eclairage maison pas des detecteurs qui donne une consigne a mon automate.
Le problème survient sur les éclairage qui sont dimmers.
Ci-dessous une programmation sur un eclairage normale et ca fonctionne tres bien :
(*ECLAIRAGE 20*)
Eclairage_20.Command.Detecteur = Det_Dressing
Eclairage_20.Command.DetTime = 600
Eclairage_20 FUB Eclairage()
ECL_Dressing2 = Eclairage_20.Lampe
Par contre le code ci-dessous ne fonctionne pas du tout car il allume et étient directement la lumiere. Il s'agit d'un eclairage dimmer :
(*ECLAIRAGE DIM 4*)
; de 22H à 06H00 on active le mode nuit faible intensité
IF (DateTime.hour >= 22) THEN
DIM4_HORL = TRUE
ENDIF
IF (DateTime.hour > 6) AND (DateTime.hour < 22) THEN
DIM4_HORL = FALSE
ENDIF
;Pulse si detecteur
IF EDGEPOS(Det_etage) OR DIM4_DET_PULSE_Ig > 0 THEN
DIM4_DET_PULSE_Ig = DIM4_DET_PULSE_Ig + 1
DIM4_DET_PULSE = TRUE
IF DIM4_DET_PULSE_Ig > 5 THEN
DIM4_DET_PULSE_Ig = 0
DIM4_DET_PULSE = FALSE
DIM4_DET_PULSE_Ig2 = 50
ENDIF
ENDIF
; Pulse fin de minuterie
IF (DIM4_DET_PULSE_Ig2 > 0) THEN
DIM4_DET_PULSE_Ig2 = DIM4_DET_PULSE_Ig2 - 1
IF (DIM4_DET_PULSE_Ig2 < 0) THEN
DIM4_DET_PULSE_Ig2 = 0
DIM4_DET_PULSE = FALSE
ENDIF
IF (DIM4_DET_PULSE_Ig2 <= 5) AND (DIM4_DET_PULSE_Ig2 > 1) AND (ECL_DIM_HallEtage > 0) THEN
DIM4_DET_PULSE = TRUE
ENDIF
IF DIM4_DET_PULSE_Ig2 = 0 THEN
DIM4_DET_PULSE = FALSE
ENDIF
ENDIF
Eclairage_DIM4.Command.BP = DIM4_DET_PULSE
Eclairage_DIM4.Command.PresetEn = DIM4_HORL
Eclairage_DIM4.Command.Preset = 8000
Eclairage_DIM4 FUB Dimmer()
ECL_DIM_HallEtage = Eclairage_DIM4.Lampe
Ce serait vraiment cool de tomber sur quelqu'un qui pourrait réparer ce code et le faire fonctionner correctement.
Merci d'avance,
