4个数据包,每个包的数据是变化的,要求循环发送4个数据包。
我用FOR----NEXT命令无法实现:开机只发送一次第一个数据包,重复发四次;然后就一直只发最后一个数据包,每次重复发4次
用IF----END IF命令倒是实现了,就是发送速度慢的吓人,基本1到2秒一个数据包。
IF----END IF指令程序如下:
macro_command main()
char data[9]
int w,x
data[0]=0x7E
data[2]=0x00
data[4]=0x00
data[5]=0x00
data[6]=0x00
data[7]=0x02
data[8]=0x7E
select case x
CASE 0
data[1]=0x00
data[3]=0xED
break
CASE 1
data[1]=0x02
data[3]=0x2c
break
CASE 3
data[1]=0x03
data[3]=0xDF
break
CASE 4
data[1]=0x04
data[3]=0x01
break
end select
if w<4 then
x=w
OUTPORT(data[0],"free",9)
end if
w=w+1
if w==4 then
w=0
end if
end macro_command
FOR----NEXT指令程序如下:
macro_command main()
char data[9]
int w,x
data[0]=0x7E
data[2]=0x00
data[4]=0x00
data[5]=0x00
data[6]=0x00
data[7]=0x02
data[8]=0x7E
select case x
CASE 0
data[1]=0x00
data[3]=0xED
break
CASE 1
data[1]=0x02
data[3]=0x2c
break
CASE 3
data[1]=0x03
data[3]=0xDF
break
CASE 4
data[1]=0x04
data[3]=0x01
break
end select
W=0
FOR w=0 TO 4
x=w
OUTPORT(data[0],"free",9)
NEXT w
end macro_command
麻烦高手们帮我想个办法! |