Re: Läsa av fjärrvärmemätare (Kamstrup MultiCal 401)
Postat: 9 november 2015, 08:35:23
Postar mina hieroglyfer ikväll när jag fått ungarna i säng!
Här är det som jag kompilerade sist och för tillfället kör på.soo1 skrev:Jag tror det är fler än jag som skulle vilja ta del av din arduino kod för avläsningen, något du kan tänka dig att dela med dig av?
- det kan finnas fel... är som sagt helt ny på detta. Samma variabler deklareras flera gånger, m.m. Städning återstår!
- koden kör en gång i minuten o väntar på svar i 100 x 25 ms = 2.5 sekund. LED13 lyser från fråga till emottagit svar/timeout.
- själva mottagningen i 1200 baud tar <0.5 sek när den väl fått första biten men nån gång ibland får jag timeout utan en enda bit efter 2.5s...
- paritetskontrollen går säkert att effektivisera 300% men för att tolka 79 tecken en gång per minut räcker det nog.
- while ( r != 0x0A) är en kvarleva från första försöken (o koden från den danska Wikin; while ( 1 ) är nog bättre o förhindrar att snurran hoppar ur pga en LF)
- avkodningen till flyttal är inte nödvändig men förenklade min tolkning i det Python-skript som tar emot på andra sidan
Kod: Markera allt
#include <SoftwareSerial.h>
// Pin definitions
#define PIN_KAMSER_RX 9 // Kamstrup IR interface RX
#define PIN_KAMSER_TX 10 // Kamstrup IR interface TX
#define PIN_LED 13 // Standard Arduino LED
SoftwareSerial kamSer(PIN_KAMSER_RX, PIN_KAMSER_TX, false); // Initialize serial
void setup () {
Serial.begin(57600);
Serial.print("Initializing...");
pinMode(PIN_LED, OUTPUT);
digitalWrite(PIN_LED, 0);
// setup kamstrup serial
pinMode(PIN_KAMSER_RX,INPUT);
pinMode(PIN_KAMSER_TX,OUTPUT);
Serial.println("done.");
}
bool parity_check(unsigned input) {
bool inputparity = input & 128;
int x = input & 127;
int parity = 0;
while(x != 0) {
parity ^= x;
x >>= 1;
}
if ( parity & 0x1 != inputparity )
return(1);
else
return(0);
}
void loop () {
byte sendmsg1[] = { 175,163,177 }; // /#1 with even parity
byte r = 0;
byte to = 0;
byte i;
char message[255];
int parityerrors;
digitalWrite(PIN_LED, 1);
kamSer.begin(300);
for (int x = 0; x < 3; x++) {
kamSer.write(sendmsg1[x]);
}
kamSer.flush();
kamSer.begin(1200);
to = 0;
r = 0;
i = 0;
parityerrors = 0;
char *tmpstr;
float m_energy, m_volume, m_tempin, m_tempout, m_tempdiff, m_power;
long m_hours, m_flow;
while(r != 0x0A)
{
if (kamSer.available())
{
// receive byte
r = kamSer.read();
if (parity_check(r))
{
parityerrors += 1;
}
r = r & 127; // Mask MSB to remove parity
message[i++] = char(r);
}
else
{
to++;
delay(25);
}
if (i>=79)
{
if ( parityerrors == 0 )
{
Serial.print("OK: " );
message[i] = 0;
tmpstr = strtok(message, " ");
if (tmpstr)
m_energy = atol(tmpstr)/1000.0;
else
m_energy = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_volume = atol(tmpstr)/100.0;
else
m_volume = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_hours = atol(tmpstr);
else
m_hours = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_tempin = atol(tmpstr)/100.0;
else
m_tempin = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_tempout = atol(tmpstr)/100.0;
else
m_tempout = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_tempdiff = atol(tmpstr)/100.0;
else
m_tempdiff = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_power = atol(tmpstr)/10.0;
else
m_power = 0;
tmpstr = strtok(NULL, " ");
if (tmpstr)
m_flow = atol(tmpstr);
else
m_flow = 0;
Serial.print(m_energy,3);
Serial.print(" ");
Serial.print(m_volume);
Serial.print(" ");
Serial.print(m_hours);
Serial.print(" ");
Serial.print(m_tempin);
Serial.print(" ");
Serial.print(m_tempout);
Serial.print(" ");
Serial.print(m_tempdiff);
Serial.print(" ");
Serial.print(m_power,1);
Serial.print(" ");
Serial.print(m_flow);
Serial.println("");
}
else
{
Serial.print("ERR(PARITY): " );
message[i] = 0;
Serial.println(message);
}
break;
}
if (to>100)
{
message[i] = 0;
Serial.print("ERR(TIMEOUT):" );
Serial.println(message);
break;
}
}
digitalWrite(PIN_LED, 0);
delay(58000);
}
Pelarborr står högre på önskelistan kan jag säga...