我可以在vb中创建一系列串口吗?

时间:2011-06-06 18:33:38

标签: vb.net visual-studio serial-port

我是Visual Basic(VB)的新手,但我已经运行了代码来访问我的所有串口。问题是我想将多个串口加载到一个数组中并在我的函数中循环它们。该程序允许我创建ports(),但是当我尝试填充它时失败。

Dim ports As IO.Ports.SerialPorts()
ports(0) = SerialPort1

其中SerialPort1是我从Visual Studio工具箱中删除的对象。

1 个答案:

答案 0 :(得分:1)

我会使用List(of):

    Dim Ports As New List(Of IO.Ports.SerialPort)

    Dim newport1 As New IO.Ports.SerialPort
    newport1.PortName = "COM1"

    Dim newport2 As New IO.Ports.SerialPort
    newport2.PortName = "COM2"

    Ports.Add(newport1)
    Ports.Add(newport2)

    'later in code, handle all ports with index in the Ports-list
    Ports(0).Open() 'open port1
    Ports(1).Open() 'open port2

或略有不同的方式:

    Dim Ports As New List(Of IO.Ports.SerialPort)

    Ports.Add(New IO.Ports.SerialPort)
    Ports.Add(New IO.Ports.SerialPort)

    'later in code, handle all ports with index in the Ports-list
    Ports(0).PortName = "COM1"
    Ports(0).Open()

    Ports(1).PortName = "COM2"
    Ports(1).Open()