Vortech code problem, it works well only if...

[stephy]

...I manually place the pump in feed mode. It works perfectly, but everydayI have to use feed mode, or after night cycle, pump change mode (led on rf module is the right color, no blinking the vortech controller), but stays in feed mode (minimum speed). If I enter twice in feed mode, pump works until next morning...

Code: Select all

#include <ReefAngel_Features.h>
#include <Globals.h>
#include <RA_Wifi.h>
#include <Wire.h>
#include <OneWire.h>
#include <Time.h>
#include <DS1307RTC.h>
#include <InternalEEPROM.h>
#include <RA_NokiaLCD.h>
#include <RA_ATO.h>
#include <RA_Joystick.h>
#include <LED.h>
#include <RA_TempSensor.h>
#include <Relay.h>
#include <RA_PWM.h>
#include <Timer.h>
#include <Memory.h>
#include <InternalEEPROM.h>
#include <RA_Colors.h>
#include <RA_CustomColors.h>
#include <Salinity.h>
#include <RF.h>
#include <IO.h>
#include <ORP.h>
#include <AI.h>
#include <ReefAngel.h>

////// Place global variable code below here


////// Place global variable code above here


void setup()
{
  // This must be the first line
  ReefAngel.Init();  //Initialize controller
  ReefAngel.AddDateTimeMenu(); 
  ReefAngel.SetTemperatureUnit( Celsius );  // set to Celsius Temperature
  // ReefAngel.AddWifi ();

  // Ports toggled in Feeding Mode
  ReefAngel.FeedingModePorts = 0;
  // Ports toggled in Water Change Mode
  ReefAngel.WaterChangePorts = Port4Bit;
  // Ports toggled when Lights On / Off menu entry selected
  ReefAngel.LightsOnPorts = Port1Bit | Port2Bit;
  // Ports turned off when Overheat temperature exceeded
  ReefAngel.OverheatShutoffPorts = 0;
  // Use T1 probe as temperature and overheat functions
  ReefAngel.TempProbe = T1_PROBE;
  ReefAngel.OverheatProbe = T1_PROBE;
  // Set the Overheat temperature setting
  InternalMemory.OverheatTemp_write( 309 );


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

  ////// Place additional initialization code below here


  ////// Place additional initialization code above here
}

void loop()
{
  ReefAngel.LCD.DrawLargeText(COLOR_STEELBLUE,COLOR_WHITE,28,121,"Tinozzina"); // Display Reef Angel banner
  ReefAngel.StandardLights( Port1,10,0,22,0 );
  ReefAngel.StandardLights( Port2,11,0,21,0 );
  ReefAngel.Relay.Set( Port3, !ReefAngel.Relay.Status( Port2 ) );
  ReefAngel.StandardHeater( Port5,252,256 );
  ReefAngel.StandardFan( Port6,255,259 );
  if (hour()>=21 || hour()<11)
    ReefAngel.PWM.SetActinic( MoonPhase() );
  else
    ReefAngel.PWM.SetActinic( 0 );
  ReefAngel.RF.UseMemory = false;
if ( ReefAngel.RF.Mode != Feeding_Start)
{
if (hour()==10)
ReefAngel.RF.SetMode( Lagoon,60,10 );
else if (hour()==11 && minute()<5)
ReefAngel.RF.SetMode( Constant,90,10 );
else if (hour()==13)
ReefAngel.RF.SetMode( Smart_NTM,90,3 );
else if (hour()==19 && minute()<5)
ReefAngel.RF.SetMode( Constant,90,10 );
else if (hour()==20)
ReefAngel.RF.SetMode( Smart_NTM,90,3 );
else if (hour()==21)
ReefAngel.RF.SetMode( Lagoon,60,10 );
else if (hour()>=22 || hour()<10)
ReefAngel.RF.SetMode( Night,60,10 );
else
ReefAngel.RF.SetMode( ReefCrest,70,10 );
}
  ////// Place your custom code below here


  ////// Place your custom code above here

  // This should always be the last line
  ReefAngel.Portal( "stephy" );
  ReefAngel.ShowInterface();
}

[rimai]

http://forum.reefangel.com/viewtopic.php?p=7035#p7035

[stephy]

Solved, tnx