using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Hippo;
namespace StackedRealTest
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.StackedColumn;
sList.StackType = StackType.FullStacked;
Random r = new Random();
for(int i = 0; i < 2; i++)
{
Series sr = new Series();
for(int x = 0; x < 2; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = 0;
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
this.timer1.Interval = 1000;
this.timer1.Start();
}
private void timer1_Tick(object sender, EventArgs e)
{
Random R = new Random();
this.hHippoChart1.SeriesListDictionary[0].SeriesCollection[0].items[0].YValue = R.Next(78);
this.hHippoChart1.SeriesListDictionary[0].SeriesCollection[1].items[0].YValue = R.Next(34);
this.hHippoChart1.SeriesListDictionary[0].SeriesCollection[0].items[1].YValue = R.Next(232);
this.hHippoChart1.SeriesListDictionary[0].SeriesCollection[1].items[1].YValue = R.Next(23);
this.hHippoChart1.DrawChart();
}
}
}
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports Hippo
Namespace StackedRealTest
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim sList As New. SeriesList()
sList.ChartType = ChartType.StackedColumn
sList.StackType = StackType.FullStacked
Dim r As New. Random()
For i As Integer = 0 To 1
Dim sr As New. Series()
For x As Integer = 0 To 1
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = 0
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()
Me.timer1.Interval = 1000
Me.timer1.Start()
End Sub
Private Sub timer1_Tick(sender As Object, e As EventArgs)
Dim R As New. Random()
Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items(0).YValue = R.[Next](78)
Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(1).items(0).YValue = R.[Next](34)
Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items(1).YValue = R.[Next](232)
Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(1).items(1).YValue = R.[Next](23)
Me.hHippoChart1.DrawChart()
End Sub
End Class
End Namespace