『综合知识求助专区』集中解决任何自动化问题!

[复制链接]
kohkk98 | 2008-4-25 11:41:00 | 显示全部楼层
感激不盡!!太好了!
blqzy | 2008-4-25 13:11:00 | 显示全部楼层
gggggggggggggggggggggggggg
mingmingplc | 2008-4-27 00:41:00 | 显示全部楼层
\"图片点击可在新窗口打开查看\"我刚开始学,是不是把条件放宽点儿______
tzj667 | 2008-4-27 21:27:00 | 显示全部楼层
学习
394759173 | 2008-4-28 15:12:00 | 显示全部楼层
hao de
tiansen210 | 2008-4-30 15:31:00 | 显示全部楼层

我也是初学,正要做设计,有好多问题啊

xtqwer | 2008-5-3 05:46:00 | 显示全部楼层

???

晕噢,要100魅力,不能下载啊
gtca002 | 2008-5-5 10:48:00 | 显示全部楼层
[em01]see
gtca002 | 2008-5-5 10:49:00 | 显示全部楼层

看看

zhogt | 2008-5-5 22:19:00 | 显示全部楼层

\"\"

huangjiahong | 2008-5-11 00:06:00 | 显示全部楼层
[em02][em03][em03][em04]
kuang50 | 2008-5-25 15:45:00 | 显示全部楼层
[em01]
kirawoo | 2008-5-25 19:14:00 | 显示全部楼层
谢谢指点~~~~~~~~~~~
lzrsss | 2008-5-27 16:33:00 | 显示全部楼层

支持

wanda | 2008-5-27 16:34:00 | 显示全部楼层

上位机使用的是ifix组态软件,用concept2.5的984逻辑梯形图

使用以下的语句实现了:
Function Trimk(cc0)
Dim i, j, s1
j = Len(cc0)
i = 1
While i < j + 1
s1 = Mid(cc0, i, 1)
\'MsgBox \"s1=\" & s1 & \";\"
If s1 = \" \" Or s1 = \" \" Then
cc0 = Mid(cc0, 1, i - 1) + Mid(cc0, i + 1, j)
i = i - 1
\'MsgBox \"cc0=\" & cc0
End If
i = i + 1
Wend
Trimk = cc0
End Function

Function Delay(name As String) As Boolean
name = Trimk(name)
x = MsgBox(\"是否确认\", vbOKCancel, \"确认\")

If x = 1 Then
writevalue \"1\", name


\'start = Timer
\' Do

\' DoEvents
\' Loop While Timer = start + 2
Else
writevalue \"0\", name

End If

End Function



点击“启动”按钮下位的信号接通,然后点击“停止”按钮,梯形图上也显示信号中断了,但是再次点击“启动”就启动不了了,原因是,状态为置为“1”了,我怎么样用脚本实现“复位”这个功能,使状态回到0呢

gaopeng | 2008-5-30 11:41:00 | 显示全部楼层
[em02][em02][em02][em02][em02][em02][em02]
1968LMB | 2008-6-5 21:00:00 | 显示全部楼层
[em01][em01]
wxl840423 | 2008-12-16 15:06:00 | 显示全部楼层
[em01]
siyuan322-2 | 2008-12-21 14:10:00 | 显示全部楼层

支持网站

但是也希望网站在有些方面限制开发点。

lthlycyj | 2009-3-10 23:25:00 | 显示全部楼层

谢谢

3stars | 2009-5-14 22:03:00 | 显示全部楼层

好的~谢谢

huniansong | 2009-9-11 17:56:00 | 显示全部楼层

谢谢

您需要登录后才可以回帖 登录 | 注册哦

本版积分规则