Tweet

Buy Amoxicillin uk buy amoxicillin amazon mytitledirect.com amoxicillin 500 mg capsules accutane without gelatin accutane without birth control link accutane without side effects nerve pain in tooth amitriptyline nerve pain amitriptyline buy prednisolone for dogs buy prednisolone 5mg tablets uk read here buy prednisolone acetate eye drops prednisolone pharmacy buy prednisolone 25mg tablets 실시간 차트는 DrawRealTimeChart 메소드를 지원하지만 반드시 이 메소드를 이용해야하는 것은 아닙니다. 아래의 코드를 테스트 해보시기 바랍니다.

            

C#

 
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();
}

VB

 
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