Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1609 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  Besoin d'aide sur une programmation

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Besoin d'aide sur une programmation

n°2257171
tutulovich
Posté le 02-05-2015 à 00:26:02  profilanswer
 

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,

mood
Publicité
Posté le 02-05-2015 à 00:26:02  profilanswer
 

n°2257248
TotalRecal​l
Posté le 03-05-2015 à 17:01:31  profilanswer
 

Pour nous laisser une chance de t'aider, tu devrais commencer par décrire le problème avant de nous demander de le résoudre.  
Et la sous cat est mal choisie, à l'évidence rien à voir avec SQL. Précise au moins le produit que tu utilises et le langage associé...


---------------
Réalisation amplis classe D / T      Topic .Net - C# @ Prog

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  Besoin d'aide sur une programmation

 

Sujets relatifs
Besoin d'aide en programmation c++Besoin d'aide (programmation C)
besoin d'aide pour une programmation ARDUINOBesoin d'aide en programmation
besoin d'aide programmation CProgrammation en C, besoin d'aide
Besoin d'aide pour la programmation d'un menu en htmlBesoin d'aide pour programmation simple
besoin d'aide programmation Besoin d'aide pour programmation page d'Inscription
Plus de sujets relatifs à : Besoin d'aide sur une programmation



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR