Tweet

prednisolone cost buy prednisolone buy antibiotic online buy amoxicillin australia open buy antibiotic online prednisolone pharmacy prednisolone pharmacy online prednisolone weight gain accutane without side effects accutane without blood tests buy naltrexone canada where can i buy low dose naltrexone jerryhuang.net naltrexone buy online canada buy sertraline buy zoloft online abortion in philippines order abortion pill philippines 컬럼, 피라미드, 온도계형 게이지의 혼합형 차트

              

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Column;

sList.AxisFactor.YAxis.TitleLabel.Text = "y axis title";
sList.AxisFactor.XAxis.TitleLabel.Text = "x axis title";

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "Serie" + i.ToString();
sr.Column.WidthType = ColumnWidthType.Tight;

for(int x = 0; x < 10; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(50);

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Pylamid;
sList2.IsShow3D = true;
sList2.Transparency = 55;

for(int i = 0; i < 2; i++)
{
Series sr = new Series();
sr.Name = "Serie" + i.ToString();

if (i == 1)
{
sr.ChartType = ChartType.Gauge;
sr.Gauge.ShapeType = ShapeType.Thermometer;
sr.SeriesColor = Color.Red;
sr.Name = "℃";
}

for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(100);

sr.items.Add(item);
}
sList2.SeriesCollection.Add(sr);
}

this.hHippoChart1.Direction = GraphAreaLocation.Vertical;

this.hHippoChart1.PaletteType = PaletteType.Sky;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Column

sList.AxisFactor.YAxis.TitleLabel.Text = "y axis title"
sList.AxisFactor.XAxis.TitleLabel.Text = "x axis title"

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "Serie" & i.ToString()
sr.Column.WidthType = ColumnWidthType.Tight

For x As Integer = 0 To 9
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](50)

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Pylamid
sList2.IsShow3D = True
sList2.Transparency = 55

For i As Integer = 0 To 1
Dim sr As New. Series()
sr.Name = "Serie" & i.ToString()

If i = 1 Then
sr.ChartType = ChartType.Gauge
sr.Gauge.ShapeType = ShapeType.Thermometer
sr.SeriesColor = Color.Red
sr.Name = "℃"
End If

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](100)

sr.items.Add(item)
Next
sList2.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.Direction = GraphAreaLocation.Vertical

Me.hHippoChart1.PaletteType = PaletteType.Sky
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()