• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 149
  • Last Modified:

For Loop doesn;t reference the correct object

I have an arraylist that is created with a variable number of CurrCOMPort

When I go into the SendRequestCommand() sub I always seem to have my indicatorPort referencing to my last added in  CurrCOMPort #.

How Can I ahve it so that it loops through all comport and the indicatorPort refences the correct serial object?
Private WithEvents IndicatorPort As IO.Ports.SerialPort
 Public Sub Indicator_COM()
        Dim intloop As Integer
        'Dim IndicatorCOMPort As String
        For intloop = 0 To ActiveCOM.Count - 1
            IndicatorPort = New IO.Ports.SerialPort
            IndicatorPort.PortName = "COM" & ActiveCOM(intloop)
            IndicatorPort.BaudRate = 57600
            IndicatorPort.DataBits = 8
            IndicatorPort.Parity = IO.Ports.Parity.None
            IndicatorPort.StopBits = IO.Ports.StopBits.One
            IndicatorPort.Open()
            CurrCOMPort.Add(IndicatorPort)
        Next
    End Sub
 
 
 Public Sub SendRequestCommand()
        Dim intloop As Integer
        For intloop = 0 To CurrCOMPort.Count - 1
            IndicatorPort.Write("[REQ]")
        Next
 
    End Sub

Open in new window

0
cmdolcet
Asked:
cmdolcet
1 Solution
 
grayeCommented:
Wow... that shouldn't have even compiled.
Use this:
        For intloop = 0 To CurrCOMPort.Count - 1
            IndicatorPort = CurrCompPort.Item(intloop)
            IndicatorPort.Write("[REQ]")
        Next
 
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now