ESP8266 Community Forum

Posted: **Tue Sep 13, 2016 9:52 am**

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...

Screen Shot 09-13-16 at 11.27 AM.PNG

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

'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

[/quote]

Posted: **Tue Sep 13, 2016 9:47 pm**

Give this one a try:

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
'edited by forlotto
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 style="background-color:yellow;">|"
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 style="background-color:yellow;">|"
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 style="background-color:yellow;">|"
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

Posted: **Tue Sep 13, 2016 10:06 pm**

forlotto,

Tried the new code but get malformed input errors at lines 38,65,74 - where the new html code was added.
Does not like the html code

Thanks
Joe

forlotto wrote:Give this one a try:

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 'edited by forlotto 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 style="background-color:yellow;">|" 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 style="background-color:yellow;">|" 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 style="background-color:yellow;">|" 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

Posted: **Tue Sep 13, 2016 10:14 pm**

I think you have some thing funky going on with your html. Look at the following examples of strings in esp basic. To use quotation marks in a string.

A = |this is a “string”|
B = “this is a |string|”

ESP8266 Community Forum

ECOSTAT -Updtated thermostat Need help to Center Variables

Re: ECOSTAT -Updtated thermostat Need help to Center Variab

Re: ECOSTAT -Updtated thermostat Need help to Center Variab

Re: ECOSTAT -Updtated thermostat Need help to Center Variab

Re: ECOSTAT -Updtated thermostat Need help to Center Variab