Hi there,
Anybody how could help me with locating the secondary Y-axis to the left.
Just like https://origin2.cdn.componentsource....eAxes_Fig4.png
Here is my code for the chart:
Thanks.
Anybody how could help me with locating the secondary Y-axis to the left.
Just like https://origin2.cdn.componentsource....eAxes_Fig4.png
Here is my code for the chart:
Code:
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub BtnChart_Click(sender As Object, e As EventArgs) Handles BtnChart.Click
Chart1.Titles.Clear()
Chart1.Titles.Add("Total Time Area of Inlet Porting")
Chart1.Titles(0).Font = New Font("Microsoft Sans Serif", 7, FontStyle.Bold)
Chart1.Titles(0).ForeColor = Color.White
Chart1.ChartAreas.Clear()
Chart1.ChartAreas.Add("Default")
Chart1.ChartAreas(0).BackColor = Color.Transparent
With Chart1.ChartAreas("Default")
.AxisX.Title = "Specific Time Area, s/m · 10^-4 (Charater)"
.AxisX.TitleFont = New Font("Microsoft Sans Serif", 7, FontStyle.Bold)
.AxisX.TitleForeColor = Color.White
.AxisX.MajorGrid.Enabled = False
.AxisY.Title = "Brake Mean Effective Pressure, bar"
.AxisY.TitleFont = New Font("Microsoft Sans Serif", 7, FontStyle.Bold)
.AxisY.TitleForeColor = Color.White
.AxisY.MajorGrid.Enabled = False
.AxisY2.Enabled = AxisEnabled.True
.AxisY2.Title = "Mean Effective Pressure, bar"
.AxisY2.TitleFont = New Font("Microsoft Sans Serif", 7, FontStyle.Bold)
.AxisY2.TitleForeColor = Color.White
.AxisY2.MajorGrid.Enabled = False
End With
Chart1.Series.Clear()
Chart1.Series.Add("Inlet")
Chart1.Series("Inlet").YAxisType = AxisType.Primary
Chart1.Series("Inlet").Color = Color.White
Chart1.Series("Inlet").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Inlet").BorderWidth = 2
Chart1.Series.Add("PointI")
Chart1.Series("PointI").YAxisType = AxisType.Secondary
Chart1.Series("PointI").Color = Color.Red
Chart1.Series("PointI").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("PointI").BorderWidth = 2
Chart1.ChartAreas(0).AxisY.Minimum = 2
Chart1.ChartAreas(0).AxisY.Maximum = 12
Chart1.ChartAreas(0).AxisY.Interval = 2
Chart1.ChartAreas(0).AxisY.MinorTickMark.Interval = 1
Chart1.ChartAreas(0).AxisY.MinorTickMark.Enabled = True
Chart1.ChartAreas(0).AxisY.LineColor = Color.White
Chart1.ChartAreas(0).AxisY.LineWidth = 2
Chart1.ChartAreas(0).AxisY.MajorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisY.MajorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisY.MinorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisY.MinorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Microsoft Sans Serif", 7)
Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
Chart1.ChartAreas(0).AxisY2.Minimum = 0
Chart1.ChartAreas(0).AxisY2.Maximum = 10
Chart1.ChartAreas(0).AxisY2.Interval = 2
Chart1.ChartAreas(0).AxisY2.MinorTickMark.Interval = 1
Chart1.ChartAreas(0).AxisY2.MinorTickMark.Enabled = True
Chart1.ChartAreas(0).AxisY2.LineColor = Color.White
Chart1.ChartAreas(0).AxisY2.LineWidth = 2
Chart1.ChartAreas(0).AxisY2.MajorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisY2.MajorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisY2.MinorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisY2.MinorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisY2.LabelStyle.Font = New Font("Microsoft Sans Serif", 7)
Chart1.ChartAreas(0).AxisY2.LabelStyle.ForeColor = Color.White
Chart1.ChartAreas(0).AxisX.Minimum = 50
Chart1.ChartAreas(0).AxisX.Maximum = 200
Chart1.ChartAreas(0).AxisX.Interval = 50
Chart1.ChartAreas(0).AxisX.MinorTickMark.Interval = 25
Chart1.ChartAreas(0).AxisX.MinorTickMark.Enabled = True
Chart1.ChartAreas(0).AxisX.LineColor = Color.White
Chart1.ChartAreas(0).AxisX.LineWidth = 2
Chart1.ChartAreas(0).AxisX.MinorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisX.MinorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisX.MajorTickMark.LineWidth = 2
Chart1.ChartAreas(0).AxisX.MajorTickMark.LineColor = Color.White
Chart1.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Microsoft Sans Serif", 7)
Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White
Dim y1 As Single
For x1 As Integer = 60 To 180 Step 10
y1 = 0.0774 * x1 - 1.528
Chart1.Series("Inlet").Points.AddXY(x1, y1)
Next
Dim y2 As Single
For x2 As Integer = 60 To 150 Step 10
y2 = 0.0554 * x2 + 1.28
Chart1.Series("PointI").Points.AddXY(x2, y2)
Next
End Sub
End Class