Vastaa viestiketjuun

Viesti

<blockquote data-quote="korsteeni" data-source="post: 35545" data-attributes="member: 7022">parin euron arduinolla ja 100A-SCT-013-000 ehkä vitosen maksaa ja tällä koodilla saa hyvän portaallisen säädönvertiltä tulo ja kulus kun laittaa ristiin niin hukkaa jää vain maximissaa pienimmän vastuksen verran ja sen voi sitten poimia kokonaan ssr ällä talteen joten kaikki käyttöön#include &quot;EmonLib.h&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; // Include Emon LibraryEnergyMonitor emon1;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; // Create an instanceint upPin7 = 7;int upPin8 = 8;int upPin9 = 9;void setup(){&nbsp; pinMode(upPin7,OUTPUT);&nbsp; pinMode(upPin8,OUTPUT);&nbsp; pinMode(upPin9,OUTPUT);&nbsp; &nbsp; Serial.begin(9600);&nbsp; &nbsp; emon1.voltage(2, 150, 1.7);&nbsp; // Voltage: input pin, calibration, phase_shift&nbsp; emon1.current(1, 12.7);&nbsp; &nbsp; &nbsp;&nbsp; // Current: input pin, calibration.}void loop(){&nbsp; emon1.calcVI(20,2000);&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; // Calculate all. No.of half wavelengths (crossings), time-out&nbsp; emon1.serialprint();&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; // Print out all variables (realpower, apparent power, Vrms, Irms, power factor)&nbsp; &nbsp; float realPower&nbsp; &nbsp; &nbsp;&nbsp; = emon1.realPower;&nbsp; &nbsp; &nbsp; &nbsp; //extract Real Power into variable&nbsp; float apparentPower&nbsp;&nbsp; = emon1.apparentPower;&nbsp; &nbsp; //extract Apparent Power into variable&nbsp; float powerFActor&nbsp; &nbsp;&nbsp; = emon1.powerFactor;&nbsp; &nbsp; &nbsp; //extract Power Factor into Variable&nbsp; float supplyVoltage&nbsp;&nbsp; = emon1.Vrms;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; //extract Vrms into Variable&nbsp; float Irms&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; = emon1.Irms;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; //extract Irms into Variable&nbsp; &nbsp; &nbsp; if ((realPower &gt;= 1350) &amp;&amp; (realPower &lt; 2700)) &nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, HIGH);&nbsp; &nbsp; digitalWrite(upPin8, LOW);&nbsp; &nbsp; digitalWrite(upPin9, LOW);&nbsp; &nbsp; }&nbsp; &nbsp; else if ((realPower &gt;= 2700) &amp;&amp; (realPower &lt; 3800))&nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, LOW);&nbsp; &nbsp; digitalWrite(upPin8, HIGH);&nbsp; &nbsp; digitalWrite(upPin9, LOW);&nbsp; &nbsp; }&nbsp; &nbsp; else if ((realPower &gt;= 3800) &amp;&amp; (realPower &lt; 5020)) &nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, HIGH);&nbsp; &nbsp; digitalWrite(upPin8, HIGH);&nbsp; &nbsp; digitalWrite(upPin9, LOW);&nbsp; &nbsp; }&nbsp; &nbsp; else if ((realPower &gt;= 5020) &amp;&amp; (realPower &lt; 5750))&nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, LOW);&nbsp; &nbsp; digitalWrite(upPin8, HIGH);&nbsp; &nbsp; digitalWrite(upPin9, HIGH);&nbsp; &nbsp; }&nbsp; &nbsp; else if ((realPower &gt;= 5750) &amp;&amp; (realPower &lt; 8800))&nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, HIGH);&nbsp; &nbsp; digitalWrite(upPin8, HIGH);&nbsp; &nbsp; digitalWrite(upPin9, HIGH);&nbsp; &nbsp; }&nbsp; &nbsp; else&nbsp; &nbsp; {&nbsp; &nbsp; digitalWrite(upPin7, LOW);&nbsp; &nbsp; digitalWrite(upPin8, LOW);&nbsp; &nbsp; digitalWrite(upPin9, LOW);&nbsp; &nbsp; }&nbsp; }</blockquote>

[QUOTE="korsteeni, post: 35545, member: 7022"] parin euron arduinolla ja 100A-SCT-013-000 ehkä vitosen maksaa ja tällä koodilla saa hyvän portaallisen säädön vertiltä tulo ja kulus kun laittaa ristiin niin hukkaa jää vain maximissaa pienimmän vastuksen verran ja sen voi sitten poimia kokonaan ssr ällä talteen joten kaikki käyttöön #include "EmonLib.h" // Include Emon Library EnergyMonitor emon1; // Create an instance int upPin7 = 7; int upPin8 = 8; int upPin9 = 9; void setup() { pinMode(upPin7,OUTPUT); pinMode(upPin8,OUTPUT); pinMode(upPin9,OUTPUT); Serial.begin(9600); emon1.voltage(2, 150, 1.7); // Voltage: input pin, calibration, phase_shift emon1.current(1, 12.7); // Current: input pin, calibration. } void loop() { emon1.calcVI(20,2000); // Calculate all. No.of half wavelengths (crossings), time-out emon1.serialprint(); // Print out all variables (realpower, apparent power, Vrms, Irms, power factor) float realPower = emon1.realPower; //extract Real Power into variable float apparentPower = emon1.apparentPower; //extract Apparent Power into variable float powerFActor = emon1.powerFactor; //extract Power Factor into Variable float supplyVoltage = emon1.Vrms; //extract Vrms into Variable float Irms = emon1.Irms; //extract Irms into Variable if ((realPower >= 1350) && (realPower < 2700)) { digitalWrite(upPin7, HIGH); digitalWrite(upPin8, LOW); digitalWrite(upPin9, LOW); } else if ((realPower >= 2700) && (realPower < 3800)) { digitalWrite(upPin7, LOW); digitalWrite(upPin8, HIGH); digitalWrite(upPin9, LOW); } else if ((realPower >= 3800) && (realPower < 5020)) { digitalWrite(upPin7, HIGH); digitalWrite(upPin8, HIGH); digitalWrite(upPin9, LOW); } else if ((realPower >= 5020) && (realPower < 5750)) { digitalWrite(upPin7, LOW); digitalWrite(upPin8, HIGH); digitalWrite(upPin9, HIGH); } else if ((realPower >= 5750) && (realPower < 8800)) { digitalWrite(upPin7, HIGH); digitalWrite(upPin8, HIGH); digitalWrite(upPin9, HIGH); } else { digitalWrite(upPin7, LOW); digitalWrite(upPin8, LOW); digitalWrite(upPin9, LOW); } } [/QUOTE]

Varmistus