如何使用SCL语言输出脉冲信号-专业自动化论坛-中国工控网论坛

如何使用SCL语言输出脉冲信号点击：3129 | 回复：12

Wach0405

精华：0帖
求助：1帖
帖子：2帖 | 2回
年度积分：0
历史总积分：81
注册：2020年10月24日

发表于：2020-10-24 08:20:09

楼主

求助帖50分-已结帖

大家好，本人是plc新手，来询问一下如何使用SCL语言输出一个脉冲信号。

输入是一个普通的脉冲信号，比如M0.0, M0.1 ... M0.7，其中任意一个。外加两个BOOL信号，start和reset。

输出要是DWORD信号，QW地址，显示在数字输出（DI）卡上。每次分别显示在不同的LED上。从Q0.0到Q1.7，总共16个bit, 依次循环显示。

如下：

0000 0000 0000 0001

0000 0000 0000 0010

0000 0000 0000 0100

...

0100 0000 0000 0000

1000 0000 0000 0000

0000 0000 0000 0001

0000 0000 0000 0010

....

我使用了FOR语句加SHL语句，但是效果不是很好。

请问各位大神有没有好的建议，或者相关的编程信息。

多谢大家了！！

分享到：

邀请回答

回复楼主

楼主最近还看过

落叶归根87

精华：0帖
求助：0帖
帖子：0帖 | 338回
年度积分：0
历史总积分：792
注册：2013年8月05日

发表于：2020-10-24 11:04:01

1楼

跑马灯，中间数据移位完后需要给个延时，

回复引用举报

没积分

精华：0帖
求助：0帖
帖子：3帖 | 233回
年度积分：23
历史总积分：1434
注册：2020年7月01日

发表于：2020-10-24 16:27:03

2楼

路过，来学习学习

回复引用举报

Wach0405

精华：0帖
求助：1帖
帖子：2帖 | 2回
年度积分：0
历史总积分：81
注册：2020年10月24日

发表于：2020-10-24 16:34:33

3楼

"落叶归根87" 的回复，发表在1楼
对内容：【跑马灯，中间数据移位完后需要给个延时，】进行回复：

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

嗯，对，就是跑马灯一样的效果。

这个需要什么函数来做么?

延时的话，估计可以用Off-Delay Timer来实现。

多谢大神回复啊！

回复引用举报

1663436895@qq.com

精华：0帖
求助：0帖
帖子：2帖 | 360回
年度积分：0
历史总积分：51
注册：2016年3月13日

发表于：2020-10-24 21:29:39

4楼

谢谢楼主，学习一下

回复引用举报

三维组态设计

精华：0帖
求助：0帖
帖子：11帖 | 516回
年度积分：147
历史总积分：1638
注册：2012年10月08日

发表于：2020-10-24 22:13:14

5楼

RROR

LLOR循环移位指令

http://bbs.gongkong.com/D/202009/840749/840749_1.shtml

回复引用举报

Wach0405

精华：0帖
求助：1帖
帖子：2帖 | 2回
年度积分：0
历史总积分：81
注册：2020年10月24日

发表于：2020-10-25 10:07:21

6楼

FUNCTION_BLOCK FB8

VAR_INPUT

Takt: BOOL; // Takt-Signal input, such as M0.0 to M0.7

Start: BOOL;

Reset: BOOL;

END_VAR

VAR

Takt_old: BOOL;

BitNr : INT;

currTime: S5TIME;

biVal: WORD;

actFlag: BOOL;

END_VAR

VAR_TEMP

Word_Temp: WORD;

Key_Bit AT Word_Temp: ARRAY[0..15] OF BOOL;

END_VAR

VAR_OUTPUT

OutputWord: WORD; // Output assigns in QW Address

END_VAR

FOR BitNr:=0 TO 15 DO

IF Takt AND NOT Takt_old THEN // detect the rising edge of Takt Input

//Key_Bit[BitNr]: = Takt;

//OutputWord: = Word_Temp;

//currTime:=S_ODT (T_NO:=T10, S:=TRUE, TV:=T#1S,

// R:=FALSE; BI:=biVal,

// Q:=actFlag);

OutputWord := SHL(IN:=OutputWOrd, N:=1);

END_IF;

IF BitNr = 15 THEN

BitNr := 0;

END_IF;

END_FOR;

END_FUNCTION_BLOCK

以上是我的代码。但是如何执行

Key_Bit[BitNr]: = Takt;

和

currTime:=S_ODT (T_NO:=T10, S:=TRUE, TV:=T#1S,

R:=FALSE; BI:=biVal,

Q:=actFlag);

这两行代码呢—

多谢大家的指教！！

回复引用举报

miy_gongkong

精华：0帖
求助：2帖
帖子：26帖 | 3065回
年度积分：0
历史总积分：12421
注册：2008年9月18日

发表于：2020-10-26 16:33:10

7楼

定时器触发，循环执行移位指令

回复引用举报

雨天2018

精华：0帖
求助：0帖
帖子：1帖 | 9回
年度积分：0
历史总积分：208
注册：2018年5月19日

发表于：2020-10-30 13:45:28

8楼

IF #start AND NOT #stop THEN
    // Statement section
    #run_status:=TRUE ;
ELSIF #stop THEN
    #run_status:= FALSE;
END_IF;
IF NOT #run_status THEN
    // Statement section IF
    #lamp := 1;
    #Word_temp := 1;
    #word_temp2 := 1;
END_IF;
IF #Word_temp=16#800000 THEN
    // Statement section IF
    #Word_temp:=1 ;
END_IF;
#R_TRIG_Instance(CLK:=#clock,
                 Q=>#run_status_rise);
IF #run_status_rise AND #run_status THEN
    // Statement section IF
    #word_temp2:=SHL(IN:=#Word_temp, N:=1) ;
END_IF;
#Word_temp := #word_temp2;
#lamp := #Word_temp;