Private Sub Command2_Click()
' Send Get AI command to ADAM-4011 Module at address 01H.
MSComm1.Output = "#03" & Chr$(13)
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, vbCr)
' Read the response till the carriage return character.
Text1.Text = Buffer$
' Display the reading.
End Sub
1\COM口读到的是什么内容?
一次是读一路的,还是一次读多路的?
2\数据格式是什么?
传过来的数据,是 整合在一起的,还是 使用 8条命令 传输8次.还是 在要求传输前需要输入选择设备?
你程序里都没有对应的内容,那自然只能显示所有读到的数据啊.