怎样制作动态曲线图像示波器一样的
我要做一个温度—时间的曲线图，是下载控件呢？还是自己画，类似示波器，一直在更新
横坐标作为时间，纵坐标作温度
数据的来源是传感器采集的
[解决办法]
http://www.codefans.net/soft/2884.shtml 自己下个吧
[解决办法]
描点连线呗，记录上一时刻的点坐标，然后画当前点，并在两点间画直线。Point、Line方法
[解决办法]
做了个简单波形图显示程序(VB6.0)
拿去改改吧.
[解决办法]
http://topic.csdn.net/u/20080604/14/7b4ac419-0927-4df9-8c54-67d58f2507b5.html
[解决办法]
http://download.csdn.net/source/1894278方法很多，问题的关键在于怎么移动曲线，就我的简单理解给楼主例举一下：
1、使用MSChart控件绘制“http://download.csdn.net/source/1483925
2、使用PictureBox控件，结合Line方法绘制
3、使用API函数在PictrueBox上绘制
4、使用API函数在内存中绘制，然后放置到PictureBox上：http://download.csdn.net/source/2368159
[解决办法]
我有一个简单的小程序，
教材上的
Option Explicit
Private Declare Function BitBlt& Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)Private Const PS_SOLID& = 0 '实线Private Const SRCCOPY& = &HCC0020Private Declare Function DeleteObject& Lib "gdi32" (ByVal hObject As Long)Private Declare Function SelectObject& Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long)Private Declare Function CreatePen& Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long)Private Declare Function Rectangle& Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)Private Declare Function MoveToEx& Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal lpPoint As Long)Private Declare Function LineTo& Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long)Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private dX As LongPrivate dy As LongPrivate cuX As LongPrivate cuCopyX As LongPrivate picHeigth As IntegerPrivate picWidthPrivate isGrap As IntegerPrivate MyTimeEnabld As BooleanPrivate wait As IntegerPrivate Sub Command1_Click() EndEnd SubPrivate Sub Command2_Click() isStop = Not isStopEnd SubPrivate Sub Command4_Click() If Command4.Caption = "Start" Then Command4.Caption = "Stop" Else Command4.Caption = "Start" End If If MyTimeEnabld = False Then MyTimeEnabld = True MyTimer Else MyTimeEnabld = False End IfEnd SubPrivate Sub Form_Load() Height = 3300: Width = 5475 Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 setValue isGrap = 1 HScroll1.Value = 5 End SubSub setValue() Dim dl& form1.ScaleMode = vbPixels Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels Picture1.AutoRedraw = True Picture2.AutoRedraw = False picHeigth = Picture2.Height picWidth = Picture2.Width - 5 dy = Picture2.Height \ 2 dX = picWidth cuCopyX = 0 dl& = MoveToEx(Picture1.hDC, dX, dy, 0&)End SubPrivate Sub Form_Unload(Cancel As Integer) EndEnd SubPrivate Sub HScroll1_Change()wait = HScroll1.ValueLabel1.Caption = HScroll1.ValueEnd SubPrivate Sub Option1_Click(Index As Integer) Picture1.Cls setValue isGrap = IndexEnd SubPrivate Sub MyTimer() Do Select Case isGrap Case 0 Grap MyRnd() Case 1 Grap MySin() Case 2 Grap Xx() Case 3 Grap Pulse() End Select Sleep wait DoEvents If MyTimeEnabld = False Then Exit Do End If LoopEnd SubSub Grap(cuY As Long) Dim dl& Dim pen&, oldpen& If cuY < 0 Then cuY = 0 If cuY > picHeigth Then cuY = picHeigth cuX = dX + 1 cuCopyX = cuCopyX + 1 If cuCopyX > picWidth Then dX = picWidth cuX = dX + 1 cuCopyX = 1 Picture1.Cls dl& = MoveToEx(Picture1.hDC, dX, dy, 0&) dl& = BitBlt(Picture1.hDC, 0, 0, picWidth, picHeigth, Picture2.hDC, 0, 0, SRCCOPY) End If pen& = CreatePen(PS_SOLID, 1, RGB(255, 0, 0)) oldpen& = SelectObject(Picture1.hDC, pen&) dl& = LineTo(Picture1.hDC, cuX, cuY) dl& = SelectObject(Picture1.hDC, oldpen&) dl& = DeleteObject(pen&) dl& = BitBlt(Picture2.hDC, 0, 0, picWidth, picHeigth, Picture1.hDC, cuCopyX, 0, SRCCOPY) dy = cuY: dX = dX + 1 If dy > 200 Then StopEnd Sub'/////////////////////////////////Function MyRnd() As Long MyRnd = Rnd() * picHeigthEnd FunctionFunction MySin() Static Radim As Integer MySin = Sin(Sin(Radim * 3.1426 / 180)) * picHeigth \ 2 + picHeigth \ 2 Radim = Radim + 4 If Radim > 360 Then Radim = 0End FunctionFunction Xx() Static x As Integer Xx = x * x / 50 x = x + 1 If x = 100 Then x = 0End FunctionFunction Pulse() Static x As Integer Static y As Integer If x < 10 Then y = y + 1 Pulse = 25 If y > 50 Then x = 20 End If Else y = y - 1 Pulse = 125 If y < 0 Then x = 0 End If End If End Function
[解决办法]
可以用TeeChart
功能比较多
[解决办法]
应该是要用TChart控件和Timer定时器来实现，但是要注意刷新频率等一些问题，以前拿Delphi做过一个，频率做不好曲线就一直在闪，还有一搬要是串口通讯的话最好是下一个Mscommom第三方串口控件或者是Spcom（不知道拼对没有，呵呵英语不好）。
