Il progetto va avanti...e credo che siamo (Marcosnout ed io) pronti alla divulgazione.

Questo è un esempio di gestione domotica di una abitazione che abbia un impianto da isola/hybrid!

'---------------------------------------------------------------
'  GESTIONE CASA DOMOTICA 
'---------------------------------------------------------------
PRAGMA NO_NUM_LINE 

VERSIONE_CODICE="Ver. 1.10"
POTENZA_MASSIMA_ASSORBIMENTO_STOP=3500
POTENZA_MASSIMA_ASSORBIMENTO_START=1500
DEVICE_RICARICA_AUTO=1 ' DEVICE DELLA SPRING
DEVICE_POZZO=2 ' DEVICE DEL POZZO
TEMPO_DURATA_LAVASTOVIGLIE=3900
TEMPO_DURATA_POZZO=600

TENSIONE_IN_DISCESA= 51.5

ENEL=-1

'-----------------------------------------------------------------------------------------
OPTIONS 1 'ABILITO UNA OPZIONE
LABEL_OPTION 1 "RICARICA AUTOMATICA "

'------------------------------------------------------------------------------------------------------------------------------
'ABILITO IL TELECOMANDO DA REMOTO. SI PUO' INVIARE UN COMANDO PER INTERAGIRE CON IL SW
COMMANDS_REMOTE_ON

'-----------------------------------------------------------------------------------------
DEVICE DEVICE_POZZO OFF ' Spengo pompa pozzo...fosse rimasta accesa

'-----------------------------------------------------------------------------------------
' SE VOGLIO RIAVVIARE IL SW SENZA FAR STACCARE LA RICARICA
'STATO_RICARICA_AUTO=ON
'CALL CAMBIA_STATO_DEVICE ' LASCIO ABILITATO IL DEVICE
' ----------------------------------------------------------------------------------------
STATO_RICARICA_AUTO=OFF ' Spengo la ricarica...non si sa mai fosse rimasta agganciata
CALL CAMBIA_STATO_DEVICE 
'---------------------------------------------------------------------------------------

'Loop infinito del programma
WHILE TRUE
       
       CALL CHECK_NUOVA_GIORNATA ' VERIFICO SE E' UNA NUOVA GIORNATA

       CALL SECONDI_POTENZA_TENSIONEBATTERIA ' PRELEVO I DATI DAI DISPOSITIVI 

       COM_REMOTO=REMOTE_COMMAND   'Vedo se è stato inviato un comando remoto
 
       CALL ANALIZZA_LAVASTOVIGLIE ' VERIFICO SE FAR PARTIRE LA LAVASTOVIGLIE DA COMANDO REMOTO E NEL CASO VISUALIZZO I TEMPI
  
       CALL ANALIZZA_POZZO ' VERIFICO SE FAR PARTIRE IL POZZO DA COMANDO REMOTO

        CALL CHECK_ENERGIA_FV_ENEL ' VERIFICO SE SI STA ANDANDO CON IL FOTOVOLTAICO O CON IL GESTORE

        CALL GESTIONE_RICARICA_AUTO ' EFFETTUO IL CHECK SE STO IN RICARICA DELL'AUTO ELETTRICA

        CALL CHECK_PARTENZA_RICARICA_AUTO ' VERIFICO SE FAR PARTIRE LA RICARICA DELL'AUTO ELETTRICA

        STR_MAIN="TB=" &  BV &" PA=" & INT(PACasa) & "W "   & STRINGA_ENERGIA & " LAVAST.=" & STATO_LAVASTOVIGLIE & " (" & LAVORO_LAVASTOVIGLIE & ")" & " POZZO = " & STATO_POZZO & " (" & LAVORO_POZZO & ")" 
        LOG STR_MAIN


LOOP
END

'---------------------------------------------------------------------
' Prendo il tempo la potenza e la tensione della batteria
SUB SECONDI_POTENZA_TENSIONEBATTERIA
        ADESSO=SECONDS         
        PACasa =WATT  ' Potenza assorbita da casa
        BV=BATTERY_VOLTAGE   
        PAEnel =WATTG  ' Potenza assorbita dal gestore
SUBEND
'---------------------------------------------------------------------
' INIZIALIZZO LE VARIABILI CON LA NUOVA GIORNATA
SUB INIT_VARIABILI
SUBEND

'---------------------------------------------------------------------
' ANALIZZO LA NUOVA GIORNATA
SUB CHECK_NUOVA_GIORNATA
         IF ADESSO>SECONDS OR ADESSO=0 THEN
           ' E' un nuovo giorno o sono alla partenza un messaggio alla chat telegram  ...ricalcolo alba e tramonto 
            STRINGA= "Bolle-codice "&VERSIONE_CODICE & ". " & DATE & " " & TIME &  ". Orario alba tramonto " & SUNRISE & " "& SUNSET
            SECONDI_ALBA=TIME_TO_SECONDS(SUNRISE)
            SECONDI_TRAMONTO=TIME_TO_SECONDS(SUNSET)
            TELEGRAM STRINGA    
            LOG STRINGA         
            WRITE_FILE  STRINGA
            CALL INIT_VARIABILI
        ENDIF
SUBEND
'---------------------------------------------------------------------
'GESTIONE ON/OFF RICARICA AUTO MEDIANTE SHELLY
SUB CAMBIA_STATO_DEVICE
  
    STR="OFF DEVICE1"
    WRITE_FILE  STR_MAIN
    IF  STATO_RICARICA_AUTO THEN
       START=SECONDS
       STR="PARTENZA RICARICA"
    ELSE
       STOP=SECONDS
       IF START<>0 THEN 
           SECONDI= (STOP-START)
           'CALL SECONDI_TO_MINUTI_ORE 
           'STR="STOP  RICARICA. ( EFFETTUATA PER " & (STOP-START)/60 & " minuti!)"
           TEMPO_RICARICA = SECONDS_TO_TIME(SECONDI)
           STR="STOP  RICARICA. ( Effettuata per " & TEMPO_RICARICA & ")"
           DEVICE_LABEL   DEVICE_RICARICA_AUTO "D.R. "&TEMPO_RICARICA
       ENDIF
    ENDIF
   
   
    WRITE_FILE STR
     LOG STR
     TELEGRAM STR   

     DEVICE DEVICE_RICARICA_AUTO STATO_RICARICA_AUTO ' Spengo la ricarica dell'auto

SUBEND


'---------------------------------------------------------------------
'GESTIONE POZZO
SUB ANALIZZA_POZZO
       IF COM_REMOTO="POZZO" THEN
             IF STATO_LAVASTOVIGLIE THEN
                STRINGA="LAVASTOVIGLIE ON. PARTENZA POZZO ABORTITA!"
                TELEGRAM STRINGA    
                LOG STRINGA         
                WRITE_FILE  STRINGA
             ELSE
              IF PACasa >2000 THEN       
                STRINGA="ASSORBIMENTO ALTO ABITAZIONE. PARTENZA POZZO ABORTITA!"
                TELEGRAM STRINGA    
                LOG STRINGA         
                WRITE_FILE  STRINGA
              ELSE

              IF BV <TENSIONE_IN_DISCESA THEN       
                STRINGA="TENSIONE BATTERIA BASSA. PARTENZA POZZO ABORTITA!"
                TELEGRAM STRINGA    
                LOG STRINGA         
                WRITE_FILE  STRINGA
              ELSE

               START_POZZO=SECONDS
               IF STATO_RICARICA_AUTO THEN
                ' BLOCCO SUBITO LA RICARICA DELL'AUTO ELETTRICA
                STATO_RICARICA_AUTO=OFF
                PRESENZA_MARIO=OFF
                CALL CAMBIA_STATO_DEVICE ' Spengo la ricarica...
               ENDIF
               
               STRINGA="PARTENZA POZZO"
               TELEGRAM STRINGA    
               LOG STRINGA         
               WRITE_FILE  STRINGA
               STATO_POZZO = ON
               VIEW_IMAGE 2 ON ' VISUALIZZO IL POZZO
               WAITS 10 ' ATTENDO 10 SECONDI PRIMA DI AVVIARE LA POMPA DEL POZZO 
               DEVICE DEVICE_POZZO ON 'ACCENDO LA POMPA DEL POZZO
              ENDIF
            ENDIF
          ENDIF
       ENDIF


             ' VEDO QUANDO STACCARE IL POZZO
       IF  STATO_POZZO AND  (ADESSO-START_POZZO) >  TEMPO_DURATA_POZZO AND  BV>51 THEN
           ' CAMBIO STATO DELLA LAVASTOVIGLIE...
            STRINGA="FINE POMPA POZZO"
            TELEGRAM STRINGA    
            LOG STRINGA         
            WRITE_FILE  STRINGA
            STATO_POZZO=OFF
            DEVICE  DEVICE_POZZO OFF 'SPENGO LA POMPA DEL POZZO
            VIEW_IMAGE 2 OFF' NON VISUALIZZO PIU' IL POZZO
            LAVORO_POZZO=""
        ENDIF 
        IF STATO_POZZO THEN
            LAVORO_POZZO=SECONDS_TO_TIME(ADESSO-START_POZZO)
            DEVICE_LABEL  DEVICE_POZZO LAVORO_POZZO
         ENDIF
SUBEND

'---------------------------------------------------------------------
'GESTIONE LAVASTOVIGLIE
SUB ANALIZZA_LAVASTOVIGLIE
        IF COM_REMOTO="LAVASTOVIGLIE" THEN
           START_LAVASTOVIGLIE=SECONDS
           IF STATO_RICARICA_AUTO THEN
              ' BLOCCO SUBITO LA RICARICA DELL'AUTO ELETTRICA
              STATO_RICARICA_AUTO=OFF
              PRESENZA_MARIO=OFF
              CALL CAMBIA_STATO_DEVICE ' Spengo la ricarica...di mario
           ENDIF
            STRINGA="PARTENZA LAVASTOVIGLIE"
            TELEGRAM STRINGA    
            LOG STRINGA         
            WRITE_FILE  STRINGA
            STATO_LAVASTOVIGLIE = ON
            VIEW_IMAGE 3 ON ' VISUALIZZO LA LAVASTOVIGLIE
        ENDIF

 
         ' VERIFICO IL CAMBIO STATO DELLA LAVASTOVIGLIE
       IF  STATO_LAVASTOVIGLIE AND  (ADESSO-START_LAVASTOVIGLIE) >  TEMPO_DURATA_LAVASTOVIGLIE THEN
           ' CAMBIO STATO DELLA LAVASTOVIGLIE...
            STRINGA="FINITA LAVASTOVIGLIE"
            TELEGRAM STRINGA    
            LOG STRINGA         
            WRITE_FILE  STRINGA
           STATO_LAVASTOVIGLIE=OFF
           LAVORO_LAVASTOVIGLIE=""
            VIEW_IMAGE 3 OFF' NON VISUALIZZO PIU' LA LAVASTOVIGLIE
        ENDIF

        IF STATO_LAVASTOVIGLIE THEN
            LAVORO_LAVASTOVIGLIE=SECONDS_TO_TIME( ADESSO-START_LAVASTOVIGLIE)
            DEVICE_LABEL  3 LAVORO_LAVASTOVIGLIE
         ENDIF


SUBEND



'---------------------------------------------------------------------
'GESTIONE RICARICA MARIO
SUB GESTIONE_RICARICA_AUTO
     IF STATO_RICARICA_AUTO THEN    
           ADESSO=SECONDS
           STR_DURATA_RICARICA=SECONDS_TO_TIME(ADESSO-START)
           STR_RICARICA= " in ricarica da " & STR_DURATA_RICARICA
           DEVICE_LABEL  DEVICE_RICARICA_AUTO STR_DURATA_RICARICA
           ASS_AUTO=DEVICE_WATT DEVICE_RICARICA_AUTO

           IF ASS_AUTO<5 THEN
              ' L'Auto non sta ricaricando...spina staccata o auto addormentata
             IF AGGIONA_MARIO_SGANCIATO<> MINUTES THEN
               IF AUTO_SGANCIATA = OFF THEN
    	     STRINGA="MARIO SGANCIATO"   
                 LOG STRINGA         
                 WRITE_FILE  STRINGA
                 TELEGRAM STRINGA     
               ENDIF           
               AUTO_SGANCIATA=ON

             ENDIF
             PRESENZA_MARIO=FALSE
             AGGIONA_MARIO_SGANCIATO=MINUTES
           ELSE
              IF PRESENZA_MARIO=FALSE THEN
               STRINGA="MARIO IN RICARICA...."   
               AUTO_SGANCIATA = OFF
               LOG STRINGA         
               WRITE_FILE  STRINGA
               TELEGRAM STRINGA           
              ENDIF
              PRESENZA_MARIO=TRUE
           ENDIF

        ELSE
           STR_RICARICA=". Ricarica OFF"
        ENDIF
SUBEND

'---------------------------------------------------------------------
'CHECK PARTENZA MARIO
SUB CHECK_PARTENZA_RICARICA_AUTO
        'Check batteria e potenza per l'avvio
        IF ADESSO+3600 < SECONDI_TRAMONTO THEN ' SONO TRA L'ALBA E UN PAIO DI ORE PRIMA DEL TRAMONTO
         IF  BV>54 AND PACasa <POTENZA_MASSIMA_ASSORBIMENTO_START AND STATO_RICARICA_AUTO = OFF AND STATO_LAVASTOVIGLIE = OFF AND STATO_POZZO=OFF THEN  
             IF ADESSO > STOP_RICARICA + 600  THEN
                STATO_RICARICA_AUTO=ON
                PRESENZA_MARIO=OFF
                AUTO_SGANCIATA = OFF
                CALL CAMBIA_STATO_DEVICE
                STR= "PARTENZA RICARICA MARIO!"
                LOG STR
                WRITE_FILE STR
                TELEGRAM STR   
              ELSE
                STR= "ANTI POLLING START!"
                LOG STR
                WRITE_FILE STR
                 'INVIO UNA VOLTA AL MINUTO L'ANTIPOLLING
                IF MINUTES<>AGGIONA_ANTIPOLLING THEN 
                   TELEGRAM STR  
                ENDIF
                AGGIONA_ANTIPOLLING=MINUTES
             ENDIF
        ENDIF
       ELSE
                ' SONO FUORI DAL PERIODO ALBA/TRAMONTO
                STR= "START MARIO FUORI ORARIO!"
                LOG STR
                WRITE_FILE STR
       ENDIF

       IF  STATO_RICARICA_AUTO THEN
         'Check potenza per staccare mario 
         IF  PACasa >POTENZA_MASSIMA_ASSORBIMENTO_STOP   THEN  
             STATO_RICARICA_AUTO=OFF
             PRESENZA_MARIO=OFF
             CALL CAMBIA_STATO_DEVICE
             STR= "ASSORBIMENTO TROPPO ALTO " & PACasa 
             LOG STR
             WRITE_FILE  STR
             TELEGRAM STR             
        ENDIF

  
        'Check batteria livello per staccare mario
        IF  BV<51.5  THEN  
              STOP_RICARICA=SECONDS
             STATO_RICARICA_AUTO=OFF
             CALL CAMBIA_STATO_DEVICE
             STR= "TENSIONE BATTERIE TROPPO BASSA " & BV
             LOG STR
             WRITE_FILE  STRSTR
             TELEGRAM STR   
       ENDIF
    ENDIF
SUBEND


'------------------------------------------------------------
'Check batteria livello per staccare mario
SUB CHECK_ENERGIA_FV_ENEL
        IF (ENEL=FALSE OR ENEL=-1) AND PAEnel >5  THEN  
            ENEL=TRUE
            STRINGA_ENERGIA="ALIMENTAZIONE DA ENEL"   
            LOG STRINGA_ENERGIA        
            WRITE_FILE  STRINGA_ENERGIA
            TELEGRAM STRINGA_ENERGIA                
         ENDIF

         IF (ENEL OR ENEL=-1) AND PAEnel =0 AND PACasa>5 THEN  
            ENEL=FALSE
            STRINGA_ENERGIA="ALIMENTAZIONE DA FOTOVOLTAICO "   
            LOG STRINGA_ENERGIA         
            WRITE_FILE  STRINGA_ENERGIA
            TELEGRAM STRINGA_ENERGIA                
         ENDIF
SUBEND

CITAZIONE

Grande!! Ottimo lavoro!!

Io che sono un "anti tecnologico" questo sitema lo ritengo di grandissima utilità, a quanto vedo, sarebbe in gado di rivoluzionare completamente la gestione dell'impianto ottimizzandolo, e rendendo possibile la gestione degli utilizzatori in base alla produzione di energia, che negli impianti a isola questo è un tallona d'Achille..

Faccio un aggiornamento sull'evoluzione del SW!
Possiamo dire che i test vanno avanti con un discreto successo compresi i comandi che si possono impartire dalla chat.Cioè, non solo il SW ci comunica quello che accade in chat, ma noi, scrivendo su telegram, possiamo far fare delle cose al SW.
Su questo punto mi dovrò spiegare meglio...ma forse è il caso che lo faccia Marco!
Propongo un video girato qualche giorno fa per far capire qualcosa in più sulle potenzialità legate all'automobile elettrica.

"Detto da un profano" Complimenti, per il lavorone!!
solo un appunto.. nella schermata dove c'è il veicolo di "Babilonia" in carica avrei messo un boschetto di Abeti..

CITAZIONE

CITAZIONE

Scusate la domanda un pò "stupida" volevo togliermi una curiosità.. se da remoto sto controllando il mio impianto, e noto qualcosa di anomalo, volendo sarebbe possibile intervenire e interrompere la carica dell'accumulatore del fotovoltaico?



CITAZIONE (marcosnout, 19/10/2023 19:40:57 )

CITAZIONE

nella schermata dove c'è il veicolo di "Babilonia" in carica avrei messo un boschetto di Abeti..

CITAZIONE

Scusami.. delle volte non riesco a esprimermi correttamente..

Esempio: sono a lavoro e controllo come sta lavorando il mio impianto,

noto una qualche anomalia, esempio la fase di bulk del banco batterie continua a oltranza o magari per un qualche "errore" non inizia la ricarica del banco o noto una tensione di carica troppo elevata durante la carica, in questo caso potrei interagire da remoto con l'inverte modificano dei paramentri?

so che è una domanda abbastanza strana, ma mi è già successo qualcosa del genere..

Volevo capire se con il software si può interagire direttamente con l'inverter..

A questo io non so risponderti, serve il capo.
Al momento il software lavora su dispositivi esterni, non abbiamo mai avuto l’esigenza, e quindi non ci siamo posti il questo. Di sicuro non si può fare con inverter come il mio perché non ha alcun tipo di connessione con l’esterno…

Ok, grazie Marco per avermi chiarito la cosa, avevo il dubbio che stavo facendo una domanda fuori contesto, nel senso che era fuori dalle funzionalità progettuali del vostro SW, che comunque rimane un ottimo progetto

Cerco di risponderti.L'idea partorita con marco era quella di poter abbracciare il maggior numero di impianti ad isola possibili utilizzando un hardware facile da istallare (vedi gli shelly).
Il grosso collo di bottiglia degli impianti offgrid o ibridi è quello di utilizzare al meglio l'energia...ma senza un sistema integrato di comando e controllo non è possibile farlo.
Quindi si è presa la strada di realizzare un interprete (facilmente programmabile da chi ha un minimo di esperienza di programmazione) per poter realizzare quello che uno meglio crede.

Ci sono inverter che hanno solo un on/off ed invert che possono modificare i loro parametri...ma non c'è uno standard.
Quindi , anche senza dialogare con l'inverter, si possono fare tante ma tante cose perchè basta 'leggere' cosa sta accadendo per poter fare alcune cose.

Ti faccio un esempio: se voglio far partere la pompa del pozzo per caricare un serbatoio...basta che specifico quando può partire. SE le condizioni variano....il SW può bloccare la pompa o fare altro.

Se tu sei in grado di modificare i parametri con dei pulsanti sull'inveter c'è uno shelly che può fare questa cosa.

Ora che mi ci fai pensare...se un inverter ha la possibilità di essere collegato alla seriale...si può implementare un protocollo per far fare anche quello...ma di fatto poi ognuno vorrebbe che si implementasse il sui protocollo.
C'è da pensarci se inviare/ricevere dati dalla seriale...non è complicato...ma occorre capire per bene cosa fare.

Pensandoci bene.. forse diventerebbe anche un pò ingestibile, esempio: nel mio caso oltre all'inverter ho un regolatore di carica esterno che non comunicando con l'inverter ogniuno dei due (regolatore e inverte) fanno quello che "vogliono"..

CITAZIONE (OrsoMario, 19/10/2023 20:21:26 )

Scusate la domanda un pò "stupida" volevo togliermi una curiosità.. se da remoto sto controllando il mio impianto, e noto qualcosa di anomalo, volendo sarebbe possibile intervenire e interrompere la carica dell'accumulatore del fotovoltaico?



CITAZIONE (marcosnout, 19/10/2023 19:40:57 )

CITAZIONE

nella schermata dove c'è il veicolo di "Babilonia" in carica avrei messo un boschetto di Abeti..