Reef Angel Forum

Code: Select all

void loop()
{
  ReefAngel.ShowInterface();

  // If the PH falls below 6.50 then turn off port5 which contains the CO2,
  // otherwise keep the port on
  if ( ReefAngel.Params.PH < 650 )
  {
    ReefAngel.Relay.Off(Port5);
  }
  else
  {
    ReefAngel.Relay.On(Port5);
  }
}

Code: Select all

#ifndef __REEFANGEL_FEATURES_H__
#define __REEFANGEL_FEATURES_H__

#define DisplayLEDPWM
#define VersionMenu

#endif  // __REEFANGEL_FEATURES_H__

Code: Select all

#include <ReefAngel_Features.h>
#include <ReefAngel_Globals.h>
#include <ReefAngel_Wifi.h>
#include <Wire.h>
#include <OneWire.h>
#include <Time.h>
#include <DS1307RTC.h>
#include <ReefAngel_EEPROM.h>
#include <ReefAngel_NokiaLCD.h>
#include <ReefAngel_ATO.h>
#include <ReefAngel_Joystick.h>
#include <ReefAngel_LED.h>
#include <ReefAngel_TempSensor.h>
#include <ReefAngel_Relay.h>
#include <ReefAngel_PWM.h>
#include <ReefAngel_Timer.h>
#include <ReefAngel_Memory.h>
#include <ReefAngel.h>


void setup()
{
    ReefAngel.Init();  //Initialize controller

    // Ports that are always on
    ReefAngel.Relay.On(Port8);
}

void loop()
{
  ReefAngel.ShowInterface();

  // Specific functions
  ReefAngel.StandardLights(Port1);
  ReefAngel.MHLights(Port2);
  ReefAngel.StandardHeater(Port4);

//CO2
  if ( ReefAngel.Params.PH <= 600 )
    ReefAngel.Relay.Off(Port5);
  if ( ReefAngel.Params.PH >= 650 )
    ReefAngel.Relay.On(Port5);

//Bubbles
  if ( ReefAngel.Params.PH <= 580 )
    ReefAngel.Relay.On(Port3);
  if ( ReefAngel.Params.PH >= 595 )
    ReefAngel.Relay.Off(Port3);

//Chiller  
  if ( ReefAngel.Params.Temp1 >=315 ) 
    ReefAngel.PWM.SetDaylight(100);
  if ( ReefAngel.Params.Temp1 <=300 ) 
    ReefAngel.PWM.SetDaylight(0);

  if (hour()>23 || hour()<7)
  {
    ReefAngel.PWM.SetActinic(PWMSlope(23,0,7,0,0,MoonPhase(),90,ReefAngel.PWM.GetActinicValue()));
    ReefAngel.Relay.Off(Port5);
    ReefAngel.Relay.On(Port3);
  }
  
}

byte MoonPhase()
{
  int m,d,y;
  int yy,mm;
  long K1,K2,K3,J,V;
  byte PWMvalue;
  m=month();
  d=day();
  y=year();
  yy=y-((12-m)/10);
  mm=m+9;
  if (mm>=12) mm-=12;
  K1=365.25*(yy+4712);
  K2=30.6*mm+.5;
  K3=int(int((yy/100)+49)*.75)-38;
  J=K1+K2+d+59-K3;
  V=(J-2451550.1)/0.29530588853;
  V-=int(V/100)*100;
  V=abs(V-50);
  PWMvalue=4*abs(50-V); // 5.12=100% 4=~80%
  //pinMode(lowATOPin,OUTPUT);
  return (PWMvalue*100)/255;
}