|
jumpy75
| Inviato il: 19/9/2012,07:51
|
Buon giorno a tutti,si continua ad ottimizzare il codice per il regolatore di carica. Nella prossima versione inserirò anche la carica di equalizzazione che partirà in automatico una volta al mese.....
Di seguiti l'ultima versione del codice:
CODICE 10 PRAGMA EXTERNAL_EEPROM
30 ' REGOLATORE DI CARICA PWM
50 SETIO=&H100BF
75 PWMIO2=&H8000
130 '------------------------------------------PRESENTAZIONE PPTEA------------------------------------
150 LCDCLEAR
170 LCDPOS=1
190 LCDWRITE=" PPTEA V.2.16V "
210 LCDPOS=21
230 LCDWRITE="CHARGE-PWM V.3.2.1 "
250 WAITS 2
270 LCDCLEAR
290 '-----------------------------------------FINE PRESENTAZIONE PROGRAMMA ---------------------------
310 GIORNO=LEFT(DATE,8)
330 FDATE=1
350 ORARIOL=LEFT(DATE,2)
370 USCITAUSB=""
390 ' AGGIORNAMENTO OROLOGIO
410 IF ORARIOL>=18 OR ORARIOL<07 THEN 1450 ELSE 1530
430 LCDPOS=1
450 LCDWRITE=GIORNO & " " & ORARIO
470 '----------------------------------------- LETTURA TEMPERATURA ---------------------------------
490 T=CADS1
510 GOSUB :TORNATEMPERATURA
530 '----------------------------------------- LETTURA TENSIONE ------------------------------------
550 V=CADS2
570 GOSUB :TORNATENSIONE
590 '----------------------------------------- LETTURA CORRENTE ------------------------------------
610 AMP=CADS3
620 GOSUB :TORNAAMPERE
621 ' RICHIAMO LA FUNZIONE CHE MI GESTISCE LA PERCENTUALE DEL PWM
622 GOSUB :PERCENTUALEPWM
630 ' VALORI DA UTILIZZARE SOLTANTO IN CASO DI DEBUG
631 'VBATT=14.1
632 'AMPERE= 55
633 'TEMPERATURA=80
750 ' CICLO DI RICARICA PER BATTERIA 12Volt - 12Ah
770 CONSTANT VMIN= 4.8
790 CONSTANT VMAX=5.5
795 CONSTANT VMAXEQ=15.0 ' TENSIONE MASSIMA DI EQUALIZZAZIONE
796 CONSTANT GIORNOEQ=01 ' GIORNO DI EQUALIZZAZIONE
810 CONSTANT AmpMAX=0.5 'Massima Corrente di ricarica per batteria al Piombo 12Ah di prova.
815 CONSTANT TEMPERATURAMAX =35.0 ' TEMPERATURA LIMITE DI LAVORO PER IL MOSFET UTILIZATO "IRF640"
850 ' IMPOSTO IL VALORE PERCENTUALE DEL PWM
852 PWMDC2 = PERCENTUALEPWM
854 GOTO 390
930 ' ----------------------------------INIZIO FUNZIONI VARIE - ----------------------
950 :TORNATEMPERATURA
970 LCDPOS=42
990 TEMP=T*5.0/10.23
1010 TEMPERATURA=LEFT(TEMP&"",4)
1030 LCDWRITE="T=" & TEMPERATURA & CHR(223) & "C"
1050 USCITAUSB=TEMPERATURA&";"
1070 RETURN
1090 :TORNATENSIONE
1110 LCDPOS=21
1120 VOLT=V*5.0/10.23
1130 VBATT=LEFT(VOLT&"",4)
1140 USCITAUSB=USCITAUSB&VBATT&";"
1141 LCDWRITE="B=" & VBATT & "V"
1145 GOSUB :PERCENTUALEBATTERIA
1150 RETURN
1250 :TORNAAMPERE
1270 LCDPOS=85
1290 AMP=AMP*5.0/1023
1291 'MOLTIPLICATORE PER SENSORE DI CORRENTE > ACS709 Current Sensor Carrier -75 to +75A
1310 CORRENTE=1/0.028 'ADATTO A SENSORE DI CORRENTE 75AMPER
1330 AMPERE=(AMP-2.5)*CORRENTE
1350 AMPERE=LEFT(AMPERE&"",4)
1370 USCITAUSB=USCITAUSB&ERE&";"
1410 LCDWRITE="A="&ERE&" - A.Max=" & LEFT(AmpMax, 4) &""
1430 RETURN
1450 :LEDON
1470 OUTBIT(6)=0
1490 ORARIO=DATE
1510 GOTO 430
1530 :LEDOFF
1550 OUTBIT(6)=1
1570 ORARIO=DATE
1590 GOTO 430
1600 :PERCENTUALEBATTERIA
1605 PERCENTUALEBATT = LEFT(((VBATT-VMIN)*100)/(VMAX-VMIN), 2)
1610 LCDPOS=30
1615 LCDWRITE= " %BAT=" & LEFT(PERCENTUALEBATT,3) & " "
1620 RETURN
1700 :PERCENTUALEPWM
1718 LCDPOS=75
1721 IF TEMPERATURA > TEMPERATURAMAX THEN 1790 ELSE 1730 'VERIFICO LA TEMPERATURA DEL MOSFET, SE TROPPO ALTA SPENGO
1730 IF LEFT(GIORNO, 2)<>GIORNOELETROLISI THEN 1745 ELSE 1750'VERIFICO ELETTROLISI
1745 IF VBATT >= VMAX THEN 1800 'CONFRONTO LA TENSIONE DELLA BATTERIA CON LA COSTANTE
1750 IF VBATT >= VMAXEQ THEN 1800
1789 IF AMPERE<= AmpMAX THEN 1830 ELSE 1840
1790 ' SPENGO IL PWM IMPOSTANDO A 0% IL VALORE
1800 PERCENTUALEPWM = 0
1802 LCDWRITE="%PWM= 0"
1803 RETURN
1830 ' ACCENDO IL PWM METTENDO AL 100% IL VALORE
1831 PERCENTUALEPWM = 100
1833 LCDWRITE="%PWM=100"
1834 RETURN
1840 ' IMPOSTO IL VALORE % DEL PWM PERCHè LA CORRENTE è SUPERIORE A QUELLA CONSENTITA.
1850 PERCENTUALEPWM=LEFT((AmpMax*100)/AMPERE,3)
1852 LCDWRITE="%PWM=" & LEFT(PERCENTUALEPWM,3) & ""
1853 RETURN
Jan
Modificato da jumpy75 - 19/9/2012, 21:04
|
| | |
jumpy75
| Inviato il: 27/9/2012,07:25
|
Buon giorno a tutti, con oggi sono due giorni che stò testando il regolatore di carica PWM realizzato mediante PPTEA!
Purtroppo ieri la giornata non era delle migliori per sperimentare con il fotovoltaico, però siamo riusciti a caricare lo stesso una batteria da 12Volt - 12Ah........
A questo link riporto il nuovo schema realizzato da Bolle!!!
Jan
|
| | |
marpad65
| Inviato il: 30/9/2012,19:25
|
@Bolle
dopo varie peripezzie ho notato che impostando il PWMFQ1=7 e PWMDC1=0, PWMFQ1 torna in impostazione di default
puoi verificare anche tu????
ciao
marpad
|
| | |
NonSoloBolleDiAcqua
| Inviato il: 1/10/2012,15:36
|
E' giusto che sia così...PWMDC1=0 resetta il PWMDC1...devi settare novamente anche la frequenza....il PWM1 è un PWM particolare ...leggi il manuale.
Ciao
Bolle
---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).
|
| | |
jumpy75
| Inviato il: 23/10/2012,08:57
|
Buon giorno a tutti, dopo vari sbattimenti ho ricontrollato nuovamente il codice e ho trovato qualche piccola imperfezzione. Di seguito riporto l'ultima versione del codice inserito nel mio regolatore di carica in PWM mediante PPTEA:
CODICE 10 PRAGMA EXTERNAL_EEPROM
30 ' REGOLATORE DI CARICA PWM
50 SETIO=&H100BF
75 PWMIO2=&H8000
130 '------------------------------------------PRESENTAZIONE PPTEA------------------------------------
150 LCDCLEAR
170 LCDPOS=1
190 LCDWRITE=" PPTEA V.2.16V"
210 LCDPOS=21
230 LCDWRITE=" CHARGE-PWM V.3.2.4"
250 WAITS 2
270 LCDCLEAR
290 '-----------------------------------------FINE PRESENTAZIONE PROGRAMMA ---------------------------
310 GIORNO=LEFT(DATE,8)
330 FDATE=1
350 ORARIOL=LEFT(DATE,2)
370 USCITAUSB=""
390 ' AGGIORNAMENTO OROLOGIO
391 'LCDCLEAR
410 IF ORARIOL>=18 OR ORARIOL<07 THEN 1450 ELSE 1530
430 LCDPOS=1
450 LCDWRITE=GIORNO & " " & ORARIO
451 ' CICLO DI RICARICA PER BATTERIA 12Volt - 12Ah
453 CONSTANT VMIN= 11
455 CONSTANT VMAX=14
457 CONSTANT VMAXEQ=14.5 ' TENSIONE MASSIMA DI EQUALIZZAZIONE
460 CONSTANT GIORNOEQ=01 ' GIORNO DI EQUALIZZAZIONE
465 CONSTANT AmpMAX=3 'Massima Corrente di ricarica per batteria al Piombo 12Ah di prova.
469 CONSTANT TEMPERATURAMAX =50.0 ' TEMPERATURA LIMITE DI LAVORO PER IL MOSFET UTILIZATO "IRF640"
470 '----------------------------------------- LETTURA TEMPERATURA ---------------------------------
490 T=CADS1
510 GOSUB :TORNATEMPERATURA
530 '----------------------------------------- LETTURA TENSIONE ------------------------------------
550 V=CADS2
570 GOSUB :TORNATENSIONE
590 '----------------------------------------- LETTURA CORRENTE ------------------------------------
610 AMP=CADS3
620 GOSUB :TORNAAMPERE
621 ' RICHIAMO LA FUNZIONE CHE MI GESTISCE LA PERCENTUALE DEL PWM
622 GOSUB :PERCENTUALEPWM
630 ' VALORI DA UTILIZZARE SOLTANTO IN CASO DI DEBUG
631 'VBATT=14.1
632 'AMPERE= 55
633 'TEMPERATURA=80
850 ' IMPOSTO IL VALORE PERCENTUALE DEL PWM
852 PWMDC2 = PERCENTUALEPWM
854 GOTO 390
930 ' ----------------------------------INIZIO FUNZIONI VARIE - ----------------------
950 :TORNATEMPERATURA
970 LCDPOS=42
990 TEMP=T*5.0/10.23
1010 TEMPERATURA=LEFT(TEMP&"",4)
1030 LCDWRITE="T=" & TEMPERATURA & CHR(223) & "C"
1050 USCITAUSB=TEMPERATURA&";"
1070 RETURN
1090 :TORNATENSIONE
1110 LCDPOS=21
1120 VOLT=V*5.0/10.23
1130 VBATT=LEFT(VOLT&"",4)
1140 USCITAUSB=USCITAUSB&VBATT&";"
1141 LCDWRITE="B=" & VBATT & "V"
1145 GOSUB :PERCENTUALEBATTERIA
1150 RETURN
1250 :TORNAAMPERE
1270 LCDPOS=85
1290 AMP=AMP*5.0/1023
1291 'MOLTIPLICATORE PER SENSORE DI CORRENTE > ACS709 Current Sensor Carrier -75 to +75A
1310 CORRENTE=1/0.028 'ADATTO A SENSORE DI CORRENTE 75AMPER
1330 AMPERE=(AMP-2.5)*CORRENTE
1350 AMPERE=LEFT(AMPERE&"",4)
1370 USCITAUSB=USCITAUSB&ERE&";"
1410 LCDWRITE="A="&ERE&" - A.Max=" & LEFT(AmpMax, 4) &""
1430 RETURN
1450 :LEDON
1470 OUTBIT(6)=0
1490 ORARIO=DATE
1510 GOTO 430
1530 :LEDOFF
1550 OUTBIT(6)=1
1570 ORARIO=DATE
1590 GOTO 430
1600 :PERCENTUALEBATTERIA
1605 PERCENTUALEBATT = LEFT(((VBATT-VMIN)*100)/(VMAX-VMIN), 2)
1610 LCDPOS=30
1615 LCDWRITE= " %BAT=" & LEFT(PERCENTUALEBATT,3) & " "
1620 RETURN
1700 :PERCENTUALEPWM
1718 LCDPOS=75
1721 IF TEMPERATURA > TEMPERATURAMAX THEN 1790 ELSE 1730 'VERIFICO LA TEMPERATURA DEL MOSFET, SE TROPPO ALTA SPENGO
1730 IF LEFT(GIORNO, 2)<>GIORNOELETROLISI THEN 1745 ELSE 1750'VERIFICO SE DEVO EQUALIZZARE LA BATTERIA
1740 'NON SIAMO IN EQUALIZZAZIONE
1745 IF VBATT >= VMAX THEN 1800 'CONFRONTO LA TENSIONE DELLA BATTERIA CON LA COSTANTE
1749 'ESEGUO L'EQUALIZZAZIONE DELLA BATTERIA
1750 IF VBATT >= VMAXEQ THEN 1800 'SONO IN EQUALIZZAZIONE, VERIFICO LA TENSIONE BATTERIA
1780 'VERIFICO LA CORRENTE ASSORBITA DALLA BATTERIA,
1781 'SE SUPERIORE A QUANTO IMPOSTATO NELLA COSTANTE REGOLO IN PWM
1782 ' IN MODO DA POTERLA PORTARE A QUELLA DESIDERATA
1789 IF AMPERE<= AmpMAX THEN 1830 ELSE 1840
1790 ' SPENGO IL PWM IMPOSTANDO A 0% IL VALORE
1800 PERCENTUALEPWM = 0
1802 LCDWRITE="%PWM= 0"
1803 RETURN
1830 ' ACCENDO IL PWM METTENDO AL 100% IL VALORE
1831 PERCENTUALEPWM = 100
1833 LCDWRITE="%PWM=100"
1834 RETURN
1840 ' IMPOSTO IL VALORE % DEL PWM PERCHè LA CORRENTE è SUPERIORE A QUELLA CONSENTITA.
1850 'PERCENTUALEPWM=(AmpMax*100)/AMPERE 'VECCHIA FORMULA PER IL CALCOLO DEL PWM
1853 PERCENTUALEPWM=(VAMX*100)/VBATT
1855 PERCENTUALEPWM=LEFT(PERCENTUALEPWM, 3)
1864 LCDWRITE="%PWM=" & PERCENTUALEPWM & ""
1865 RETURN
Jan
|
| | |
marpad65
| Inviato il: 23/10/2012,09:13
|
ciao jan, la riga 1853 .... è un errore ????
|
| | |
kekko.alchemi
| Inviato il: 23/10/2012,10:16
|
Ciao jumpy, una domanda... cosa ce lo metti a fare un optoisolatore se poi colleghi il catodo del led e l`emittitore del transistor sulla stessa massa?? Dando uno sguardo veloce al circuito posso dirti che la resistenza da 1k sul gate del mosfet che hai messo a pull down sulla massa della batteria deve andare sulla massa del pannello altrimenti il mosfet non può funzionare. Come poi ho gia detto a Bolle l`ideale sarebbe pilotare il gate del mosfet con un driver ma cosa ancora più importante è alimentarlo con una tensione stabilizzata a 15V. Alimentarlo con la tensione fluttuante del pannello non può andar bene, in quanto a volte la tensione sarà bassa e farà lavorare il mosfet in zona lineare, mentre a volte sarà troppo alta rischiando di rompere il dielettrico del gate.
Saluti kekko
---------------
L'universo è dominato dagli estremi, l'infinitamente grande e l'infinitamente piccolo.
Ma l'equilibrio è ciò che plasma la materia di cui siamo fatti.
by kekko
|
| | |
kekko.alchemi
| Inviato il: 24/10/2012,21:12
|
C`è nessuno?
Kekko
---------------
L'universo è dominato dagli estremi, l'infinitamente grande e l'infinitamente piccolo.
Ma l'equilibrio è ciò che plasma la materia di cui siamo fatti.
by kekko
|
| | |
jumpy75
| Inviato il: 31/10/2012,20:08
|
CITAZIONE (marpad65 @ 23/10/2012, 09:13) ciao jan, la riga 1853 .... è un errore ????
No, non è un errore, perché mi dici questo?
Fammi capire Marpad.....
Jan
CITAZIONE (kekko.alchemi @ 23/10/2012, 10:16) Ciao jumpy, una domanda... cosa ce lo metti a fare un optoisolatore se poi colleghi il catodo del led e l`emittitore del transistor sulla stessa massa?? Dando uno sguardo veloce al circuito posso dirti che la resistenza da 1k sul gate del mosfet che hai messo a pull down sulla massa della batteria deve andare sulla massa del pannello altrimenti il mosfet non può funzionare. Come poi ho gia detto a Bolle l`ideale sarebbe pilotare il gate del mosfet con un driver ma cosa ancora più importante è alimentarlo con una tensione stabilizzata a 15V. Alimentarlo con la tensione fluttuante del pannello non può andar bene, in quanto a volte la tensione sarà bassa e farà lavorare il mosfet in zona lineare, mentre a volte sarà troppo alta rischiando di rompere il dielettrico del gate.
Saluti kekko
Ciao Kekko, scusami se ti rispondo solo ora, ma settimana scorsa sono stato a letto con la febbre e tornato a lavoro sono stato sommerso da una valanga di lavoro.....
Per quanto riguarda il circuito sicuramente sarà il caso di riveder lo, magari hai modo e tempo di disegnarono tu in modo corretto?
PS: per caso hai avuto modo di finire il vecchio regolatore che abbiamo in sospeso?
A presto
Una
|
| | |
kekko.alchemi
| Inviato il: 1/11/2012,18:39
|
Mi dispiace jumpy, spero ti sia ripreso!!
Per l'errore che indicava l'utente penso si riferisse al fatto che hai scritto VAMX anzichè VMAX...
Per la seconda domanda devi solamente spostare la massa di quella resistenza verso la massa del pannello, poi dovresti aggiungere un regolatore che stabilizzi la tensione sul gate del mosfet... Se ci sentiamo per telefono definiamo anche la terza domanda.
Un saluto Kekko
---------------
L'universo è dominato dagli estremi, l'infinitamente grande e l'infinitamente piccolo.
Ma l'equilibrio è ciò che plasma la materia di cui siamo fatti.
by kekko
|
| | |
jumpy75
| Inviato il: 10/11/2012,15:55
|
Eccomi con delle belle news!!! Finalmente grazie all'aiuto di bolle e il consiglio di Kekko, sono finalmente riuscito a completare il circuito e agganciato ad un pannello FV per ricaricare una batteria al piombo 12v 12Ah.
A breve posterò il nuovo codice ottimizzato da inserire nel pic e lo schema del circuito, così evitiamo di creare confusione a chi come me, non è un vero genio in elettronica.....
Jan
|
| | |
jumpy75
| Inviato il: 10/11/2012,18:55
|
CITAZIONE (kekko.alchemi @ 1/11/2012, 18:39) Per l'errore che indicava l'utente penso si riferisse al fatto che hai scritto VAMX anzichè VMAX...
Ciao kekko, controllando meglio il codice Marpad aveva ragione, la variabile indicata anche da te era sbagliata, purtroppo capitano anche di questi errori....
Di seguito riporto l'ultima versione del codice prodotta questo pomeriggio e testata con il regolatore di carica in PWM.
Domani cercherò di postare il nuovo schema (se riesco a trovare il tempo tra una pennellata ed un'altra....), mannaggia i lavori di casa......
PS: nella prossima versione cercherò di implementare dei pulsanti che daranno la possibilità di cambiare i seguenti valori pre-impostati:
VMIN= 11 'TENSIONE MINIMA DELLA BATTERIA
VMAX=13.8 'TENSIONE DELLA BATTERIA A PIENA CARICA
VMAXEQ=15 ' TENSIONE MASSIMA DI EQUALIZZAZIONE
GIORNOEQ=11 ' GIORNO DI EQUALIZZAZIONE
AmpMAX=4 'CORRENTE MASSIMA PER LA RICARICA DELLE BATTERIE
TEMPERATURAMAX =50.0 ' TEMPERATURA LIMITE DI LAVORO PER IL MOSFET UTILIZATO "IRF640"
A presto
Jan
CODICE 10 PRAGMA EXTERNAL_EEPROM
30 ' REGOLATORE DI CARICA PWM
50 SETIO=&H100BF
75 PWMIO2=&H8000
79 '-----------------------------------------------------------------------------------------------------
80 '########### REGOLATORE DI CARICA PER BATTERIE A 12/24VOLT ###############
130 '-------------------------- PRESENTAZIONE PPTEA ----------------------
150 LCDCLEAR
170 LCDPOS=1
190 LCDWRITE=" PPTEA V.2.16V"
210 LCDPOS=21
230 LCDWRITE=" CHARGE-PWM V.3.3.1"
250 WAITS 2
270 LCDCLEAR
290 '-----------------------------------------FINE PRESENTAZIONE PROGRAMMA ---------------------------
310 GIORNO=LEFT(DATE,8)
330 FDATE=1
350 ORARIOL=LEFT(DATE,2)
370 USCITAUSB=""
390 ' AGGIORNAMENTO OROLOGIO
391 'LCDCLEAR
410 IF ORARIOL>=18 OR ORARIOL<07 THEN 1450 ELSE 1530
430 LCDPOS=1
450 LCDWRITE=GIORNO & " " & ORARIO
451 ' CICLO DI RICARICA PER BATTERIA 12Volt - 12Ah COME DEFAULT
453 CONSTANT VMIN= 11 'TENSIONE MINIMA DELLA BATTERIA
455 CONSTANT VMAX=13.8 'TENSIONE DELLA BATTERIA A PIENA CARICA
457 CONSTANT VMAXEQ=15 ' TENSIONE MASSIMA DI EQUALIZZAZIONE
460 CONSTANT GIORNOEQ=11 ' GIORNO DI EQUALIZZAZIONE
465 CONSTANT AmpMAX=4 'CORRENTE MASSIMA PER LA RICARICA DELLE BATTERIE
469 CONSTANT TEMPERATURAMAX =50.0 ' TEMPERATURA LIMITE DI LAVORO PER IL MOSFET UTILIZATO "IRF640"
489 '----------------------------------------- LETTURA TEMPERATURA ---------------------------------
490 T=CADS1
510 GOSUB :TORNATEMPERATURA
530 '----------------------------------------- LETTURA TENSIONE ------------------------------------
550 V=CADS2
570 GOSUB :TORNATENSIONE
590 '----------------------------------------- LETTURA CORRENTE ------------------------------------
610 AMP=CADS3
620 GOSUB :TORNAAMPERE
621 ' RICHIAMO LA FUNZIONE CHE MI GESTISCE LA PERCENTUALE DEL PWM
622 GOSUB :PERCENTUALEPWM
630 ' VALORI DA UTILIZZARE SOLTANTO IN CASO DI DEBUG
631 'VBATT=14.1
632 'AMPERE= 55
633 'TEMPERATURA=80
850 ' IMPOSTO IL VALORE PERCENTUALE DEL PWM
852 PWMDC2 = PERCENTUALEPWM
854 GOTO 390
930 ' ----------------------------------INIZIO FUNZIONI VARIE - ----------------------
950 :TORNATEMPERATURA
970 LCDPOS=42
990 TEMP=T*5.0/10.23
1010 TEMPERATURA=LEFT(TEMP&"",4)
1030 LCDWRITE="T=" & TEMPERATURA & CHR(223) & "C"
1050 USCITAUSB=TEMPERATURA&";"
1070 RETURN
1090 :TORNATENSIONE
1110 LCDPOS=21
1120 VOLT=V*5.0/10.23
1130 VBATT=LEFT(VOLT&"",4)
1140 USCITAUSB=USCITAUSB&VBATT&";"
1141 LCDWRITE="B=" & VBATT & "V"
1145 GOSUB :PERCENTUALEBATTERIA
1150 RETURN
1250 :TORNAAMPERE
1270 LCDPOS=85
1290 AMP=AMP*5.0/1023
1291 'MOLTIPLICATORE PER SENSORE DI CORRENTE > ACS709 Current Sensor Carrier -75 to +75A
1310 CORRENTE=1/0.028 'ADATTO A SENSORE DI CORRENTE 75AMPER
1330 AMPERE=(AMP-2.5)*CORRENTE
1350 AMPERE=LEFT(AMPERE&"",4)
1370 USCITAUSB=USCITAUSB&ERE&";"
1410 LCDWRITE="A="&ERE&" - A.Max=" & LEFT(AmpMax, 4) &""
1430 RETURN
1450 :LEDON
1470 OUTBIT(6)=0
1490 ORARIO=DATE
1510 GOTO 430
1530 :LEDOFF
1550 OUTBIT(6)=1
1570 ORARIO=DATE
1590 GOTO 430
1600 :PERCENTUALEBATTERIA
1605 PERCENTUALEBATT = LEFT(((VBATT-VMIN)*100)/(VMAX-VMIN), 2)
1610 LCDPOS=30
1615 LCDWRITE= " %BAT=" & LEFT(PERCENTUALEBATT,3) & " "
1620 RETURN
1700 :PERCENTUALEPWM
1718 LCDPOS=75
1721 IF TEMPERATURA > TEMPERATURAMAX THEN 1790 ELSE 1730 'VERIFICO LA TEMPERATURA DEL MOSFET, SE TROPPO ALTA SPENGO
1730 IF LEFT(GIORNO, 2)<>GIORNOELETROLISI THEN 1745 ELSE 1750'VERIFICO SE DEVO EQUALIZZARE LA BATTERIA
1740 'NON SIAMO IN EQUALIZZAZIONE
1745 IF VBATT >= VMAX THEN 1800 'CONFRONTO LA TENSIONE DELLA BATTERIA CON LA COSTANTE
1749 'ESEGUO L'EQUALIZZAZIONE DELLA BATTERIA
1750 IF VBATT >= VMAXEQ THEN 1800 'SONO IN EQUALIZZAZIONE, VERIFICO LA TENSIONE BATTERIA
1780 'VERIFICO LA CORRENTE ASSORBITA DALLA BATTERIA,
1781 'SE SUPERIORE A QUANTO IMPOSTATO NELLA COSTANTE REGOLO IN PWM
1782 'IN MODO DA POTERLA PORTARE A QUELLA DESIDERATA
1789 IF AMPERE<= AmpMAX THEN 1830 ELSE 1840
1790 ' SPENGO IL PWM IMPOSTANDO A 0% IL VALORE
1800 PERCENTUALEPWM = 0
1802 LCDWRITE="%PWM= 0"
1803 RETURN
1830 'ACCENDO IL PWM METTENDO AL 100% IL VALORE
1831 PERCENTUALEPWM = 100
1833 LCDWRITE="%PWM=100"
1834 RETURN
1840 'IMPOSTO IL VALORE % DEL PWM PERCHè LA CORRENTE è SUPERIORE A QUELLA CONSENTITA.
1850 'PERCENTUALEPWM=(AmpMax*100)/AMPERE 'VECCHIA FORMULA PER IL CALCOLO DEL PWM
1853 PERCENTUALEPWM=(VMAX*100)/VBATT
1855 PERCENTUALEPWM=LEFT(PERCENTUALEPWM, 3)
1864 LCDWRITE="%PWM=" & PERCENTUALEPWM & ""
1865 RETURN
Modificato da jumpy75 - 10/11/2012, 18:59
|
| | |
NonSoloBolleDiAcqua
| Inviato il: 10/11/2012,18:57
|
CITAZIONE (jumpy75 @ 10/11/2012, 18:55) tra una pennellata ed un'altra
ma ma....ti sei messo a fare il Pinturicchio? 
---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).
|
| | |
MarKoZaKKa
| Inviato il: 13/11/2012,18:21
|
Finito di pennellare? Dai posta lo schema!
---------------
Tecnico qualificato in clownerie
Windsurfer a tempo perso
Slalomaro senza speranze
|
| | |
jumpy75
| Inviato il: 13/11/2012,18:42
|
CITAZIONE (NonSoloBolleDiAcqua @ 10/11/2012, 18:57) CITAZIONE (jumpy75 @ 10/11/2012, 18:55) tra una pennellata ed un'altra ma ma....ti sei messo a fare il Pinturicchio?
Qui bisogna saper far tutto Bolle.....
- Pittore
- Muratore
- Fabbro
- Idraulico
- Cuoco
- Meccanico
- Elettricista
e chi più ne ha più ne metta.....
@Marko: Purtroppo ancora non ho terminato i lavori a casa, comunque come trovo 10 minuti di tempo cercherò di postarlo!
Jan
|
|
| | |
|
Versione Mobile!
 
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
