add scale for temp measurement

r3700 | jgn | 2012-08-15 15:42:13 +1000 (Wed, 15 Aug 2012) | 1 line
This commit is contained in:
Jing Chen
2012-08-15 15:42:13 +10:00
committed by Douglas Clowes
parent 62567cac49
commit e10bb049fd

View File

@@ -503,7 +503,7 @@ proc ::scobj::ag1010::rdValue {} {
set TPH [string range $data 18 19]
set TPL [string range $data 20 21]
hset $ns/MEAS/Temperature [format %d [expr 0x$TPH$TPL]]
hset $ns/MEAS/Temperature [format %d [expr 0x$TPH$TPL / 26.4]]
}
15 { set MainState [format %d 0x[string range $data 6 7]]
switch $MainState {