用户归档一次写入四条数据

'1 第一次写入数据,各个物料的配比 
Dim dflp,dsnp,dfhp,dmhp,dsp,dyj1p,dyj2p,dyj3p
   dflp=HMIRuntime.Tags("实际废料配比").read
   dsnp=HMIRuntime.Tags("实际水泥配比").read
   dfhp=HMIRuntime.Tags("实际飞灰配比").read
   dmhp=HMIRuntime.Tags("实际煤灰配比").read
   dsp=HMIRuntime.Tags("实际水配比").read
   dyj1p=HMIRuntime.Tags("中间配比药剂1").read
   dyj2p=HMIRuntime.Tags("中间配比药剂2").read
   dyj3p=HMIRuntime.Tags("中间配比药剂3").read
 
   HMIRuntime.Tags("记录数据名头").Write  "配比值"
   HMIRuntime.Tags("废料记录").Write  dflp
   HMIRuntime.Tags("水泥记录").Write  dsnp
   HMIRuntime.Tags("飞灰记录").Write  dfhp
   HMIRuntime.Tags("煤灰记录").Write  dmhp
   HMIRuntime.Tags("水记录").Write  dsp
   HMIRuntime.Tags("液剂1记录").Write  dyj1p
   HMIRuntime.Tags("液剂2记录").Write  dyj2p
   HMIRuntime.Tags("液剂3记录").Write  dyj3p
   HMIRuntime.Tags("操作工记录").Write  czg
        
         HMIRuntime.Tags("@UA_UA_1_ID").Write  -1  
         HMIRuntime.Tags("@UA_UA_1_Job").Write  6   
     

'2 读取plc的数据值,并记录   
Dim dfl,dsn,dfh,dmh,ds,dyj1,dyj2,dyj3

   dfl=HMIRuntime.Tags("读废料记录值").READ   
   dsn=HMIRuntime.Tags("读水泥记录值").READ 
   dfh=HMIRuntime.Tags("读飞灰记录值").READ 
   dmh=HMIRuntime.Tags("读煤灰记录值").READ 
   ds=HMIRuntime.Tags("读水记录值").READ 
   dyj1=HMIRuntime.Tags("读液剂1记录值").READ /10 
   dyj2=HMIRuntime.Tags("读液剂2记录值").READ /10  
   dyj3=HMIRuntime.Tags("读液剂3记录值").READ /10  
     
    ' 第二次写入数据,各个物料的实际值 
   HMIRuntime.Tags("记录数据名头").Write  "实际值"
   HMIRuntime.Tags("废料记录").Write  dfl
   HMIRuntime.Tags("水泥记录").Write  dsn
   HMIRuntime.Tags("飞灰记录").Write  dfh
   HMIRuntime.Tags("煤灰记录").Write  dmh
   HMIRuntime.Tags("水记录").Write  ds
   HMIRuntime.Tags("液剂1记录").Write  dyj1
   HMIRuntime.Tags("液剂2记录").Write  dyj2
   HMIRuntime.Tags("液剂3记录").Write  dyj3 
   HMIRuntime.Tags("操作工记录").Write czg
         
         HMIRuntime.Tags("@UA_UA_1_ID").Write  -1   
         HMIRuntime.Tags("@UA_UA_1_job").Write 6
以上为写入两条数据的程序,单独写入一条数据时候都没问题,连续写入两条数据就出错,程序需要一次写入四条记录,是不是job变量没有复位的事啊

最佳答案

连续两次写入,可能是脚本执行完才会复位一次,所以在程序写入完毕后,可以手动给变量复位,然后再继续下边的写入再手动复位就可以了,这样可以保证两次不会冲突。2606352062欢迎交流

提问者对于答案的评价:

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc356429.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 上午9:23
下一篇 2021年7月5日 上午9:23

相关推荐

  • WinCC6.0 SP3升级补丁!

    哪里有下载WinCC6.0 SP3升级补丁,最好给个连接地址,谢谢!!! 最佳答案 http://support.automation.siemens.com/CN/vi…

    SIMATIC WinCC 2019年6月11日
  • vbs 赋值

    我看别人做的vbs赋值 比如  HMIRuntime.tags("ff").write 0,1  和…

    SIMATIC WinCC 2019年6月11日
  • winccV7.3模拟量声音报警

    我想在wincc上把模拟量做做个上限报警触发声音报警    手动复位报警图片是模拟量,然后在报警画面里手动复位按钮来消音 问题补充:楼下说的…

    2021年7月5日
  • Automation Software updater 不可用怎么解决?

    Automation Software updater 不可用怎么解决? 图片说明:    最佳答案 建议不要使用博途的自动更新,…

    2020年11月1日
  • wincc权限设置

    我想请问一下大家在作权限管理时是怎么做的,我想做一个三级权限,就是分开操作人员每个人只能在相应的权限下做修改,但一开始怎么做登陆时就弹出来用户名和密码的对话框? 最佳答案 新建一个…

    SIMATIC WinCC 2019年6月11日
  • 客户端通过WebNavigator访问服务器时如何加载画面中使用的第三方控件?

    在WinCC画面中使用了MSADODC控件,并使用webNavigator做了画面发布,想在客户端访问服务器的时候自动检测该控件是否安装,若未安装则自动在服务器端下载并安装,就像加…

    SIMATIC WinCC 2019年6月11日
  • WinCC 例子项目打开

    WinCC 例子项目在wincc 6.2中不能打开 最佳答案 还有一个可能,将项目放到根目录下,不要用中文! 提问者对于答案的评价:good

    SIMATIC WinCC 2019年6月11日
  • **WINCC 7.0授权

    上位机使用WINCC 7.0 SP1亚洲版两个工程师站,热备冗余;三个操作员站。所需购买的授权包括哪些?我的想法:三个操作员站安装三套RT128授权,作为客户端…

    SIMATIC WinCC 2019年6月11日
  • Wincc动画实现

    wincc中,用很多图片,一定时间间隔显示一幅图,这样可以实现动画效果。可是一定时间间隔显示图片如何来实现呢?请教各位高人。本人初学,详细些。 问题补充:请各位介绍详细些。 最佳答…

    SIMATIC WinCC 2019年6月11日
  • 关于几个WINCC 按钮脚本编辑难题

    这几天在搞WINCC画面,但第一次用,不怎么会搞,现学现用,现在遇到下面几个问题,请高手们帮我解决下!  1〉退出运行系统,登录,注销,怎么编辑脚本(有图)&n…

    2019年6月11日

发表回复

登录后才能评论