将步骤4的程序代码换成如下部分：

Dim tag,tag1

tag1=HMIRuntime.tags("angle").read

tag=HMIRuntime.tags("b").read

If tag=1 Then

item.startangle1=item.startangle1+tag1

item.endangle1=item.endangle1+tag1

item.startangle2=item.startangle2+tag1

item.endangle2=item.endangle2+tag1

item.startangle3=item.startangle3+tag1

item.endangle3=item.endangle3+tag1

item.startangle4=item.startangle4+tag1

item.endangle4=item.endangle4+tag1

item.startangle5=item.startangle5+tag1

item.endangle5=item.endangle5+tag1

item.startangle6=item.startangle6+tag1

item.endangle6=item.endangle6+tag1

item.startangle7=item.startangle7+tag1

item.endangle7=item.endangle7+tag1

item.startangle=item.startangle+tag1

item.endangle=item.endangle+tag1

If item.endangle1=360 Then

   item.endangle1=0

End If

If item.endangle2=360 Then

   item.endangle2=0

End If

If item.endangle3=360 Then

   item.endangle3=0

End If

If item.endangle4=360 Then

   item.endangle4=0

End If

If item.endangle5=360 Then

   item.endangle5=0

End If

If item.endangle6=360 Then

   item.endangle6=0

End If

If item.endangle7=360 Then

   item.endangle7=0

End If

If item.endangle=360 Then

   item.endangle=0

   End If

   End If