1、MSCOMM 控件在 VB 中發送十六進制數據的方法2006-4-1316:39:28|By:MCUBLOG 推 薦一、初始化配置Private Sub Form_Load(-With MSComm1If .PortOpen =True Then.PortOpen =FalseEnd If.CommPort =4使用 COM1.Settings =BaudRate &,n,8,1 設置通信口參數.InBufferSize =1024設置 MSComm1 接收緩沖區為 1024 字節.OutBufferSize =1024設置 MSComm1 發送緩沖區為 1024 字節.InputMode =

2、comInputModeBinary 設置接收數據模式為二進制形式-.InputLen =0設置 Input 一次從接收緩沖讀取全部字節數.SThreshold =0設置發送完所有產生OnComm 事件.InBufferCount =0 清除接收緩沖區.OutBufferCount =0清除發送緩沖區.RThreshold =1設置接收一個字節產生OnComm 事件 .RTSEnable =True-If Not .PortOpen Then 判斷通信口是否打開On Error Resume Next.PortOpen =True 打開通信口If Err Then 錯誤處理MsgBox 串口被

3、占用或此串口不存在!通信無效 !, 16, 錯誤提示 Exit SubEnd IfEnd IfEnd WithEnd Sub注意 :數據收發模式為.InputMode =comInputModeBinary 設置接收數據模式為二進制形式 二、發送一個字節的16 進制數據Dim aa(0As Byteaa(0=&HAAMSComm1.Output =aa三、接收數據 (事件方式Private Sub MSComm1_OnComm(On Error Resume NextDim inData As String 串口接收的數據Dim InByte(As Byte 定義一個二進制指針放接收到的數據D

4、im inByte1(As ByteSelect Case MSComm1.CommEvent選擇事件Case comEvReceive接收到字符TimeNum =4- 賦值計時常量InByte =MSComm1.Input 數據轉移到指針 Serial_Rece_Fg=TrueDim j As LongFor j =0To UBound(InByte 循環到指針上標If InByte(j=13TheninData =inData &vbCr LfElseinData =inData &Chr(InByte(j-ascii 碼顯示處理End IfNext jTxt_Rcv.SelText=inData 將剛收到的字符串顯示出來inData =Txt_Rcv.SelStart=Len(Txt_Rcv.Text光標置后Case comEventRxOver - 接收緩沖區滿的