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:
committed by
Douglas Clowes
parent
62567cac49
commit
e10bb049fd
@@ -503,7 +503,7 @@ proc ::scobj::ag1010::rdValue {} {
|
|||||||
|
|
||||||
set TPH [string range $data 18 19]
|
set TPH [string range $data 18 19]
|
||||||
set TPL [string range $data 20 21]
|
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]]
|
15 { set MainState [format %d 0x[string range $data 6 7]]
|
||||||
switch $MainState {
|
switch $MainState {
|
||||||
|
|||||||
Reference in New Issue
Block a user