分享:
▲
▼
請問大大~~
如果我改成這樣
Private Sub Command4_Click()
MSComm1.Output = "#acegik00250100*" 'delay command 0.5 second Call delay(0.5)
aa = "#acegik00250100*" cc = "ok#acegik00250100*"
bb = MSComm1.Input Text1.Text = bb
If (bb = aa Or bb = cc) Then
MSComm1.Output = "o" bb = MSComm1.Input MSComm1.Output = "k" '檢查89c2051回傳碼,若正確則傳送"ok"通知89c2051控制碼正確 bb = MSComm1.Input
End If
If (bb <> aa Or bb <> cc) Then
Call Command4_Click
End If
End Sub
這樣雖然可以 但是好像有點快 我的timer改成10000了!
我這樣改可以嗎?還是有其他寫法??
|