ElettroshockNow
| Inviato il: 18/4/2013,12:44
|
Confermo ...... legge sempre il CADS1 qualsiasi CADS imposto ....
Lo stò provando con questo codice scritto da uno forte 
CODICE 10 'WATTMETRO 1.0 CON ACS714 VALORE ISTANTANEO (PRECISIONE 10WATT)
50 CONSTANT NELE = 80
55 CONSTANT NELEVETT = 100
60 CONSTANT CAMPIONAMENTO=55
70 CONSTANT VENTI_MS=63 ' SONO LE BATTUTE PER COMPLETARE I 20 MS
80 CONSTANT CONV_CORRENTE_POT=.281
100 DIM V(NELE) AS WORD
450 :MAIN CADSEQ(V,2,CAMPIONAMENTO, NELE)
495 CLR WH
500 FOR A=1 TO VENTI_MS
510 PP=V(A)-514
650 WH +=ABS(PP)
800 NEXT A
810 WATT= INT(INT (WH*CONV_CORRENTE_POT)/10)*10
850 PRINT WATT & " W"
950 WAITMS 10
1000 GOTO :MAIN
PS: rimetto in vetrina i bicchieri di cristallo
PICCOLA ANOMALIA
Ho riscontrato che :
SUB MISURA_TENSIONE_BATT CLR VOLT ------- non pulisce la variabile
SUB MISURA_TENSIONE_BATT
CLR VOLT -------- cosi' si
|
|
| |
NonSoloBolleDiAcqua
| Inviato il: 18/4/2013,13:31
|
CITAZIONE (ElettroshockNow @ 18/4/2013, 13:44) Confermo ...... legge sempre il CADS1 qualsiasi CADS imposto ....
Ok...verifico.
CITAZIONE (ElettroshockNow @ 18/4/2013, 13:44) SUB MISURA_TENSIONE_BATT CLR VOLT ------- non pulisce la variabile
SUB MISURA_TENSIONE_BATT
Te possino...non fungono le multilinee...ogni linea una istruzione...devo mettere il check sul fine sub di fine linea. Grazie per la segnalazione.
Ciao
PS:I cristalli tirali fuori la prossima volta...per tirarmeli in testa...
---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).
|
| | |
ElettroshockNow
| Inviato il: 18/4/2013,13:37
|
Paziento il tuo operato ..............
Anche perchè stò fermo con le 4 frecce ......... mi manca solo migliorare la lettura dei sensori per il progetto Priespe (che con carichi induttivi sballano un pò ......... forse l'ho letto in un'altra discussione)
|
| | |
Luca450Mhz
| Inviato il: 18/4/2013,14:03
|
Piccola domanda: imposto il bit 9 come output.
Posso fare:
Ma se devo leggere lo stato di questo bit?
Se faccio
Ho un errore dal compilatore. Ho riletto l'ultimo manuale e non sono riuscito a trovare la risposta........
Come posso fare?
---------------
Pannelli: 6975 Wp (poli e mono). Inverter UPS PSW7 6kW 48V toroidale con switch comandato dal mio sistema di domotica (RaspberryPi + vari Wemos D1 Mini - ESP8266). Regolatore di carica: Mpp Solar PCM8048.
Batterie: 24 elementi trazione pesante 315Ah C5 48V.
|
| | |
ElettroshockNow
| Inviato il: 18/4/2013,14:04
|
Provato questo codice :
CITAZIONE 450 :MAIN CADSEQ(V,NonSoloBolleDiAcqua,CAMPIONAMENTO, NELE)
Nessun errore di compilazione .... ma legge sempre CADS1
@Luca
CITAZIONE VALORE = OUTBIT(9)
VALORE = INPBIT(9)
|
| | |
Luca450Mhz
| Inviato il: 18/4/2013,14:11
|
CITAZIONE (ElettroshockNow @ 18/4/2013, 15:04) VALORE = INPBIT(9)
Stavo pensando anche io.. nella guida si parla di lettura di bit di input.. però ho provato e sembra funzionare.. grazie mille!
---------------
Pannelli: 6975 Wp (poli e mono). Inverter UPS PSW7 6kW 48V toroidale con switch comandato dal mio sistema di domotica (RaspberryPi + vari Wemos D1 Mini - ESP8266). Regolatore di carica: Mpp Solar PCM8048.
Batterie: 24 elementi trazione pesante 315Ah C5 48V.
|
| | |
ElettroshockNow
| Inviato il: 18/4/2013,14:12
|
Oppure la metti direttamente in un :
IF INPBIT(9) THEN XXXXXXXXX
oppure
IF !INPBIT(9) THEN XXXXXXXX
ma poi lo vengo dire a te ........
|
| | | | | | |
ElettroshockNow
| Inviato il: 18/4/2013,14:46
|
Esito Negativo ....
10 'WATTMETRO 1.0 CON ACS714 VALORE ISTANTANEO (PRECISIONE 10WATT)
50 CONSTANT NELE = 80
55 CONSTANT NELEVETT = 100
60 CONSTANT CAMPIONAMENTO=55
70 CONSTANT VENTI_MS=63 ' SONO LE BATTUTE PER COMPLETARE I 20 MS
80 CONSTANT CONV_CORRENTE_POT=.281
100 DIM V(NELE) AS WORD
450 :MAIN CADSEQ(V,2,CAMPIONAMENTO, NELE)
495 CLR WH
500 FOR A=1 TO VENTI_MS
510 PP=V(A)-514
650 WH +=ABS(PP)
800 NEXT A
810 WATT= INT(INT (WH*CONV_CORRENTE_POT)/10)*10
850 PRINT WATT & " W"
950 WAITMS 10
1000 GOTO :MAIN
Legge sempre il CADS1
|
| | |
Luca450Mhz
| Inviato il: 18/4/2013,14:47
|
CITAZIONE (Luca450Mhz @ 18/4/2013, 15:11) VALORE = INPBIT(9)
Da debugger non funziona.. legge sempre 0 anche se il valore è HIGH..
---------------
Pannelli: 6975 Wp (poli e mono). Inverter UPS PSW7 6kW 48V toroidale con switch comandato dal mio sistema di domotica (RaspberryPi + vari Wemos D1 Mini - ESP8266). Regolatore di carica: Mpp Solar PCM8048.
Batterie: 24 elementi trazione pesante 315Ah C5 48V.
|
| | |
NonSoloBolleDiAcqua
| Inviato il: 18/4/2013,15:18
|
XLuca,
allora, per settare l'I/O devi impostare se il bit è di uscita o di ingresso. Questo lo fai con la SETIO o con l'IOMODE (valore 0 è una uscita, valore 1 è un ingresso).
Poi vuoi forzare una uscita lo fai con la OUTBIT, mentre se vuoi leggere un ingresso lo fai con INPBIT.
Esempio di input:lancia il codice con il debug ...quando setti il bit 14 vedrai che scrive 1....se levi il set leggerai 0.
CODICE 10 CADS=0 15 SETIO=&HFFFF 17 a=14 20 VAL=INPBIT(A) 25 USBOUT="BIT("&A &"  =" &VAL & CR_LF 26 IF !VAL THEN 30 27 OUTBIT(14)=1 ' 30 WAITMS 250 31 OUT=0 35 'a++ 40 IF a < 16 THEN 20 45 CLR a 50 GOTO 20
Questo codice forza in successione il bit14 come ingresso ( e ne visualizza il valore) e poi lo mette come uscita e ne forza in modo alterno lo stato.
CODICE 10 IOMODE(14)=INPUT
15 PRINT "STATO DEL BIT 14="& INPBIT(14)
20 BEEP
30 WAITS 1
40 IOMODE(14)=OUTPUT
41 A++
42 OUTBIT(14)=A MOD 2
45 BEEP
55 GOTO 10
Spero di aver chiarito i dubbi.
CITAZIONE (ElettroshockNow @ 18/4/2013, 15:46) Legge sempre il CADS1
 a livello di codice non trovo anomalie....provo tutto quanto prima, dammi qualche ora di tempo e cerco di trovare il problema.
Prova a forzare il cad2...prova questo codice...vediamo cosa accade:
CODICE 10 'WATTMETRO 1.0 CON ACS714 VALORE ISTANTANEO (PRECISIONE 10WATT)
50 CONSTANT NELE = 80
55 CONSTANT NELEVETT = 100
60 CONSTANT CAMPIONAMENTO=55
70 CONSTANT VENTI_MS=63 ' SONO LE BATTUTE PER COMPLETARE I 20 MS
80 CONSTANT CONV_CORRENTE_POT=.281
100 DIM V(NELE) AS WORD
450 :MAIN
452 BUTTO=CADS2
455 CADSEQ(V,2,CAMPIONAMENTO, NELE)
495 CLR WH
500 FOR A=1 TO VENTI_MS
510 PP=V(A)-514
650 WH +=ABS(PP)
800 NEXT A
810 WATT= INT(INT (WH*CONV_CORRENTE_POT)/10)*10
850 PRINT WATT & " W"
950 WAITMS 10
1000 GOTO :MAIN
Ciao
Bolle
---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).
|
| | |
Luca450Mhz
| Inviato il: 18/4/2013,15:40
|
CODICE ....
CONSTANT BIT_VENTOLA = 6
IOMODE(BIT_VENTOLA) = OUTPUT
....
' ---------- Gestione accensione/spegnimento automatico ventola di raffreddamento
' Soglie intervento: 30 - 25
SUB CHECK_VENTOLA
' Controllo prima se la ventola è già in funzione
'VENTOLA = INPBIT(BIT_VENTOLA)
IF VENTOLA = HIGH THEN :CHECK_SPEGNIMENTO
GOTO :CHECK_ACCENSIONE
:CHECK_SPEGNIMENTO
TEMP = TEMP + 0
IF (TEMP <= 25) THEN :SPEGNI
:CHECK_ACCENSIONE
IF (TEMP >= 30) THEN :ACCENDI
GOTO :FINE
:SPEGNI
OUTBIT(BIT_VENTOLA) = LOW
VENTOLA = LOW
GOTO :FINE
:ACCENDI
OUTBIT(BIT_VENTOLA) = HIGH
VENTOLA = HIGH
:FINE
SUBEND
Vedi Bolle la seconda riga della SUB l'ho commentata, perchè nel compiler leggeva sempre 0, anche quando il suo valore era HIGH e anche il checkbox relativo veniva spuntato.
Ho risolto con una variabile apposita
---------------
Pannelli: 6975 Wp (poli e mono). Inverter UPS PSW7 6kW 48V toroidale con switch comandato dal mio sistema di domotica (RaspberryPi + vari Wemos D1 Mini - ESP8266). Regolatore di carica: Mpp Solar PCM8048.
Batterie: 24 elementi trazione pesante 315Ah C5 48V.
|
| | |
NonSoloBolleDiAcqua
| Inviato il: 18/4/2013,15:44
|
Grandissimo Elettro,
ho trovato una anomalia...questa volta l'ho vista...arriprova inserendo solo il nouvo firmware..no preoccuparti se ti da il disallineamento con l'eseguibile del pc!
Attendo il pollice... 
Ciao
Bolle
---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).
|
| | |
ElettroshockNow
| Inviato il: 18/4/2013,15:51
|
Tutta la mattina davanti al PC .... ed ora che forse ho la soluzione ........ Sto' fuori casa  .
A questa sera
Ps: per quanto riguarda la forzatura le ho provate penso tutte .........
Grazie
ElettroshockNow
|
|
| | |
|
Versione Mobile!
 
|
|
|
|
|
|
|
|
|
|
|
|
|
