Option Explicit
Dim inData As String
Dim arr() As Byte
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True
End Sub
Private Sub MsComm1_OnComm()
Dim intInputLen As Integer
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
intInputLen = MSComm1.InBufferCount
ReDim arr(intInputLen)
arr = MSComm1.Input
For i = 0 To UBound(arr)
If Len(Hex(arr(i))) = 1 Then
inData = inData & "0" & Hex(arr(i))
Else
inData = inData & Hex(arr(i))
End If
Next
Text2 = inData
End Select
End Sub
详细可参阅:
http://zhidao.baidu.com/question/57009544.html
http://zhidao.baidu.com/question/51386347.html
http://zhidao.baidu.com/question/43498047.html
有问题发消息.本回答被提问者采纳
.串口很简单的.
你可以留下你的邮箱或QQ我给你传过去一个源代码.
基本上一看就明白了.
怎样用VB实现RS232接口通信
VB可以使用MsComm控件来实现串口通信。MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm 控件提供下列两种处理通讯的方式：事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在 Carrier Detect (CD) 或 Request To Send (RT...
vb 与RS-232的通讯
给出在Win2000下利用VB6.0的MSComm控件开发计算机与一智能采集模块进行串行通信的程序实现。在工控领域内，智能采集模块有着相当重要的地位，它可以通过串口通讯协议（RS232、RS485等）或其他通讯协议与PC机相连，并与外界现场信号直接相连或与由传感器转换过的外界信号相连，由PC机中的程序控制并实现采集现场...
VB中用RS232与仪器通信,校验码怎么写,看不懂了
243转为16进制是&HF3 &HF3 Or &H80 = &HF3 所以校验码就是&HF3（即0xF3）+0,"No error"的累加和是&H3D2 (&H3D2 Or &H80) And &HFF = &HD2
VB中mscomm控件如何实现与下位机的RS232接口通信.
mscomm1.output=Your_data_output 在 mscomm 的 OnComm 事件 里接收 Your_data_input=mscomm1.input 推荐看书 Visual_Basic与_RS-232_串行通信控制
用VB编写一个与RS232有关的测试程序
VB 6.0的测试代码如下： 可以做参考,用MSComm1控件 Dim i As Integer Dim a As Integer Dim t() As Byte Private Sub Command1_Click()If Command1.Caption = "打开串口" Then 'Shape1.Visible = True Shape1.FillColor = &HFF& Shape1.BackColor = &HFF& Shape1.BorderColor = &HFF&...
如何用vb做一个向RS232串口发送数据的程序?
VB 串口 当然是 mscomm控件，还有 定时器 推荐 入门经典书籍 Visual_Basic与_RS-232_串行通信控制 有 pdf 电子文档
我现在在用VB6.0做一个简单的传输试验。把RS232串口的传输线2脚与3脚...
调试VB 程序不难的 Buf = Buf + Hex(InByte(I) + Chr(32)) --》改为 Buf = Buf & Hex(InByte(I) & Chr(32))Text2.Text = Buf --> Text2.Text = Text2.Text & Buf 试试看
VB_RS232 从VB界面直接发送二进制序列,而不是十六制,应该怎么处理_百度...
二进制=> 十六进制=>变为BYTE型数组=>发送 接受=>BYTE型数组=>十六进制=> 二进制 当然你也可以省略十六进制的步骤 一PC托服多外围设备的时候需要多mscomm 比较我一台PC要同时和3台数据采集终端串口通信的时候。
VB 6.0 MSCOMM串口通讯的问题
使用RS232口连接，电脑的RS232口与下位机的RS232口谅解方式：2-3 3-2 交叉连接 各自口的 4-6 7-8 短接 你发送须按BYTE数组执行，代码如下供参考：根据你发的协议询问命令有修改 Option Explicit Dim strData As String Private Sub Command1_Click() '采用二进制发送 Dim strSj(3) As Byte ...
vb串口通信协议
电脑和下位机通讯，可通过RS232或485串口实现。具体命令需参照单片机接受指令类型，通过串口发送至单片机，单片机接收后执行对应操作。RS232操作相对简单，若需指定命令及发送方式，可联系我，我将提供帮助。在电脑与下位机通讯中，选择RS232或485串口均是可行方案。关键在于确定单片机接收指令的类型，然后通过...
