Private Sub Command1_Click()
MSComm1.InputMode = 1
Dim indata As Variant
Dim bte(0) As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
indata = MSComm1.Input
bte(0) = AscB(indata)
Text1.Text = bte(0)
MSComm1.InBufferCount = 0
End Select
Text2.Text = "dfas"
End Sub
这是个接收单片机串口信息的小程序段 后面那个Text2.Text = "dfas"是我为了测试用的 没意义
我的想法是按键之后 接收信息 可现在的问题是 前面判定是否接收到信息的那句过不去 也就是这个循环进不去 我用串口调试助手可以接收到信息
刚学vb 还请各路高手帮我指点一下 是不是有什么问题没注意到的 |
|
楼主
