dim step as integer
sub timer1_timer() 'interval=500ms
select case step
case 0
发送指令01 03 00 00 00 01 84 0A
case 1
text1=收到的消息
case 2,3
什么也不做,实现1秒间隔
case 4
发送指令01 01 00 00 00 08 3D CC
case 5
text2=收到的消息
case 6,7
什么也不做,实现1秒间隔
end select
step=step+1
if step>=8 then step=0
end sub