Tweet

buy amoxicillin for cats online amoxicillin sildenafil buy viagra online uk buy viagra gel why does erectile dysfunction happen online buy viagra online cheap buy naltrexone online cheap buy low dose naltrexone canada poisel.cz naltrexone buy online coronavirus pregnancy nhs coronavirus pregnancy buy abortion pill philippines abortion pill philippines buy antibiotic online buy amoxicillin australia blog.zycon.com buy amoxicillin uk 바차트를 이용하여 인구 조사 차트를 그리는 팁입니다.

          

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Bar;
sList.AxisFactor.Orientation = AxisOrientation.BottomRight;

sList.GraphArea.Grid.GridDirection = GridDirection.None;

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "여";

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

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

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Bar;
sList2.GraphArea.Grid.GridDirection = GridDirection.None;

for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "남";
sr.ChartType = ChartType.Bar;
sr.SeriesColor = Color.Blue;

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

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

this.hHippoChart1.DesignType = ChartDesignType.None;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();

this.hHippoChart1.SetThemeSeries(Color.Black);

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Bar
sList.AxisFactor.Orientation = AxisOrientation.BottomRight

sList.GraphArea.Grid.GridDirection = GridDirection.None

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "여"

For x As Integer = 0 To 19
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

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

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Bar
sList2.GraphArea.Grid.GridDirection = GridDirection.None

For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "남"
sr.ChartType = ChartType.Bar
sr.SeriesColor = Color.Blue

For x As Integer = 0 To 19
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

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

Me.hHippoChart1.DesignType = ChartDesignType.None
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()

Me.hHippoChart1.SetThemeSeries(Color.Black)