Cómo dibujar una curva de temperatura usando la programación VB

Private Sub Form_Load()

Dim MyData(148, 1)

Como DoubleDim i Como Intege

rDim j Como Integer

myRecord.MoveFirst 'Mover al primer registro

Para i = 0 a 20 (leer temporalmente 20 datos)

MyData(i, 0) = i

j = myRecord.Fields("Valor de temperatura").Value

MyData(i, 1) = j

myRecord.MoveNext

Siguiente '-----valor de coordenadas del eje x-----valor de coordenadas del eje Y----------

' Para un diagrama de dispersión bidimensional, el la primera columna representa la coordenada del eje X y la segunda columna representa la coordenada del eje Y

' Por lo tanto, al definir datos bidimensionales, la segunda dimensión se define como 0 a 1, y la primera dimensión representa que los datos del punto se pueden cambiar según la cantidad de puntos de datos

'El siguiente ejemplo utiliza 21 puntos de datos como ejemplo

Dim MyData(20, 1) As Double

Con MSChart1

.TitleText = "Temperatura k/min"

' 'Establece la apariencia del gráfico

.Plot.SeriesCollection( 1).Pen.Width = 30

.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid

' 'Establece el eje XY

.Plot .Axis(VtChAxisIdX).ValueScale.Auto = False

.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False

'//Establecer el valor máximo

.Plot.Axis(VtChAxisIdX). ValueScale.Maximum = 600

.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300

'//Establece el valor mínimo

.Plot.Axis( VtChAxisIdY).ValueScale.Minimum = 0

.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0

'//

.Plot.Axis( VtChAxisIdX).ValueScale.MajorDivision = 6 'El número de cuadrículas principales en Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'Número de cuadrícula menor del eje X

.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Número de cuadrícula menor del eje Y

.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleD

otted

.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted

MSChart1.Plot.AutoLayout = False

MSChart1.Plot.UniformAxis = False

MSChart1.chartType = VtChChartType2dXY 'Establece el gráfico como un gráfico de dispersión bidimensional

MSChart1.ChartData = MyData 'Datos

Finalizar con