Tweet

buy amoxicillin liquid buy amoxicillin liquid website buy amoxicillin uk buy antibiotic online buy amoxicillin uk buy clomid bodybuilding buy clomid pct blog.hologrambirds.com clomid uk prescription buy tamoxifen ireland tamoxifen uk cheap prednisolone buy prednisolone 5mg click here prednisolone pharmacy clomid uk success rates clomid uk success rates abortion pill online abortion pill usa legal click here purchase abortion pill online Amitriptyline and Tinnitus amitriptyline without prescription sunilrav.com buy antidepressants mastercard 보다 자유로운 형태의 계기판 차트로 배경색, 화살표, 눈금 등의 조절이 자유롭습니다.

                

C#

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

Random r = new Random();
for(int i = 0; i < 2; i++)
{
Series sr = new Series();

sr.UnAxisFactor.Axis.SetAxisStep(0, 90, 10);

sr.UnAxisFactor.Axis.Decimalpoint = 0;
sr.Gauge.ShapeType2 = ShapeType2.Gauge3;
sr.Name = "게이지" + i.ToString();
sr.Gauge.IsShowSmallTick = false;
sr.Gauge.ArrowLine.EndCap = System.Drawing.Drawing2D.LineCap.ArrowAnchor;

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

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

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.DesignType = ChartDesignType.None;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

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

Dim r As New. Random()
Dim i As Integer = 0
While i < 2
Dim sr As New. Series()

sr.UnAxisFactor.Axis.SetAxisStep(0, 90, 10)

sr.UnAxisFactor.Axis.Decimalpoint = 0
sr.Gauge.ShapeType2 = ShapeType2.Gauge3
sr.Name = "게이지" + i.ToString()
sr.Gauge.IsShowSmallTick = False
sr.Gauge.ArrowLine.EndCap = System.Drawing.Drawing2D.LineCap.ArrowAnchor

Dim x As Integer = 0
While x < 1
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90) * i + 34

sr.items.Add(item)
System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
End While
sList.SeriesCollection.Add(sr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.DesignType = ChartDesignType.None
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()