vb如何使用串口通讯
用PC机的9针RS232接口,用VB6 含有的MSComm 控件编程两台PC机串行通信串行口的接线图: '=============================='PC机串行口用命令按钮启动接收/发送VB程序Private Sub Form_Load() MSComm1.PortOpen = True '开启通信控件的端口End Sub'点击“发送”命令按钮发送数据Private Sub Command1_Click() MSComm1.Output = Text1.Text '将文本框Text1的数据发送至对方End Sub'点击“接收”命令按钮接收数据Private Sub Command2_Click() Dim st As String st = MSComm1.Input Text2.Text = st '将接收到的数据至入文本框Text2End Sub '==============================’PC机串行口定时自动接收/发送VB程序Private Sub Form_Load() MSComm1.PortOpen = True '开启通信控件的端口 Timer1.Interval = 100 ’自动传送时间间隔100毫秒End SubPrivate Sub MSComm1_OnComm() Dim st As String If MSComm1.InBufferCount > 0 Then st = MSComm1.Input Text2.Text = st '将收到的数据放入Text2文本框 End IfEnd SubPrivate Sub Timer1_Timer() MSComm1.Output = Text1.Text '发送Text1文本框内容End Sub
用VBA可以进行串口通讯吗?如果可以的话,该怎么实现,多谢大侠赐教!!
以两台PC机串行通信为例:一.将两台PC机串行口的连接(如图) 二.建立VB工程1.在VB窗体添加控件(如图)2.VB编程:'PC机串行口用命令按钮启动接收/发送VB程序 Private Sub Form_Load() MSComm1.PortOpen = True '开启通信控件的端口End Sub '点击“发送”命令按钮发送数据Private Sub Command1_Click() MSComm1.Output = Text1.Text '将文本框Text1的数据发送至对方End Sub'点击“接收”命令按钮接收数据Private Sub Command2_Click() Dim st As String st = MSComm1.Input Text2.Text = st '将接收到的数据至入文本框Text2End Sub 三.运行
vb串口通信程序实例
我也是自己摸索开发出来的每一款VBtoCOM通讯,有具体的思路如下:给你推荐一个工具“com串口测试工具 ComTone V1.0 中文绿色版”1、打开你的噪音计的测试软件,调整好串口号、通讯频率等等,我用温度计举例说明。开始查询后有返回数值,这个Receive:就是返回的数值000304012200004b05,打开串口监视精灵,监视软件的com口事件:这里面的Write是测试软件发出的查询指令,read是设备返回的数据指令Private Sub Command1_Click() '发送指令If Not MSComm1.PortOpen Then MSComm1.CommPort = 7 '串口为7 MSComm1.Settings = "9600,n,8,1" MSComm1.InBufferCount = 0 '清除接收缓冲区 MSComm1.OutBufferCount = 0 '清除发送缓冲区 MSComm1.InputMode = comInputModeBinary '二进制接收 MSComm1.InputLen = 0 '读取接收缓冲区的所有字符 MSComm1.PortOpen = True '打开串口 MSComm1.RTSEnable = False '置为发送状态End IfDim pu() As ByteDim strdata As StringDim crc_js() As ByteReDim pu(7) '这个数组是8位的查询指令pu(0) = "&H00" '温度计地址pu(1) = "&H03" '查询指令pu(2) = "&H00" '2、3为温度计地址pu(3) = "&H00" '2、3为温度计地址pu(4) = "&H00" '4、5为读取寄存器长度pu(5) = "&H02" '4、5为读取寄存器长度pu(6) = "&HC5" '6、7为CRC校验码 因为我们不知道设备的CRC校验规则所以用测试软件产生的校验码pu(7) = "&HDA" '6、7为CRC校验码MSComm1.Output = pu'不做任何事情,仅仅允许其它应用程序处理它们的事件。DoEventsMSComm1.InBufferCount = 0 '清除接收缓冲区MSComm1.RThreshold = 9 '所要接收的数据长度,我们通过COM检测精灵看到了回传数据一共是9字节MSComm1.RTSEnable = True '转为接收状态End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) If MSComm1.PortOpen Then MSComm1.PortOpen = False '关闭串口 End If Timer1.Enabled = FalseEnd SubPrivate Sub MSComm1_OnComm() 'COM事件 Dim PA() As Byte Dim PB As StringSelect Case MSComm1.CommEvent Case comEvReceive MSComm1.InputLen = 0 '读取接收缓冲区的所有字符 PB = MSComm1.Input PA() = PB For i = 0 To UBound(PA()) 'Print "PA(" & i & ")"; PA(i) If Len(Hex(PA(i))) = 1 Then strdata = strdata & "0" & Hex(PA(i)) Else strdata = strdata & Hex(PA(i)) End If Next '回传的数据串:000304012600000AC4,这9字节根据通讯协议我们进行拆分 '00为协议内回传机号,03为读命令,04为返回的数据长度 0126 为我要的温度数据为十六进制表达,下面我进行数据处理 wd = CLng("&H" & Left(Right(strdata, 12), 4)) / 10 & "℃" '根据通讯协议换算成温度 Text1 = Text1 & vbCrLf & strdata & " " & wd strdata = "" MSComm1.PortOpen = False '关闭串口 End SelectEnd SubPrivate Sub Timer1_Timer()Call Command1_ClickEnd Sub这是我的测试结果。下面是通讯协议这个是我的软件用检测精灵检测的结果