CITAZIONE (maxsemp, 05/04/2017 14:35:55 )

nel file che allego il file pvoutput.ini deve stare nel solito percorso di dove metti il file.xls
ti ricordo che per funzionare su pvoutput ci vuole anche il file curl.exe
se non lo hai non può funzionare.
fammi sapere
questa versione è diversa ho abbandonato parte dei pulsanti sul foglio e sono passato direttamente dentro il form
alla prima apertura legge le porte seriali delpc tramite l'elenco a discesa scegli la pora e poi connetti.
viene scritto il foglio contatori 1 riga per giorno ma cosa più importante viene aggiornato pvoutput ogni 5 minuti.
se non riesci dimmi pure vediamo di risolvere.
quello che ho fatto sono test ma l'ho ottimizzato anche per macchine vetuste.
dopo che ti sei collegato vedrai scorrere i comandi negli elenchi subito sotto
il file funziona tranquillamente anche con office 2007 ciao


commenta in foglio1 da vba questo codice la combobox del foglio 1 è stata tolta

Private Sub Worksheet_Activate()
  'For x = 1 To 4
  '  Me.ComboBoxCom.AddItem x
  'Next

End Sub

il file di log ora si chiama 4048log.txt
e viene creato nella solita cartella dove è posizionato il file .xls

per il file curl.exe (https://curl.haxx.se/)di vitale importanza per pvoutput ecco parte del codice dove lo uso

vedrai che costruisco la stringa chiamata stringaperpv

e poi la uso con shell

shell serve per passare il controllo alla linea di comando del sistema operativo

attualmente inserisce solo i parametri gratuiti ma se hai bisogno di aggiungere altri parametri si può fare tranquillamente.
mi farebbe piacere se lo usi sapere in una giornata sole e nuvole effetto cloud edge che valore riporti come vbattmax nel foglio contatori.
quando chiudi il file salva altrimenti perdi lo storico .
su pvoutput invece rimane tutto.

       'CONTROLLO ORARIO PER INVIO DATI
       If (val(Mid(Time(), 4, 2)) Mod 5) = 0 And (val(Mid(Time(), 4, 2))) <> minuto Then 'sono le hh:00 o hh:05 a passi di 5 minuti sino a hh:55
           minuto = val(Mid(Time(), 4, 2))
           'inviare dati disponibili a pvoutput
           Dim STRINGAPERPV As String
           aPVOUTPUT(1) = Format(Date, "YYYYMMDD")
           aPVOUTPUT(2) = Replace(Mid(Time(), 1, 5), ".", ":")
           aPVOUTPUT(3) = Trim(Str(Int(cPVOUTPUT.Elemento("QPIGS19").ValoreMedio)))
           aPVOUTPUT(4) = val9
           aPVOUTPUT(5) = Trim(Str(Int(cPVOUTPUT.Elemento("QPIGS11").ValoreMedio)))
           aPVOUTPUT(6) = val11
           STRINGAPERPV = "curl -d ""d=" & aPVOUTPUT(1) & """ -d ""t=" & aPVOUTPUT(2) & """ -d ""v2=" & _
                          aPVOUTPUT(3) & """ -d ""v4=" & aPVOUTPUT(4) & """ -d ""v5=" & _
                          aPVOUTPUT(5) & ".0"" -d ""v6=" & aPVOUTPUT(6) & """ " & _
                          "-H ""X-Pvoutput-Apikey:" & Apikey & """ " & "-H ""X-Pvoutput-SystemId:" & SystemId & """ http://pvoutput.org/service/r2/addstatus.jsp"
           cPVOUTPUT.Elemento("QPIGS19").Reset
           cPVOUTPUT.Elemento("QPIGS11").Reset
           cPVOUTPUT.Elemento("QPGS09").Reset
           cPVOUTPUT.Elemento("QPGS011").Reset
           ' curl -d "data=20100830,12000,10000,2500,12:45,Fine,-5,10,My comment,5000,4000,1000" -H "X-Pvoutput-Apikey: Your-API-Key" -H "X-Pvoutput-SystemId: <Your-System-Id>" http://pvoutput.org/service/r2/addoutput.jsp _
            d   Date    Yes yyyymmdd    date    20100830    r1 _
            t   Time    Yes hh:mm   time    14:12   r1 _
            v1  Energy Generation   No1 number  watt hours  10000   r1 _
            v2  Power Generation    No  number  watts   2000    r1 _
            v3  Energy Consumption  No  number  watt hours  10000   r1 _
            v4  Power Consumption   No  number  watts   2000    r1 _
            v5  Temperature No  decimal celsius 23.4    r2 _
            v6  Voltage No  decimal volts   210.7   r2 _
            c1  Cumulative Flag No  number  -   1   r1 _
            n   Net Flag    No  number  -   1   r2 _
           'curl -d "d=20111201" -d "t=10:00" -d "v1=1000" -d "v2=150" -H "X-Pvoutput-Apikey: Your-API-Key" -H "X-Pvoutput-SystemId: Your-System-Id" http://pvoutput.org/service/r2/addstatus.jsp
          
            Debug.Print STRINGAPERPV
            Dim RetVal
            rigavuotapv = Sheets("pvoutput").Cells(Rows.Count, 1).End(xlUp).Row + 1
            col = 1
            While col <= UBound(aPVOUTPUT)
               Sheets("pvoutput").Cells(rigavuotapv, col).Value = aPVOUTPUT(col)
               col = col + 1
            Wend
            

            RetVal = Shell(STRINGAPERPV, 0)
            'Debug.Print RetVal
       End If

per fare un controllo su pvoutput puoi prendere la stringa commentata (quella con l'apice ' )e metterla in una finestra del prompt dei comandi.
quanto riuscirai a farla funzionare dal prompt dei comandi sicuramente funzionerà anche dal file di excel.
In VBA (strumenti visualbasic) con CTR + G dalla finestra immediata puoi anche richiedere il valore della variabile stringaperpv.
Nel codice puoi mettere un break point con il tasto funzione F9
verrà fuori un pallino rosso e quando il codice in esecuzione passerà da lì si fermerà e vedrai la riga evidenziata gialla.
Ora puoi usare la finestra immediata
dai il comando ?stringaperpv
e ti fa vedere il contenuto della variabile lo prendi selezionando e copia.
passi al prompt dei comandi e lo provi.
per continuare nel esecuzione del codice codice passo passo premi il tasto F8
mentre con F5 riparte e si fermerà solo a un breakpoint.

Scusate la mia cretineria ma in windows10 come si fa a far partire all'avvio WatchPower?

basta metterlo in esecuzione automatica.
tasto windows + R
oppure digiti esegui e nella finestra che appare digiti come comando
shell:startup e dai OK
si apre una cartella li puoi mettere i programmi che desideri si aprano all'avvio

Immagine Allegata: esecuzioneautomaticaw10.JPG
 

CITAZIONE (gruppo, 12/08/2017 23:51:59 )

Ho Provato io stesso ad inserire un collegamento dopo averlo inserito in avvio automatico tasto destro mouse proprietà sicurezza ed ho dato il controllo completo a tutti i pacchetti applicazioni, forse nel tuo caso non ha i diritti per essere eseguito quindi modifica i diritti
...comunque leggi qua puoi usare anche la pianificazione attività
potrebbe esserci anche li il problema di assegnare i diritti.
http://www.epolenghi.it/windows-10-avvio-automatico-delle-applicazioni/

Ciao Gruppo.
Vorrei sapere se il tuo progetto in excel lo hai portato avanti o lo hai abbandonato. Io, purtroppo, non sono mai riuscito a farlo funzionare e non capendoci una mazza di programmazione, sono alla ricerca di un software che funzioni senza problemi. Quelli che girano sul web, tranne l'ormai obsoleto AICC, non mi soddisfano per nulla e siccome utilizzo già excel per la raccolta dei dati del mio impianto, il tuo software mi farebbe molto comodo (anche non gratuitamente si intende).
Fammi sapere, per cortesia. Grazie.
Saluti.

CITAZIONE (gruppo, 19/08/2017 02:31:09 )

Maxsemp non ho portato avanti perchè le cose che mi servivano da monitorare le ho fatte.
in ogni caso sono sempre stato contrario a mantenere accesi pc che consumino più di 5watt.
non è un software finito ho visto inoltre che sono cresciuti come funghi altri software, qui nel forum pensavo di trovare collaborazione con altri utenti ma non ho mai trovato gente interessata poi ho capito anche il perchè ... business.
se vuoi posso aiutarti a farlo funzionare passo passo ma non è un software finito però è aperto il codice è in chiaro ed è stata la mia provocazione verso quelle persone che vogliono lucrare qualche euro sulla pelle di chi magari sa fare qualcosa ma gli manca qualche stimolo o pezzetto di software per costruirsi il suo software ad hoc.
per esempio nel codice di excel c'è il controllo del CRC dell'inverter e la gestione del bug del firmware dell'inverter stesso nella creazione del CRC, e l'ho fatto per chi capisce qualcosa di codice.
questo mi ha dimostrato che l'inverter non ha mai e dico mai risposto con un nak.

ma vincent mi sembra sia molto avanti
hai provato a chiedere a lui?

Morandi in ogni caso penso dovresti far partire il software come servizio altrimenti la stazione di lavoro deve essere presidiata cioè qualcuno deve accedere a windows.

potevi comunque usare software di teleassistenza sul pc se hai una connessione internet sempre installati come servizio se la postazione non è presidiata.
uno fra tanti è team viewer oppure tightvnc etc, sono abbastanza facili da configurare

e poi avviare watchpower da fuori.

oppure più complicato ma figo usare un convertitore seriale lan ed esporre tramite un router vpn la connessione in internet. e poi il watch power lo lanci dove vuoi basta avere una connessione internet e il vpn installato sul pc.
vedendo le tue risposte penso dovresti chiedere a qualche amico che lavora in campo pc. quest'ultima soluzione ti avrebbe permesso di lasciare spento il pc vicino all'inverter.penso all'inverter ora

Salve, qualcuno conosce il motivo per il quale "Solar Power" non funziona con i 4048, nonostante il collegamento tramite seriale?

CITAZIONE (antistaminico, 10/10/2017 14:00:50 )

Buona sera circa 5 anni fa, ho comprato un inverter pip 4048ms che ha funzionato molto bene fino a ieri sera. Da ieri sera l'inverter ha smesso di funzionare correttamente ed emette un segnale acustico e il led rosso di errore rimane costantemente acceso. Il display mostra il messaggio di errore 52. Se ripristino il sistema, in particolare eseguo un arresto totale, tutto si riavvia perfettamente l'alimentazione elettrica ritorna ma dopo 20/30 secondi il problema si verifica nuovamente.Qualcuno può darmi qualche suggerimento?
Grazie anticipate