'bt93 mitInternet ' Including JavaScript from Internet


BLUE = tft.rgb(30,132,180)
YELLOW = tft.rgb(255,255,0)
GREEN = tft.rgb(0,255,0)
tft.text.color(65535,BLUE)
tft.fill(BLUE)
freq 13635
delay 200
f = rx.freq()
x = 0
y = 89 'btB3NoTrigger
cssclass "input","border:none; font-style: italic;font-size: 16px;"
html "RSSI: "
meter y,0,75,10,20,32
idy = htmlid()
html " Frequency: "
Button "-",minus
textbox f
onchange set
cssID htmlID(),"text-align: center;width: 60px; background: #ddd; border-radius: 5px;"
Button "+",plus
html " WiFi: "
meter wifi,0,100,20,70,100'22,42,27,37,42 'min="0" max="100" low="20" high="80" optimum="100"
html " Battery: "
meter battery,22,42,27,37,42 'min="0" max="100" low="20" high="80" optimum="100"
textbox accu
html "<br>"
textbox station
cssID htmlID(),"text-align: center; width:640px;color: navy;font-weight: bold;"
html "<br>"
textbox txt
cssID htmlID(),"text-align: center;width: 640px;color: navy;font-weight: bold;"
html "<br>"
textbox zeit
cssID htmlID(),"text-align: center;width: 60px;color: black;font-weight: bold;"

button "13635",f13635
button "9670",f9670
button "WDR 5",wdr5
button "WDR 3",wdr3
button "DLF",dlf
button "Antenne",antenne

html |<br><canvas id="myCanvas" width=640 height=480 </canvas>|
html "TESTING"
gosub PLOTTER
timercb 1000,[bat]
timer 20,[messen] 
wait

[messen]
y = rx.rssi()
if rx.fm() == 0 then 
  station=" AM"
  txt = "" 
endif
zeit = time("MIN:SEC") 'Internet Time
wait

f13635:
f = 13635
gosub set
wait

f9670:
f = 9670
gosub set
wait

wdr5:
f = 88.8
gosub set
wait

dlf:
f = 102.8
gosub set
wait

wdr3:
f = 95.1
gosub set
wait


antenne:
f = 104.2
gosub set
wait

set:
freq f
if rx.fm()==0 then station = "AM" else station = "RDS-Station"
txt = "RadioText"
return

minus:
if rx.fm()==0 then f = (f - 5)
if rx.am()==0 then f = (f - 0.1)
gosub set
wait

plus:
if rx.fm()==0 then f = (f + 5)
if rx.am()==0 then f = (f + 0.1)
gosub set
wait

bat:
battery=io(adc,4)/1023*66 'Divider 3.3
accu = format(" %5.2f V",battery/10)
if not rx.am() then 
  st=rx.station()
  if st<>"" then station = trim(st)
  tx=rx.text()
  if tx<>"" then txt = trim(tx)
endif
if not rx.fm() then 
  station=" AM"
  txt = "" 
endif
wi = wifi.rssi()
wifi = map(wi, -90, -30, 0, 100)
tft.text.cursor(4,4)
tft.print(format("WiFi %5.1f%% ",wifi))
'mem = ramfree()
return

PLOTTER:
html |<script src="http://hjberndt.de/soft/bt93.js" type="text/javascript"></script><script type="text/javascript">|
html |var name_element = document.getElementById("| & htmlvar(idy) & |");|
html |const NMAX=100;var filled=false;var tmax=2000;|
html |var TabY = new Array(NMAX);var TabX = new Array(NMAX);|

html |function Messen(){var i,x,y,t,now=new Date();|
html |if(filled) {y=TabY[NMAX-1];  for(i=NMAX-1;i>0;i--) TabY[i]=TabY[i-1]; TabY[0]=name_element.value;}|
html |else {for(i=0;i<NMAX;i++) {x=i/NMAX*tmax; y=name_element.value;TabX[i]=x;|
html |TabY[i]=y} filled=true;}}|

html |function Anzeigen(){var i; Grafik(AN);Messen();yachse="";xachse="200 ms/DIV";titel="Mini Radio Script: Fast RSSI Plot - H. Berndt 2025";|
html |farbe ="White" ;cls();farbe="whitesmoke";hintergrund(); farbe="darkgrey" ; Diagramm(0,tmax,0,0,100,0); farbe="gray"; |
html |DiaLinie(0,500,tmax,500);  farbe=GRUEN;ctx.lineWidth=3;	|
html |for(i=0;i<NMAX-1;i++)DiaLinie(TabX[i],TabY[i],TabX[i+1],TabY[i+1]);}|

html |window.setInterval("Anzeigen()", 20);</script>|
return