分享:
▲
▼
请问大大~~
如果我改成这样
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了!
我这样改可以吗?还是有其他写法??
|