ycf1234123
级别: 略有小成
精华主题: 0
发帖数量: 52 个
工控威望: 375 点
下载积分: 1826 分
在线时间: 82(小时)
注册时间: 2010-04-22
最后登录: 2018-05-22
查看ycf1234123的 主题 / 回贴
楼主  发表于: 2013-11-01 10:29
全看 | 小 中 大
图片：
Private Sub Command1_Click()      '写入
Dim RatCoda1 As Long
Dim SandData As Integer
SendData1 = taxt1
RetCodml = ActFXCPU1.WriteDeviceBlock("d0", SendData1)
End Sub
xuefenfeilxw
级别: 略有小成
精华主题: 0
发帖数量: 144 个
工控威望: 243 点
下载积分: 2097 分
在线时间: 439(小时)
注册时间: 2010-10-23
最后登录: 2022-07-28
查看xuefenfeilxw的 主题 / 回贴
1楼  发表于: 2013-11-01 10:55
全看 | 小 中 大
少了写入数据的数量！