小弟對論壇不熟 不知道怎么貼程式碼 就復制粘貼了 不好意思 望版主見諒
比較急 煩請各位高人賜教
以前好使 幾年不用了 打開就報錯了
下面是報錯部分的程式 報錯時有段字體還變色了
Private Sub Text3_Change()
k1 = Val(Int(Text3.Text))
End Sub
Private Sub Text3_DblClick()
For K4 = 0 To 63
For K5 = 0 To 12
In_ad(K5, K4) = 0
Next K5
Next K4
k1 = 0
End Sub
Private Sub Timer1_Timer()
m = Card1.CardNameIS("KH9250")
'初始化板卡基地址
m = Card1.Initial(&H280&, -1)
m = Card1.Do(&H0&) '送0xff到數字量輸出口，置0
Label10.Caption = Time 'dupengyugai
End Sub
更多 0
uj5u.com熱心網友回復：
報什么錯？報錯時那一句代碼反顯（不叫變色）？uj5u.com熱心網友回復：
具體問題肯定是和你所用的"板卡"有關的, 得自己查一下手冊.但是根據我的經驗來看, 一般是不需要每次發送資料都初始化的,
所以你把
m = Card1.CardNameIS("KH9250")
m = Card1.Initial(&H280&, -1)
放在timer事件中肯定是不必要的. 以至于是否因為你頻繁初始化而影響了正常功能也不得知
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108035.html
標籤：網絡編程
上一篇：第一次用VB控制步進電機，求解釋
下一篇：陣列相關