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
znz43
工控职业已成回忆 只因爱好常回家园 乐此不疲
级别: 工控侠客

精华主题: 0
发帖数量: 1057 个
工控威望: 4900 点
下载积分: 7351 分
在线时间: 2560(小时)
注册时间: 2010-06-24
最后登录: 2024-11-29
查看znz43的 主题 / 回贴
1楼  发表于: 2013-11-01 11:14
只给出一个子程序,你确定问题就出在此子程序而不在别处?
出门打工难,打工学艺难,学艺拜师难,找到好师傅更难。
赠人玫瑰,手留余香。舍得舍得,有舍才有得。