1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
| word const kregnums[] = { 0x003C,0x0050,0x0056,0x0057,0x0059,0x004a,0x0044 }; // The registers we want to get out of the meter
char* kregstrings[] = { "Energy","Current Power","Temperature t1","Temperature t2","Temperature diff", "Flow", "Volumen 1" }; // The name of the registers we want to get out of the meter in the same order as above
//word const kregnums[] = { 0x003C, }; // The registers we want to get out of the meter
//char* kregstrings[] = { "Energy" }; // The name of the registers we want to get out of the meter in the same order as above
#define NUMREGS 7 // Number of registers above
#define KAMBAUD 1200
// Units
char* units[65] = {"","Wh","kWh","MWh","GWh","j","kj","Mj",
"Gj","Cal","kCal","Mcal","Gcal","varh","kvarh","Mvarh","Gvarh",
"VAh","kVAh","MVAh","GVAh","kW","kW","MW","GW","kvar","kvar","Mvar",
"Gvar","VA","kVA","MVA","GVA","V","A","kV","kA","C","K","l","m3",
"l/h","m3/h","m3xC","ton","ton/h","h","hh:mm:ss","yy:mm:dd","yyyy:mm:dd",
"mm:dd","","bar","RTC","ASCII","m3 x 10","ton xr 10","GJ x 10","minutes","Bitfield",
"s","ms","days","RTC-Q","Datetime"};
#define PIN_KAMSER_RX 1 // Kamstrup IR interface RX
#define PIN_KAMSER_TX 2 // Kamstrup IR interface TX
#define PIN_LED 8 // Standard Arduino LED
#define KAMTIMEOUT 900 // Kamstrup timeout after transmit
void setup () {
Serial.begin(115200);
Serial.println("BOOT");
pinMode(PIN_LED, OUTPUT);
digitalWrite(PIN_LED, 0);
// setup kamstrup serial
pinMode(PIN_KAMSER_RX, INPUT);
pinMode(PIN_KAMSER_TX, OUTPUT);
Serial1.begin(KAMBAUD,SERIAL_8N2, PIN_KAMSER_RX, PIN_KAMSER_TX);
delay(200);
//Serial.println("\n[testKamstrup]");
// poll the Kamstrup registers for data
for (int kreg = 0; kreg < NUMREGS; kreg++) {
kamReadReg(kreg);
delay(100);
}
}
void loop () {
// poll the Kamstrup registers for data
for (int kreg = 0; kreg < NUMREGS; kreg++) {
kamReadReg(kreg);
delay(100);
}
digitalWrite(PIN_LED, digitalRead(PIN_KAMSER_RX));
delay(1000);
}
// kamReadReg - read a Kamstrup register
float kamReadReg(unsigned short kreg) {
byte recvmsg[40]; // buffer of bytes to hold the received data
float rval; // this will hold the final value
// prepare message to send and send it
byte sendmsg[] = { 0x3f, 0x10, 0x01, (kregnums[kreg] >> 8), (kregnums[kreg] & 0xff) };
kamSend(sendmsg, 5);
// listen if we get an answer
unsigned short rxnum = kamReceive(recvmsg);
// check if number of received bytes > 0
if(rxnum != 0){
// decode the received message
rval = kamDecode(kreg,recvmsg);
// print out received value to terminal (debug)
////Serial.print(kregstrings[kreg]);
Serial.print(": ");
Serial.print(rval);
Serial.print(" ");
Serial.println();
return rval;
}
}
// kamSend - send data to Kamstrup meter
void kamSend(byte const *msg, int msgsize) {
// append checksum bytes to message
byte newmsg[msgsize+2];
for (int i = 0; i < msgsize; i++) { newmsg[i] = msg[i]; }
newmsg[msgsize++] = 0x00;
newmsg[msgsize++] = 0x00;
int c = crc_1021(newmsg, msgsize);
newmsg[msgsize-2] = (c >> 8);
newmsg[msgsize-1] = c & 0xff;
// build final transmit message - escape various bytes
byte txmsg[20] = { 0x80 }; // prefix
int txsize = 1;
for (int i = 0; i < msgsize; i++) {
if (newmsg[i] == 0x06 or newmsg[i] == 0x0d or newmsg[i] == 0x1b or newmsg[i] == 0x40 or newmsg[i] == 0x80) {
txmsg[txsize++] = 0x1b;
txmsg[txsize++] = newmsg[i] ^ 0xff;
} else {
txmsg[txsize++] = newmsg[i];
}
}
txmsg[txsize++] = 0x0d; // EOF
// send to serial interface
for (int x = 0; x < txsize; x++) {
Serial.print(txmsg[x], HEX);
Serial.print(" ");
Serial1.write(txmsg[x]);
}
// this command is the first one sent by the native software
// txmsg[0] = 128;
// txmsg[1] = 63;
// txmsg[2] = 1;
// txmsg[3] = 5;
// txmsg[4] = 0x8A;
// txmsg[5] = 0x0D;
// for (int x = 0; x < 6; x++) {
// Serial.print(txmsg[x], HEX);
// Serial.print(" ");
// Serial1.write(txmsg[x]);
// }
}
// kamReceive - receive bytes from Kamstrup meter
unsigned short kamReceive(byte recvmsg[]) {
byte rxdata[50]; // buffer to hold received data
unsigned long rxindex = 0;
unsigned long starttime = millis();
Serial1.flush(); // flush serial buffer - might contain noise
byte r;
// loop until EOL received or timeout
while(r != 0x0d){
// handle rx timeout
if(millis()-starttime > KAMTIMEOUT) {
Serial.println("Timed out listening for data");
return 0;
}
// handle incoming data
if (Serial1.available()) {
// receive byte
r = Serial1.read();
Serial.print(r, HEX);
Serial.print(" ");
if(r != 0x40) { // don't append if we see the start marker
// append data
rxdata[rxindex] = r;
rxindex++;
}
}
}
// remove escape markers from received data
unsigned short j = 0;
for (unsigned short i = 0; i < rxindex -1; i++) {
if (rxdata[i] == 0x1b) {
byte v = rxdata[i+1] ^ 0xff;
if (v != 0x06 and v != 0x0d and v != 0x1b and v != 0x40 and v != 0x80){
Serial.print("Missing escape ");
Serial.println(v,HEX);
}
recvmsg[j] = v;
i++; // skip
} else {
recvmsg[j] = rxdata[i];
}
j++;
}
// check CRC
if (crc_1021(recvmsg,j)) {
Serial.println("CRC error: ");
return 0;
}
return j;
}
// kamDecode - decodes received data
float kamDecode(unsigned short const kreg, byte const *msg) {
// skip if message is not valid
if (msg[0] != 0x3f or msg[1] != 0x10) {
return false;
}
if (msg[2] != (kregnums[kreg] >> 8) or msg[3] != (kregnums[kreg] & 0xff)) {
return false;
}
// decode the mantissa
long x = 0;
for (int i = 0; i < msg[5]; i++) {
x <<= 8;
x |= msg[i + 7];
}
// decode the exponent
int i = msg[6] & 0x3f;
if (msg[6] & 0x40) {
i = -i;
};
float ifl = pow(10,i);
if (msg[6] & 0x80) {
ifl = -ifl;
}
// return final value
return (float )(x * ifl);
}
// crc_1021 - calculate crc16
long crc_1021(byte const *inmsg, unsigned int len){
long creg = 0x0000;
for(unsigned int i = 0; i < len; i++) {
int mask = 0x80;
while(mask > 0) {
creg <<= 1;
if (inmsg[i] & mask){
creg |= 1;
}
mask>>=1;
if (creg & 0x10000) {
creg &= 0xffff;
creg ^= 0x1021;
}
}
}
return creg;
} |
:fill(white):strip_exif()/i/2002131643.jpeg?f=thumbmini)
:no_upscale():strip_icc():fill(white):strip_exif()/f/image/zVTaic4hhHKB7l0h1yqYcIrA.jpg?f=user_large)
)
:fill(white):strip_exif()/f/image/ZCTtE2UyWw1hPwPTlY9DwlcC.png?f=user_large)
:fill(white):strip_exif()/f/image/oO1IzKaQguZEQYmGzOEfFmIp.png?f=user_large)
:strip_icc():strip_exif()/u/335968/crop57d2c94ca341d_cropped.jpeg?f=community)
:no_upscale():strip_icc():fill(white):strip_exif()/f/image/xGMo6xxdMaXoYWSSlShUvzoh.jpg?f=user_large)
Ik heb een dedicated Generic x86-64 PC, en deze image op een SSD geflasht. Dan zou ik denk ik toch iets meer moeten doen dan alleen python instaleren denk ik zo, of heb ik dat verkeerd? /u/24937/crop65fe1ebc2efd0_cropped.png?f=community)
/u/338627/justinmeyernl_copy-2.png?f=community)
Kan iemand mij vertellen wat de 'volume' waarde betekenen? Ik weet dat het gebruikt water is, maar is dat alleen warmwater of een combinatie? Mijn warmte leverancier vraagt 9,95 per m3 (prijsplafond), maar het verbruik gaat best hard...:fill(white):strip_exif()/f/image/hFznVwrFk6oxG45emyKoMcor.png?f=user_large)
:no_upscale():strip_icc():fill(white):strip_exif()/f/image/O9ugzVDZ2BKC6iO6YlC370zB.jpg?f=user_large)
:strip_icc():strip_exif()/u/476616/o.p-dibenzene-tweakers-70.jpg?f=community)
:fill(white):strip_exif()/f/image/BkfApKKDdh8XfP9Sxz7k1UXv.png?f=user_large)
:strip_exif()/u/77369/crop5c9e19bb76f02_cropped.gif?f=community)
Dat is bijna niet te troubleshooten.....:no_upscale():strip_icc():strip_exif()/f/image/vqzDOz3KBSb6UiBa7H804ndB.jpg?f=user_large)
:fill(white):strip_exif()/f/image/DWkgr08gJIXFP8wz5K2YCA2v.png?f=user_large){kind=link}