penso che con libre office non funzioni perchè ho scritto il codice in vba.
ragazzi è solo un test ed è fisso su com1 ma se entri nel codice puoi cambiare la porta.
oltre a scrivere tutti i campi dei comandi su ogni foglio fa anche un file di log

nel codice l'istruzione è questa

Open ThisWorkbook.Path & "\usage.log" For Output As #1

aprire il file con macro abilitate
nel foglio1 cliccare sul bottone in alto , il codice vba inizia a lavorare
popolando i vari fogli tipo qpigs, etc... si dovrebbe vedere le righe compilarsi.
nel frattempo scrive anche il file di log come indicato nel post prima.
dopo un po che gira dovrebbe comparire anche il grafico sul foglio 10
che ho inserito stasera.
anche questo è solo un esempio.

ho già trovato anche il sistema per inviare i dati su pvoutput.
con curl.exe e poche istruzioni. (info per stufodelgas)

ecco il file mi si era cancellato dal post precedente.
con libreoffice non funziona .

Una domanda su lucibus128betaG che sto cercando di installare su un computer...ma è compatibile con win 10? La cartella con db_files_vuoti dove va messa? Grazie

CITAZIONE (valter996, 03/03/2017 10:35:52 )

Dopo il primo test di comunicazione seriale positivo.
ecco un esempio di come inviare i dati a pvoutput
anche questo è ancora un test.
ho configurato solo tre comandi ripetitivi QDI,QPGS0,QPGIS

all'inizio del modulo 1 si deve inserire
il proprio apikey e systemid rilasciato da pvoutput

'**************************************************************************************
'   paramatri da sostituire dopo la registrazione a pvoutput ApiKey e SystemId
'--------------------------------------------------------------------------------------
Const ApiKey = "aabbccddeeffgghhiillmmnnooppqqrrsstt"
Const SystemId = "111111"
'**************************************************************************************

Immagine Allegata: pvoutput4048.jpg
 

nella sub main() del modulo 1
prima di postarlo ho dimenticato di rialzare i tempi di trasmisione e lettura

il codice da cercare e correggere è questo dove dove tLettura + 0.6 va portato a tLettura + 1
lo stesso per tTrasmetti + 0.6 va portato a tTrasmetti + 1

.......
    DoEvents
    If tStart > (tLettura + 1) And txInProcesso > 0 Then 'lettura ogni .xxx millisecondi
       'Debug.Print Timer
       'leggere seriale
.........

   If tStart > (tTrasmetti + 1) Then
       'trasmettere alla seriale

.........

ho provato ad usarla oggi ed ho trovato un altro bug sul valore medio
metto direttamente tutte le correzioni
tanto il file è piccolo

modificare nel file tutta la classe clsstandardizzazione

Option Explicit
Private mvarValoreDaPesare As Double
Private mvarsecondidelvalore As Integer
Private mvarpeso As Double
Private mvarNomecomando As String
Private mvarSecondOld
'Private pesold

'Static valore
'Definizione in input della proprietà "".
Public Property Let nomeCmd(ByVal vDatin As String)
    mvarNomecomando = vDatin
End Property

'Definizione in output della proprietà "".
Public Property Get nomeCmd() As String
    nomeCmd = mvarNomecomando
End Property


'Definizione in input della proprietà "".
Public Property Let valoredapesare(ByVal vDati As Double)
    mvarValoreDaPesare = vDati
End Property

'Definizione in output della proprietà "".
Public Property Get valoredapesare() As Double
    valoredapesare = mvarValoreDaPesare
End Property

'Definizione in input della proprietà "".
Public Property Let secondidelvalore(ByVal vDati2 As Double)
    mvarsecondidelvalore = vDati2
End Property

'Definizione in output della proprietà "".
Public Property Get secondidelvalore() As Double
    secondidelvalore = mvarsecondidelvalore
End Property

'Definizione in input della proprietà "".
Public Property Let ValoreMedio(ByVal vDati3 As Double)
    mvarpeso = vDati3
End Property

'Definizione in output della proprietà "".
Public Property Get ValoreMedio() As Double
    ValoreMedio = mvarpeso
End Property

'Definizione in input della proprietà "".
Public Property Let secondold(ByVal vDatin As Integer)
    mvarSecondOld = vDatin
End Property

'Definizione in output della proprietà "".
Public Property Get secondold() As Integer
    secondold = mvarSecondOld
End Property

Public Sub Pesa()
'(valoredapesare As Integer, secondi As Integer, pesold As Double, secondold As Double) As Variant
    'serve per fare la media di tutti i valori letti nei 5 minuti
    ' non ha importanza il tempo esatto dei 5 minuti ma la media dei valori sino a qui letta con il peso dovuto.
    Static pesold As Double
    'Static secondold As Integer
    'Static valore
    Dim peso As Double
    peso = (mvarValoreDaPesare * mvarsecondidelvalore) + (pesold * mvarSecondOld)
    mvarSecondOld = mvarSecondOld + mvarsecondidelvalore
    pesold = (peso / mvarSecondOld)
    mvarpeso = pesold
End Sub
Public Sub Reset()
Static secondold As Integer
    mvarValoreDaPesare = 0
    mvarsecondidelvalore = 0
    mvarSecondOld = 0
End Sub

dimenticavo l'utility curl.exe usata per inviare i dati si può trovare
qui
download without ssl

inoltre oggi a 32000 righe di excel si è piantato è andata in overflow la variabile che contiene l'ultima riga vuota del foglio di excel
perchè l'ho dichiarata integer invece di long.
è in modulo1 nella sub popolacomando
Sub popolaComando(nomeFg As String, datorx As String)
Static secondi As Integer, secondi2 As Integer
Static tempoi As Integer, tempoi2 As Integer
Static nqpgs0 As Integer
Dim valore As Long, NDati As Long
Dim RangeTmp As String

'Application.ScreenUpdating = False
Dim acampi() As String, col As Integer, rigavuota As Long

il software sviluppato in poche ore di lavoro è da considerarsi come idea sia per l'invio dati a pvoutput che per il protocollo di dialogo con l'inverter.
e lo scopo del test è vedere se il protocollo funziona in altre installazioni.
attualmente uso 4048 5000VA mppt fw 52.30 fw2 1.24(fw2 si vede solo se campo pv)

un altra idea può essere mettere la comunicazione e la parte per pvoutput in una piccola applicazione fatta in C standalone (programmatore C open source gradito)
che si posiziona sulla tray bar.
e da far lavorare sia come master o come slave.
in modalità Master pensa lei a inviare le richieste all'inverter ma impegna la seriale.
in modalità slave invece sniffa solo la seriale quindi sarà il watchpower o qualsiasi altro prg a dialogare con l'inverter e quando vede i comandi che gli servono li memorizza, li pesa a 5 minuti e li invia a pvoutput.

Eccomi di nuovo o aggiornato il test alla versione 0.04
per evitare di dover mettere tutte le volte di nuovo
APIKEY e SYSTEMID
da questa versione dovete fare un file col blocco note
dove in prima riga va inserito il codice APIKEY ed in seconda rica il SYSTEM ID
esempio

aabbccddeeffgghh
102030

help come faccio a modificare il post e fare le immagini più piccole
chiedo aiuto ai moderatori?.
mi scuso,la prossima volta le rimpicciolisco prima di fare upload.

Sai da che versione di excel posso usare il file xlsm ?

ciao kamaleon
il 2007 ma se ti serve posso salvarlo in formato per il 2003
non ho provato ma penso che funzioni anche con il runtime.
solo che in caso di runtime non potrai fare modifiche.

...e bravo Gruppo, come sempre.
Ti chiedo se è possibile vedere in tempo reale il modo di funzionamento dell'inverter e i valori dell'energia prodotta, dell'energia prelevata dalla rete, l'energia solare consumata e l'energia consumata, che, secondo me, sono dati fondamentali per fare un bilancio energetico giornaliero. Grazie.
Saluti e buon lavoro.