如何用Excel VBA编程 串口 发送及接收命令

硅谷少年

B.L 发表于 2015-9-1 17:29
在论坛里磨了几天，找到一个这个的模板，但是在  “'*****************这里总是不成功******************** ...

感谢分享，配合VSPD虚拟串口，测试成功，非常方便！

sunhhj

大虾们：请问下，vb代码可以直接用在vbal里面吗？

硅谷少年

注意！COM10及以上要这样写：
hComm = CreateFile("\\.\COM" & lComPort, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
这坑让我差点没爬出来，网上看了好多教程挨个试才试出来。。。花了一两个小时。。。

向東

硅谷少年 发表于 2018-9-19 18:34
注意！COM10及以上要这样写：
hComm = CreateFile("\\.\COM" & lComPort, GENERIC_READ Or GENERIC_WRITE, ...

这种软硬件结合的VBA代码比较难理解

硅谷少年

B.L 发表于 2015-9-1 17:29
在论坛里磨了几天，找到一个这个的模板，但是在  “'*****************这里总是不成功******************** ...

Sub Main()
    Dim hComm As Long
    Dim szTest As String
    Dim rg As Range
    Dim GET1 As String
    Dim SEND1 As String
   
    '打开串口1
    hComm = OpenComm(3)
    If hComm <> 0 Then
        '设置串口通讯参数
        SetCommParam hComm
        '设置串口超时
        SetCommTimeOut hComm, 2, 3
        
        
        For Each rg In Range("C3:C6")
        
            GET1 = BytesToString(ReadComm(hComm))
            GET1 = "--"
            SEND1 = rg.Offset(0, -1).Value
            WriteComm hComm, StringToBytes(SEND1)
            Sleep 50
             '读串口
            GET1 = BytesToString(ReadComm(hComm))
'            Debug.Print GET1
            rg.Offset(0, 1).Value = GET1
            'If rg.Value = GET1 Then
            'If InStr(GET1, rg.Value) = 0 Then
            If rg.Value2 Like Left(GET1, Len(GET1) - 1) Then '*****************这里总是不成功*********************
            rg.Offset(0, 2).Value = "OK"
            Else
            rg.Offset(0, 2).Value = "NG"
            End If
        Next
               
    CloseComm hComm
    End If
    CloseComm hComm
End Sub

我改成这样对了。GET1多了个发送结束的字符在最后。

硅谷少年

Function StringToBytes1(str$) As Byte()
    If Len(str) > 0 Then
        Dim arr() As Byte, b&, i&
        b = Len(str) / 2
        ReDim arr(b - 1)
        For i = 1 To b
           arr(i - 1) = "&H" & Mid(str, i * 2 - 1, 2)
        Next
    End If
    StringToBytes1 = arr
End Function

原有代码中StringToBytes是以ascii方式发送的，我这边设备协议中要求以HEX方式发送，于是我改写了这个函数，亲测OK。

lukeluckc

B.L 发表于 2015-9-1 17:29
在论坛里磨了几天，找到一个这个的模板，但是在  “'*****************这里总是不成功******************** ...

请问 这些代码如何使用 直接复制粘贴到VBE里吗？

lukeluckc

硅谷少年 发表于 2018-9-19 18:34
注意！COM10及以上要这样写：
hComm = CreateFile("\\.\COM" & lComPort, GENERIC_READ Or GENERIC_WRITE, ...

你好，能否帮忙看下这个帖子里的API例子为什么时好时坏呢？
http://club.excelhome.net/thread-1452444-1-1.html

592rmb

硅谷少年 发表于 2018-9-28 13:02
Function StringToBytes1(str$) As Byte()
    If Len(str) > 0 Then
        Dim arr() As Byte, b&, i& ...

请问能给个完整的例程吗？谢谢

硅谷少年

592rmb 发表于 2020-12-8 12:29
请问能给个完整的例程吗？谢谢

好的，我回头把我当时写的文件上传上来。其实纯vba写串口通讯太繁琐了，我后面更喜欢用python写串口收发，在vba里用shell命令调用。回头我也放上来。