-
Posts: 105 Joined: Sun Mar 20, 2011 12:38 am Location: France
|
 Posted: Thu Dec 29, 2016 5:52 am
Same : - Code: Select all
#include <Salinity.h> #include <ReefAngel_Features.h> #include <Globals.h> #include <RA_TS.h> #include <RA_TouchLCD.h> #include <RA_TFT.h> #include <RA_TS.h> #include <Font.h> #include <RA_Wifi.h> #include <RA_Wiznet5100.h> #include <SD.h> #include <SPI.h> #include <Ethernet.h> #include <EthernetDHCP.h> #include <PubSubClient.h> #include <Wire.h> #include <OneWire.h> #include <Time.h> #include <DS1307RTC.h> #include <InternalEEPROM.h> #include <RA_ATO.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 <RA_CustomLabels.h> #include <RF.h> #include <IO.h> #include <ORP.h> #include <AI.h> #include <PH.h> #include <WaterLevel.h> #include <Humidity.h> #include <PAR.h> #include <DCPump.h> #include <ReefAngel.h> #include <SoftwareSerial.h>
////// Place global variable code below here
int DaylightPWMValue=0; // For cloud code
////// Place global variable code above here
void setup() { // This must be the first line ReefAngel.Init(); //Initialize controller ReefAngel.Star(); //ReefAngel.AddStandardMenu(); //ReefAngel.Use2014Screen(); // Let's use 2014 Screen //ReefAngel.AddRANet(); // RANet Add-On Module ReefAngel.SetTemperatureUnit( Celsius ); // set to Celsius Temperature // Ports toggled in Feeding Mode ReefAngel.FeedingModePorts = 0; // Ports toggled in Water Change Mode ReefAngel.WaterChangePorts = 0; // Ports turned off when Overheat temperature exceeded ReefAngel.OverheatShutoffPorts = 0; // Ports turned off when Leak is detected ReefAngel.LeakShutoffPorts = 0; // Ports toggled when Lights On / Off menu entry selected ReefAngel.LightsOnPorts = Port1Bit | Port2Bit; // Use T1 probe as temperature and overheat functions ReefAngel.TempProbe = T1_PROBE; ReefAngel.OverheatProbe = T1_PROBE; // Set the Overheat temperature setting InternalMemory.OverheatTemp_write( 300 );
// Ports that are always on ReefAngel.Relay.On( Port3 ); ReefAngel.Relay.On( Port4 ); ReefAngel.Relay.On( Port5 ); ReefAngel.Relay.On( Port6 ); ReefAngel.Relay.On( Port7 ); ReefAngel.Relay.On( Port8 );
////// Place additional initialization code below here ReefAngel.Portal("Xender","$$$$$"); //ReefAngel.Network.WifiAuthentication("Xender:$$$$$$"); // Ports turned off when Leak is detected //ReefAngel.LeakShutoffPorts = Box1_Port3; ////// Place additional initialization code above here }
void loop() { ReefAngel.StandardLights( Port1,8,0,23,0 ); ReefAngel.StandardLights( Port2,8,0,23,0 ); ReefAngel.PWM.SetDaylight( PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetActinic( PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetDaylight2( PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetActinic2( PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetChannel( 0,PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetChannel( 1,PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetChannel( 2,PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetChannel( 3,PWMSlope( 9,0,23,0,15,70,60,0 ) ); ReefAngel.PWM.SetChannel( 4,PWMSlope( 9,0,23,0,15,70,60,0 ) );
//Cloud DaylightPWMValue=PWMSlopeHighRes(10,30,22,0,0,85,60,0); CheckCloud(); ReefAngel.PWM.SetChannelRaw(1,DaylightPWMValue); boolean buzzer=false; if ( ReefAngel.isOverheat() ) buzzer=true; if ( buzzer ) ReefAngel.BuzzerOn(2); else ReefAngel.BuzzerOff();
////// Place your custom code below here //CO2 // if ( ReefAngel.Params.PH <= 600 ) //ReefAngel.Relay.Off(Box1_Port5); //if ( ReefAngel.Params.PH >= 700 ) //ReefAngel.Relay.On(Box1_Port5);
//Week days light ON/OFF InternalMemory.write(0, 17); InternalMemory.write(1, 00); InternalMemory.write(2, 00); InternalMemory.write(3, 00); InternalMemory.write(4, 17); InternalMemory.write(5, 00); InternalMemory.write(6, 00); InternalMemory.write(7, 00); // if ( (weekday() == 1) || (weekday() == 7) ) // Sunday or Saturday // { // // 0 - on hour, 1 - on minute, 2 - off hour, 3 - off minute // // 4 - on hour, 5 - on minute, 6 - off hour, 7 - off minute // ReefAngel.StandardLights(Box1_Port1, InternalMemory.read(0), InternalMemory.read(1), InternalMemory.read(2), InternalMemory.read(3)); // Weekend schedule // ReefAngel.StandardLights(Box1_Port2, InternalMemory.read(4), InternalMemory.read(5), InternalMemory.read(6), InternalMemory.read(7)); // Weekend schedule // } else // { // ReefAngel.StandardLights(Box1_Port1,17,0,23,0 ); // Weekday schedule (use standard internal memory values) // ReefAngel.StandardLights(Box1_Port2,17,0,23,0 ); // Weekday schedule (use standard internal memory values) // }
////// Place your custom code above here
ReefAngel.Network.Cloud(); // This should always be the last line ReefAngel.ShowTouchInterface(); }
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 7
// Minimum number of clouds that can happen per day #define Min_Clouds_per_Day 1
// Maximum number of clouds that can happen per day #define Max_Clouds_per_Day 2
// Only start the cloud effect after this setting // In this example, start cloud after noon #define Start_Cloud_After NumMins(12,00)
// Always end the cloud effect before this setting // In this example, end cloud before 9:00pm #define End_Cloud_Before NumMins(21,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 100
// 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 result 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.
// Add Random Lightning modes #define Calm 0 // No lightning #define Slow 1 // 5 seconds of slow lightning in the middle of a cloud for ELN style (slow response) drivers #define Fast 2 // 5 seconds of fast lightning in the middle of a cloud for LDD style (fast response) drivers #define Mega 3 // Lightning throughout the cloud, higher chance as it gets darker #define Mega2 4 // Like Mega, but with more lightning // Set which modes you want to use // Example: { Calm, Fast, Mega, Mega2 } to randomize all four modes. // { Mega2 } for just Mega2. { Mega, Mega, Fast} for Mega and Fast, with twice the chance of Mega. byte LightningModes[] = {Mega2,Mega,Mega};
// 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; static byte lightningMode=0; static boolean chooseLightning=true;
static time_t DelayCounter=millis(); // Variable for lightning timing. static int DelayTime=random(1000); // Variable for lightning timimg.
// 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 { randomSeed(millis()); // Seed the random number generator //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)) { DaylightPWMValue=ReversePWMSlope(cloudstart,cloudstart+cloudduration,DaylightPWMValue/40.95,0,180)*40.95; if (chooseLightning) { lightningMode=LightningModes[random(100)%sizeof(LightningModes)]; chooseLightning=false; } switch (lightningMode) { case Calm: break; case Mega: // Lightning chance from beginning of cloud through the end. Chance increases with darkness of cloud. if (lightningchance && random(ReversePWMSlope(cloudstart,cloudstart+cloudduration,100,0,180))<1 && (millis()-DelayCounter)>DelayTime) { // Send the trigger Strike(); DelayCounter=millis(); // If we just had a round of flashes, then lets put in a longer delay DelayTime=random(1000); // of up to a second for dramatic effect before we do another round. } break; case Mega2: // Higher lightning chance from beginning of cloud through the end. Chance increases with darkness of cloud. if (lightningchance && random(ReversePWMSlope(cloudstart,cloudstart+cloudduration,100,0,180))<2) { Strike(); } break; case Fast: // 5 seconds of lightning in the middle of the cloud if (lightningchance && (NumMins(hour(),minute())==(cloudstart+(cloudduration/2))) && second()<5 && (millis()-DelayCounter)>DelayTime) { Strike();
DelayCounter=millis(); // If we just had a round of flashes, then lets put in a longer delay DelayTime=random(1000); // of up to a second for dramatic effect before we do another round. } break; case Slow: // Slow lightning for 5 seconds in the middle of the cloud. Suitable for slower ELN style drivers if (lightningchance && (NumMins(hour(),minute())==(cloudstart+(cloudduration/2))) && second()<5) { if (random(100)<20) lightningstatus=1; else lightningstatus=0; if (lightningstatus) { DaylightPWMValue=4095; } else { DaylightPWMValue=0; } delay(1); } break; default: break; } } else { chooseLightning=true; // Reset the flag to choose a new lightning type }
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; } } }
// Write the times of the next cloud, next lightning, and cloud duration to the screen and into some customvars for the Portal. 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)); ReefAngel.CustomVar[3]=cloudstart/60; // Write the hour of the next cloud to custom variable for Portal reporting if ((cloudstart%60)>=10) x=29; else x=35; //ReefAngel.LCD.DrawText(0,255,x,120,(cloudstart%60)); ReefAngel.CustomVar[4]=cloudstart%60; // Write the minute of the next cloud to custom variable for Portal reporting
} //ReefAngel.LCD.DrawText(0,255,90,120,cloudduration); ReefAngel.CustomVar[7]=(cloudduration); // Put the duration of the next cloud in a custom var for the portal 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)); ReefAngel.CustomVar[5]=(cloudstart+(cloudduration/2))/60; // Write the hour of the next lightning to a custom variable for the Portal if (((cloudstart+(cloudduration/2))%60)>=10) x=69; else x=75; //ReefAngel.LCD.DrawText(0,255,x,120,((cloudstart+(cloudduration/2))%60)); // Write the minute of the next lightning to a custom variable for the Portal ReefAngel.CustomVar[6]=(cloudstart+(cloudduration/2))%60; } } }
void Strike() { int a=random(1,5); // Pick a number of consecutive flashes from 1 to 4. for (int i=0; i<a; i++) { // Flash on int newdata=4095; Wire.beginTransmission(0x40); // Address of the dimming expansion module Wire.write(0x8+(4*1)); // 0x8 is channel 0, 0x12 is channel 1, etc. I'm using channel 1. Wire.write(newdata&0xff); // Send the data 8 bits at a time. This sends the LSB Wire.write(newdata>>8); // This sends the MSB Wire.endTransmission(); int randy=random(20,80); // Random number for a delay if (randy>71) randy=((randy-70)/2)*100; // Small chance of a longer delay delay(randy); // Wait from 20 to 69 ms, or 100-400 ms // Flash off. Return to baseline. newdata=ReefAngel.PWM.GetChannelValueRaw(1); // Use the channel number you're flashing here Wire.beginTransmission(0x40); // Same as above Wire.write(0x8+(4*1)); Wire.write(newdata&0xff); Wire.write(newdata>>8); Wire.endTransmission(); delay(random(30,50)); // Wait from 30 to 49 ms wdt_reset(); // Reset watchdog timer to avoid re-boots } }
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 (int) PWMStart; }
// RA_STRING1=$$$$ // RA_STRING2=null // RA_STRING3=null
By the way, what is for RA_STRING1 ??? Thx
|