태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

티스토리 툴바

Daum
Tistory
로그인

[Tip] 차트 구간 확대 기능 만들기

HippoChart/Tips 2009/09/23 14:00


C#

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

            AxisArea ar = new AxisArea("", 1000, 2000);
            ar.BackColor = Color.FromArgb(40, Color.SteelBlue);
            ar.LegendVisible = false;
            sList.AxisFactor.YAxis.Areas.Add(ar);  //.. 영역마커를 하나 만들고 두개의 시리즈리스트에 동시에 추가합니다.

            SeriesList sList2 = new SeriesList();
            sList2.AxisFactor.YAxis.SetAxisStep(1000, 2000, 500);  //.. 여기서 수동 조절해줌
            sList2.AxisFactor.YAxis.Areas.Add(ar);   //.. 영역마커를 요기도 똑같이 추가

            Random r = new Random();
            Series sr = new Series();

            for (int x = 0; x < 40; x++)
            {
                SeriesItem item = new SeriesItem();
                item.YValue = r.Next(110) * x;
                item.Name = x.ToString();
                item.XValue = x;

                sr.items.Add(item);
            }

            sList.SeriesCollection.Add(sr);
            sList2.SeriesCollection.Add(sr); //... 시리스리스트를 새로 하나 만들고 같은 시리즈를 추가합니다.

            this.hHippoChart1.SeriesListDictionary.Add(sList);
            this.hHippoChart1.SeriesListDictionary.Add(sList2);
            this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
            this.hHippoChart1.DesignType = ChartDesignType.Simple;
            this.hHippoChart1.Direction = GraphAreaLocation.Horizontal;
            this.hHippoChart1.DrawChart(); 


VB

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

Dim ar As New AxisArea("", 1000, 2000)
ar.BackColor = Color.FromArgb(40, Color.SteelBlue)
ar.LegendVisible = False
sList.AxisFactor.YAxis.Areas.Add(ar)
'.. 영역마커를 하나 만들고 두개의 시리즈리스트에 동시에 추가합니다.
Dim sList2 As New SeriesList()
sList2.AxisFactor.YAxis.SetAxisStep(1000, 2000, 500)
'.. 여기서 수동 조절해줌
sList2.AxisFactor.YAxis.Areas.Add(ar)
'.. 영역마커를 요기도 똑같이 추가
Dim r As New Random()
Dim sr As New Series()

For x As Integer = 0 To 39
    Dim item As New SeriesItem()
    item.YValue = r.[Next](110) * x
    item.Name = x.ToString()
    item.XValue = x
   
    sr.items.Add(item)
Next

sList.SeriesCollection.Add(sr)
sList2.SeriesCollection.Add(sr)
'... 시리스리스트를 새로 하나 만들고 같은 시리즈를 추가합니다.
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.Direction = GraphAreaLocation.Horizontal
Me.hHippoChart1.DrawChart()

저작자 표시 비영리 변경 금지
크리에이티브 커먼즈 라이선스
Creative Commons License

'HippoChart > Tips' 카테고리의 다른 글

히포차트와 스크롤 기능을 응용하여 대량의 데이터를 그려보자.  (0) 2010/03/05
[Tip] 차트 구간 확대 기능 만들기(x축)  (0) 2009/09/24
[Tip] 차트 구간 확대 기능 만들기  (4) 2009/09/23
[Tip] 웹(ASP.NET)에서 실시간 차트를 그려보자. (Web RealTime Chart)  (4) 2009/09/07
[Tip] 히포차트로 데이터의 추세선을 그려보자.  (0) 2009/08/26
[Tip] 히포차트로 Pareto Chart(파레토 차트)를 그려보자.  (0) 2009/04/20

♠ 이 글이 유용하셨다면 '히포차트 스토리'를 구독하세요 ^.^ ==> Add to Google

♠ 본 블로그에서는 '나눔글꼴'을 사용하고 있습니다 ==> 글꼴설치하기

Posted by 니오히뽀
TAG ,
트랙백 0개, 댓글 4개가 달렸습니다

트랙백 주소 : http://hippochart.tistory.com/trackback/283 관련글 쓰기

댓글을 달아 주세요

  1. 지송 2009/09/23 15:04  댓글주소  수정/삭제  댓글쓰기

    음 날로 기능이 추가되는군요 ^^;

    감기 조심하세요 .

  2. vb 2011/10/07 16:45  댓글주소  수정/삭제  댓글쓰기

    이 구간 차트 기능이요 vb에 붙여논다음에 하면 되는건가요?
    아니면 히포 프로그램상에서 되는건가요??
    vb에서 차트 확대 기능이 지금 절실하게 필요한데 오류나네요...
    제가 vb초보자라서 그런지 수정하는법을 모르겠습니다 ㅜㅜ

/* 다음 웹인사이드 로그 분석*/