vb 画折线图

Question

画一个折线图
要求:
1.用Picture画
2.像任务管理器的CPU使用记录那样画...
3.没有了
我有一组数据...从右到左慢慢地画...并且自动往左移动...

回答者： 小鱼冬眠中,不要复制...没达到要求
回答者： 43295811 好像在哪里见过...

Answer 1

'我的数据是随机生成的,方法就是这样啦,你参考,希望对你有帮助:
'我是在窗体上画的,在图片中也是一样的,本例仅作演示

Option Explicit

Private Sub Form_click()
Cls
Dim i, j As Single
Me.Scale (-1, 10)-(25, -1) '定义坐标系，原点靠近左下角
Line (-1, 0)-(25, 0) '画x轴
Line (0, -1)-(0, 10) '画Y轴
For i = -1 To 25 Step 1 '画X轴刻度
If i <> 0 Then
Line (i, 0)-(i, 0.2)
CurrentX = i - 0.3: CurrentY = -0.2
Print i
End If
Next
For j = -1 To 10 '画Y轴刻度
If j <> 0 Then
Line (0, j)-(0.3, j)
CurrentX = -0.7: CurrentY = j + 0.1
Print j
End If
Next
CurrentX = -0.4: CurrentY = -0.2
Print "0" '画原点
CurrentX = 0.5: CurrentY = 9.5
Print "Y"
CurrentX = 24: CurrentY = 0.5
Print "X"
Randomize
CurrentX = 1: CurrentY = Format(Rnd * 10, "0.00")
For i = 2 To 24
Line -(i, Format(Rnd * 10, "0.00")) '这里是随机生成的数据！
Next
End Sub

'==================下面在图片框中画图,单击图片框即可绘制==========
Option Explicit

Private Sub Form_load()
Picture1.Move 0, 0, Me.Width, Me.Height
Picture1.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Picture1_Click
End Sub

Private Sub Picture1_Click()
Picture1.Cls
Dim i, j As Single
Picture1.Scale (-1, 10)-(25, -1) '定义坐标系，原点靠近左下角
Picture1.Line (-1, 0)-(25, 0) '画x轴
Picture1.Line (0, -1)-(0, 10) '画Y轴
For i = -1 To 25 Step 1 '画X轴刻度
If i <> 0 Then
Picture1.Line (i, 0)-(i, 0.2)
Picture1.CurrentX = i - 0.3: Picture1.CurrentY = -0.2
Picture1.Print i
End If
Next
For j = -1 To 10 '画Y轴刻度
If j <> 0 Then
Picture1.Line (0, j)-(0.3, j)
Picture1.CurrentX = -0.7: Picture1.CurrentY = j + 0.1
Picture1.Print j
End If
Next
Picture1.CurrentX = -0.4: Picture1.CurrentY = -0.2
Picture1.Print "0" '画原点
Picture1.CurrentX = 0.5: Picture1.CurrentY = 9.5
Picture1.Print "Y"
Picture1.CurrentX = 24: Picture1.CurrentY = 0.5
Picture1.Print "X"
Randomize
Picture1.CurrentX = 1: Picture1.CurrentY = Format(Rnd * 10, "0.00")
For i = 2 To 24
Picture1.Line -(i, Format(Rnd * 10, "0.00")) '这里是随机生成的数据！
Next
End Sub

Answer 2

Private Sub Command1_Click()
Me.Picture1.AutoRedraw = True
Me.Picture1.Line (100, 1000)-(500, 600)
Me.Picture1.Line (500, 600)-(600, 2000)
Me.Picture1.Line (600, 2000)-(1000, 2000)
End Sub

Line的第一个参数(100,1000)，前一个是左边距，第二个是上边距

Answer 3

一个例子:
窗体上有一个按钮
一个能显示折线图的控件（我不大知道应该用哪个控件）
现有十二个数
设其为13-24
点击按钮时图片显示为一折线图
折线图为十二个点的连线
（1，13）（2，14）（3，15）（4，16）（5，17）.....(12，24)
请教如何编写程序
回答：
控件用MsChart，在Microsoft
Chart
Control
6.0(OLEDB)。
Private
Sub
Form_Load()
Dim
CData(1
To
2,
1
To
24)
As
Variant
mctChart.chartType
=
VtChChartType2dLine
For
i=1
To
12
CData(1,i)=i
'1代表第一个数据
Next
i
For
i=13
To
24
'2代表第二个数据
CData(2,i)=i
Next
i
mctChart.ChartData
=
CData
End
Sub
参考资料：http://www.programfan.com/blog/article.asp?id=23214

Answer 4

kd = P_Height / 10
For i = P_Width / kd + 1 To 0 Step -1
Picture1.Line (P_Width - i * kd - kd, P_Height - gd(i + 1) * dw2)-(P_Width - i * kd, P_Height - gd(i) * dw2)
b = b + i * kd
Next

有点乱,呵呵...你整理整理吧...

Answer 5

如果已知一维数组是随时间变化的,那么可以在窗体上添加一个时间控件和一个Picture控件.利用时间控件Timer控制.下面是我写的一个例子,是利用时间控件来控制绘正弦曲线的.

Private Sub Command1_Click()
Dim i As Integer, j As Single
Dim a(20) As Single
Dim t
For i = 0 To 19
a(i) = Sin(i * 45 * 3.1415926 / 180)
Next i
Timer1.Enabled = True
t = Timer
For i = 1 To 19
Do
If t < Timer - 1 Then
t = Timer
Exit Do
End If
Loop
Picture1.DrawWidth = 2
Picture1.Line ((i - 1) * 50, 100 * a(i - 1) + 400)-(i * 50, 100 * a(i) + 400), RGB(255, 0, 0)
Picture1.Refresh
Next i
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

从右到左画的话只要将循环语句变成
For i=19 To 1