首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问关于Mscomm的ComEvReceive处理的有关问题

2012-01-28 
请教关于Mscomm的ComEvReceive处理的问题请教各位:我现在向仪表发送一读指令,仪表返回一组字节如:“68 16 1

请教关于Mscomm的ComEvReceive处理的问题
请教各位:我现在向仪表发送一读指令,仪表返回一组字节如:“68 16 16 68 00 02 08 32 03 00 00 00 00 00 02 00 05 00 00 04 01 FF 03....... ” 现在我想用ComEvReceive 的方式来处理接受返回的字节,然后显示在Text1中,代码该如何写?我的部分代码如下:
dim ReceiveByte() as Byte
---------------------------------------
Private Sub Form_Load()
  MSComm1.CommPort = 1
  MSComm1.Settings = "9600,e,8,1"
  MSComm1.InputMode = comInputModeBinary
  MSComm1.RThreshold = 1
  MSComm1.InputLen = 0
  MSComm1.PortOpen = True
End Sub
------------------------------------
Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
  Case comEvReceive
  '这一段该如何写

  End Select
End Sub


谢谢了!

[解决办法]
http://www.vbgood.com/thread-83700-1-1.html

热点排行