Ok claudio ho fatto il tuo stesso settaggio magari controllero' meglio.
Grazie.

Salve ragazzi,
Premesso che non ho mai programmato in visualstudio ma ho sempre letto vari tutorial e libri.
ho cominciato a buttari li un pò di codice parti di linee sono recuperate in internet altre frutto del mio ingegno ... qualche programmatore purista uscirà dalla tomba per strozzarmi
sono comunque ben accetti consigli
... ma io ho raggiunto i miei primi risultati così;
purtroppo anche se ho usato la finestra code non si vede bene quindi usate il copia incolla
ho usato il controllo serialport
e l'evento datareceived per ricevere la risposta.
qui ho messo solo come si fà il CRC per i comandi inviati
e come si controlla il CRC di una risposta ricevuta.

-TOP CODE-
'come inviare comandi da visual studio usando vb 'si può ottimizzare sicuramente 'evento click di un pulsante chiamato cmdTx che invia il contenuto di una textbox chiamata txtCmd su un form Private Sub cmdTx_Click(sender As Object, e As EventArgs) Handles cmdTx.Click Dim comando As String, comandotx As String Dim crc As Integer comando = txtCmd.Text crc = calcrc(System.Text.Encoding.UTF8.GetBytes(comando), Len(comando)) comandotx = comando & crc2str(crc) & vbCr SerialPort1.Write(comandotx) End Sub '----------------------------------------------- Function calcrc(ByVal data() As Byte, ByVal count As Integer) As Integer Dim crc As Integer = 0 Dim i, j As Integer Dim d As Integer For i = 0 To count - 1 d = data(i) crc = crc Xor (d << 8) For j = 0 To 7 If ((crc And &H8000) <> 0) Then crc = (crc << 1) Xor &H1021 Else crc = (crc << 1) End If Next Next calcrc = crc And &HFFFF End Function '-------------------------------------------------------- ' per fare il controllo crc delle stringhe ricevute Function crc2str(c As Integer) As String ' accetta in ingresso il valore intero del crc e restituisce la stringa in esadecimale Dim crcesa As String 'Dim crc1 As String, crc2 As String, crcc1 As Integer, crcc2 As Integer crcesa = Hex(c) Do While Len(crcesa) < 4 crcesa = "0" & crcesa Loop 'crc1 = Mid(crcesa, 1, 2) 'crcc1 = Convert.ToByte(Mid(crcesa, 1, 2), 16) 'crc2 = Mid(crcesa, 3) 'crcc2 = Convert.ToByte(Mid(crcesa, 3), 16) crc2str = Chr(Convert.ToByte(Mid(crcesa, 1, 2), 16)) & Chr(Convert.ToByte(Mid(crcesa, 3), 16)) End Function '----------------------------------esempio se nella variabile risp1 ho la risposta per fare il controllo ho fatto così crcRisp = Microsoft.VisualBasic.Right(risp1, 3) 'tre caratteri perchè c'è anche lo 0D finale crcRisp = Microsoft.VisualBasic.Left(crcRisp, 2) 'qui abbiamo tolto lo 0D Dim rispcalcrc As String rispcalcrc = Microsoft.VisualBasic.Left(risp1, Len(risp1) - 3) ' qui abbiamo la stringa su cui dobbiamo calcolare il crc crc = calcrc(System.Text.Encoding.UTF8.GetBytes(rispcalcrc), Len(rispcalcrc)) ' ora abbiamo in crcRisp il CRC di risposta ed in crc il nostro calcolo ' con un semplice confronto If (crc2str(crc)) = crcRisp Then 'ok controllato crc else ' cercare di non incavolarsi ' cestinare la risposta Endif
-BOTTOM CODE-

Dimenticavo una cosa importantissima ricordarsi di settare la codifica della seriale con la codifica sbagliata mi sono quasi rimbambito...

SerialPort1.Encoding = System.Text.Encoding.GetEncoding(1252)

Buongiorno a tutti! Qualcuno mi sa Dire se c'è una impostazione nellinverter che limita la corrente dei pannelli a 10 A? Riesco ad avere 6 A con tempo grigio molto nuvoloso oppure 8 A al mattino presto e al tramonto con sole molto basso ma in una giornata bellissima alle 13 non supero mai i 10A. Boh! Ciao

CITAZIONE (Francogreen, 09/02/2016 08:20:53 )

Immagine Allegata: Settaggi.JPG
 

Ciao Claudio! l'ho appena scoperto ma io credevo che fosse una limitazione solo x la carica delle batterie. Mi meravigliava che tutti producevano di più e il mio niente. Avevo aggiunto pannelli ma non era cambiato niente. Stamattina ho pensato cambio qualsiasi impostazione che abbia 10 A e infatti guarda la foto allegata e la giornata non è bella come ieri. Mi si è aperto un mondo nuovo. Grazie Claudio e grazie a questo bellissimo forum...

Immagine Allegata: image.jpeg
 

Bene, ma ENEL ti fornisce energia a quasi 245V accidenti, sarà grazie a tutto l'eolico che avete?

No Claudio e che sono a 150 m dalla cabina palo e qui abito quasi solo io. Ti allego un'altra immagine. Ciao

Immagine Allegata: image.jpeg
 

Quasi 1600W bene, noi oggi nebbia

salve a tutti
giusto per dirvi che queste due settimane le ho dedicate al modulo TX di VIATOR.
Spero in questi giorni di dare una aggiustata anche a LUCIBUS. dovrei tirar fuori la versione con gli aggiornamenti verso fine settimana.
portate pazienza !!
ciao
peppe

Grazie
Fotosettore aspettiamo tutti con ansia il prossimo aggiornamento e non ti scordar di me per il salvataggio dei dati.
Saluti

sasà hai un messaggio in privato

salve a tutti,
mi sono rimesso a lavorare su LUCIBUS per poter eliminare i problemi che mi avete fatto notare.
la cosa più importante era risolvere la mancata registrazione dei dati dopo un giorno di funzionamento : ho trovato il baco.
la registrazione avveniva ma non veniva aggiornata la data e così scriveva i nuovi dati ma sempre con il giorno di quando avevate fatto partire lucibus.
risolto ...
spero domenica di mettere in linea la versione aggiornata. voglio prima fare alcune prove aggiuntive.
stay tuned !!!

salutissimi
peppe

Salve a tutti
come promesso ecco LUCIBUS 1.2

Ecco le piccole novità :

1. Corretti alcuni bugs tra i quali :
A. la mancata registrazione allo scattare del nuovo giorno dall'avvio del programma (veniva aggiornata solo l'ora e non il giorno);
B. blocco del programma in caso di ricerca di dati inesistenti - Questo bugs l'ho testato velocemente, potrebbe ripresentare problemi e quindi fatemelo sapere.

2. Modificata la pagina web dei dati, in modo che sia ben visibile pure su uno smartphone. A dire il vero adesso si vede meglio su un telefonino che sul monitor di casa e credo sia la scelta migliore, perchè in fondo la visualizzazione fuori casa avviene sempre su smartphone.
Non ho potuto fare due tipi di pagina (pc e smartphone) in quanto il codice della stessa, incorporato dentro l'exe, non può riconoscere in prima battuta la risoluzione del richiedente. Per far questo avrei dovuto creare una pagina asp o php ma sinceramente, per quello che alla fine dobbiamo sapere dall'inverter, sarebbe stato come usare una ferrari per andare a comprare il pane dal fornaio a 100 metri da casa ....

Infine, a differenza di quanto previsto, NON ho aggiunto la possibilità che la pagina web venga aggiornata in automatico. Dalle prove fatte ho appurato che si consumano troppe risorse durante l'update. E' preferibile ricaricare la pagina quando necessita.
E poi diciamo al verità : i dati da conoscere via web possono essere anche statici ed orientativi. Quelli periodici li abbiamo sul pc, dove girano lucibus o patrol.

Il progetto è teoricamente terminato, ma in pratica è ancora aperto a micromodifiche che possono migliorare quanto già esistente nel codice.
Con la prossima versione eliminerò i files .txt di configurazione e li posizionerò all'interno del file mdb. Per ora non è una cosa essenziale.
Fatemi sapere le vostre impressioni e soprattutto consigli e critiche.
Faccio nuovamente presente che LUCIBUS lavora in perfetta sintonia con VIATOR (il monitor wireless per il 4048 completamente FREE), che ho quasi terminato - attualmente è in dirittura d'arrivo il test del modulo RX - e la cui evoluzione costruttiva può essere seguita QUI .

A presto
peppe

Salve fotosettore sono al mio primo programma con visual studio.
Ho iniziato la creazione del software GruppoPower, ogni riferimento è puramente casuale.
Attualmente non registra un bel niente in nessun db, usa solo un file di testo che si autocrea per inviare comandi ripetitivi di qualsiasi tipo ad un orario prefissato.

Prima di creare ex novo una struttura database per lo storico grafici e quantaltro vorrei rendere il programma compatibile con le strutture dati dei software attualmente esistenti.
questo per permettere agli utilizzatori di scegliere liberamente il software che preferiscono senza perdere eventuale storico.
visto che sei molto preciso, hai un po di documentazione per la struttura dati.
attualmente il mio lavoro si trova qui in un applicazione qui sotto l'mmagine del software che stà lavorand
il software lavora con windows10 è multiThread inverter 4048mppt5000VA
https://www.dropbox.com/sh/c0pkfqo60cm8m4j/AAADgw6B8M9DiiHEMDEw172za?dl=0
La temperatura inverter e la velocità ventola non và, che comando usate per rilevare questi dati?
la temperatura del dissipatore e del trasformatore vengono rilevate ma la temperatura inverter e la velocità ventola non vanno, che comando usate per rilevare questi dati?

Immagine Allegata: gruppopower.jpg
 

CITAZIONE