'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
微信扫一扫 
支付宝扫一扫 