E' Nato il PCB che emozione


Ed ho fatto conoscere i sensori al PPTEA ..... si son subito piaciuti

<div align=center><div class=code_top align=left>
CODICE</div><div class=code align=left>10 :MISURA CLR AMPER_ASSORBITI, AMPER_PRODOTTI
20 CONSTANT CAMPIONAMENTI = 50
30 CONSTANT FATT_PROPORZ_CORRENTE= .092
31 ' Tabella Fattori Proporzione in funzione della Resistenza di Shunt
32 ' 100 Ohm = .118 massima Potenza misurabile 9900 Watt
33 ' 127 Ohm = .092 massima Potenza misurabile 7700 Watt
34 ' 180 Ohm = .064 massima Potenza misurabile 5400 Watt
40 FOR A=1 TO CAMPIONAMENTI
50 AMPER_ASSORBITI +=ABS (CADS1-506)
60 AMPER_PRODOTTI +=ABS (CADS2-506)
70 NEXT A
80 AMPER_ASSORBITI=(AMPER_ASSORBITI/CAMPIONAMENTI)*FATT_PROPORZ_
;CORRENTE
90 AMPER_PRODOTTI=(AMPER_PRODOTTI/CAMPIONAMENTI)*FATT_PROPORZ_C
ORRENTE
100 POTENZA_ASSORBITA=INT(INT(AMPER_ASSORBITI*230)/10)*10
110 POTENZA_PRODOTTA=INT(INT(AMPER_PRODOTTI*230)/10)*10
120 PRINT "AMPER_ASSORBITI= " & AMPER_ASSORBITI & " A"
130 PRINT "AMPER _PRODOTTI= " & AMPER_PRODOTTI & " A"
140 PRINT "POTENZA_ASSORBITA= " & POTENZA_ASSORBITA & " W"
150 PRINT "POTENZA_PRODOTTA= " & POTENZA_PRODOTTA & " W"
160 GOTO :MISURA [/quote]