Поменять значения оси Chart - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

В свой график добавил вторую ось по иксу (сверху)
А как теперь поменять значения второй оси? Я хочу чтобы сверху была температура в цельсиях, а снизу в кельвинах. Возможно такое? В примере от Microsoft показано, что вроде можно, но не нашел объяснения как

Решение задачи: «Поменять значения оси Chart»

textual
Листинг программы
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
    Private tstC() As DataPoint
    Private tstK() As DataPoint
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Chart1.Visible = False
        tstC = {New DataPoint(17, 1025), New DataPoint(19, 1055), New DataPoint(10, 1075), _
                New DataPoint(11, 1125), New DataPoint(14, 1155), New DataPoint(22, 1175), _
                New DataPoint(12, 1025), New DataPoint(13, 1255), New DataPoint(21, 1155)}
        ReDim tstK(tstC.Length - 1)
        For i = 0 To tstC.Length - 1
            tstK(i) = tstC(i).Clone
            tstK(i).XValue += 273 'округлено 273.15
        Next
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Chart1.Series.Clear()
        Chart1.ChartAreas.Clear()
        Chart1.Series.Add("Celsius")
        Chart1.Series.Add("Kelvin")
        With Chart1.Series("Celsius")
            .IsVisibleInLegend = False
            .Color = Color.Red
            .ChartType = SeriesChartType.Column
            .XAxisType = AxisType.Primary
            For Each dd As DataPoint In tstC
                .Points.Add(dd)
            Next
        End With
        Chart1.ChartAreas.Add("temperature")
        With Chart1.ChartAreas("temperature")
            .Position.Width = 100
            .Position.Height = 100
            .ShadowOffset = 10
            .BorderWidth = 20
            .AxisY.IsStartedFromZero = False
            .AxisX.Title = "градусы C"
            .AxisY.Title = "Value"
            .AxisX2.Title = "градусы K"
        End With
        With Chart1.Series("Kelvin")
            .IsVisibleInLegend = False
            .Color = Color.Red
            .ChartType = SeriesChartType.Column
            .XAxisType = AxisType.Secondary
            For Each dd As DataPoint In tstK
                .Points.Add(dd)
            Next
        End With
        Chart1.Visible = True
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы