vb 波特率设置

juniosan01 2008-09-30 01:42:51

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

...全文

151 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

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