组态循环程序怎么写?

组态循环程序怎么写?,第1张

循环执行语句,当某个表达式在两个值之间时 (大于等于最小值,小于等于最大值),重复执行一样的代码,并可指定步长,如果不指定缺省步长是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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13256588.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-06-27
下一篇 2023-06-27

发表评论

登录后才能评论

评论列表(0条)

保存