Tweet

amitriptyline online amitriptyline and tinnitus gwynn-jones.com.au amitriptyline for nerve pain buy tamoxifen ireland tamoxifen amoxicillin without prescription buy antibiotics online link amoxicillin 500mg buy prednisolone liquid buy prednisolone abortion philippines buy abortion pill philippines blog.halan.se buy abortion pill amitriptyline pain dosage amitriptyline nerve pain medication open amitriptyline nerve pain in tooth prednisolone cost buy prednisolone 5mg tablets uk 히포차트 4에서 비활성화되었던 일반 게이지차트르 많은 요청으로 인해 부활되었습니다 ^^

        

C#

 
Random r = new Random();
SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Gauge;

for(int i = 0; i < 4; i++)
{
Series sr = new Series();
sr.Gauge.IsShowBorderLine = false;
sr.Name = "온도계" + i.ToString();

if (i == 0) sr.Gauge.ShapeType = ShapeType.Thermometer2;
if (i == 1) sr.Gauge.ShapeType = ShapeType.Blend;
if (i == 2) sr.Gauge.ShapeType = ShapeType.Default;
if (i == 3)
{
sr.UnAxisFactor.Axis.MaxTickCount = 3;
sr.Gauge.ShapeType = ShapeType.Thermometer;
}

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

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

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();

VB

 
Dim r As New. Random()
Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Gauge

For i As Integer = 0 To 3
Dim sr As New. Series()
sr.Gauge.IsShowBorderLine = False
sr.Name = "온도계" & i.ToString()

If i = 0 Then
sr.Gauge.ShapeType = ShapeType.Thermometer2
End If
If i = 1 Then
sr.Gauge.ShapeType = ShapeType.Blend
End If
If i = 2 Then
sr.Gauge.ShapeType = ShapeType.[Default]
End If
If i = 3 Then
sr.UnAxisFactor.Axis.MaxTickCount = 3
sr.Gauge.ShapeType = ShapeType.Thermometer
End If

For x As Integer = 0 To 11
Dim item As New. SeriesItem()
item.Name = "radar item" & x.ToString()
item.YValue = r.[Next](10)
item.IsShowFigureText = True

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

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()