yxc111
级别: 略有小成
精华主题: 0
发帖数量: 204 个
工控威望: 292 点
下载积分: 1669 分
在线时间: 86(小时)
注册时间: 2010-03-12
最后登录: 2020-04-15
查看yxc111的 主题 / 回贴
楼主  发表于: 2010-10-07 11:38
屏是威纶MT56L的 PLC是三菱FX-1N的  要吧数据写到D600到D620里
能成立吗?



Macro_Command main()
short a[40]
float b[20]
int c[20]
GetData(a[0] ,RW_Bin ,0,1)
GetData(a[1],RW_Bin,1,10)
c[1]=a[0]/100*a[1]
c[2]=a[0]/100*a[2]
c[3]=a[0]/100*a[3]
c[4]=a[0]/100*a[4]
c[5]=a[0]/100*a[5]
c[6]=a[0]/100*a[6]
c[7]=a[0]/100*a[7]
c[8]=a[0]/100*a[8]
c[9]=a[0]/100*a[9]
c[10]=a[0]/100*a[10]
SetData(c[1],RW_Bin,11,10)
SetData(c[1],D_Binplc,600,10)  
GetData(a[20] ,RW_Bin ,21,1)
b[0]=a[20]*10/5
b[1]=b[0]/c[1]/0.001407
b[2]=b[0]/c[2]/0.001407
b[3]=b[0]/c[3]/0.001407
b[4]=b[0]/c[4]/0.001407
b[5]=b[0]/c[5]/0.001407
b[6]=b[0]/c[6]/0.001407
b[7]=b[0]/c[7]/0.001407
b[8]=b[0]/c[8]/0.001407
b[9]=b[0]/c[9]/0.001407
b[10]=b[0]/c[10]/0.001407
a[25]=b[1]
a[26]=b[2]
a[27]=b[3]
a[28]=b[4]
a[29]=b[5]
a[30]=b[6]
a[31]=b[7]
a[32]=b[8]
a[33]=b[9]
a[34]=b[10]
SetData(a[25],LW_Bin,0,10)
SetData(a[25],D_Binplc,610,10)

End Macro_Command
yxc111
级别: 略有小成
精华主题: 0
发帖数量: 204 个
工控威望: 292 点
下载积分: 1669 分
在线时间: 86(小时)
注册时间: 2010-03-12
最后登录: 2020-04-15
查看yxc111的 主题 / 回贴
1楼  发表于: 2010-10-08 16:30
没人看吗
hlq_0815
人生的成功不在于拿到一副好牌,而是怎样将坏牌打好。
级别: 论坛版主

精华主题: 2 篇
发帖数量: 1819 个
工控威望: 4467 点
下载积分: 7533 分
在线时间: 1226(小时)
注册时间: 2008-07-03
最后登录: 2024-05-02
查看hlq_0815的 主题 / 回贴
2楼  发表于: 2010-10-17 19:31
是没人看得懂
人生的成功不在于拿到一副好牌,而是怎样将坏牌打好。