need someone to write a code

Post Reply
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

need someone to write a code

Post by briank6050 »

cant for the life of me figure out how to write a code. can someone help me please??!! Thanks
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

this is the current code im running. i would like to add a night mode to the vortech pump to ramp down to 35% constant from 9pm to 7am. also would like some sort of a storm mode if possible



#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 <PH.h>
#include <WaterLevel.h>
#include <Humidity.h>
#include <DCPump.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.AddStandardMenu(); // Add Standard Menu

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


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

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


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

void loop()
{
ReefAngel.StandardHeater( Port1,760,775 );
ReefAngel.StandardLights( Port2,20,0,4,0 );
ReefAngel.StandardLights( Port3,10,0,19,0 );
ReefAngel.StandardLights( Port4,9,0,20,0 );
ReefAngel.StandardLights( Port5,10,0,19,0 );
ReefAngel.StandardLights( Port6,9,0,20,0 );
ReefAngel.PWM.SetChannel( 0, PWMParabola(9,0,20,0,0,100,0) );
ReefAngel.PWM.SetChannel( 1, PWMParabola(10,0,19,0,0,100,0) );
ReefAngel.PWM.SetChannel( 2, PWMParabola(10,0,19,0,0,100,0) );
ReefAngel.RF.UseMemory = false;
ReefAngel.RF.SetMode( NutrientTransport,85,10 );
////// Place your custom code below here


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

// This should always be the last line
ReefAngel.ShowInterface();
}
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

do i just copy and paste it between the custom code lines?
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

and where do i put the times i want?
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Correct. Just place it in the custom code inside loop().
The times can be set in the code he gave you.
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

well it went into night mode but now it dont come out of it. the rf changes color but the pump remains in night mode
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

If you look at the code he gave you:

Code: Select all

// Turn off Night Mode
if (hour()>8 && ReefAngel.RF.Mode==Night) ReefAngel.RF.SetMode(Night_Stop,0,0);
// Turn on Night Mode
if (hour()>20 && ReefAngel.RF.Mode!=Night) ReefAngel.RF.SetMode(Night,20,0);
When it is > 20 hours, the pump will enter night mode
And it will stop night mode when time is > 8 hours.
So, it will only come out of night mode tomorrow morning at 8am.
Roberto.
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

I personally don't like the night mode of the vortech pump drivers.
So, I never use it myself.
I prefer using reefcrest at very slow speed instead.
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

That sounds like a good idea! How would i program that instead?
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Use something like this:

Code: Select all

if (hour()<8 || hour()>20) ReefAngel.RF.SetMode( ReefCrest,20,10 );
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

Well my vortech pump never went out of night mode this morn. The rf did change color but the pump remains at constant low speed. Sound like a communication prob between rf and ecotech driver?
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Was it still blinking white?
How long is the night mode setup on your vortech driver?
Check their manual:
http://ecotechmarine.com/wp-content/upl ... on1.33.pdf
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

New code is so far so good. I dont suppose you have any ideas for a storm and clouds mode? My blue leds are on one driver and 2 50w white leds on another 2 drivers on my dimming expansion port.
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Which drivers are you using?
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

They are JR Tronic brand. Model uv3617-50-pwm
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: need someone to write a code

Post by rimai »

Never heard of that one.
Let us know how it responds. Many LED drivers are not fast enough to create a nice effect.
Try this one:

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 <PH.h>
#include <WaterLevel.h>
#include <Humidity.h>
#include <DCPump.h>
#include <ReefAngel.h>

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

//*********************************************************************************************************************************
//Start of PWM Expansion Code Header

// This is just how we are going to reference the PWM expansion ports within the code.
// You can change the labels if you would like, just as long as they are changed all throughout the code too.
#define LEDPWM0 0
#define LEDPWM1 1
#define LEDPWM2 2
#define LEDPWM3 3
#define LEDPWM4 4
#define LEDPWM5 5

// Initial values to all 6 channels at startup. They will always be 0.
byte PWMChannel[]={
  0,0,0,0,0,0};

//End of PWM Expansion Code Header
//*********************************************************************************************************************************

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


void setup()
{
  // This must be the first line
  ReefAngel.Init(); //Initialize controller
  ReefAngel.AddStandardMenu(); // Add Standard Menu

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


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

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


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

void loop()
{
  ReefAngel.StandardHeater( Port1,760,775 );
  ReefAngel.StandardLights( Port2,20,0,4,0 );
  ReefAngel.StandardLights( Port3,10,0,19,0 );
  ReefAngel.StandardLights( Port4,9,0,20,0 );
  ReefAngel.StandardLights( Port5,10,0,19,0 );
  ReefAngel.StandardLights( Port6,9,0,20,0 );
//  ReefAngel.PWM.SetChannel( 0, PWMParabola(9,0,20,0,0,100,0) );
//  ReefAngel.PWM.SetChannel( 1, PWMParabola(10,0,19,0,0,100,0) );
//  ReefAngel.PWM.SetChannel( 2, PWMParabola(10,0,19,0,0,100,0) );
  ReefAngel.RF.UseMemory = false;
  ReefAngel.RF.SetMode( NutrientTransport,85,10 );
  ////// Place your custom code below here

  if (hour()<8 || hour()>20) ReefAngel.RF.SetMode( ReefCrest,20,10 );

  
  // Calculate your regular sunrise/sunset PWM value
  PWMChannel[LEDPWM0]=PWMParabola(9,0,20,0,0,100,PWMChannel[LEDPWM0]);
  PWMChannel[LEDPWM1]=PWMParabola(10,0,19,0,0,100,PWMChannel[LEDPWM1]);
  PWMChannel[LEDPWM2]=PWMParabola(10,0,19,0,0,100,PWMChannel[LEDPWM2]);
  CheckCloud();
  ReefAngel.PWM.SetChannel( LEDPWM0, int(2.55*PWMChannel[LEDPWM0]));
  ReefAngel.PWM.SetChannel( LEDPWM1, int(2.55*PWMChannel[LEDPWM1]));
  ReefAngel.PWM.SetChannel( LEDPWM2, int(2.55*PWMChannel[LEDPWM2]));
  

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

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

//*********************************************************************************************************************************
// Random Cloud/Thunderstorm effects function
void CheckCloud()
{

  // ------------------------------------------------------------
  // Change the values below to customize your cloud/storm effect

  // Frequency in days based on the day of the month - number 2 means every 2 days, for example (day 2,4,6 etc)
  // For testing purposes, you can use 1 and cause the cloud to occur everyday
#define Clouds_Every_X_Days 1 

  // Percentage chance of a cloud happening today
  // For testing purposes, you can use 100 and cause the cloud to have 100% chance of happening
#define Cloud_Chance_per_Day 100

  // Minimum number of minutes for cloud duration.  Don't use max duration of less than 6
#define Min_Cloud_Duration 7

  // Maximum number of minutes for the cloud duration. Don't use max duration of more than 255
#define Max_Cloud_Duration 15

  // Minimum number of clouds that can happen per day
#define Min_Clouds_per_Day 3

  // Maximum number of clouds that can happen per day
#define Max_Clouds_per_Day 5

  // Only start the cloud effect after this setting
  // In this example, start could after 11:30am
#define Start_Cloud_After NumMins(11,30)

  // Always end the cloud effect before this setting
  // In this example, end could before 8:00pm
#define End_Cloud_Before NumMins(18,30)

  // Percentage chance of a lightning happen for every cloud
  // For testing purposes, you can use 100 and cause the lightning to have 100% chance of happening
#define Lightning_Change_per_Cloud 100

  // Channels used by the actinic LEDs on the PWM Expansion module
  // These channels will not be dimmed when the cloud effect is triggered
  // Number is a binary form. B001100 means channel 2 and 3 are used for actinics
#define Actinic_Channels B000001

  // Channels used by the daylight LEDs on the PWM Expansion module
  // These channels will be used for the spike when lightning effect is triggered
  // Number is a binary form. B000011 means channel 0 and 1 are used for daylights
#define Daylight_Channels B000110

  // Note: Make sure to choose correct values that will work within your PWMSLope settings.
  // For example, in our case, we could have a max of 5 clouds per day and they could last for 50 minutes.
  // Which could mean 250 minutes of clouds. We need to make sure the PWMSlope can accomodate 250 minutes of effects or unforseen resul could happen.
    // Also, make sure that you can fit double those minutes between Start_Cloud_After and End_Cloud_Before.
  // In our example, we have 510 minutes between Start_Cloud_After and End_Cloud_Before, so double the 250 minutes (or 500 minutes) can fit in that 510 minutes window.
    // It's a tight fit, but it did.

    //#define printdebug // Uncomment this for debug print on Serial Monitor window
  #define forcecloudcalculation // Uncomment this to force the cloud calculation to happen in the boot process. 


    // Change the values above to customize your cloud/storm effect
  // ------------------------------------------------------------
  // Do not change anything below here

  static byte cloudchance=255;
  static byte cloudduration=0;
  static int cloudstart=0;
  static byte numclouds=0;
  static byte lightningchance=0;
  static byte cloudindex=0;
  static byte lightningstatus=0;
  static int LastNumMins=0;
  // Every day at midnight, we check for chance of cloud happening today
  if (hour()==0 && minute()==0 && second()==0) cloudchance=255;

#ifdef forcecloudcalculation
    if (cloudchance==255)
#else
    if (hour()==0 && minute()==0 && second()==1 && cloudchance==255) 
#endif
    {
      //Pick a random number between 0 and 99
      cloudchance=random(100); 
      // if picked number is greater than Cloud_Chance_per_Day, we will not have clouds today
      if (cloudchance>Cloud_Chance_per_Day) cloudchance=0;
      // Check if today is day for clouds. 
      if ((day()%Clouds_Every_X_Days)!=0) cloudchance=0; 
      // If we have cloud today
      if (cloudchance)
      {
        // pick a random number for number of clouds between Min_Clouds_per_Day and Max_Clouds_per_Day
        numclouds=random(Min_Clouds_per_Day,Max_Clouds_per_Day);
        // pick the time that the first cloud will start
        // the range is calculated between Start_Cloud_After and the even distribuition of clouds on this day. 
        cloudstart=random(Start_Cloud_After,Start_Cloud_After+((End_Cloud_Before-Start_Cloud_After)/(numclouds*2)));
        // pick a random number for the cloud duration of first cloud.
        cloudduration=random(Min_Cloud_Duration,Max_Cloud_Duration);
        //Pick a random number between 0 and 99
        lightningchance=random(100);
        // if picked number is greater than Lightning_Change_per_Cloud, we will not have lightning today
        if (lightningchance>Lightning_Change_per_Cloud) lightningchance=0;
      }
    }
  // Now that we have all the parameters for the cloud, let's create the effect

  if (cloudchance)
  {
    //is it time for cloud yet?
    if (NumMins(hour(),minute())>=cloudstart && NumMins(hour(),minute())<(cloudstart+cloudduration))
    {
      // let's go through all channels to pick which ones will be dimmed
      for (int a=0;a<6;a++)
      {
        if (bitRead(Actinic_Channels,a)==0)
        {
          // this will slope down the channel from the current PWM to 0 within 3minutes.
          // then it will stay at 0 for the duration of the cycle
          // and finally slope up from 0 to PWM value within 3 minutes
          // it is basically an inversed slope
          PWMChannel[a]=ReversePWMSlope(cloudstart,cloudstart+cloudduration,PWMChannel[a],0,180);
        }
      }
      if (lightningchance && (NumMins(hour(),minute())==(cloudstart+(cloudduration/2))) && second()<5) 
      {
        for (int b=0;b<6;b++)
        {
          if (bitRead(Daylight_Channels,b)==1)
          {
            if (random(100)<20) lightningstatus=1; 
            else lightningstatus=0;
            if (lightningstatus) PWMChannel[b]=100; 
            else PWMChannel[b]=0;
            //delay(10);
          }
          else
          {
            PWMChannel[b]=20;
          }
        }
      }
    }
    if (NumMins(hour(),minute())>(cloudstart+cloudduration))
    {
      cloudindex++;
      if (cloudindex < numclouds)
      {
        cloudstart=random(Start_Cloud_After+(((End_Cloud_Before-Start_Cloud_After)/(numclouds*2))*cloudindex*2),(Start_Cloud_After+(((End_Cloud_Before-Start_Cloud_After)/(numclouds*2))*cloudindex*2))+((End_Cloud_Before-Start_Cloud_After)/(numclouds*2)));
        // pick a random number for the cloud duration of first cloud.
        cloudduration=random(Min_Cloud_Duration,Max_Cloud_Duration);
        //Pick a random number between 0 and 99
        lightningchance=random(100);
        // if picked number is greater than Lightning_Change_per_Cloud, we will not have lightning today
        if (lightningchance>Lightning_Change_per_Cloud) lightningchance=0;
      }
    }
  }
  
  if (LastNumMins!=NumMins(hour(),minute()))
  {
    LastNumMins=NumMins(hour(),minute());
    ReefAngel.LCD.Clear(255,0,120,132,132);
    ReefAngel.LCD.DrawText(0,255,5,120,"C");
    ReefAngel.LCD.DrawText(0,255,11,120,"00:00");
    ReefAngel.LCD.DrawText(0,255,45,120,"L");
    ReefAngel.LCD.DrawText(0,255,51,120,"00:00");
    if (cloudchance && (NumMins(hour(),minute())<cloudstart))
    {
      int x=0;
      if ((cloudstart/60)>=10) x=11; else x=17;
      ReefAngel.LCD.DrawText(0,255,x,120,(cloudstart/60));
      if ((cloudstart%60)>=10) x=29; else x=35;
      ReefAngel.LCD.DrawText(0,255,x,120,(cloudstart%60));
    }
    ReefAngel.LCD.DrawText(0,255,90,120,cloudduration);
    if (lightningchance) 
    {
      int x=0;
      if (((cloudstart+(cloudduration/2))/60)>=10) x=51; else x=57;
      ReefAngel.LCD.DrawText(0,255,x,120,((cloudstart+(cloudduration/2))/60));
      if (((cloudstart+(cloudduration/2))%60)>=10) x=69; else x=75;
      ReefAngel.LCD.DrawText(0,255,x,120,((cloudstart+(cloudduration/2))%60));
    }
  }   
}

byte ReversePWMSlope(long cstart,long cend,byte PWMStart,byte PWMEnd, byte clength)
{
  long n=elapsedSecsToday(now());
  cstart*=60;
  cend*=60;
  if (n<cstart) return PWMStart;
  if (n>=cstart && n<=(cstart+clength)) return map(n,cstart,cstart+clength,PWMStart,PWMEnd);
  if (n>(cstart+clength) && n<(cend-clength)) return PWMEnd;
  if (n>=(cend-clength) && n<=cend) return map(n,cend-clength,cend,PWMEnd,PWMStart);
  if (n>cend) return PWMStart;
}
Roberto.
briank6050
Posts: 13
Joined: Sun Nov 02, 2014 1:06 pm

Re: need someone to write a code

Post by briank6050 »

I will let you know how that code works when my other two drivers get here! One last question then ill quit buggin you for a while, how can iget my vortech pump into feeding mode when i toggle to feeding mode on the ra controller?
Post Reply