回复:求VW2000~VW2098共50个输入值之和程序

qzczd

  • 帖子

    123
  • 精华

    0
  • 被关注

    2

论坛等级:侠客

注册时间:2007-07-20

普通 普通 如何晋级?

发布于 2014-07-25 08:51:57

3楼

给你一个求和的程序。
ORGANIZATION_BLOCK 主程序:OB1
TITLE=程序注释
BEGIN
Network 1 // 网络标题
// 网络注释
END_ORGANIZATION_BLOCK
SUBROUTINE_BLOCK 求和_W:SBR1
TITLE=
VAR_INPUT
Adress:DWORD; // 起始地址
Count:INT; // 变量数
END_VAR
VAR_OUTPUT
Sum:INT; // 和
END_VAR
VAR
temp_adr:DWORD; // 指针
temp_cou:INT; // 循环计数
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
// 先将结果清零;将起始地址付给指针;循环开始,设定循环次数(变量数);将指针指向的地址值付给累加器,将累加器的值加上结果(和),将指针的地址加上偏移量,循环一次结束。
LD SM0.0
MOVW +0, LW6
MOVD LD0, LD8
FOR LW12, +1, LW4
MOVW *LD8, AC1
+I AC1, LW6
+D +2, LD8
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK 求和_R:SBR2
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:REAL;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVR 0.0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
MOVR *LD10, AC1
+R AC1, LD6
+D 4, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK 求和_DW:SBR16
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:DWORD;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVD +0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
MOVD *LD10, AC1
+D AC1, LD6
+D 4, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK add_w_dw:SBR28
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:DWORD;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVD +0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
ITD *LD10, AC1
+D AC1, LD6
+D 2, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
INTERRUPT_BLOCK INT_0:INT0
TITLE=中断程序注释
BEGIN
Network 1 // 网络标题
// 网络注释
END_INTERRUPT_BLOCK
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-200

共有33295条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。