Tweet

buy prednisolone 5mg tablets uk prednisolone without prescription amoxil classification amoxil suspension buy tamoxifen citrate uk tamoxifen buy sertaline usa buy sertraline abortion philippines abortion pill philippines 파이 그래프 2개를 구성하여 제목을 붙여서 비교하는 그래프를 작성하는 방법을 알아봅니다. 시리즈리스트의 GraphTitle 을 이용해서 타이틀을 달 수 있고 글자 크기에 위치를 조정할 수 있습니다. 또한, 이 코드에서는 아래의 내용이 같이 포함되어 있습니다. - 범례 위치 조절 - 범례 자동 구분 - 파이 투디멘션 형태로 그리기 - 적절한 마진 주기

                  

C#

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

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Pie;

sList.GraphTitle.Label.Text = "내부 서버 1";
sList.GraphTitle.Label.Font = new Font("Tahoma", 15, FontStyle.Bold);
sList.GraphTitle.TitleAlign = StringAlignment.Center;
sList.GraphTitle.Label.ForeColor = Color.Red;

sList2.GraphTitle.Label.Text = "외부 서버 2";
sList2.GraphTitle.Label.Font = new Font("Tahoma", 15, FontStyle.Bold);
sList2.GraphTitle.TitleAlign = StringAlignment.Center;
sList2.GraphTitle.Label.ForeColor = Color.Red;

sList.Margin = 50;
sList2.Margin = 50;

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

sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer;
sr.UnAxisFactor.PieTypes = PieType.TwoDemention;
sr.UnAxisFactor.UnAxisDisplayItemType = UnAxisDisplayItemType.Figure_Name;

for(int x = 0; x < 8; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.IsShowFigureText = true;

item.YValue = r.Next(99);

sr.items.Add(item);
}

if (i == 0) sList.SeriesCollection.Add(sr);
if (i == 1) sList2.SeriesCollection.Add(sr);
}

this.hHippoChart1.Designer.InnerBackColor = Color.AliceBlue;
this.hHippoChart1.Titles.Label.Text = "2015년 6월 사내 Private Server Monitoring Test";
this.hHippoChart1.LegendBox.TopMargin = this.hHippoChart1.Height / 8;
this.hHippoChart1.LegendBox.IsDivideLine = true;
this.hHippoChart1.LegendBox.Visible = true;
this.hHippoChart1.Direction = GraphAreaLocation.Horizontal;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();

VB

 

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

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Pie

sList.GraphTitle.Label.Text = "내부 서버 1"
sList.GraphTitle.Label.Font = New Font("Tahoma", 15, FontStyle.Bold)
sList.GraphTitle.TitleAlign = StringAlignment.Center
sList.GraphTitle.Label.ForeColor = Color.Red

sList2.GraphTitle.Label.Text = "외부 서버 2"
sList2.GraphTitle.Label.Font = New Font("Tahoma", 15, FontStyle.Bold)
sList2.GraphTitle.TitleAlign = StringAlignment.Center
sList2.GraphTitle.Label.ForeColor = Color.Red

sList.Margin = 50
sList2.Margin = 50

Dim r As New. Random()
For i As Integer = 0 To 1
Dim sr As New. Series()
sr.Name = "Pie" + i.ToString()

sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer
sr.UnAxisFactor.PieTypes = PieType.TwoDemention
sr.UnAxisFactor.UnAxisDisplayItemType = UnAxisDisplayItemType.Figure_Name

For x As Integer = 0 To 7
Dim item As New. SeriesItem()
item.Name = "item" + x.ToString()
item.IsShowFigureText = True

item.YValue = r.[Next](99)

sr.items.Add(item)
Next

If i = 0 Then
sList.SeriesCollection.Add(sr)
End If
If i = 1 Then
sList2.SeriesCollection.Add(sr)
End If
Next

Me.hHippoChart1.Designer.InnerBackColor = Color.AliceBlue
Me.hHippoChart1.Titles.Label.Text = "2015년 6월 사내 Private Server Monitoring Test"
Me.hHippoChart1.LegendBox.TopMargin = Me.hHippoChart1.Height / 8
Me.hHippoChart1.LegendBox.IsDivideLine = True
Me.hHippoChart1.LegendBox.Visible = True
Me.hHippoChart1.Direction = GraphAreaLocation.Horizontal
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()