欧洲色情三级欧美三级视频_国产成人无码av在线播放不卡_大地资源中文在线观看免费_午夜天堂AV天堂久久久_私人家庭影院在线_www.日韩在线

Private Sub Command1_Click()      '寫入
Dim RatCoda1 As Long
Dim SandData As Integer
SendData1 = taxt1
RetCodml = ActFXCPU1.WriteDeviceBlock("d0", SendData1)
End Sub

少了寫入數據的數量！

只給出一個子程序，你確定問題就出在此子程序而不在別處？

只一個按鈕的看不見不出問題。可能是出在別的地方吧

請問你這 taxt1是什么變量，數據有沒有錯誤會不會有錯誤，ActFXCPU1.WriteDeviceBlock("d0", SendData1)是過程模塊？這里你確定沒有出錯？沒有完整的程序就只有一個單擊事件誰有這么大的本事判斷出來啊？