急、急、急...这段vb通讯程序为什么始终没有响应?
下面这段程序为什么运行后始终没有反应?delphi中利用MScomm控件对串口进行数据读写有可行的方法吗?请各位高手指教!
Private Sub Form_Load()
Dim Instring As String
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "ATV1Q0" & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCrLf)
MSComm1.PortOpen = False
End Sub
急 、急 ...