Example 4

These are very simple programs, :

Very simple for loop example

CODE: simple1.bas

print "for loop example"

for z = 1 to 10

print z * 9

next z

Simple web page with a button and a textbox.

CODE: simple2.bas

cls

tx$ = "My text"

html TextBox$(tx$) + "<br>" + button$("My Button", jumpHere)

wait

jumpHere:

print "You clicked. The textbox contains " + tx$

return

Simple web page showing the temperature coming from a DS18B20.

The page is refreshed each 5 seconds

CODE: DS18B20.bas

'Simple web page showing the information

'from a DS18B20 sensor

PIN_Sensor = 2 'pin used for the DS18B20

t$ = tempr$(PIN_Sensor, 1)

onHtmlReload DoPage

gosub DoPage

timer0 5000, update

wait

DoPage:

cls

html TextBox$(t$) + " ° Celsius"

return

update:

t$ = "22" 'tempr$(PIN_Sensor, 1)

refresh

return

end

Simple web page showing the temperature and humidity coming from a DHT11.

The page is refreshed each 2 seconds

CODE: DHT11.bas

'Simple Web page showing the information

'from a DHT11 ( Temperature and Humidity)

PIN_Sensor = 2 'pin used for the DHT11

DHT.SETUP PIN_Sensor, 11

t$ = str$(DHT.Temp)

h$ = str$(DHT.HUM)

onHtmlReload DoPage

gosub DoPage

timer0 2000, update

wait

DoPage:

cls

html TextBox$(t$) + "°C<br>" + TextBox$(H$) + "%"

return

update:

t$ = str$(DHT.Temp)

h$ = str$(DHT.HUM)

refresh

return

end

Page updated

Google Sites

Report abuse