Ai sol + wavemaker

Related to the development libraries, released by Curt Binder
Post Reply
wijigong
Posts: 51
Joined: Sat Sep 17, 2011 5:03 am

Ai sol + wavemaker

Post by wijigong »

hello

i think y have error on my config

my Ai sol is configured in the same timer of my wavemaker
and on the sunset sunrise the Ai drop by step everytime the wavemaker pulse
and after power outage, depending what wavemaker start the first the moonlight fonction not work.
the AI just power off

another issue de cloud work , but not de lightning

Code: Select all

[quote]
#include <ReefAngel_Features.h>
#include <Globals.h>
#include <RA_Wifi.h>
#include <[color=#CC6600]Wire[/color].h>
#include <[color=#CC6600]OneWire[/color].h>
#include <Time.h>
#include <DS1307RTC.h>
#include <InternalEEPROM.h>
#include <RA_NokiaLCD.h>
#include <RA_ATO.h>
#include <RA_Joystick.h>
#include <[color=#006699]LED[/color].h>
#include <RA_TempSensor.h>
#include <[color=#006699]Relay[/color].h>
#include <RA_PWM.h>
#include <[color=#006699]AI[/color].h>
#include <[color=#006699]Timer[/color].h>
#include <Memory.h>
#include <InternalEEPROM.h>
#include <RA_Colors.h>
#include <RA_CustomColors.h>
#include <[color=#006699]Salinity[/color].h>
#include <[color=#006699]RF[/color].h>
#include <[color=#006699]IO[/color].h>
#include <[color=#006699]ORP[/color].h>
#include <[color=#CC6600]ReefAngel[/color].h>

[color=#CC6600]byte[/color] WhiteValue=0;
[color=#CC6600]byte[/color] BlueValue=0;
[color=#CC6600]byte[/color] RoyalBlueValue=0;

[color=#7E7E7E]//custom dysplay temp+on and off relay [/color]
[color=#CC6600]void[/color] DrawCustomMain()
{
   [color=#CC6600]byte[/color] x = 6;
   [color=#CC6600]byte[/color] y = 2;
   [color=#CC6600]byte[/color] t;
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawDate[/color](6, 2);
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]Clear[/color](COLOR_BLACK, 1, 11, 132, 11);
   x = 12;
   y += [color=#006699]MENU_START_ROW[/color]+1;
    [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](COLOR_BLUE, COLOR_WHITE, x, y+6, [color=#006699]"TEMP        pH"[/color]);
   [color=#CC6600]char[/color] text[7];
   [color=#CC6600]ConvertNumToString[/color](text, [color=#CC6600]ReefAngel[/color].[color=#006699]Params[/color].[color=#006699]PH[/color], 100);
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]Clear[/color](DefaultBGColor, x+16, y+65, x+65, y+16);
  [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawLargeText[/color](PHColor, DefaultBGColor, x+75, y+18, text, Font8x16); 

   [color=#CC6600]ConvertNumToString[/color](text, [color=#CC6600]ReefAngel[/color].[color=#006699]Params[/color].[color=#006699]Temp[/color][[color=#006699]T1_PROBE[/color]], 10);
   y += [color=#006699]MENU_START_ROW[/color]*2;
   x = 10;
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]Clear[/color](DefaultBGColor,x,y,x+(16*4),y+16);
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].DrawHugeNumbers(T1TempColor, DefaultBGColor, x, y,text);
   #if defined AI_LED && ! defined RemoveAllLights
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](DPColor, DefaultBGColor, 69, 78 ,[color=#006699]"W:"[/color]);
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].DrawSingleMonitor([color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]GetChannel[/color](0), DPColor, 84, 78, 1);
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](APColor , DefaultBGColor, 69, 90 ,[color=#006699]"B:"[/color]);
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].DrawSingleMonitor([color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]GetChannel[/color](1), APColor, 84, 90, 1);
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](APColor , DefaultBGColor, 94, 90 ,[color=#006699]"RB:"[/color]);
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].DrawSingleMonitor([color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]GetChannel[/color](2), APColor, 115, 90, 1);
#else [color=#7E7E7E]// defined DisplayLEDPWM && ! defined RemoveAllLights[/color]
     [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawMonitor[/color](15, 65, [color=#CC6600]ReefAngel[/color].[color=#006699]Params[/color]);
#endif [color=#7E7E7E]// defined DisplayLEDPWM && ! defined RemoveAllLights[/color]

   
   

   [color=#CC6600]byte[/color] TempRelay = [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#006699]RelayData[/color];
   TempRelay &= [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#006699]RelayMaskOff[/color];
   TempRelay |= [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#006699]RelayMaskOn[/color];
   [color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawOutletBox[/color](12, 97, TempRelay);
}


[color=#CC6600]void[/color] DrawCustomGraph()
{
}

[color=#7E7E7E]//*********************************************************************************************************************************[/color]
[color=#7E7E7E]// Random Cloud/Thunderstorm effects function[/color]
[color=#CC6600]void[/color] CheckCloud()
{

[color=#7E7E7E]// ------------------------------------------------------------[/color]
[color=#7E7E7E]// Change the values below to customize your cloud/storm effect[/color]

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

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

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

[color=#7E7E7E]// Maximum number of minutes for the cloud duration. Don't use max duration of more than 255[/color]
#define Max_Cloud_Duration 15

[color=#7E7E7E]// Minimum number of clouds that can happen per day[/color]
#define Min_Clouds_per_Day 3

[color=#7E7E7E]// Maximum number of clouds that can happen per day[/color]
#define Max_Clouds_per_Day 5

[color=#7E7E7E]// Only start the cloud effect after this setting[/color]
[color=#7E7E7E]// In this example, start could after 11:30am[/color]
#define Start_Cloud_After [color=#CC6600]NumMins[/color](10,00)

[color=#7E7E7E]// Always end the cloud effect before this setting[/color]
[color=#7E7E7E]// In this example, end could before 8:00pm[/color]
#define End_Cloud_Before [color=#CC6600]NumMins[/color](22,00)

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

[color=#7E7E7E]// Note: Make sure to choose correct values that will work within your PWMSLope settings.[/color]
[color=#7E7E7E]// For example, in our case, we could have a max of 5 clouds per day and they could last for 50 minutes.[/color]
[color=#7E7E7E]// 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.[/color]
[color=#7E7E7E]// Also, make sure that you can fit double those minutes between Start_Cloud_After and End_Cloud_Before.[/color]
[color=#7E7E7E]// 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.[/color]
[color=#7E7E7E]// It's a tight fit, but it did.[/color]

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


[color=#7E7E7E]// Change the values above to customize your cloud/storm effect[/color]
[color=#7E7E7E]// ------------------------------------------------------------[/color]
[color=#7E7E7E]// Do not change anything below here[/color]

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

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

[color=#CC6600]if[/color] (cloudchance)
{
[color=#7E7E7E]//is it time for cloud yet?[/color]
[color=#CC6600]if[/color] ([color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]())>=cloudstart && [color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]())<(cloudstart+cloudduration))
{
WhiteValue=ReversePWMSlope(cloudstart,cloudstart+cloudduration,WhiteValue,0,180);
[color=#CC6600]if[/color] (lightningchance && ([color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]())==(cloudstart+(cloudduration/2))) && second()<5) 
{
[color=#CC6600]if[/color] ([color=#CC6600]random[/color](100)<20) lightningstatus=1; 
[color=#CC6600]else[/color] lightningstatus=0;
[color=#CC6600]if[/color] (lightningstatus)
{
WhiteValue=50; 
BlueValue=50;
RoyalBlueValue=50;
}
[color=#CC6600]else[/color] 
{
WhiteValue=0; 
BlueValue=0;
RoyalBlueValue=0;
}
[color=#CC6600]delay[/color](1);
}
}
[color=#CC6600]if[/color] ([color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]())>(cloudstart+cloudduration))
{
cloudindex++;
[color=#CC6600]if[/color] (cloudindex < numclouds)
{
cloudstart=[color=#CC6600]random[/color](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)));
[color=#7E7E7E]// pick a random number for the cloud duration of first cloud.[/color]
cloudduration=[color=#CC6600]random[/color](Min_Cloud_Duration,Max_Cloud_Duration);
[color=#7E7E7E]//Pick a random number between 0 and 99[/color]
lightningchance=[color=#CC6600]random[/color](100);
[color=#7E7E7E]// if picked number is greater than Lightning_Change_per_Cloud, we will not have lightning today[/color]
[color=#CC6600]if[/color] (lightningchance>Lightning_Change_per_Cloud) lightningchance=0;
}
}
}

[color=#CC6600]if[/color] (LastNumMins!=[color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]()))
{
LastNumMins=[color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]());
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]Clear[/color](255,0,120,132,132);
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,5,120,[color=#006699]"C"[/color]);
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,11,120,[color=#006699]"00:00"[/color]);
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,45,120,[color=#006699]"L"[/color]);
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,51,120,[color=#006699]"00:00"[/color]);
[color=#CC6600]if[/color] (cloudchance && ([color=#CC6600]NumMins[/color](hour(),[color=#CC6600]minute[/color]())<cloudstart))
{
[color=#CC6600]int[/color] x=0;
[color=#CC6600]if[/color] ((cloudstart/60)>=10) x=11; [color=#CC6600]else[/color] x=17;
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,x,120,(cloudstart/60));
[color=#CC6600]if[/color] ((cloudstart%60)>=10) x=29; [color=#CC6600]else[/color] x=35;
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,x,120,(cloudstart%60));
}
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,90,120,cloudduration);
[color=#CC6600]if[/color] (lightningchance) 
{
[color=#CC6600]int[/color] x=0;
[color=#CC6600]if[/color] (((cloudstart+(cloudduration/2))/60)>=10) x=51; [color=#CC6600]else[/color] x=57;
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,x,120,((cloudstart+(cloudduration/2))/60));
[color=#CC6600]if[/color] (((cloudstart+(cloudduration/2))%60)>=10) x=69; [color=#CC6600]else[/color] x=75;
[color=#CC6600]ReefAngel[/color].[color=#006699]LCD[/color].[color=#CC6600]DrawText[/color](0,255,x,120,((cloudstart+(cloudduration/2))%60));
}
} 
}

[color=#CC6600]byte[/color] ReversePWMSlope([color=#CC6600]long[/color] cstart,[color=#CC6600]long[/color] cend,[color=#CC6600]byte[/color] PWMStart,[color=#CC6600]byte[/color] PWMEnd, [color=#CC6600]byte[/color] clength)
{
[color=#CC6600]long[/color] n=elapsedSecsToday([color=#CC6600]now[/color]());
cstart*=60;
cend*=60;
[color=#CC6600]if[/color] (n<cstart) [color=#CC6600]return[/color] PWMStart;
[color=#CC6600]if[/color] (n>=cstart && n<=(cstart+clength)) [color=#CC6600]return[/color] [color=#CC6600]map[/color](n,cstart,cstart+clength,PWMStart,PWMEnd);
[color=#CC6600]if[/color] (n>(cstart+clength) && n<(cend-clength)) [color=#CC6600]return[/color] PWMEnd;
[color=#CC6600]if[/color] (n>=(cend-clength) && n<=cend) [color=#CC6600]return[/color] [color=#CC6600]map[/color](n,cend-clength,cend,PWMEnd,PWMStart);
[color=#CC6600]if[/color] (n>cend) [color=#CC6600]return[/color] PWMStart;
}



[color=#CC6600]void[/color] [color=#CC6600][b]setup[/b][/color]()
{
   

   [color=#CC6600]ReefAngel[/color].[color=#CC6600]Init[/color](); [color=#7E7E7E]//Initialize controller[/color]
   [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetPort[/color](lowATOPin);
   [color=#CC6600]randomSeed[/color]([color=#CC6600]analogRead[/color](0));
   [color=#CC6600]ReefAngel[/color].[color=#006699]Timer[/color][1].[color=#CC6600]SetInterval[/color]([color=#CC6600]random[/color](10,[color=#CC6600]InternalMemory[/color].[color=#CC6600]WM1Timer_read[/color]()));
   [color=#CC6600]ReefAngel[/color].[color=#006699]Timer[/color][1].[color=#CC6600]Start[/color]();
   [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]On[/color]([color=#006699]Port6[/color]);
   
   [color=#CC6600]ReefAngel[/color].[color=#006699]FeedingModePorts[/color] = B00110000;
   [color=#CC6600]ReefAngel[/color].[color=#006699]OverheatShutoffPorts[/color] = B00001110;
   [color=#CC6600]ReefAngel[/color].[color=#006699]WaterChangePorts[/color] = B11110001;
   
   

   [color=#7E7E7E]// Ports that are always on[/color]
   [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]On[/color]([color=#006699]Port8[/color]);
   [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]On[/color]([color=#006699]Port7[/color]);
   
   
}

[color=#CC6600]void[/color] [color=#CC6600][b]loop[/b][/color]()
{
  
  
  [color=#CC6600]ReefAngel[/color].[color=#CC6600]StandardLights[/color]([color=#006699]Port3[/color], 10, 00, 22, 00);
  [color=#CC6600]ReefAngel[/color].[color=#CC6600]StandardLights[/color]([color=#006699]Port2[/color], 12, 00, 20, 00);
  [color=#CC6600]ReefAngel[/color].[color=#CC6600]StandardHeater[/color]([color=#006699]Port4[/color]);
  [color=#CC6600]ReefAngel[/color].[color=#CC6600]SingleATOHigh[/color]([color=#006699]Port1[/color]);
  
  [color=#7E7E7E]//wave maker fonction with night mode [/color]
   [color=#CC6600]if[/color] ( (hour() >= 22) || (hour() <= 9) ) [color=#7E7E7E]// from 10p - 9a[/color]
   {
      [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]Off[/color]([color=#006699]Port6[/color]);
      [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]On[/color]([color=#006699]Port5[/color]);
      [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](White,0);
      [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](Blue,[color=#CC6600]MoonPhase[/color]()*0.04);
      [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](RoyalBlue,[color=#CC6600]MoonPhase[/color]()*0.04);
   }
   [color=#CC6600]else[/color]
   {
      [color=#7E7E7E]// during the day[/color]
      [color=#CC6600]if[/color] ( [color=#CC6600]ReefAngel[/color].[color=#006699]Timer[/color][1].[color=#CC6600]IsTriggered[/color]() )
      { 
         [color=#CC6600]ReefAngel[/color].[color=#006699]Timer[/color][1].[color=#CC6600]SetInterval[/color]([color=#CC6600]random[/color](20,25));
         [color=#CC6600]ReefAngel[/color].[color=#006699]Timer[/color][1].[color=#CC6600]Start[/color]();
         [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]Toggle[/color]([color=#006699]Port6[/color]);
         [color=#CC6600]ReefAngel[/color].[color=#006699]Relay[/color].[color=#CC6600]Toggle[/color]([color=#006699]Port5[/color]);
         WhiteValue=[color=#CC6600]PWMSlope[/color](12,0,20,0,3,35,60,3);
         BlueValue=[color=#CC6600]PWMSlope[/color](10,0,22,0,8,40,60,8);
         RoyalBlueValue=[color=#CC6600]PWMSlope[/color](10,0,22,0,8,40,60,8);
         CheckCloud();
         [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](White,WhiteValue);
         [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](Blue,BlueValue);
         [color=#CC6600]ReefAngel[/color].[color=#006699]AI[/color].[color=#CC6600]SetChannel[/color](RoyalBlue,RoyalBlueValue);
      } 
   }
[color=#CC6600]ReefAngel[/color].[color=#CC6600]ShowInterface[/color]();
}




[/quote][code]
rimai
Posts: 12881
Joined: Fri Mar 18, 2011 6:47 pm

Re: Ai sol + wavemaker

Post by rimai »

Correct.
You placed the function inside the wm timer.
Try this:

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 <AI.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 <ReefAngel.h>

byte WhiteValue=0;
byte BlueValue=0;
byte RoyalBlueValue=0;

//custom dysplay temp+on and off relay 
void DrawCustomMain()
{
  byte x = 6;
  byte y = 2;
  byte t;
  ReefAngel.LCD.DrawDate(6, 2);
  ReefAngel.LCD.Clear(COLOR_BLACK, 1, 11, 132, 11);
  x = 12;
  y += MENU_START_ROW+1;
  ReefAngel.LCD.DrawText(COLOR_BLUE, COLOR_WHITE, x, y+6, "TEMP pH");
  char text[7];
  ConvertNumToString(text, ReefAngel.Params.PH, 100);
  ReefAngel.LCD.Clear(DefaultBGColor, x+16, y+65, x+65, y+16);
  ReefAngel.LCD.DrawLargeText(PHColor, DefaultBGColor, x+75, y+18, text, Font8x16); 

  ConvertNumToString(text, ReefAngel.Params.Temp[T1_PROBE], 10);
  y += MENU_START_ROW*2;
  x = 10;
  ReefAngel.LCD.Clear(DefaultBGColor,x,y,x+(16*4),y+16);
  ReefAngel.LCD.DrawHugeNumbers(T1TempColor, DefaultBGColor, x, y,text);
#if defined AI_LED && ! defined RemoveAllLights
  ReefAngel.LCD.DrawText(DPColor, DefaultBGColor, 69, 78 ,"W:");
  ReefAngel.LCD.DrawSingleMonitor(ReefAngel.AI.GetChannel(0), DPColor, 84, 78, 1);
  ReefAngel.LCD.DrawText(APColor , DefaultBGColor, 69, 90 ,"B:");
  ReefAngel.LCD.DrawSingleMonitor(ReefAngel.AI.GetChannel(1), APColor, 84, 90, 1);
  ReefAngel.LCD.DrawText(APColor , DefaultBGColor, 94, 90 ,"RB:");
  ReefAngel.LCD.DrawSingleMonitor(ReefAngel.AI.GetChannel(2), APColor, 115, 90, 1);
#else // defined DisplayLEDPWM && ! defined RemoveAllLights
  ReefAngel.LCD.DrawMonitor(15, 65, ReefAngel.Params);
#endif // defined DisplayLEDPWM && ! defined RemoveAllLights




    byte TempRelay = ReefAngel.Relay.RelayData;
  TempRelay &= ReefAngel.Relay.RelayMaskOff;
  TempRelay |= ReefAngel.Relay.RelayMaskOn;
  ReefAngel.LCD.DrawOutletBox(12, 97, TempRelay);
}


void DrawCustomGraph()
{
}

//*********************************************************************************************************************************
// 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 2 

  // 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(10,00)

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

  // 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 50

  // 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))
    {
      WhiteValue=ReversePWMSlope(cloudstart,cloudstart+cloudduration,WhiteValue,0,180);
      if (lightningchance && (NumMins(hour(),minute())==(cloudstart+(cloudduration/2))) && second()<5) 
      {
        if (random(100)<20) lightningstatus=1; 
        else lightningstatus=0;
        if (lightningstatus)
        {
          WhiteValue=50; 
          BlueValue=50;
          RoyalBlueValue=50;
        }
        else 
        {
          WhiteValue=0; 
          BlueValue=0;
          RoyalBlueValue=0;
        }
        delay(1);
      }
    }
    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;
}



void setup()
{


  ReefAngel.Init(); //Initialize controller
  ReefAngel.AI.SetPort(lowATOPin);
  randomSeed(analogRead(0));
  ReefAngel.Timer[1].SetInterval(random(10,InternalMemory.WM1Timer_read()));
  ReefAngel.Timer[1].Start();
  ReefAngel.Relay.On(Port6);

  ReefAngel.FeedingModePorts = B00110000;
  ReefAngel.OverheatShutoffPorts = B00001110;
  ReefAngel.WaterChangePorts = B11110001;



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


}

void loop()
{


  ReefAngel.StandardLights(Port3, 10, 00, 22, 00);
  ReefAngel.StandardLights(Port2, 12, 00, 20, 00);
  ReefAngel.StandardHeater(Port4);
  ReefAngel.SingleATOHigh(Port1);

  //wave maker fonction with night mode 
  if ( (hour() >= 22) || (hour() <= 9) ) // from 10p - 9a
  {
    ReefAngel.Relay.Off(Port6);
    ReefAngel.Relay.On(Port5);
    ReefAngel.AI.SetChannel(White,0);
    ReefAngel.AI.SetChannel(Blue,MoonPhase()*0.04);
    ReefAngel.AI.SetChannel(RoyalBlue,MoonPhase()*0.04);
  }
  else
  {
    // during the day
    if ( ReefAngel.Timer[1].IsTriggered() )
    { 
      ReefAngel.Timer[1].SetInterval(random(20,25));
      ReefAngel.Timer[1].Start();
      ReefAngel.Relay.Toggle(Port6);
      ReefAngel.Relay.Toggle(Port5);

    } 
    WhiteValue=PWMSlope(12,0,20,0,3,35,60,3);
    BlueValue=PWMSlope(10,0,22,0,8,40,60,8);
    RoyalBlueValue=PWMSlope(10,0,22,0,8,40,60,8);
    CheckCloud();
  }

  ReefAngel.AI.SetChannel(White,WhiteValue);
  ReefAngel.AI.SetChannel(Blue,BlueValue);
  ReefAngel.AI.SetChannel(RoyalBlue,RoyalBlueValue);
  ReefAngel.ShowInterface();
}

Roberto.
wijigong
Posts: 51
Joined: Sat Sep 17, 2011 5:03 am

Re: Ai sol + wavemaker

Post by wijigong »

is work tank you

another issue

lightning is so weird

all light turn offf the white led flash but not rapid flash
the white led turn off the blue come on and after the white

is not like lightning flash

not like this video

http://www.youtube.com/watch?v=zg16zHaM ... re=related
Post Reply