久久免费视频在线观看6_成人精品一区亚洲午夜久久久_久久www视频_天天干干夜夜_日本一区二区三区视频在线播放_亚洲va视频

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

少了寫入數據的數量！