- Tue Sep 13, 2016 9:52 am
#55023
forlotto,
yep that worked great for the temp and status- thanks
Now, I have been trying:
1. to get the" mark feature" to highlight and centering for the temp and fan status.
I tried lots of combinations but cant seem to get both to work...
NEWCODE:
quote="forlotto"]Try this and see what you get.
yep that worked great for the temp and status- thanks
Now, I have been trying:
1. to get the" mark feature" to highlight and centering for the temp and fan status.
I tried lots of combinations but cant seem to get both to work...
NEWCODE:
Code: Select all
'ESPBASIC V3 A44 ECOSTATcss77 dual statmode
'DB1820S Temp Sensor Data PIN IS D4
'Pin D2 for led or relay output inside
'Pin D5 for led or relay output outside
memclear
cls
let tf = 0
let curr = 0
let outc = 0 'for second temp sensor
let statmode = "TOOHOT"
setp = 19
settemp = 19
let stat = "ON"
let statout = "ON"
let setpout = 19
'cssclass "button", "background-color: #99e6e6;"
cssclass "align-self: center;"
css "test1.css"
wprint "<head>"
wprint "<meta http-equiv='refresh'content='5;URL=/input?'>"
wprint "</head>"
wprint "<body bgcolor='#527a7a'>"
wprint "<table align='center' width='102' bgcolor='lightblue' border='4' cellpadding='1'>"
wprint "<td>"
button "MODE", [NIL]
dropdown statmode, "TOOCOLD,TOOHOT"
cssid htmlid(), "background-color:#008ae6;text-align: center;display:block;width:105px"
wprint "<br>"
wprint "</td>"
wprint "<th</th></table><br>"
wprint "<table align='center' width='150' bgcolor='LIGHTblue' border='2' cellpadding='1'>"
wprint "<td>"
button "FAN IP 77", [NIL]
wprint "<b>"
wprint "<mark>"
wprint "<center>" & htmlvar(stat) & "</center>"
wprint "</mark>"
wprint "</b>"
'wprint "<br>"
wprint "</td>"
wprint "<th</th></table>"
wprint "<br>"
wprint "<table align='center' width='192' bgcolor='lightblue' border='4' cellpadding='3'>"
wprint "<td>"
wprint " Dropdown "
dropdown setp, "15,18,19,21,22,23,25,26,27,28,30,32,35,38"
wprint "List"
Button "<B>Trigger Level</B>",[setpt]
textbox setp
cssid htmlid(), "background-color:LIGHTGREEN;text-align: center;display:block;width:170px"
wprint "<center> Current Trigger Level </center>"
wprint "<th</th></table><br>"
wprint "<br>"
wprint "<table align='center' width='200' bgcolor='LIGHTBLUE' border='2' cellpadding='2'>"
wprint "<td>"
button "TEMP-C",[NIL]
cssid htmlid(), "background-color:LIGHTGREEN;text-align: center;display:block;width:120px"
wprint "<b>"
wprint "<mark>"
wprint "<center>" & htmlvar(curr) & "</center>"
wprint "</mark>"
wprint "</b>"
wprint "</td>"
wprint "<td>"
wprint "<b>"
button "TEMP-F",[NIL]
cssid htmlid(), "background-color:LIGHTGREEN;text-align: center;display:block;width:120px"
wprint "<mark>"
wprint "<center>" & htmlvar(tfout) & "</center>"
wprint "</mark>"
wprint "</b>"
wprint "</td>"
wprint "<th</th></table><br>"
timer 4000, [refreshcold]
wait
[on2] ' FIRST SENSOR DB1820S ---------
io(po,d5,1)
let stat = "ON"
wait
[off2] ' FIRST SENSOR DB1820S ---------
io(po,d5,0)
let stat = "OFF"
wait
[setpt]
wprint "<head>"
wprint "<meta http-equiv='refresh' content='5;URL=/input?'>"
wprint "</head>"
wait
[refreshcold]
if statmode == "TOOHOT" then goto [refreshhot]
curr = temp(1) 'curr ' read current temperature for device 1 db1820 SECOND SENSOR
'outc = temp(0) ' outc ' read current temperature for device 0 db1820 FIRST SENSOR
tf = curr * 9 ' Fahrenheit CONVERSON
tf = tf / 5
tf = tf + 32
tfout = outc * 9
tfout = tfout / 5
tfout = tfout + 32
if curr < setp then goto [on2] else goto [off2] 'FAN ON IF CURRENT TEMP < GREATER THEN SETP
wait
[refreshhot]
if statmode == "COLD" then goto [refreshhot]
'cssid htmlid(), "background-color:orange;text-align: center;display:block;width:254px"
curr = temp(1) 'curr ' read current temperature for device 1 db1820 SECOND SENSOR
'outc = temp(0) ' outc ' read current temperature for device 0 db1820 FIRST SENSOR
tf = curr * 9 ' Fahrenheit CONVERSON
tf = tf / 5
tf = tf + 32
tfout = outc * 9
tfout = tfout / 5
tfout = tfout + 32
if curr > setp then goto [on2] else goto [off2] 'FAN ON IF CURRENT TEMP < GREATER THEN SETP
wait
[outcon] ' second db1820s sensor TURN RELAY D5 ON AND STAT ON
io(po,d5,1)
let statout = "ON"
wait
[outcoff] ' second db1820s sensor - TURN RELAY D5 OFF AND STAT OFF
io(po,d5,0)
let statout = "OFF"
wait
[NIL]
wait
quote="forlotto"]Try this and see what you get.
Code: Select all
[/quote]
'ESPBASIC V3 A44 ECOSTATcss77 dual statmode
'DB1820S Temp Sensor Data PIN IS D4
'Pin D2 for led or relay output inside
'Pin D5 for led or relay output outside
memclear
cls
let tf = 0
let curr = 0
let outc = 0 'for second temp sensor
let statmode = "TOOHOT"
setp = 19
settemp = 19
let stat = "ON"
let statout = "ON"
let setpout = 19
'cssclass "button", "background-color: #99e6e6;"
cssclass "align-self: center;"
css "test1.css"
wprint "<head>"
wprint "<meta http-equiv='refresh'content='5;URL=/input?'>"
wprint "</head>"
wprint "<body bgcolor='#527a7a'>"
wprint "<table align='center' width='102' bgcolor='lightblue' border='4' cellpadding='5'>"
wprint "<td>"
button "MODE", [NIL]
'html |<div style="position:absolute;top:100; center;"> Some text </div>|
dropdown statmode, "TOOCOLD,TOOHOT"
cssid htmlid(), "background-color:#008ae6;text-align: center;display:block;width:102px"
wprint "<br>"
wprint "</td>"
wprint "<th</th></table><br>"
wprint "<table align='center' width='192' bgcolor='LIGHTblue' border='4' cellpadding='3'>"
wprint "<td>"
button "FAN IP 77", [NIL]
'wprint "<b>A/C ASSIST Fan-<b/>"
wprint "<b>"
wprint "<mark>"
wprint " " & htmlvar(stat)
wprint "</mark>"
wprint "</b>"
wprint "<br>"
wprint "</td>"
wprint "<th</th></table>"
wprint "<br>"
wprint "<table align='center' width='192' bgcolor='lightblue' border='4' cellpadding='3'>"
wprint "<td>"
wprint " Dropdown "
dropdown setp, "15,19,21,22,23,25,26,27,28,30,32,35,38"
wprint "List"
Button "<B>Trigger Level</B>",[setpt]
textbox setp
cssid htmlid(), "background-color:LIGHTGREEN;text-align: center;display:block;width:170px"
wprint " Current Trigger Level"
wprint "<th</th></table><br>"
wprint "<br>"
wprint "<table align='center' width='80' bgcolor='LIGHTBLUE' border='1' cellpadding='1'>"
wprint "<td>"
button "TEMP",[NIL]
wprint "<b>"
wprint "<mark>"
wprint " " & htmlvar(curr)
'cssid htmlid(), "background-color:YELLOW;text-align: center;display:block;width:90px"
wprint "---(C)"
wprint "</mark>"
wprint "</b>"
wprint "</td>"
wprint "<td>"
wprint "<b>"
button "TEMP",[NIL]
wprint "<mark>"
wprint " " & htmlvar(tfout)
wprint "---(F)"
wprint "</mark>"
wprint "</b>"
wprint "</td>"
wprint "<th</th></table><br>"
timer 4000, [refreshcold]
wait
[on2] ' FIRST SENSOR DB1820S ---------
io(po,d5,1)
let stat = "-ON"
wait
[off2] ' FIRST SENSOR DB1820S ---------
io(po,d5,0)
let stat = "-OFF"
wait
[setpt]
wprint "<head>"
wprint "<meta http-equiv='refresh' content='5;URL=/input?'>"
wprint "</head>"
wait
[refreshcold]
if statmode == "TOOHOT" then goto [refreshhot]
'cssid htmlid(), "background-color:#29a3a3;text-align: center;display:block;width:95px"
'cssid htmlid(), "background-color:#29a3a3;text-align: center;width:254px"
curr = temp(1) 'curr ' read current temperature for device 1 db1820 SECOND SENSOR
'outc = temp(0) ' outc ' read current temperature for device 0 db1820 FIRST SENSOR
tf = curr * 9 ' Fahrenheit CONVERSON
tf = tf / 5
tf = tf + 32
tfout = outc * 9
tfout = tfout / 5
tfout = tfout + 32
if curr < setp then goto [on2] else goto [off2] 'FAN ON IF CURRENT TEMP < GREATER THEN SETP
wait
[refreshhot]
if statmode == "COLD" then goto [refreshhot]
'cssid htmlid(), "background-color:orange;text-align: center;display:block;width:254px"
'cssid htmlid(), "background-color:orange;text-align: center;width:95px"
curr = temp(1) 'curr ' read current temperature for device 1 db1820 SECOND SENSOR
'outc = temp(0) ' outc ' read current temperature for device 0 db1820 FIRST SENSOR
tf = curr * 9 ' Fahrenheit CONVERSON
tf = tf / 5
tf = tf + 32
tfout = outc * 9
tfout = tfout / 5
tfout = tfout + 32
if curr > setp then goto [on2] else goto [off2] 'FAN ON IF CURRENT TEMP < GREATER THEN SETP
wait
[outcon] ' second db1820s sensor TURN RELAY D5 ON AND STAT ON
io(po,d5,1)
let statout = "--ON"
wait
[outcoff] ' second db1820s sensor - TURN RELAY D5 OFF AND STAT OFF
io(po,d5,0)
let statout = "--OFF"
wait
[NIL]
wait
You do not have the required permissions to view the files attached to this post.
