led verde acceso = impianto che produce, se lampeggia i consumi son maggiori della produzione
led rosso acceso = batterie in ricarica, se lampeggia tensione batterie bassa
led giallo acceso = funzionamento ad isola

Grande ElettroshockNow! Fino a quando sarai in "modalità vacanza"? Perchè se continui così per il fine settimana avrai finito tutto...
Progetto molto molto molto interessante!!

GRANDE!!!!!!!

Cosi è piu' Bella .....


Manca il codice ed è fatta .......

Partorito Codice ..........Devo aggiungere il Ritardo in caso di "nuvola passeggera" come suggerito da vde
Testato sul banco prova (il tavolino dove è ancora apparecchiata la tavola .... ) e sembra tutto funzionare

VERSIONE PROVVISORIA DEL CODICE
-TOP CODE-
PRAGMA NO_NUM_LINE PRAGMA EXTENDED8K_EEPROM SETIO = &H60007 '&B1100000000000000111 '******************************************************************************************************* 'www.energialternativa.info 'CONTROLLO AUTOMATICO CARICABATTERIE ED UPS PER IMPIANTI FV GRID-TIE 'By ElettroshockNow 'CADS1 (Pin2)= Ingresso tensione Batteria 'CADS2 (Pin3)= Ingresso Sensore SCT-013-030 Assorbimento 'CADS3 (Pin4)= Ingresso Sensore SCT-013-030 Produzione 'BIT6 (Pin11)=LED Verde "FV" 'BIT7 (Pin12)=LED Rosso "BATT" 'BIT8 (Pin13)=LED Giallo "ISOLA" 'BIT14 (Pin27)=Relè Controllo UPS 'BIT15 (Pin28)=Relè Controllo Caricabatterie '******************************************************************************************************* '-------------- COSTANTI ---------------------- CONSTANT FV = 6 CONSTANT BATT = 7 CONSTANT ISOLA = 8 CONSTANT UPS = 14 CONSTANT CARICA = 15 CONSTANT ISTERESI = 100 'Differenza necessaria per effettuare cambiamenti di stato CONSTANT POTENZA_CARICA = 500 'Inserire Potenza Assorbita Caricabatterie CONSTANT TENSIONE_MINIMA = 24 'Soglia Minima tensione Batteria CONSTANT TENSIONE_OK = 26 'Soglia tensione minima di intervento UPS CONSTANT CAMPIONAMENTI = 50 'Numero Campinamenti onda sinusoidale CONSTANT OFFSET = 510 'Dare alla Costante OFFSET il Valore di CADS2/3 senza nessun assorbimento CONSTANT FATT_PROPORZ_TENSIONE= 25.9 CONSTANT FATT_PROPORZ_CORRENTE= .092 ' Tabella Fattori Proporzione in funzione della Resistenza di Shunt ' 100 Ohm = .118 massima Potenza misurabile 9900 Watt ' 127 Ohm = .092 massima Potenza misurabile 7700 Watt ****************** ' 180 Ohm = .064 massima Potenza misurabile 5400 Watt '------------------ PROGRAMMA --------------- SUB MAIN CALL PRESENTAZIONE WHILE TRUE CALL MISURA_TENSIONE_BATT CALL MISURA_CORRENTE IF POTENZA_PRODOTTA > (POTENZA_ASSORBITA+POTENZA_CARICA) THEN :CARICA_ON IF POTENZA_PRODOTTA < (POTENZA_ASSORBITA+ISTERESI) THEN :CARICA_OFF GOTO :UPS :CARICA_ON OUTBIT(CARICA)=HIGH GOTO :UPS :CARICA_OFF OUTBIT(CARICA)=LOW :UPS IF (POTENZA_PRODOTTA < (POTENZA_ASSORBITA+ISTERESI)) AND (VOLT > TENSIONE_OK) THEN :UPS_ON IF (POTENZA_PRODOTTA > (POTENZA_ASSORBITA-ISTERESI)) OR (VOLT < TENSIONE_MINIMA) THEN :UPS_OFF GOTO :VISUALIZZA :UPS_ON OUTBIT(UPS)=LOW OUTBIT(ISOLA)=HIGH GOTO :VISUALIZZA :UPS_OFF OUTBIT(UPS)=HIGH OUTBIT(ISOLA)=LOW :VISUALIZZA CALL LED_FV CALL LED_BATT CALL INVIA_USB WAITS 1 LOOP SUBEND '--------------INIZIO SUBROUTINE --------------- '-------PRESENTAZIONE---------- SUB PRESENTAZIONE OUTBIT(FV)=1 WAITS 1 OUTBIT(BATT)=1 WAITS 1 OUTBIT(ISOLA)=HIGH WAITS 2 OUTBIT(FV)=LOW OUTBIT(BATT)=LOW OUTBIT(ISOLA)=LOW SUBEND '---------------LED BATT------------------ SUB LED_BATT IF VOLT<tensione_minima THEN :ACCENDI_LED_BATT OUTBIT(BATT)=LOW GOTO :FINE_LED_BATT :ACCENDI_LED_BATT IF INPBIT(CARICA) THEN :LAMP_LED_BATT OUTBIT(BATT)=HIGH GOTO :FINE_LED_BATT :LAMP_LED_BATT IF INPBIT(BATT) THEN :SPENGI_LED_BATT OUTBIT(BATT)=HIGH GOTO :FINE_LED_BATT :SPENGI_LED_BATT OUTBIT(BATT)=LOW :FINE_LED_BATT SUBEND '----------LED FV -------------- SUB LED_FV IF POTENZA_PRODOTTA > 50 THEN :ACCENDI_LED_FV OUTBIT(FV)=LOW GOTO :FINE_LED_FV :ACCENDI_LED_FV IF POTENZA_PRODOTTA < POTENZA_ASSORBITA THEN :LAMP_LED_FV OUTBIT(FV)=HIGH GOTO :FINE_LED_FV :LAMP_LED_FV IF INPBIT(FV) THEN :SPEGNI_LED_FV OUTBIT(FV)=HIGH GOTO :FINE_LED_FV :SPEGNI_LED_FV OUTBIT(FV)=LOW :FINE_LED_FV SUBEND '-------LETTURA TENSIONE BATTERIA SUB MISURA_TENSIONE_BATT CLR VOLT FOR A=1 TO 30 VOLT+=CADS1 NEXT A VOLT = VOLT/FATT_PROPORZ_TENSIONE/30 SUBEND '---------LETTURA SENSORI CORRENTE -------------------- SUB MISURA_CORRENTE CLR AMPER_ASSORBITI, AMPER_PRODOTTI FOR A=1 TO CAMPIONAMENTI AMPER_ASSORBITI +=ABS (CADS2-OFFSET) AMPER_PRODOTTI +=ABS (CADS3-OFFSET) NEXT A AMPER_ASSORBITI=(AMPER_ASSORBITI/CAMPIONAMENTI)*FATT_PROPORZ_CORRENTE AMPER_PRODOTTI=(AMPER_PRODOTTI/CAMPIONAMENTI)*FATT_PROPORZ_CORRENTE POTENZA_ASSORBITA=INT(INT(AMPER_ASSORBITI*230)/10)*10 'CALCOLO TEORICO POTENZA_PRODOTTA=INT(INT(AMPER_PRODOTTI*230)/10)*10 'CALCOLO TEORICO SUBEND '-------------INVIA I DATI SULLA USB-------------- SUB INVIA_USB 'PRINT "CADS2= "&CADS2 'PRINT "CADS3= "&CADS3 PRINT "TENSIONE BATTERIA= " & VOLT & " V" 'PRINT "AMPER_ASSORBITI= " & AMPER_ASSORBITI & " A" 'PRINT "AMPER _PRODOTTI= " & AMPER_PRODOTTI & " A" PRINT "POTENZA_ASSORBITA= " & POTENZA_ASSORBITA & " W" PRINT "POTENZA_PRODOTTA= " & POTENZA_PRODOTTA & " W" SUBEND '--------------FINE SUBROUTINE ---------------
-BOTTOM CODE-

Idee,suggerimenti, modifiche al codice sono le ben accettate ...anzi una pulita al mio bordello è d'obbligo (non sono un programmatore ....mi arrangio ........quindi qualsiasi dritta per me è oro)

Ciao e Buonanotte a tutti
ElettroshockNow

Elettro, complimenti, veramente notevole. Hai trovato il modo di far andare in isola quelli che non per definizione non potevano.

questo tipo di applicazione e' molto piu' utile a chi rientra nel IV conto energia, visto che gli viene pagata tutta la produzione, indipendentemente se poi sia consumata o immessa

A questo punto resto io fuori ISOLA

Aggiorno un pochino il Codice con la variabile NUVOLA (mi piace "Nuvola")

e la possibilità di scegliere tutte le soglie di intervento ............
Credo che il codice sia abbastanza chiaro ,ma appena posso aggiungo una descrizione dettagliata .......e aggiungerò dei miglioramenti .......per fine settimana è fatta

VERSIONE PROVVISORIA DEL CODICE
-TOP CODE-
PRAGMA NO_NUM_LINE PRAGMA EXTENDED8K_EEPROM SETIO = &H60007 '&B1100000000000000111 '******************************************************************************************************* 'http://www.energialternativa.info/ 'CONTROLLO AUTOMATICO CARICABATTERIE ED UPS PER IMPIANTI FV GRID-TIE 'By ElettroshockNow 'CADS1 (Pin2)= Ingresso tensione Batteria 'CADS2 (Pin3)= Ingresso Sensore SCT-013-030 Assorbimento 'CADS3 (Pin4)= Ingresso Sensore SCT-013-030 Produzione 'BIT6 (Pin11)=LED Verde "FV" 'BIT7 (Pin12)=LED Rosso "BATT" 'BIT8 (Pin13)=LED Giallo "ISOLA" 'BIT14 (Pin27)=Relè Controllo UPS 'BIT15 (Pin28)=Relè Controllo Caricabatterie '************************************************************************************************************************** '****************************************** DATI DA INSERIRE ******************************************************* CONSTANT POTENZA_LUCI = 300 'Inserire Potenza Massima Illuminazione in Watt *UTENTE* CONSTANT POTENZA_CARICA = 600 'Inserire Potenza Assorbita Caricabatterie in Watt *UTENTE* CONSTANT TENSIONE_MINIMA = 24 'Soglia Minima tensione Batteria *UTENTE* CONSTANT TENSIONE_OK = 26 'Soglia Minima tensione intervento UPS *UTENTE* CONSTANT NUVOLA = 5 'Secondi che devono trascorrere per effettuare un cambio di Stato *UTENTE* OUTBIT(UPS)=HIGH 'Settaggio di Default UPS STANDBY OUTBIT(CARICA)=LOW 'Settaggio di Default CARICABATTERIE SPENTO '*************************************************************************************************************************** '-------------- COSTANTI ---------------------- CONSTANT FV = 6 CONSTANT BATT = 7 CONSTANT ISOLA = 8 CONSTANT UPS = 14 CONSTANT CARICA = 15 CONSTANT CAMPIONAMENTI = 60 'Numero Campinamenti onda sinusoidale CONSTANT OFFSET = 510 'Dare alla Costante OFFSET il Valore di CADS2/3 senza nessun assorbimento CONSTANT FATT_PROPORZ_TENSIONE= 25.9 CONSTANT FATT_PROPORZ_CORRENTE= .092 ' Tabella Fattori Proporzione in funzione della Resistenza di Shunt ' 100 Ohm = .118 massima Potenza misurabile 9900 Watt ' 127 Ohm = .092 massima Potenza misurabile 7700 Watt ****************** ' 180 Ohm = .064 massima Potenza misurabile 5400 Watt '------------------ PROGRAMMA --------------- SUB MAIN TENDENZA=0 CALL PRESENTAZIONE WHILE TRUE CALL MISURA_TENSIONE_BATT CALL MISURA_CORRENTE IF POTENZA_PRODOTTA > (POTENZA_ASSORBITA+POTENZA_CARICA) THEN :CARICA_ON IF POTENZA_PRODOTTA < POTENZA_ASSORBITA THEN :CARICA_OFF GOTO :UPS :CARICA_ON OUTBIT(CARICA)=HIGH GOTO :UPS :CARICA_OFF OUTBIT(CARICA)=LOW :UPS IF VOLT<tensione_minima THEN :UPS_OFF IF POTENZA_PRODOTTA<potenza_assorbita AND VOLT > TENSIONE_OK THEN :TENDENZA_UPS_ON IF POTENZA_PRODOTTA>(POTENZA_ASSORBITA+POTENZA_LUCI) THEN :TENDENZA_UPS_OFF GOTO :VISUALIZZA :TENDENZA_UPS_ON IF TENDENZA >= (NUVOLA*4) THEN :UPS_ON TENDENZA++ GOTO :VISUALIZZA :TENDENZA_UPS_OFF IF TENDENZA <=0 THEN :UPS_OFF TENDENZA-- GOTO :VISUALIZZA :UPS_ON OUTBIT(UPS)=LOW OUTBIT(ISOLA)=HIGH GOTO :VISUALIZZA :UPS_OFF OUTBIT(UPS)=HIGH OUTBIT(ISOLA)=LOW :VISUALIZZA CALL LED_FV CALL LED_BATT CALL INVIA_USB WAITMS 250 LOOP SUBEND '--------------INIZIO SUBROUTINE --------------- '-------PRESENTAZIONE---------- SUB PRESENTAZIONE OUTBIT(FV)=1 WAITS 1 OUTBIT(BATT)=1 WAITS 1 OUTBIT(ISOLA)=HIGH WAITS 2 OUTBIT(FV)=LOW OUTBIT(BATT)=LOW OUTBIT(ISOLA)=LOW SUBEND '---------------LED BATT------------------ SUB LED_BATT IF VOLT<tensione_ok THEN :ACCENDI_LED_BATT OUTBIT(BATT)=LOW GOTO :FINE_LED_BATT :ACCENDI_LED_BATT IF INPBIT(CARICA)=HIGH THEN :LAMP_LED_BATT OUTBIT(BATT)=HIGH GOTO :FINE_LED_BATT :LAMP_LED_BATT IF INPBIT(BATT)=HIGH THEN :SPENGI_LED_BATT OUTBIT(BATT)=HIGH GOTO :FINE_LED_BATT :SPENGI_LED_BATT OUTBIT(BATT)=LOW :FINE_LED_BATT SUBEND '----------LED FV -------------- SUB LED_FV IF POTENZA_PRODOTTA > 50 THEN :ACCENDI_LED_FV OUTBIT(FV)=LOW GOTO :FINE_LED_FV :ACCENDI_LED_FV IF POTENZA_PRODOTTA < POTENZA_ASSORBITA THEN :LAMP_LED_FV OUTBIT(FV)=HIGH GOTO :FINE_LED_FV :LAMP_LED_FV IF INPBIT(FV)=HIGH THEN :SPEGNI_LED_FV OUTBIT(FV)=HIGH GOTO :FINE_LED_FV :SPEGNI_LED_FV OUTBIT(FV)=LOW :FINE_LED_FV SUBEND '-------LETTURA TENSIONE BATTERIA SUB MISURA_TENSIONE_BATT CLR VOLT FOR A=1 TO 30 VOLT+=CADS1 NEXT A VOLT = VOLT/FATT_PROPORZ_TENSIONE/30 SUBEND '---------LETTURA SENSORI CORRENTE -------------------- SUB MISURA_CORRENTE CLR AMPER_ASSORBITI, AMPER_PRODOTTI FOR A=1 TO CAMPIONAMENTI AMPER_ASSORBITI +=ABS (CADS2-OFFSET) AMPER_PRODOTTI +=ABS (CADS3-OFFSET) NEXT A AMPER_ASSORBITI=(AMPER_ASSORBITI/CAMPIONAMENTI)*FATT_PROPORZ_CORRENTE AMPER_PRODOTTI=(AMPER_PRODOTTI/CAMPIONAMENTI)*FATT_PROPORZ_CORRENTE POTENZA_ASSORBITA=INT(INT(AMPER_ASSORBITI*230)/10)*10 'CALCOLO TEORICO POTENZA_PRODOTTA=INT(INT(AMPER_PRODOTTI*230)/10)*10 'CALCOLO TEORICO SUBEND '-------------INVIA I DATI SULLA USB-------------- SUB INVIA_USB 'PRINT "CADS2= "&CADS2 'PRINT "CADS3= "&CADS3 PRINT "TENSIONE BATTERIA= " & VOLT & " V" 'PRINT "AMPER_ASSORBITI= " & AMPER_ASSORBITI & " A" 'PRINT "AMPER _PRODOTTI= " & AMPER_PRODOTTI & " A" PRINT "POTENZA_ASSORBITA= " & POTENZA_ASSORBITA ' & " W" PRINT "POTENZA_PRODOTTA= " & POTENZA_PRODOTTA ' & " W" SUBEND '--------------FINE SUBROUTINE ---------------
-BOTTOM CODE-

Ieri ho simulato la giornata tipo ed ho riscontrati alcune anomalie , tra cui una condizione che può portare a pensare ad una avaria ..... mi spiego.

Quando il Fv non produce e le batterie si trovano tra 24 e 26v , la scheda risulta completamente spenta perché :

- luce verde Off (impianto non produce)
-luce rossa Off (batteria sopra i 24v)
-luce gialla Off (l'isola non si avvia perchè la batteria non è sufficientemente carica)

Possibili soluzioni:
1)il led rosso lo faccio intervenire sotto la soglia minima di attivazione isola
2)il led giallo lo faccio lampeggiare quando la scheda vorrebbe andare in isola , ma la batteria non è sufficientemente carica .
3) un giochino di luci sempre presente

Che busta scelgo ....la 1 , la 2 o la 3 ........ .

La 4 !

Ciao
ElettroshockNow

Secondo me 26v sono tanti per non considerare sufficientemente carica la batteria, 25v sarebbe meglio. Comunque la soluzione 2 mi sembra la più adatta.

Effettivamente 26 è eccessivo , ma non avendo una buona esperienza sull'isola ho forse esagerato.

Ok vado di 25 (che dici 23, 8 per il Low battery ? ) e la soluzione 2

Puoi impostare il low anche a 23,6 che è riconosciuto come il 50% di capacità di una batteria a 24V

Quindi:
23.6v = low battery
25.0v = soglia minima intervento UPS
mi manca da scegliere il tempo nuvola .....al quale sono tendente a 10 minuti ......Troppo ?

Butto un valore cosi alto per essere sicuro di evitare sganci/agganci e perché sui moduli solari della epsolar che fanno anche da crepuscolare il tempo è 15 minuti .....

@Priespe : appena puoi misura il massimo assorbimento del caricabatterie e dell'illuminazione