vb 波特率设置

2008-09-30 01:42:51 208 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32H750VB FDCAN高速通信实战配置指南本文详细介绍了STM32H750VB FDCAN高速通信的实战配置指南，包括从传统CAN到FDCAN的升级必要性、CubeMX基础配置、波特率计算、中断与FIFO高级配置以及数据收发实战代码。FDCAN支持最高10Mbps的通信速率，适用于电机控制、传感器数据采集等高频传输场景。阅读详情

想做一个串口测试的软件，用MSCcomm控件，在属性框//Settings里面设置波特率，xxxx，n，8，1 但是这样的话只能是设置好的xxxx的值。我想做一个列表框，可以根据自己的需要来选择所需要的波特率，不知道该怎么实现？在程序里面编程来实现Settings里的设置该怎么做？？

...全文

VB6使用API实现串口通信需要和客户的产品通讯，但波特率是非常规的，MScomm无法实现，原有的软件框架和条件又不能转用VC开发底层，于是用VB6调用API实现了这个通讯功能，虽然在VB6下这个程序还是单进程的，但实现了异步非阻塞的通信，性能相当稳定，下面是测试程序代码 Private Sub cmdSend_Click()Sub cmdSend_Click() 定义文件读写属性结构 Di 阅读详情

juniosan01

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

wangyabo2010 2011-06-03

打赏
举报

学习一下·····

zdingyun 2008-09-30

打赏
举报

[Quote=引用 4 楼 juniosan01 的回复:]
每次提问你都这么认真的回答分给你了啦
[/Quote]
练脑

juniosan01 2008-09-30

打赏
举报

每次提问你都这么认真的回答分给你了啦

zdingyun 2008-09-30

打赏
举报

CSDN出毛病了,贴了3次.

zdingyun 2008-09-30

打赏
举报

Option Explicit

    Dim btl As Long

    Dim jyw As String

    Dim sjw As String

    Dim tzw As String



Private Sub Command1_Click()

    MSComm1.Settings = btl & "," & jyw & "," & sjw & "," & tzw

    If MSComm1.PortOpen = False Then

        MSComm1.PortOpen = True

        Print MSComm1.Settings

    End If

End Sub



Private Sub Form_Load()

    List1.AddItem 2400 ' 添加波特率

    List1.AddItem 4800

    List1.AddItem 9600

    List1.AddItem 19200

    List2.AddItem "N"

    List2.AddItem "E"

    List2.AddItem "O"

    List3.AddItem "7"

    List3.AddItem "8"

    List4.AddItem "1"

    List4.AddItem "1.5"

    List4.AddItem "2"

End Sub



Private Sub List1_Click()

    btl = List1

End Sub



Private Sub List2_Click()

    jyw = List2

End Sub

Private Sub List3_Click()

    sjw = List3

End Sub

Private Sub List4_Click()

    tzw = List4

End Sub

zdingyun 2008-09-30

打赏
举报

Option Explicit

    Dim btl As Long

    Dim jyw As String

    Dim sjw As String

    Dim tzw As String



Private Sub Command1_Click()

    MSComm1.Settings = btl & "," & jyw & "," & sjw & "," & tzw

    If MSComm1.PortOpen = False Then

        MSComm1.PortOpen = True

        Print MSComm1.Settings

    End If

End Sub



Private Sub Form_Load()

    List1.AddItem 2400 ' 添加波特率

    List1.AddItem 4800

    List1.AddItem 9600

    List1.AddItem 19200

    List2.AddItem "N"

    List2.AddItem "E"

    List2.AddItem "O"

    List3.AddItem "7"

    List3.AddItem "8"

    List4.AddItem "1"

    List4.AddItem "1.5"

    List4.AddItem "2"

End Sub



Private Sub List1_Click()

    btl = List1

End Sub



Private Sub List2_Click()

    jyw = List2

End Sub

Private Sub List3_Click()

    sjw = List3

End Sub

Private Sub List4_Click()

    tzw = List4

End Sub

zdingyun 2008-09-30

打赏
举报

Option Explicit

    Dim btl As Long

    Dim jyw As String

    Dim sjw As String

    Dim tzw As String



Private Sub Command1_Click()

    MSComm1.Settings = btl & "," & jyw & "," & sjw & "," & tzw

    If MSComm1.PortOpen = False Then

        MSComm1.PortOpen = True

        Print MSComm1.Settings

    End If

End Sub



Private Sub Form_Load()

    List1.AddItem 2400 ' 添加波特率

    List1.AddItem 4800

    List1.AddItem 9600

    List1.AddItem 19200

    List2.AddItem "N"

    List2.AddItem "E"

    List2.AddItem "O"

    List3.AddItem "7"

    List3.AddItem "8"

    List4.AddItem "1"

    List4.AddItem "1.5"

    List4.AddItem "2"

End Sub



Private Sub List1_Click()

    btl = List1

End Sub



Private Sub List2_Click()

    jyw = List2

End Sub

Private Sub List3_Click()

    sjw = List3

End Sub

Private Sub List4_Click()

    tzw = List4

End Sub

vb 波特率设置

相关推荐