afshin62
دوشنبه 07 تیر 1389, 18:12 عصر
با سلام
من میخوام با استفاده از Chart control داده های یک آرایه دوبعدی رو رسم کنم. من با استفاده از کد زیر می تونم نمودار موجود در پیوست رو بکشم ولی یکسری خطوط اضافه مطابق با شکل کشیده میشه. کسی می تونه توی این مشکل کمکم کنه.
ReDim dataGraph(2, UPPER + 1)
Chart1.Series.Add("Series1")
Chart1.Series.Add("Series2")
Chart1.Series.Add("Series3")
'eachpart is the result of multiple statistical calculation
dataGraph(LL - 1, TT) = eachpart 'TT is the counter in a for loop
Chart1.Series("Series1").Points.AddXY(TT, dataGraph(0, TT))
Chart1.Series("Series2").Points.AddXY(TT, dataGraph(1, TT))
Chart1.Series("Series3").Points.AddXY(TT, dataGraph(2, TT))
'to picture all series
Chart1.Series("Series1").ChartType = SeriesChartType.Line
Chart1.Series("Series2").ChartType = SeriesChartType.Line
Chart1.Series("Series3").ChartType = SeriesChartType.Line
من میخوام با استفاده از Chart control داده های یک آرایه دوبعدی رو رسم کنم. من با استفاده از کد زیر می تونم نمودار موجود در پیوست رو بکشم ولی یکسری خطوط اضافه مطابق با شکل کشیده میشه. کسی می تونه توی این مشکل کمکم کنه.
ReDim dataGraph(2, UPPER + 1)
Chart1.Series.Add("Series1")
Chart1.Series.Add("Series2")
Chart1.Series.Add("Series3")
'eachpart is the result of multiple statistical calculation
dataGraph(LL - 1, TT) = eachpart 'TT is the counter in a for loop
Chart1.Series("Series1").Points.AddXY(TT, dataGraph(0, TT))
Chart1.Series("Series2").Points.AddXY(TT, dataGraph(1, TT))
Chart1.Series("Series3").Points.AddXY(TT, dataGraph(2, TT))
'to picture all series
Chart1.Series("Series1").ChartType = SeriesChartType.Line
Chart1.Series("Series2").ChartType = SeriesChartType.Line
Chart1.Series("Series3").ChartType = SeriesChartType.Line