寻找高手 点击：3496 | 回复：100
发表于：2003-12-15 13:22:00
64楼
我希望和所有的人和平共处只要彼此相互尊重,为避免炫耀嫌疑,以后不贴源程序了.对于功能的实现,方法更重要.这是产生脉冲和闪烁信号的程序,功能简单. 以后源程序将通过EMAIL交流.
FUNCTION_BLOCK "HelpSignal"
TITLE =
//KNOW_HOW_PROTECT
{ S7_tasklist := "ob1,ob35" }
AUTHOR : RICKY
NAME : HELPSI
VERSION : 0.1
VAR_OUTPUT
BLINK_1 : BOOL ;
BLINK_2 : BOOL ;
STROBE_1 : BOOL ;
STROBE_2 : BOOL ;
END_VAR
VAR
count1 : INT ;
count2 : INT ;
END_VAR
VAR_TEMP
ret : INT ; //R點kgabewert vom SFC6
TopSi : STRUCT
EV_CLASS : BYTE ;
EV_NUM : BYTE ;
PRIORITY : BYTE ;
NUM : BYTE ;
TYP2_3 : BYTE ;
TYP1 : BYTE ;
ZI1 : WORD ;
ZI2_3 : DWORD ;
END_STRUCT ;
StartUpSi : STRUCT
EV_CLASS : BYTE ;
EV_NUM : BYTE ;
PRIORITY : BYTE ;
NUM : BYTE ;
TYP2_3 : BYTE ;
TYP1 : BYTE ;
ZI1 : WORD ;
ZI2_3 : DWORD ;
END_STRUCT ;
END_VAR
BEGIN
NETWORK
TITLE =
CALL "RD_SINFO" (
RET_VAL := #ret,
TOP_SI := #TopSi,
START_UP_SI := #StartUpSi);
L #TopSi.NUM;
L 1;
<>I ;
JC M005;
A T 0;
JC M001;
A T 0;
L 0;
SP T 0;
AN T 0;
L S5T#1S; // create blink signals
SP T 0;
AN #BLINK_1; // 0.5 Hz frequence
= #BLINK_1;
JC M001;
AN #BLINK_2; // 1 Hz frequence
= #BLINK_2;
M001: NOP 0;
L 10;
L #count1;
<=I ;
= #STROBE_1; // strobe 0.5 second
>I ;
JC M002;
L 0; // + -10
T #count1;
M002: NOP 0;
L 20;
L #count2;
<=I ;
= #STROBE_2; // strobe 1 second
>I ;
JC M003;
L 0;
T #count2;
M003: BEU ;
M005: L #count1;
L 1;
+I ;
T #count1; // 60 seconds reached ?
L #count2; // strobe 1 minute
L 1; // clear counter for seconds
+I ;
T #count2;
END_FUNCTION_BLOCK
发表于：2003-12-16 20:56:00
66楼
to:rickyxu：
我从事工控行业，三年，期间没有算过命，只是再搞单片机，PLC，VB，没有做过什么太高深的东西，我没有经历过任何的培训，刚毕业时还入错行，进入了建筑行业，荒废了一年，所有的知识都是我借助于自学，向别人请教而来，一踏入这个行业，很幸运的是碰到了一位好的老师，教会了我应该如何的学习。少走弯路。
我没有去过海外，也不想去，甚至也没有时间去城市的周围转转，因为我几乎连自己的碗都懒的刷，一般都在外面吃快餐，我的时间就是学习，工作，我的英文不怎么好，就是为了看资料。因为我觉得需要学的东西太多。所以还觉得没有必要，更没有时间，靠算命去蒙骗别人的时间。
对于PID程序，我不是想闪烁其词，可能我把PID理解浅了，但还是想在这里把我的理解说一下，我出差在外程序DOWN不上，另外，我觉得，程序只是一种借助于语言的，重要的不是语言，理解的不对的地方还请多批评，指正，
原理式离散化后
u(kT)=kp[e(kT)+(T/Ti)*[e(0)+e(T)+e(2T)+......+e(kT)]+(Td/T)*{e(kT)-e(kT-T)]]
T就是离散化之后的采样周期，
e(kT) 就是偏差，要控制的目标值与实际值之间的偏差
第二个加数就是积分，求和，积分就是面积，坐标上就是时间*偏差
第三个加数是微分，两次偏差的变化率，增加动态控制性能，
实际控制中死区的设置：e(kT)<死区值 U(KT)=0
积分分离控制： e(kT)>积分限制 PD控制，积分取消，否则PID
保持系统的稳定，同时又保证精度
微分：可以对偏差，也可以对输出进行，
有时避免振幅过大可以进行不完全微分，
控制时也可以对要控制的调整量U（KT） 进行限幅，防止过调，
我在实际中完全按照这个原理进行，用了死区，积分分离，对偏差微分，限幅，程序就是照着这个原理一步步写出来的，没有用到什么高深的编程语言。
希望大家给予指正，谢谢！
发表于：2003-12-18 11:02:00
74楼
SUBROUTINE_BLOCK CRC_CAL:SBR1
TITLE=
VAR_INPUT
DAT_ADR_P:DWORD;
DAT_LEN:BYTE;
S_R:BYTE;
END_VAR
VAR
CRC_CHK:WORD;
CRC_AC:WORD;
INDEX_M:INT;
FINAL_M:INT;
ADDR_P:DWORD;
INDEX_B:INT;
END_VAR
BEGIN
Network 1
LD SM0.0
MOVD LD0, LD14
BTI LB4, LW12
MOVW 16#FFFF, LW6
MOVW +0, LW10
Network 2
LD SM0.0
FOR LW10, +1, LW12
Network 3
LD SM0.0
MOVW +0, LW8
MOVB *LD14, LB9
XORW LW8, LW6
Network 4
LD SM0.0
MOVW +0, LW18
Network 5
LD SM0.0
FOR LW18, +1, +8
SRW LW6, 1
热门招聘
相关主题
- 工控PLC擂台汇总
[7791] - 两个时间继电器怎么让另一个...[9234]
- 请问模拟信号隔离器在电气图...[10206]
- 松下PLC技术支持有问必答[13800]
- BCD码与十六进制的区别？[12205]
- 招聘plc兼职[8793]
- 24V继电器控制380V合理吗?[8767]
- 【福利】PLC资料大汇总（2019.2...[16443]
- 简单的梯形图，有便宜的PLC吗...[17064]
- 请用过艾默生PLC的朋友,谈谈...[7563]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
