La PoupoLed de Nanarf

[Terrier 02]

un garde du corp spéciale tomates .

[linquat]

Il a reconnu sa caisse à chat ...

[Nanarf]

Mon chat fait ses besoins dehors, sauf quand il pleut, qu'il y a de la neige, du vent ... mais de toute façon pas dans la chambre !

[Nanarf]

Le proto est terminé





Tout ça pour ça

[Nanarf]

Version définitive


en détail


le code

Code:

#include <Wire.h>
#include <RTClib.h>
RTC_DS3231 rtc; // Declaration du module RTC
#include <LiquidCrystal_I2C.h>
LiquidCrystal_I2C lcd(0x3F,20,4);  //l'adresse de l'ecran est 0x3F,lecran à 20 caracteres et 4 lignes             

/*
Ports utilisés :
Analog Pin 4 = SDA pour ds3231
Analog Pin 5 = SCL pour ds3231
Digital Pin 2 = PWM Blanc
Digital Pin 4 = PWM Full spectrum
Digital pin 40 = relais pour le ventilo Led blanche
Digital pin 36 = relais pour le ventilo Led Full Spectrum

Pour info :
PWM1 = intensité des blancs
PWM2 = intensité des full spectrum
relais = état du relais du ventilo des Led
*/

//Initialisation des ports
int pwm1=2;
int pwm2=6;
int time;
int val_up=0;
int val_down=0;
int relaisb=40;
int relaisfs=36;

void setup()
{
   Wire.begin();
   rtc.begin(); 
   Serial.begin(9600); //initialise la communication pour le DS1307
   analogWrite(pwm1,0); //initialise à 0 les leds blanches
   analogWrite(pwm2,0); //initialise à 0 les leds full spectrum
   pinMode(relaisb, OUTPUT); //initialise le port du relais des Led blanches en sortie
   digitalWrite(relaisb, HIGH); //le relais est éteint à l'initialisation
   pinMode(relaisfs, OUTPUT); //initialise le port du relais des Led Full spectrum en sortie
   digitalWrite(relaisfs, HIGH); //le relais est éteint à l'initialisation
   
}
void loop()
{
    lcd.init();//initialisation ecran lcd
    lcd.backlight();//alumage retroeclairage
 
  DateTime now = rtc.now();   // On récupère le temps actuel
   /*     
    Affichage de l'heure       
    lcd.print(now.hour());
    lcd.print(" heures ");
    lcd.print(now.minute());
    lcd.print(" minutes");
   */
  val_up = (map (now.minute(), 0, 59, 0, 255));
  /*permet d’attribuer une valeur d’intensité des leds croissante sur 59 minutes, comprise entre 0 et
  255 (valeur maximale du signal PWM)*/
  val_down = (map (now.minute(), 0, 59, 255, 0));
  /*permet d’attribuer une valeur d’intensité des leds décroissante sur 59 minutes, comprise entre
  255 et 0 (valeur minimale du signal PWM */
//  si necessaire mise à l'heure du module RTC avec l'exemple DS 1307RTC Set time

// ****************LED BLANCHES*************************************************                                                                                                                 
//   plage horaire de 9h à 22h
//  pin2

 
  if (now.hour() == 9) //entre 9 h et 9h59
  {
  analogWrite (pwm2, val_up); //allumage progressif
  }
else if (now.hour() == 21) //entre 21 h et 21h59
  {
  analogWrite (pwm2, val_down); // extinction progressive
  }
else if ((now.hour() > 9) && (now.hour() < 21))//entre 10h et 20h
 {
  analogWrite(pwm2, 255); // allumage max
  }
else
  {
  analogWrite(pwm2, 0);//le reste du temps les leds blanches sont éteintes
 
  }
 /*
  lcd.print("intensite Full Spectrum ");
  lcd.print(pwm2);
  lcd.print("intensité blanc ");
  lcd.print(pwm1);
  */
//****************FULL SPECTRUM*************************************************
// pin 4
// plage horaire de 11h à 21h

  if (now.hour() == 11) //entre 11:00:00 et 11:59:59
  {
  analogWrite (pwm1, val_up*0.8); //allumage progressif
  }
else if (now.hour() == 20) //entre 20:00:00 et 20:59:59
  {
  analogWrite (pwm1, val_down*0.8); // extinction progressive
  }
else if ((now.hour() > 11 ) && (now.hour() < 20))//entre 13:00:00 et 19:59:59 allumage max
 {
  analogWrite(pwm1, 255);
  }
else
  {
  analogWrite(pwm1, 0);//le reste du temps les leds blanches sont éteintes
  }
 
//****************Ventilateur  ********************************************

//les blocs 8 relais sont commandées par le -

//Led blanches

if (pwm2 > 0) //Si les leds blanches sont allumées
  {
  digitalWrite(relaisb,  LOW);//relais ventilo ON
  }
else
  {
    digitalWrite(relaisb, HIGH);//relais ventilo OFF
}     
 //Led Full spectrum   
 
if (pwm1 > 0)//Si les leds full spectrum sont allumées
  {
  digitalWrite(relaisfs, LOW);//relais ventilo ON
  }
else   {
  digitalWrite(relaisfs, HIGH);//relais ventilo OFF
  }

//****************ALIM  ********************************************

if (pwm2 > 0) //Si les leds blanches sont allumées
  {

   digitalWrite(relaisb,  LOW);//relais alim ON
  }
else
  {
    digitalWrite(relaisb, HIGH);//relais alim OFF
  }   
   

}


Toute amélioration sera la bienvenue

Actuellement il n'y a que quatre LED banches, les quatre autres sont entre la Chine et le Perche, l'extension du câblage sera faite en son temps
ça grade pas comme je voudrais, sans doute un probleme de rapidité du DDR, mais bon, je vais pas y passer ma vie

Dernière édition par Nanarf le Lun 5 Mar 2018 00:51, édité 1 fois.

[papo4334]

Il me semble que plutôt que coder en dur les bornes de gradation (0 et 255) il serait préférable que que tu utilises 2 constantes GradMinX et GradMaxX que tu pourras ajuster après quelques tests (X étant soit BF, soit FS pour pouvoir mettre si besoin un min et max différents pour les COC blancs et les FS)

* GradMinX : j'ai constaté que les LEDs ne s'allument pas (de façon visible) en dessous d'un minimum qu'il te faudra déterminer (pour moi avec d'autres COBs ou LEDs c'est entre 10 et 20%) --> intérêt d'un Min
* GradMaxX : compte tenu de la puissance installé et de la surface (estimation car je n'ai pas retrouvé cette surface dans ce sujet) il est possible/probable qu'il sera bien de limiter la puissance (au moins pour les plants les plus jeunes) --> intérêt d'un Max

Je n'ai pas vu (lecture trop rapide peut-être) de "délai" entre 2 tours de la boucle. Tu ne perdrais rien à le faire tourner toute les minutes (voire toutes les 2 ou 3 minutes) en mettant un sleep(60) en fin de boucle.

Sinon peux tu préciser ton problème de dimming ; au moins ce que tu constates -- dans un message précédent tu indiquais que cela fonctionnait

Dernière édition par papo4334 le Mar 6 Mar 2018 08:26, édité 1 fois.

[Nanarf]

Cela semblait marcher avec une Led, avec une COB et un luxmètre c'est pas pareil
La progression 0 et 100% et 100 et 0% se fait en 1/4 d'heure environ; c'est mieux que rien mais bon.
Le gros problème c'est que la programation de l'Arduino je n'y connait pas grand chose, j'ai découvert la bête il y a trois mois, mais je progresse moi aussi .

[Renaud]

Beau travail!

[Nanarf]

Ce matin pas d'éclairage, la rage.
Comme je suis persuadé que les specs du DDR sont foireuses j'ai commencé à tester la sortie PWM avec une led et elle s'allumait.
C'était donc un problème d'ampérage, pas assez en sortie de l'Arduino ou en entrée du DDR.
La solution, un transistor 2N2222 et miracle (enfin, si on veut) ça marche.
La led du DDR est allumée franchement et les led cob aussi
[/url]

le montage volant, il va falloir finaliser


les dessous, la planche est chanfreinée pour éviter au maximum les obstacles au flux lumineux


Pour Papo
J'ai deux led COB de 50 W par caisse de 60X40 , les plans ont l'air de bien supporter

[Nanarf]

Tristes plans
les plans ne semblent plus supporter l'éclairage par LED, que ça soit 400 W au m² en blanc ou 100 W/m² en full spectrum, dans les deux cas à 40cm au dessus des feuilles
Ils donnent l'impression de se protéger d'une lumière trop forte et surtout trop concentrée





Je suis revenus aux tubes fluo, je verrai bien ce que ça donne

[mustang]

Je suis en led blanc froid à raison de 60 w /m², ce qui paraît être bien peu , et voici ce que ça donne à 25 cm de l'apex des plantes



Evidement , ce sont des pim's mais j'ai un résultat similaire avec les tom's .

[Nanarf]

Ce sont des spots ou des barres de led ?

[mustang]

Des spots avec chacun un seul cob 10w

[Nanarf]

Je pense que c'est la solution, plutôt 5 spots de 10 W qu'un de 50, surtout qu'avec 10 W le refroidissement doit être facile.
Autrement avec mes fluo, tubes 54 W T5, 2 de 6500K et 2 de 4000 les feuilles se redressent.
Je vais creuser ça pour l'année prochaine, surtout que dès que j'aurai fini de bêcher la serre tout ce beau monde va s'y retrouver .

[mustang]

J'ai pris cette solution minimaliste en conception et coût et elle joue très bien son rôle . Que vouloir de plus.