rem PROGRAMA DE LECTURA 
rem presión y temperatura
rem **********************

rem ***********************************************
rem INICIALIZACION DE VARIABLES Y ENTRADA DE DATOS
rem ***********************************************

HOME
Wakelock 1

url$="http://<URL_SERVIDOR>/posted.php"


rem ******************************************
rem  CONEXION CON EL BT Y LECTURA DE SUS DATOS
rem ******************************************

BT.OPEN

BT.CONNECT
PAUSE 5000


valores$=""
cont=1

DO
st=2
ln = 0
 DO
  BT.STATUS s
  IF s = 1
  ln = ln + 1
  rem PRINT "Listening", ln
  ELSEIF s =2
  rem PRINT "Connecting"
  ELSEIF s = 3
  rem PRINT "Connected"
  ENDIF
  PAUSE 1000
 UNTIL s = 3

  DO
    BT.READ.READY rr
  until rr>0

  DO
    BT.READ.BYTES rmsg$
    valores$=valores$+rmsg$
    BT.read.ready se
  until se=0

rem PRINT valores$

TEXT.OPEN W, FN1,"BT"
TEXT.WRITELN FN1,valores$
TEXT.CLOSE FN1



rem ********************************************
rem  rmsg$ contiene los datos enviados por el BT
rem  valores$ contiene la historia de envios
rem ** *****************************************


if cont=5 then

TEXT.OPEN R, FN1,"BT"
TEXT.READLN FN1,line$
TEXT.READLN FN1,line$
TEXT.CLOSE FN1


REM se envía los datos
REM ******************

array.load a$[], "valor",line$
list.create S,list
list.add.array list, a$[]

send:
Http.post url$,list,res$

CLS
split at$[],line$," "

PRINT "------------"
PRINT "HORA"
PRINT at$[1]+":"+at$[2]+":"+at$[3]
PRINT "------------"
PRINT "DIA"
PRINT at$[4]+"/"+at$[5]+"/"+at$[6]
PRINT "------------"
PRINT "TEMPERATURA"
TEMP$=STR$((VAL(at$[7]))/10)
PRINT TEMP$+" °C"
PRINT "------------"
PRES$=STR$((VAL(at$[8]))/10)
PRINT "PRESION"
PRINT PRES$+" hPa"
PRINT "------------"


valores$=""
cont=1
ENDIF 

cont=cont+1
PAUSE 30000

UNTIL st=0

OnError:
PAUSE 5000
GOTO send


END