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