The value of Zmotion is to bring customers more success!
'下面程序把串口收到的数据都从串口返回去
'配置串口为RAW模式
SETCOM (38400,8,1,0,0 ,0)
dim char1
while 1
get #0, char1
'print #0, chr(char1)'这种方式只能输出字符串，二进制0不能打印
putchar #0, char1'这种可以输出二进制
wend
'下面程序采用多任务来接收数据
'配置串口为RAW模式
SETCOM (38400,8,1,0,0 ,0)
global if_getdata
if_getdata=0
global datalist(100)
global datanum
global data
runtask 1, task_get
while 1
if if_getdata =1 then
print "data received:", datalist
print "data is:", data
if_getdata = 0
end if
wend
'接收任务
task_get:
dim char1
datanum=0
while 1
get #0, char1
if char1 = 10 then '换行符
if_getdata = 1
datalist(datanum)=0'字符串结束了
'可以在这里转换数据
data=val(datalist)'假设是数字
datanum=0
else
datalist(datanum)=char1'填入数组
datanum=datanum+1
end if
wend
end
