private void Form1_Load(object sender, EventArgs e)
{
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.StackedSpline;
Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.AreaType = AreaType.CurvedArea;
sr.Line.LineWidth = 3;
sList.SeriesCollection.Add(sr);
}
this.sHippoChart1.SeriesListDictionary.Add(sList);
this.sHippoChart1.DrawChart();
this.timer2.Interval = 200;
this.timer2.Start();
}
private void timer2_Tick(object sender, EventArgs e)
{
if (this.sHippoChart1.SeriesListDictionary[0].SeriesCollection[0].items.Count > 11)
{
this.sHippoChart1.SeriesListDictionary[0].SeriesCollection[0].items.RemoveAt(0);
}
SeriesItem item = new SeriesItem();
item.Name = DateTime.Now.Second.ToString();
item.YValue = new Random().Next(90);
this.sHippoChart1.SeriesListDictionary[0].SeriesCollection[0].items.Add(item);
this.sHippoChart1.DrawChart();
}
Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim sList As New. SeriesList()
sList.ChartType = ChartType.StackedSpline
Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.AreaType = AreaType.CurvedArea
sr.Line.LineWidth = 3
sList.SeriesCollection.Add(sr)
Next
Me.sHippoChart1.SeriesListDictionary.Add(sList)
Me.sHippoChart1.DrawChart()
Me.timer2.Interval = 200
Me.timer2.Start()
End Sub
Private Sub timer2_Tick(sender As Object, e As EventArgs)
If Me.sHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items.Count > 11 Then
Me.sHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items.RemoveAt(0)
End If
Dim item As New. SeriesItem()
item.Name = DateTime.Now.Second.ToString()
item.YValue = New Random().[Next](90)
Me.sHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items.Add(item)
Me.sHippoChart1.DrawChart()
End Sub