寻找高手 点击:3496 | 回复:100



rickyxu

    
  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-27 10:55:00
楼主
熟悉S7 300/400STL编程,又觉得一览众山小的朋友,请来. 注意:LAD,FBD的高手不需要. mail to xiong.xu@siemens.com



Zane

  • 精华:0帖
  • 求助:0帖
  • 帖子:2帖 | 44回
  • 年度积分:0
  • 历史总积分:107
  • 注册:2001年12月28日
发表于:2003-12-02 23:50:00
21楼
FUNCTION "ATT" : VOID TITLE = KNOW_HOW_PROTECT VERSION : 0.1 VAR_INPUT LEN_DAT : REAL ; END_VAR VAR_TEMP TBL_MAX : DINT ; TBL_CNT : DINT ; LOOP_CNT : DINT ; TBL_TBL : DINT ; END_VAR BEGIN NETWORK TITLE = L "CAL_DB".MAX_LEN; T #TBL_MAX; L "CAL_DB".CUR_LEN; T #TBL_CNT; L #TBL_MAX; >=D ; JC K001; OPN "CAL_DB"; LAR1 P#DBX 8.0; L #TBL_CNT; L L#4; *D ; SLD 3; +AR1 ; L #LEN_DAT; T D [AR1,P#0.0]; L #TBL_CNT; L L#1; +D ; T "CAL_DB".CUR_LEN; BEU ; K001: L #TBL_MAX; L L#1; -D ; T #TBL_TBL; L L#0; T #LOOP_CNT; OPN "CAL_DB"; LAR1 P#DBX 8.0; K002: L D [AR1,P#4.0]; T D [AR1,P#0.0]; L #LOOP_CNT; L L#1; +D ; T #LOOP_CNT; L #TBL_TBL; >=D ; JC K003; +AR1 P#4.0; JU K002; K003: L #LEN_DAT; T D [AR1,P#4.0]; END_FUNCTION 你知道这段程序是干什么的? 先考你,是否值。

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-03 13:41:00
22楼
FUNCTION FC 1 : VOID TITLE = //THE FUNCTION WORKS FOR STORE DATE ONE BY ONE INTO DB,#CUR_LEN WORKS AS POINTER, //UNTIL GOTO THE LAST, THEN SHIFE ONE UPWARDS, STORE #LEN_DAT INTO THE LAST //POSITION VERSION : 0.1 VAR_INPUT LEN_DAT : REAL ; END_VAR VAR_TEMP TBL_MAX : DINT ; TBL_CNT : DINT ; LOOP_CNT : DINT ; TBL_TBL : DINT ; END_VAR BEGIN NETWORK TITLE = L "CAL_DB".MAX_LEN; //GUESS MAX_LEN AT DBD0 T #TBL_MAX; L "CAL_DB".CUR_LEN; //CUR_LEN AT DBD4 T #TBL_CNT; L #TBL_MAX; >=D ; JC K001; //START FROM DBD8, STORE DATE OPN "CAL_DB"; LAR1 P#DBX 8.0; //START ADDRESS AT DB.DBX8.0 L #TBL_CNT; L L#4; //DATE 4 BYTE *D ; SLD 3; //TYPICAL ABS ADDRESS ACCESS +AR1 ; L #LEN_DAT; T D [AR1,P#0.0]; L #TBL_CNT; + 1; T "CAL_DB".CUR_LEN; BEU ; K001: L #TBL_MAX; + -1; T #TBL_TBL; L L#0; T #LOOP_CNT; OPN "CAL_DB"; LAR1 P#DBX 8.0; K002: L D [AR1,P#4.0]; //SHIFT UP T D [AR1,P#0.0]; L #LOOP_CNT; + 1; T #LOOP_CNT; L #TBL_TBL; >=D ; JC K003; +AR1 P#4.0; JU K002; K003: L #LEN_DAT; //READ LEN_DAT T D [AR1,P#4.0]; //WRITE TO THE LAST BE ; END_FUNCTION

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-03 13:48:00
23楼
using FB is better than FC for this small program, although. If there were something I not understand,and also I can not code by myself, you can say i am stupid. otherwise the program is lousy.

gongkongedit

  • 精华:1099帖
  • 求助:0帖
  • 帖子:14392帖 | 54470回
  • 年度积分:0
  • 历史总积分:622
  • 注册:2008年9月08日
发表于:2003-12-03 21:31:00
24楼
没人在看?不屑作编程工具的朋友,不妨来看看96年我写的程序,为S5948写的。明天有空时,在来点好玩的。只有强者才有资格选择,不想和不会是有本质区别的。 FB 222 G:GFC1@@ST.S5D LIB=95824 LEN=55 Page 1 Segment 1 Name :DB-CHECK :T SW 98 :L KB 0 :L SY 98 :!=F :L SY 99 :JC =M001 :L KB 1 :L SY 98 :><F :L SY 99 :BEC :ADD DH 000E EE00 :JC =M002 M001 :ADD DH 000E EC00 M002 :L KB 0 :TAK :LIR 1 :!=F :BEC :L KH FFFF :AW :SLD 4 :TAK :SLD 4 :ADD DH FFFF FFFF :LIR 1 :ADD KF -5 :TAK :A F 0.0 :AN F 0.0 :*** Segment 2 :BE

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-03 21:37:00
25楼
forgot one thing, if you want to check some DB/DX, call like this, hope can help to understand L KY 1,100 //DX 100, 1 FOR DX, 0 FOR DB JU FB222 BEC //WHY BEC GUESS T FD250 //ABS ADDRESS OF DB/DX TAK T FW248// LENGTH OF DB/DX

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-04 17:00:00
26楼
无人发言?

wincc123

  • 精华:4帖
  • 求助:0帖
  • 帖子:41帖 | 765回
  • 年度积分:1
  • 历史总积分:1067
  • 注册:2003年10月13日
发表于:2003-12-04 19:00:00
27楼
SIEMENS BBS上的ZANE高人也来这里凑热闹,不就S5和S7的STL吗? 这东西算什么,现在的高手都搞驱动了,SIEMENS MASTER DRIVERS VC,MC,力士乐ECO03,EUROTHERM DC DRIVES PLC的高人我就不佩服了,我佩服搞驱动的人

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-04 19:15:00
28楼
不懂驱动,对于自己不熟悉的东西只能仰幕,不敢说没什么了不起,因为自己没有资格.

wincc123

  • 精华:4帖
  • 求助:0帖
  • 帖子:41帖 | 765回
  • 年度积分:1
  • 历史总积分:1067
  • 注册:2003年10月13日
发表于:2003-12-04 21:05:00
29楼
不过我相信RICKYXY先生肯定是S5,S7的前辈高人,无礼之处请见晾, 其实SIEMENS的东西真还是博大精深,我弄S5,S7其实也就从2000年开始 其实我也很喜欢STL加间接寻址,那玩一真它妈爽,简直就是高级语言

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-05 09:48:00
30楼
HNzhang兄客气了,你佩服的驱动专家就坐在我5米之内.熟悉STL的人一定写过许多针对应用的程序,间接寻址只是一个基本功.为何寻找STL的高手,是因为图形化编程环境使许多人忽略了基本功能块的开发,这是需要加强的.希望有同级别的交流和对话.

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-05 09:49:00
31楼
HNzhang兄客气了,你佩服的驱动专家就坐在我5米之内.熟悉STL的人一定写过许多针对应用的程序,间接寻址只是一个基本功.为何寻找STL的高手,是因为图形化编程环境使许多人忽略了基本功能块的开发,这是需要加强的.希望有同级别的交流和对话.

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-05 10:30:00
32楼
HNzhang兄客气了,你佩服的驱动专家就坐在我5米之内.熟悉STL的人一定写过许多针对应用的程序,间接寻址只是一个基本功.为何寻找STL的高手,是因为图形化编程环境使许多人忽略了基本功能块的开发,这是需要加强的.希望有同级别的交流和对话.

wincc123

  • 精华:4帖
  • 求助:0帖
  • 帖子:41帖 | 765回
  • 年度积分:1
  • 历史总积分:1067
  • 注册:2003年10月13日
发表于:2003-12-05 11:12:00
33楼
rickyxu先生: 这样更让我相信你是SIEMENS的高人,驱动高人不多,大都是SIEMENS内部的人,你说的对,很多人期望用LAD写,我记得在客户那,用STL写了一东西,客户要程序,一看,STL,问能否变成LAD,以为我骗他,还将东西发到广州办才相信确实不能变换,哭笑不的,SIEMENS的东西我个人是很推从的,基本上我只用SIEMENS A&D的东西,做东西也喜欢用STL和SLW或MUL,上下位通讯也做过一些,PID也玩过,以后请多指教! 不过我想知道你身边的驱动高手是谁,不知我是否听闻,是华南的吗?

风中沙

  • 精华:0帖
  • 求助:0帖
  • 帖子:3帖 | 78回
  • 年度积分:0
  • 历史总积分:172
  • 注册:2003年7月03日
发表于:2003-12-05 12:57:00
34楼
故弄玄虚!编程软件发展到这步程度,大家还在炫耀stl,为什么不留给用户一个很直观的界面,内存、程序的大小?我想已经不是问题,就像windows的程序是越来越大,留给编程人员的越来越简单,我想这应该是对的。我个人就非常欣赏ROCKWELL的软件,用户很容易上手,功能比西门子的强。虽然stl的一些程序能考察编程人员的基本功,但还是不要在那里故弄玄虚了。

风中沙

  • 精华:0帖
  • 求助:0帖
  • 帖子:3帖 | 78回
  • 年度积分:0
  • 历史总积分:172
  • 注册:2003年7月03日
发表于:2003-12-05 13:02:00
35楼
不就是个中值滤波吗?

wincc123

  • 精华:4帖
  • 求助:0帖
  • 帖子:41帖 | 765回
  • 年度积分:1
  • 历史总积分:1067
  • 注册:2003年10月13日
发表于:2003-12-05 13:23:00
36楼
rockwell是好东西,看来风中沙也是寂寞高人,SIEMENS和ROCKWELL算是平分秋色吧!

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-05 14:04:00
37楼
看来得罪人了.不知ROCKWELL的图形界面如同LAD一样容易上手,是否能实现复杂的功能.只是知道如果哪天丢饭碗了,可以去哪找了.但玩图形界面的朋友呢? BTW,罗卜白菜各有所爱,只想找鄙帚自珍的同行聊,ROCKWELL万岁!!行了吧! 再BTW,请zane兄告诉答案,免得大家嘀咕

新心手

  • 精华:0帖
  • 求助:0帖
  • 帖子:3帖 | 19回
  • 年度积分:0
  • 历史总积分:28
  • 注册:2003年6月13日
发表于:2003-12-05 15:42:00
38楼
挺有意思,嘿嘿,这个行业也挺有意思,就是还没出来个象微软那么牛比的公司,全给垄断了,大家都用一样的怎么样啊!一个人整一套越整越高深,越整越麻烦,越限制整个行业的发展。虽然大家都在努力,我觉得plc行业还是没有想it行业发展的快~ 嘿嘿。这就没啥意思了~~~ 钱是祸首~~~

rickyxu

  • 精华:1帖
  • 求助:0帖
  • 帖子:2帖 | 50回
  • 年度积分:0
  • 历史总积分:62
  • 注册:2003年12月01日
发表于:2003-12-05 21:39:00
39楼
左看右看,上看下看,就是看不出是中值滤波。风中沙老弟,利群项目很得意吧?刚独立完成,用S7300完成DCS、QCS,不简单、不简单啊!佩服、佩服、很佩服!但大港8千个点的DCS不知敢不敢玩,告诉我需要多少个S7300,给你4个月够不够?我知道你,不要故弄玄虚。

Zane

  • 精华:0帖
  • 求助:0帖
  • 帖子:2帖 | 44回
  • 年度积分:0
  • 历史总积分:107
  • 注册:2001年12月28日
发表于:2003-12-08 00:05:00
40楼
THIS IS A FIFO FOR DOUBLE WORD.

热门招聘
相关主题

官方公众号

智造工程师