如何设置子程序-专业自动化论坛-中国工控网论坛

如何设置子程序点击：530 | 回复：6

779834976@qq.com

精华：0帖
求助：14帖
帖子：23帖 | 54回
年度积分：1
历史总积分：144
注册：2016年3月16日

发表于：2016-07-29 15:48:53

楼主

求助帖10分-未结帖

我想设置一个子程序因为有一个11步都要用到同样的两步所以我想用子程序来解决用到时调用不用是不执行请问大神该如何写

分享到：

邀请回答

回复楼主

苯笨小汽车

精华：0帖
求助：1帖
帖子：2帖 | 21回
年度积分：0
历史总积分：60
注册：2016年7月28日

发表于：2016-07-29 23:06:35

1楼

自己插入一个功能FC，把需要多次调用的程序编里面，然后编写其他程序的时候可以多次调用，这个FC不要放到OB1，不用的时候就不会执行

回复引用举报

Zhu_Run

精华：5帖
求助：27帖
帖子：272帖 | 3543回
年度积分：302
历史总积分：21193
注册：2011年3月06日

发表于：2016-07-30 10:05:30

2楼

使用CALL Pxx，但不要两处同时调用

回复引用举报

779834976@qq.com

精华：0帖
求助：14帖
帖子：23帖 | 54回
年度积分：1
历史总积分：144
注册：2016年3月16日

发表于：2016-07-30 14:24:11

3楼

回复内容：

对： Zhu_Run 使用CALL Pxx，但不要两处同时调用内容的回复！

可是是步进点

回复引用举报

xuhaitao0821

精华：0帖
求助：0帖
帖子：1帖 | 13回
年度积分：0
历史总积分：175
注册：2008年9月30日

发表于：2016-07-30 16:35:12

4楼

Dim Input
Do 
Input = InputBox("请输入运行的程序，提示：12356")
If int(len(Input))>6 or int(len(Input))<=0
        Else
For a=1 to len(Input)
if int(Mid(Input, a, 1))=1
call q1()
ElseIf int(Mid(Input, a, 1))=2
    call q2()
    ElseIf int(Mid(Input, a, 1))=3
    call q3()
    ElseIf int(Mid(Input, a, 1))=4
    call q4()
    ElseIf int(Mid(Input, a, 1))=5
    call q5()
    ElseIf int(Mid(Input, a, 1))=6
    call q6()
End If
Next
Exit Do
    End If
    Loop
Sub q1()
MessageBox "运行q1"
End Sub
Sub q2()
MessageBox "运行q2"
End Sub
Sub q3()
MessageBox "运行q3"
End Sub
Sub q4()
MessageBox "运行q4"
End Sub
Sub q5()
MessageBox "运行q5"
End Sub
Sub q6()
MessageBox "运行q6"
End Sub

回复引用举报

lh52084

精华：0帖
求助：3帖
帖子：5帖 | 35回
年度积分：19
历史总积分：135
注册：2010年12月29日

发表于：2016-08-02 11:45:46

5楼

路过，进来看看。。。。。。。。。。。。。。。。。

回复引用举报

平静的海

精华：0帖
求助：0帖
帖子：0帖 | 4回
年度积分：0
历史总积分：1
注册：2014年7月03日

发表于：2016-08-31 01:30:19

6楼

调用 MXX输出CALL PXX。

运行结束编写PXX程序要加结束符

回复引用举报

热门招聘

﻿如何设置子程序 ﻿点击：530 | 回复：6

如何设置子程序点击：530 | 回复：6