求个大神帮忙翻译一下,谢谢 点击:1095 | 回复:6



Hg7180

    
  • 精华:0帖
  • 求助:0帖
  • 帖子:2帖 | 9回
  • 年度积分:9
  • 历史总积分:21
  • 注册:2016年1月21日
发表于:2022-06-24 05:31:47
楼主

 PROC rDIWait(\num Times,\string D,VAR signaldi Input,dionum Status)

        VAR bool bTimeOut:=TRUE;

        VAR num nCounter:=0;

        VAR num Time:=3;

        IF Present(Times) Time:=Times;

        WHILE bTimeOut DO

            IF nCounter>=Time THEN

                nCounter:=0;

                TPWrite "Waiting for "+ArgName(Input)+"->"\num:=Status;

                IF Present(D) TPWrite "Describe : "+D;

            ENDIF

            WaitDI Input,Status\MaxTime:=1\TimeFlag:=bTimeOut;

            nCounter:=nCounter+1;

        ENDWHILE

    ENDPROC

新手,求大神帮忙翻译一下,感谢




楼主最近还看过



indalecio

  • 精华:0帖
  • 求助:0帖
  • 帖子:0帖 | 14回
  • 年度积分:100
  • 历史总积分:227
  • 注册:2022年6月25日
发表于:2022-06-25 20:35:19
1楼

应该是赋值后循环跳转的程序吧


Hg7180

  • 精华:0帖
  • 求助:0帖
  • 帖子:2帖 | 9回
  • 年度积分:9
  • 历史总积分:21
  • 注册:2016年1月21日
发表于:2022-06-30 04:18:44
2楼

"indalecio" 的回复,发表在1楼
        对内容: 【应该是赋值后循环跳转的程序吧】进行回复:

        -----------------------------------------------------------------


谢谢!我看应该是在等待输入信号做的超时报警,但是没读太明白

才聚电子

  • 精华:0帖
  • 求助:1帖
  • 帖子:1帖 | 5回
  • 年度积分:0
  • 历史总积分:53
  • 注册:2016年12月21日
发表于:2022-07-19 22:42:07
3楼

等待3S超时 报警

woodhead1

  • 精华:0帖
  • 求助:0帖
  • 帖子:0帖 | 42回
  • 年度积分:19
  • 历史总积分:59
  • 注册:2008年5月08日
发表于:2023-01-31 13:42:49
4楼

学习学习

monzer

  • [版主]
  • 精华:11帖
  • 求助:2帖
  • 帖子:49帖 | 115回
  • 年度积分:5989
  • 历史总积分:11087
  • 注册:2020年3月27日
发表于:2023-02-26 14:19:19
5楼

这应该是很远古的程序。以前的wait指令没有可视化属性。所以单独写个程序增加屏幕打印功能,以具有信息提示功能

OPMen

  • 精华:0帖
  • 求助:0帖
  • 帖子:5帖 | 28回
  • 年度积分:503
  • 历史总积分:997
  • 注册:2012年2月29日
发表于:2023-02-27 08:50:25
6楼

屏幕截图 2023-02-27 084906.jpg


热门招聘
相关主题

官方公众号

智造工程师