VB上位机串口 显示问题

pandong112

以下程序都是看论坛网友的程序  自己水平太烂  可能用的方法不对  大家指点
单片机发送来的数据 上位机只能显示ASC 码   大概程序如下
Dim comstr As String
comstr = MSComm1.Input      ’ 接收串口发送过来的数据

Text1.Text = Asc(comstr & Chr(32))       ’ 转换后 显示是十进制 但是数据超过128 就显示不对 而且无数据的时候显示32 为空格符号

后来改为接受2进制程序


Dim inbyte() As Byte
Dim buf As String


buf = ""
inbyte = MSComm1.Input
For i = LBound(inbyte) To UBound(inbyte)
              buf = buf + Hex(inbyte(i))   
            Next i
            
           
            Text1.Text = buf
                              可以接收255以内的数据 超过了 就不能正常显示 单片机发送450 接收到显示的只能是C2  应该是1C2


我的目的是 接收单片机发送来的数据 以十进制 显示 数据范围在200~1000   
  以上两个程序 都在定时器中
  头大了  第一次发帖  兴奋ING  小菜鸟

lcw_swust

http://www.xiao-qi.com/netfile/Mscomm.html