Code: Select all
Include "USART.bas"
dim
byteok as boolean,
j as byte,
terminator as string
terminator = #13 + #10
USART.SetBaudrate(br1200)
While true
byteok = USART.DataAvailableTimeout(500)
If byteok Then
j=USART.Readbyte // pop data
USART.Write("Data available",terminator)
byteok = false
else
USART.Write("Data NOT available",terminator)
endif
DelayMS(500)
Wend
thereis something missing ?
any help would b nice Thanks.