I have 48 TextBoxes and i need to fill them with values, which i read from microcontroller throug uart. TextBoxes are named TextBox1 to TextBox48
I can write such code:

_serialPort.Write({255, 253, 1, 0}, 0, 4)
        TextBox1.Text = _serialPort.ReadByte

        _serialPort.Write({255, 253, 2, 0}, 0, 4)
        TextBox2.Text = _serialPort.ReadByte

        _serialPort.Write({255, 253, 3, 0}, 0, 4)
        TextBox3.Text = _serialPort.ReadByte
        ........

How can i loop throug them with FOR loop and fill bohes automatically. I am using visual basic 2010.

 

if you rename the textboxes
like TextBox1(i).text
u get

for i=0 to 47
_serialPort.Write({255, 253, i+1, 0}, 0, 4)
        TextBox1(i).Text = _serialPort.ReadByte

        next

 

If i rename My first textbox to TextBox1(i) visual basic says: "property value is not valid"

 

If i rename My first textbox to TextBox1(i) visual basic says: "property value is not valid"

Works fine i VB 6, Have not never version.
But i think it can be fixed.

 

    Dim i As UInteger

        For i = 1 To 2
            Me.Controls.Find("TextBox" + CStr(i), True)(0).Text = "Foo"

        Next

 

Great, it works! Thank you, Spinnaker. But can you explain your code a little?

 

Great, it works! Thank you, Spinnaker. But can you explain your code a little?

I think it would be better if you read the documentation for Control.ControlCollection.Find

 

i faced yet with one problem. I tried to read available com ports on my computer and place ports list in combo box. But i get error when reading them. There is the code:

Private Sub CheckPorts()
        Dim PortList() As String
        PortList = SerialPort.GetPortNames()
        Dim j As Byte = 0

        While j < 15
            If PortList(j) <> "" Then
                ComboBox5.Items.Add(PortList(j))
                If j = 0 Then
                    ComboBox5.Text = PortList(j)
                End If
            End If
            j = j + 1
        End While
    End Sub

visual basic gives error:
System.IndexOutOfRangeException was unhandled
Message=Index was outside the bounds of the array.
Troubleshooting tips:
Make sure that the maximum index on a list is less than the list sizeThe maximum index on a list must be less than the list size.
Make sure the index is not a negative number.This exception will be thrown if the index is less than zero.
Make sure data column names are correct.maybe someone could help me?

Here is error picture:
https://dl.dropboxusercontent.com/u/74736925/istrinti/visualBasicError.bmp

 

Do you know how to use your debugger? Microsoft has invested a lot of time into developing a debugger for a purpose.


They have also invested a lot of time into developing documentation and examples. Learn to use it.

http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.getportnames.aspx

Use both and when and only when you get more information and still can't solve the issue, ask your question.