symbol Temp = B.4
symbol Batt_Volt = B.3
symbol TCP_Send = B.2
symbol ID = b6
let ID = 001
TransNum =1
Startup:
pause 5000
serout TCP_Send,T4800_4,("AT+RST",13,10)
pause 5000
serout TCP_Send,T4800_4,("AT+CWMODE=1",13,10)
pause 5000
serout TCP_Send,T4800_4,("AT+CWJAP=",34,"your_ssid",34,",",34,"your_password",34,13,10)
pause 10000
Main:
readtemp Temp,b11
readtemp12 Temp,w4
serout TCP_Send,T4800_4,("AT+CIPMUX=1",13,10)
pause 5000
serout TCP_Send,T4800_4,("AT+CIPSTART=1,",34,"TCP",34,",",34,"1xx.1xx.1xx.1xx",34,",","xxxx",13,10)
pause 5000
serout TCP_Send,T4800_4,("AT+CIPSEND=1,7",13,10)
pause 500
bintoascii b8,b12,b13,b14
serout TCP_Send,T4800_4,(b12,b13,b14)
serout TCP_Send,T4800_4,(",")
bintoascii b9,b12,b13,b14
serout TCP_Send,T4800_4,(b12,b13,b14)
pause 5000
'serout TCP_Send,T4800_4,("AT+CIPCLOSE=1",13,10)
Nap 10 '16s nap
rem Nap 11 '32s nap
rem Nap 12 '64s nap
goto main