组态循环程序怎么写?

循环执行语句，当某个表达式在两个值之间时 (大于等于最小值，小于等于最大值)，重复执行一样的代码，并可指定步长，如果不指定缺省步长是1。
用法：
For(表达式) = (值) To (值) [Step (值)]
(执行代码)
Next
循环执行语句，如果表达式为真（true），则执行循环块内语句；反之，不执行循环块内语句，并退出循环。
用法：
While (表达式) do
(执行代码);
EndWhile

假如程序的第一行的行号是N10，把程序结束的M30指令改为GOTO 10，就是无限循环，重复执行这个程序。还有一个方法，把M30改成M99。另外，用宏程序可以指定重复次数，或者无限循环。
数控加工，是指在数控机床上进行零件加工的一种工艺方法，数控机床加工与传统机床加工的工艺规程从总体上说是一致的，但也发生了明显的变化。用数字信息控制零件和刀具位移的机械加工方法。它是解决零件品种多变、批量小、形状复杂、精度高等问题和实现高效化和自动化加工的有效途径。

1设定坐标:用1号刀(要去掉刀补 如T0100 刀补里面100页面不能有数据) 平一下端面--按录入方式--按程序--输入G50 Z0--按循环启动键--OK 再用刀车一下外园--测量工件直径(假如测量是 40)--按录入方式--按程序--输入G50 X40--按循环启动键--完毕。
2后面3把刀是在刀补T0202页面里对刀,方法: 用2号刀去轻轻碰到端面--按刀补键--按翻页到T0202页面--输入Z00--OK 再用2号刀碰一下工件外园--输入X400--完毕。
3T0303 T0404 同样按第二道方法对刀

x0为启动按钮，x1为停止按钮。y0~y7为8盏灯。程序在按下启动按钮后，灯1先亮，1秒（T0延时）后灭，1秒后（T1延时）灯2亮，依次循环。当按下x1后，循环结束。

按下x0后，m0得电为1并自保持，此时1秒计时器T0计时，1秒后T0常开点闭合1秒计时器T1计时，再过1秒T1计时结束常闭点断开T0线圈，
T0失电复位并断开T0常开点，此时T1线圈也失电复位，T1常闭点又闭合，T0得电重复上述计时过程。

第二个程序块：
当M0为1时，在T0触点的上升沿来时k3M10这个二进制数乘以2再写入k3M10中。
K3M10代表M10~M21共12个辅助继电器的组合，那么可以将K3M10看作是一个二进制数。程序未启动时，M10~M21均为0，那么这个二进制数为0；当程序启动时，在下一个程序块中利用了M0的上升沿置位M10，此时M10~M21为1，当T0触点的上升沿来时k3M10（此时为1）这个二进制数乘以2再写入k3M10中（写入后为2），2在二进制数中为10，此时M10失电，M11得电，可以认为M10把"1"交给了M11，以此类推。当第8个M17得电时，完成了一次循环。下一个T0上升沿来到时，M18得电，M17失电。此时下面的程序块利用了M18的上升沿重新置位M10并且将M18复位。这样程序又从M10得电开始循环下去了。
这个程序块的作用就是每次T0的上升沿来到时，“1”在M10~M17之间转移。

添加两个Timer控件（Timer1和Timer2），再添加一个Label1，然后复制→粘贴，点击是，创建控件数组，也就变成4个Label了。
参考代码如下：
Dim
i
As
Integer,
k
As
Integer
Private
Sub
Command1_Click()
Timer2Enabled
=
True
Timer1Enabled
=
False
End
Sub
Private
Sub
Form_Load()
Timer1Enabled
=
False
Timer2Enabled
=
False
Timer1Interval
=
600
Timer2Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
lblDisp(i)Caption
=
StrConv(i
+
1,
vbWide)
i
=
i
+
1
If
i
=
4
Then
Timer1Enabled
=
False
End
Sub
Private
Sub
Timer2_Timer()
lblDisp(k)Caption
=
k
+
1
k
=
k
+
1
If
k
=
4
Then
Timer2Enabled
=
False:
Timer1Enabled
=
True
End
Sub

---