用VB写串口接收程序，怎么将从串口接收到数据显示到对应的框中TEXTBoX中

huc断魂枪

用VB写串口接收程序，需要将从串口接收到数据显示到对应的框中TEXTBoX中，求助各位大神怎么实现。

mackyming

Private Sub Form_Load()
MSComm1.InBufferSize = 40
MSComm1.OutBufferSize = 2
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 1
MSComm1.SThreshold = 1
MSComm1.RThreshold = 19
Timer1.Interval = 2000
Timer1.Enabled = False
End Sub



Private Sub format_Click()
MsgBox (" 起始码0X2A,地址码,地址反码,指令码,数据高8位,数据低8位,校验和,帧尾(0x0d,0x5a)")
End Sub

  rivate Sub Mscomm1_Oncomm()

  Select Case MSComm1.CommEvent
  
  Case comEvReceive

  RThreshold = 1
  
  av = MSComm1.Input
  ab(0) = av(0)
  
  av = MSComm1.Input
  ab(1) = av(0)
  
  av = MSComm1.Input
  ab(2) = av(0)
  
  
  av = MSComm1.Input
  ab(3) = av(0)
  
  av = MSComm1.Input
  ab(4) = av(0)
  
  av = MSComm1.Input
  ab(5) = av(0)
  
  av = MSComm1.Input
  ab(6) = av(0)
  
  
  av = MSComm1.Input
  ab(7) = av(0)
  
  av = MSComm1.Input
  ab(8) = av(0)
  
  av = MSComm1.Input
  ab(9) = av(0)
  
  av = MSComm1.Input
  ab(10) = av(0)
  
  av = MSComm1.Input
  ab(11) = av(0)
  
  av = MSComm1.Input
  ab(12) = av(0)
  
  av = MSComm1.Input
  ab(13) = av(0)
  
  av = MSComm1.Input
  ab(14) = av(0)
  
  av = MSComm1.Input
  ab(15) = av(0)
  
  av = MSComm1.Input
  ab(16) = av(0)
  
  av = MSComm1.Input
  ab(17) = av(0)
  
  av = MSComm1.Input
  ab(18) = av(0)
  
  
  
  
  
  
  b1 = ab(0)
  b2 = ab(1)
  b3 = ab(2)
  
  b4 = ab(3)
  b5 = ab(4)
  b6 = ab(5)
  b7 = ab(6)
  
  b8 = ab(7)
  b9 = ab(8)
  b10 = ab(9)
  b11 = ab(10)
  
  b12 = ab(11)
  b13 = ab(12)
  b14 = ab(13)
  b15 = ab(14)
  
  b16 = ab(15)
  b17 = ab(16)
  b18 = ab(17)
  b19 = ab(18)
  
  
  
 
  ww = b1 + b2 / 10 + b3 / 100
  yy = b4 * 1000 + b5 * 100 + b6 * 10 + b7
  zz = b8 * 1000 + b9 * 100 + b10 * 10 + b11
  xx = b12 * 1000 + b13 * 100 + b14 * 10 + b15
  vv = b16 * 1000 + b17 * 100 + b18 * 10 + b19
  
 Label21.Caption = VBA.format(ww, "0.00")
 Label19.Caption = VBA.format(yy, "0000")
 Label23.Caption = VBA.format(zz, "0000")
 Label29.Caption = VBA.format(vv, "0000")
 Label30.Caption = VBA.format(xx, "0000")
 
 
 

  
  MSComm1.InBufferCount = 0
  
 RThreshold = 1

End Select
End Sub