|
Originariamente inviata da LukeLuke
|
|
|
Originariamente inviata da rita87
|
|
mi dite dove posso trovare la soluzione ph 7-10 per tarare la sonda ph?
|
qualsiasi negozio di acquari decente... ce l'ha....
|
Non l'ho trovata, mi voleva dare 4-7
Il pde lo posto oppure vuoi darmi l'email e te lo mando?
Però mi è venuto un'altra voglia!!
Allora:
se io attacco il
reefangel al gruppo (tutta la ciabatta coi relè) e manca la corrente, posso attivare l'overheatshutoffports mantenendo attiva solo la pompa di risalita?
Adesso la pompa di risalita è attaccata direttamene al gruppo.
Farei così:
ReefAngel.OverheatShutoffPorts = B00000100;
Il RAClient dovrebbe mandarci un'email se se ne va la corrente e in più col wifi riusciremmo ad attivare la modalità anche a distanza.
Che dite?
------------------------------------------------------------------------
|
|
Originariamente inviata da lucaeff
|
siiiiiiiiiiii modulo wifi funzionante!!!!
ho dovuto disabilitare la funzione dhcp ed assegnare l' indirizzo ip manualmente perchè ho altri apparecchi collegati
quali sono le 2 stringhe da inserire nel pde?
------------------------------------------------------------------------
|
|
Originariamente inviata da rita87
|
ho risolto. Volete sapere qual era il problema? Intanto ve lo posto perchè potrebbe servirvi e così ve lo trovate!
// accensione pompa dx
if (((NumMins(hour(),minute()) >= NumMins(0,00)) && (NumMins(hour(),minute()) <= NumMins(6,13))) || (NumMins(hour(),minute()) >= NumMins(12,00)) && (NumMins(hour(),minute()) <= NumMins(18,13))) ReefAngel.Relay.On(Port4);
else ReefAngel.Relay.Off(Port4);
// accensione pompa sx
if (((NumMins(hour(),minute()) >= NumMins(6,00)) && (NumMins(hour(),minute()) <= NumMins(12,13))) || (NumMins(hour(),minute()) >= NumMins(18,00)) && (NumMins(hour(),minute()) <= NumMins(23,59))) ReefAngel.Relay.On(Port5);
else ReefAngel.Relay.Off(Port5);
Il problema era che io mettevo >= 18 e <= 00:13
il computer si chiedeva: ma 20 (ore 8) non è minore di 0,13 quindi io il relè lo lascio spento.
Se si interagisce con macchine, bisogna pensare come macchine, non come uomini!!!!!
|
grande Rita i miei complimenti
potresti postare il pde per intero?
grassieeee
|
Grazie
Il pde:
#include <ReefAngel_Features.h>
#include <ReefAngel_Globals.h>
#include <ReefAngel_Wifi.h>
#include <Wire.h>
#include <OneWire.h>
#include <Time.h>
#include <DS1307RTC.h>
#include <ReefAngel_EEPROM.h>
#include <ReefAngel_NokiaLCD.h>
#include <ReefAngel_ATO.h>
#include <ReefAngel_Joystick.h>
#include <ReefAngel_LED.h>
#include <ReefAngel_TempSensor.h>
#include <ReefAngel_Relay.h>
#include <ReefAngel_PWM.h>
#include <ReefAngel_Timer.h>
#include <ReefAngel_Memory.h>
#include <
ReefAngel.h>
void RitardoSkimmer(byte SKPort, byte SKDelay)
{
if (now()-RAStart < SKDelay)
ReefAngel.Relay.On(SKPort);
}
void setup()
{
ReefAngel.Init(); //Initialize controller
ReefAngel.SetTemperatureUnit(0);
// Set the ports that get toggled on & off during the following modes
// To enable a port to be toggled, place a 1 in the appropriate position
// Uncomment and update as needed
// Port 87654321
ReefAngel.FeedingModePorts = B11100110;
ReefAngel.WaterChangePorts = B01100100;
//ReefAngel.OverheatShutoffPorts = B00000000;
ReefAngel.LightsOnPorts = B00000110;
// Ports that are always on
ReefAngel.Relay.On(Port8);
}
void loop()
{
ReefAngel.ShowInterface();
//ReefAngel.Refresh();
//Serial.println(
ReefAngel.Params.Temp1);
//Serial.println(
ReefAngel.Params.Temp2);
//Serial.println(
ReefAngel.Params.Temp3);
// accensione luce lunare
if ((NumMins(hour(),minute()) >= NumMins(23,28)) || (NumMins(hour(),minute()) <= NumMins(10,00)))
ReefAngel.Relay.On(Port1);
else
ReefAngel.Relay.Off(Port1);
// accensione pompa dx
if (((NumMins(hour(),minute()) >= NumMins(0,00)) && (NumMins(hour(),minute()) <= NumMins(6,13))) || (NumMins(hour(),minute()) >= NumMins(12,00)) && (NumMins(hour(),minute()) <= NumMins(18,13)))
ReefAngel.Relay.On(Port4);
else
ReefAngel.Relay.Off(Port4);
// accensione pompa sx
if (((NumMins(hour(),minute()) >= NumMins(6,00)) && (NumMins(hour(),minute()) <= NumMins(12,13))) || (NumMins(hour(),minute()) >= NumMins(18,00)) && (NumMins(hour(),minute()) <= NumMins(23,59)))
ReefAngel.Relay.On(Port5);
else
ReefAngel.Relay.Off(Port5);
// Specific functions
ReefAngel.StandardLights(Port2);
ReefAngel.StandardLights(Port3);
ReefAngel.StandardFan(Port6);
ReefAngel.StandardHeater(Port7);
RitardoSkimmer(Port8,120);
}
Forse se te lo mando per email è un pò più ordinato!!
Modalità ibrida
