嵌套 For Next 循环问题。使用结果的每个成员绘制图表

Question

我有 2 个For Next 循环用于将结果发送到Chart。但是，系列线很混乱。

我了解问题，但找不到解决方案。 Chart 显示所有点，但我需要将第一个迭代点匹配在一起，第二个迭代点匹配在一起......等等。

代码如下：

Dim i as integer
Dim n as integer
Dim speed as decimal
Dim horsepower as decimal

For i=1 to 30 Step 2
    For n=1 to 20 Step 1

        Dim power as label=CType(GroupBox1.Controls("Label"&n),Label)

        Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&i),Textbox)

        horsepower=Val(power.text)*3.14

        speed=Val(txt.Text)*3*5

        ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

    Next

Next

我需要画 (x,y) (horsepower1,speed1),(horsepower2,speed2)...等。不是 (horsepower1,speed2), (horsepower1,speed3)

Answer 1

它们不能全部匹配，因为您有 15 速文本框和 20 马力标签。但是如果你想用前 15 个来做，你必须用一个循环来做。

For i=1 to 15

   Dim power as label=CType(GroupBox1.Controls("Label"&i),Label)
   Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&(i*2-1)),Textbox)

   horsepower=Val(power.text)*3.14
   speed=Val(txt.Text)*3*5

   ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

Next

如果您有不同的起始索引，则必须将其保存在变量中。

' First matching index
Dim labelIndex As Integer = 1
Dim textboxIndex As Integer = 1

For i=1 to 15

   Dim power as label=CType(GroupBox1.Controls("Label"&labelIndex),Label)
   Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&textboxIndex),Textbox)

   horsepower=Val(power.text)*3.14
   speed=Val(txt.Text)*3*5

   ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

   ' Go to the next matching index
   labelIndex += 1
   textboxIndex += 2
Next