linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sensirion: set scale to 2.3 when 1, improve save

Browse Source
This commit is contained in:
l_samenv
2023-05-24 11:43:27 +02:00
parent 1a1362d9f9
commit 305b97faa8
1 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
tcl/drivers/sensirion.tcl
View File

@ -32,9 +32,8 @@ proc stdConfig::sensirion {} {
prop writecmd "str7 n%-6d int 10 / str9" prop writecmd "str7 n%-6d int 10 / str9"
node offset wr node offset wr
prop check sensirion::checkCalib
prop read stdSct::read prop read stdSct::read
prop complete sensirion::update prop complete sensirion::update_and_check
prop update sensirion::update prop update sensirion::update
prop write stdSct::write prop write stdSct::write
prop readcmd "str1 o int 10 / str9" prop readcmd "str1 o int 10 / str9"
@ -42,15 +41,15 @@ proc stdConfig::sensirion {} {
node scale wr node scale wr
prop read stdSct::read prop read stdSct::read
prop complete sensirion::update prop complete sensirion::update_and_check
prop update sensirion::update prop update sensirion::updateScale
prop check sensirion::checkCalib
prop write stdSct::write prop write stdSct::write
prop readcmd "str1 g int 10 / str9" prop readcmd "str1 g int 10 / str9"
prop writecmd "str7 g%-6.4f int 10 / str9" prop writecmd "str7 g%-6.4f int 10 / str9"
node save out node save wr
prop enum 1 prop enum 1
prop read sensirion::readSave
prop write sensirion::saveCalib prop write sensirion::saveCalib
prop help "unchecked: current calib is not saved. set checked: save calib" prop help "unchecked: current calib is not saved. set checked: save calib"
@ -75,14 +74,6 @@ proc sensirion::currentCalib {} {
return [format {%.4f %.4f} [hval [sct objectPath]/offset] [hval [sct objectPath]/scale]] return [format {%.4f %.4f} [hval [sct objectPath]/offset] [hval [sct objectPath]/scale]]
} }
proc sensirion::checkCalib {} {
if {[silent "" currentCalib] ne "[silent 0 sct saved]"} {
hupdate [sct parent]/save 0
} else {
hupdate [sct parent]/save 0
}
}
proc sensirion::saveCalib {} { proc sensirion::saveCalib {} {
if {[sct target]} { if {[sct target]} {
sct send "str1 s int 10 / str1" sct send "str1 s int 10 / str1"
@ -99,3 +90,31 @@ proc sensirion::update {} {
sct update [sct result] sct update [sct result]
return idle return idle
} }
proc sensirion::update_and_check {} {
sct update [sct result]
[sct controller] queue [sct parent]/save progress read
return idle
}
proc sensirion::readSave {} {
set current [silent "" currentCalib]
set saved [silent "" sct saved]
if {$current eq $saved} {
sct update 1
} else {
sct update 0
}
return idle
}
proc sensirion::updateScale {} {
if {[sct result] == 1 && [silent 0 sct target] != 1} {
# probably an uncalibrated sensor was replaced and not initialized
sct target 2.3
clientput "change nvflow scale from 1 to 2.3"
return write
}
sct update [sct result]
return idle
}