Question

怎样用VB编程画温度曲线

怎样用VB编程画温度曲线，由于是24小时不停的10秒采样一次，曲线很长，有时需要将某局部伸长展开，好看清楚。一般用什么方法或控件来实现。

Answer 1

Private Sub Form_Load()
Dim MyData(148, 1)
As DoubleDim i As Intege
rDim j As Integer
myRecord.MoveFirst '移动到第一条记录
For i = 0 To 20 （暂时是读20个数据）
MyData(i, 0) = i
j = myRecord.Fields("温度值").Value
MyData(i, 1) = j
myRecord.MoveNext
Next '-----x轴坐标值-----Y轴坐标值----------
'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标
'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化
'下面以数据点数有21点为列子
Dim MyData(20, 1) As Double
With MSChart1
.TitleText = "温度 k/min"
' '设置图线的外观
.Plot.SeriesCollection(1).Pen.Width = 30
.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
' '设置XY轴
.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
'// 设置最大值
.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300
'// 设置最小值
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
'//
.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量
.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
MSChart1.Plot.AutoLayout = False
MSChart1.Plot.UniformAxis = False
MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
MSChart1.ChartData = MyData '数据
End With

Answer 2

MSChart 或者 PictureBox都可以绘制，利用双缓冲DoubleBuffered解决闪烁问题，可以的话去csdn下载我的控件的例子

Answer 3

我看股票的方法就行