local function run(event)
POSITION=getValue("GPS")
RQly=getValue("RQly")
TQly=getValue("TQly")
RSNR=getValue("RSNR")
TSNR=getValue("TSNR")
TRSS=getValue("TRSS")
GSpd=getValue("GSpd")
Sats=getValue("Sats")
Sendeleistung=getValue("TPWR")
Current=getValue("Curr")
Qual=getValue("RFMD")
if Qual==2 then Qual=150 end
if Qual==1 then Qual=50 end
if Qual==0 then Qual=4 end
Strom=getValue("Curr")
Batterie=getValue("RxBt")
if Batterie>3.0 then zell=1 end
if Batterie>4.2 then zell=2 end
if Batterie>9.2 then zell=3 end
if Batterie>13 then zell=4 end
if Batterie>16.8 then zell=5 end
if Batterie>21 then zell=6 end
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
lcd.clear()
lcd.drawText(0, 0, " Crossfire Telemetrie DF 1.0 Beta ",SMLSIZE, INVERS)
lcd.drawText(10,8, "Anz. Sateliten:",SMLSIZE)
lcd.drawText(90,8, Sats,SMSIZE)
lcd.drawText(120,8, "GPS Speed:",SMLSIZE)
lcd.drawText(180,8, GSpd,SMSIZE)
lcd.drawText(10, 16, "Signal Downl.:",SMLSIZE)
lcd.drawText(90, 16, TRSS,SMLSIZE)
lcd.drawText(120,16, "GPS:",SMLSIZE)
lcd.drawText(180,16, POSITION,SMLSIZE)
lcd.drawText(10, 24, "Quality RX: ",SMLSIZE)
lcd.drawText(90, 24, RQly,SMLSIZE)
lcd.drawText(10, 40, "Up SNR: ",SMLSIZE)
lcd.drawText(55,40,RSNR,SMSIZE)
lcd.drawGauge(70, 40, 40, 7, (RSNR), 100)
lcd.drawText(10, 32, "Quality TX: ",SMLSIZE)
lcd.drawText(90, 32, TQly,SMLSIZE)
lcd.drawText(10, 48, "Down SNR: ",SMLSIZE)
lcd.drawText(55,48,TSNR,SMSIZE)
lcd.drawGauge(70, 48, 40, 7, (TSNR), 100)
lcd.drawText(120, 24, "Volt/Zelle: ",SMLSIZE)
Batterie=Batterie*10
Batterie=math.floor(Batterie)/10
lcd.drawText(180, 24, (Batterie/zell),SMLSIZE)
lcd.drawText(120, 32, "Akku Curr.: ",SMLSIZE)
lcd.drawText(180, 32, Current,SMLSIZE)
lcd.drawText(120, 40, "Link Mode:",SMLSIZE)
lcd.drawText(180, 40, Qual.." Hz",SMLSIZE)
lcd.drawText(120, 48, "TX Leist.:",SMLSIZE)
lcd.drawText(180, 48, Sendeleistung.." mW",SMLSIZE)
end
return{run=run}