Analog Dimming & MOONPHASE ?

CASPAR · Post by **CASPAR** » Mon May 14, 2012 10:22 am

I have the RA + Analog and wish to have my moonlights dim or say work with moonphase this is my code could someone check it, it shows PWM just would like to run moonlights on the Actinic dimming side and overheat buzzer off of Daylight side created this code in Wizard mode in Arduino 1.0 here is code:

#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>

// Initialize Buzzer variables
byte buzzer=0;
byte overheatflag=0;

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

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

void setup()
{
// This must be the first line
ReefAngel.Init(); //Initialize controller
// Ports toggled in Feeding Mode
ReefAngel.FeedingModePorts = Port1Bit | Port2Bit;
// Ports toggled in Water Change Mode
ReefAngel.WaterChangePorts = 0;
// Ports toggled when Lights On / Off menu entry selected
ReefAngel.LightsOnPorts = 0;
// Ports turned off when Overheat temperature exceeded
ReefAngel.OverheatShutoffPorts = Port5Bit;
// Use T1 probe as temperature and overheat functions
ReefAngel.TempProbe = T1_PROBE;
ReefAngel.OverheatProbe = T1_PROBE;
// Set the Overheat temperature setting
InternalMemory.OverheatTemp_write( 800 );

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

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

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

void loop()
{
ReefAngel.StandardLights( Port3,11,0,19,0 );
ReefAngel.StandardLights( Port4,13,0,17,0 );
ReefAngel.StandardHeater( Port5,782,785 );
ReefAngel.StandardFan( Port6,780,785 );
ReefAngel.StandardLights( Port8,19,0,11,0 );
ReefAngel.PWM.SetActinic( MoonPhase() );
overheatflag = InternalMemory.read( Overheat_Exceed_Flag );
buzzer = overheatflag;
if ( buzzer > 1 ) buzzer = 100;
ReefAngel.PWM.SetDaylight( buzzer );

////// Place your custom code below here

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

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

CASPAR · Post by **CASPAR** » Mon May 14, 2012 12:33 pm

Ok moonlight seems to be working plugged into actinic side but can not get buzzer to work off of daylight side for over heat alarm..........Any ideas?

rimai · Post by **rimai** » Mon May 14, 2012 12:35 pm

Let me check on that later today.

CASPAR · Post by **CASPAR** » Mon May 14, 2012 12:48 pm

Ok thanks and noticed when using moonphase webpage portal shows actinic at 32% anything lower than that and moonlight goes completly out change dates on pc then change date on RA to match and moonlight seems to increase with phase of moon as should, but when their is say a quarter moon led moonlight goes totally out when actinic side is saying say 30% And buzzer side set up on daylight side shows hardly no voltage output to even power the buzzer at a known high temp.

rimai · Post by **rimai** » Mon May 14, 2012 1:30 pm

You just found the first bug on the Wizard

For the buzzer to work, replace this:

Code: Select all

if ( buzzer > 1 ) buzzer = 100;

With this:

Code: Select all

if ( buzzer >= 1 ) buzzer = 100;

I'll update the Wizard to fix this bug.

The moonlights were designed to dim properly on the PWM signal.
On analog, there is a cut off point that you are experiencing.
It looks like you don't really need the analog signal. If you are interested on exchanging it for a PWM signal, simply PM me.

DrewPalmer04 · Post by **DrewPalmer04** » Tue May 29, 2012 6:57 pm

How would I do a moon phase when my two dimming channels are already used for analog meanwell drivers? I don't need fancy just a possibility to have some LEDs that follow the moon cycle. ATO ports on head unit impossible to use? I assume they don't dim. Only switch? Options?

rimai · Post by **rimai** » Tue May 29, 2012 7:18 pm

It is possible, but the ATO port is not boosted and will only output 5VDC.
The other option would be a dimming expansion module.

Blawson · Post by **Blawson** » Tue May 29, 2012 7:21 pm

With that said about the ato port, does that mean plugging in an ai nano will never get 100%

rimai · Post by **rimai** » Tue May 29, 2012 7:36 pm

AI uses different technology.
Those fixtures use serial communication and they have an independent controller inside the fixture.
That's why you can control all 3 channels with just a pair of wires.

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 5:45 am

The code needed to make the ATO ports to go 0-5v with moon phase? That would suit me.

rimai · Post by **rimai** » Wed May 30, 2012 7:39 am

You can use the low ATO port.
What you need is this:

Code: Select all

  pinMode(lowATOPin,OUTPUT); 
  analogWrite(lowATOPin,(int)MoonPhase()*2.55);

That will make the low ATO port to output 0-5V according to the moon cycle.

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 10:49 am

Thanks Roberto...now just to order more dimmer connectors.

lol AND temp probes...andddd....never ending

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 11:12 am

where should this code be placed? After I placed in the software and uploaded my PWM values are even...and that's not how I have it programmed.

Code: Select all

// Autogenerated file by RAGen (v1.2.2.171), (05/29/2012 16:15)
// RA_052912_1615.ino
//
// This version designed for v0.9.0 or later

/* The following features are enabled for this File: 
#define VersionMenu
#define DisplayLEDPWM
#define wifi
#define WDT
#define SIMPLE_MENU
*/


#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 <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.FeedingModePorts = 0;
    // Ports toggled in Water Change Mode
    ReefAngel.WaterChangePorts = 0;
    // Ports toggled when Lights On / Off menu entry selected
    ReefAngel.LightsOnPorts = 0;
    // 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( 860 );
    

    // Ports that are always on
    ReefAngel.Relay.On(Port3);
    ReefAngel.Relay.On(Port4);
    ReefAngel.Relay.On(Port7);
    ReefAngel.Relay.On(Port8);
    ////// Place additional initialization code below here
    pinMode(lowATOPin,OUTPUT); 
    analogWrite(lowATOPin,(int)MoonPhase()*2.55); 
    

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

void loop()
{
    // Specific functions that use Internal Memory values
    ReefAngel.StandardLights( Port1,19,0,6,30 );
    ReefAngel.StandardHeater( Port4,740,770 );
    ReefAngel.StandardLights( Port7,6,0,20,0 );
    ReefAngel.StandardLights( Port8,7,0,19,0 );
    ReefAngel.Wavemaker1(Port5);
    ReefAngel.Wavemaker2(Port6);
    ReefAngel.PWM.SetDaylight( PWMParabola(7,5,19,0,0,85,0) );
    ReefAngel.PWM.SetActinic( PWMParabola(6,5,21,0,0,85,0) );
    

    ////// Place your custom code below here
    

    ////// Place your custom code above here
    // This sends all the data to the portal
    // Do not add any custom code that changes any relay status after this line
    // The only code after this line should be the ShowInterface function
    ReefAngel.Portal("DrewPalmer04", "********");

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

rimai · Post by **rimai** » Wed May 30, 2012 11:49 am

It needs to go into the loop() section instead of setup()

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 11:56 am

Better?

Code: Select all

// Autogenerated file by RAGen (v1.2.2.171), (05/29/2012 16:15)
// RA_052912_1615.ino
//
// This version designed for v0.9.0 or later

/* The following features are enabled for this File: 
#define VersionMenu
#define DisplayLEDPWM
#define wifi
#define WDT
#define SIMPLE_MENU
*/


#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 <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.FeedingModePorts = 0;
    // Ports toggled in Water Change Mode
    ReefAngel.WaterChangePorts = 0;
    // Ports toggled when Lights On / Off menu entry selected
    ReefAngel.LightsOnPorts = 0;
    // 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( 860 );
    

    // Ports that are always on
    ReefAngel.Relay.On(Port3);
    ReefAngel.Relay.On(Port4);
    ReefAngel.Relay.On(Port7);
    ReefAngel.Relay.On(Port8);
    ////// Place additional initialization code below here
    
    

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

void loop()
{
    // Specific functions that use Internal Memory values
    ReefAngel.StandardLights( Port1,19,0,6,30 );
    ReefAngel.StandardHeater( Port4,740,770 );
    ReefAngel.StandardLights( Port7,6,0,20,0 );
    ReefAngel.StandardLights( Port8,7,0,19,0 );
    ReefAngel.Wavemaker1(Port5);
    ReefAngel.Wavemaker2(Port6);
    ReefAngel.PWM.SetDaylight( PWMParabola(7,5,19,0,0,85,0) );
    ReefAngel.PWM.SetActinic( PWMParabola(6,5,21,0,0,85,0) );
    

    ////// Place your custom code below here
    pinMode(lowATOPin,OUTPUT); 
    analogWrite(lowATOPin,(int)MoonPhase()*2.55);
    

    ////// Place your custom code above here
    // This sends all the data to the portal
    // Do not add any custom code that changes any relay status after this line
    // The only code after this line should be the ShowInterface function
    ReefAngel.Portal("DrewPalmer04", "********");

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

rimai · Post by **rimai** » Wed May 30, 2012 12:02 pm

That should do it

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 12:25 pm

THANKS!

Will I need to deal with polarity? Which is (+)?

rimai · Post by **rimai** » Wed May 30, 2012 1:49 pm

Yeah, you need to watch polarity.
They have the same polarity as the standard PWM channels.

DrewPalmer04 · Post by **DrewPalmer04** » Wed May 30, 2012 1:58 pm

got it thanks!

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 5:58 pm

I've got the moonlights wired in. I'm experiencing a pulse every 5-8 seconds? It's a millisecond probably, but this is a weird thing that is happening?

Ideas?

rimai · Post by **rimai** » Thu May 31, 2012 6:33 pm

Are you using StandardATO? or SingleATO that uses the low port?

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 6:54 pm

Please clarify?

I have a string of LEDs on the low port with proper polarity. I single connector going ONLY to the low ATO port.

rimai · Post by **rimai** » Thu May 31, 2012 7:07 pm

I meant if in your code you are using any ATO function.
Can you paste the code?

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 7:13 pm

I've not modified anything related to ATO. I would assume its standardATO

rimai · Post by **rimai** » Thu May 31, 2012 7:15 pm

That's probably the reason.
The StandardATO is querying that port to check for the float switch and interfering with the dimming.

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 7:21 pm

Makes perfect sense. How do I change that code? Also how do I view my existing code without saving my custom code and uploading the total code again?

rimai · Post by **rimai** » Thu May 31, 2012 7:31 pm

There is no way to reverse back what you have inside the RA already.
The best practice is to save the code with a filename that is easy for you to remember and open the file when you need to make changes.

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 7:35 pm

Ok that's what I've been doing. That's good. So how do I go from standard to singleATO?

rimai · Post by **rimai** » Thu May 31, 2012 7:39 pm

Instead of using StandardATO, you need to use SingleATOHigh

DrewPalmer04 · Post by **DrewPalmer04** » Thu May 31, 2012 7:44 pm

Thanks. I'm sure I'll figure it out

Reef Angel Forum