VB画实时曲线

原文地址：VB画实时曲线 作者：zw621

这是画实时曲线的一个例子，你可以参考一下。可以选择画6条曲线和一条曲线，要引用：

'实时曲线左移函数
Public 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 DrawStyle As _
              Long) As Long

'实时曲线
Public Sub RTCurveDraw(picDraw As PictureBox, crvType As String, cYmax As Integer, cYmin As Integer, crvData1 As Double, crvData2 As Double, crvData3 As Double, crvData4 As Double, crvData5 As Double, crvData6 As Double)

      Dim ypixels, xpixels, i%
      Dim ShowMode As Long, ii As Long, tm As String, hBmp As Long
      Dim a(1 To 6) As Double
      a(1) = crvData1
      a(2) = crvData2
      a(3) = crvData3
      a(4) = crvData4
      a(5) = crvData5
      a(6) = crvData6
     
     
      picDraw.DrawWidth = 1
      hBmp = picDraw.hDC
      ShowMode = &HCC0020
      ii = BitBlt(hBmp, 0, 0, picDraw.ScaleWidth - 1, picDraw.ScaleHeight - 1, hBmp, 1, 0, ShowMode)
     
      Dim t As Integer
      t = Minute(Now())
      nMinutes = t
      If nMinutes > nTempMinutes Then
              picDraw.CurrentX = picDraw.ScaleWidth - 19
              picDraw.CurrentY = picDraw.ScaleHeight - 11
              picDraw.Print nMinutes
      End If
      nTempMinutes = nMinutes
     
      picDraw.ScaleMode = vbPixels
      ypixels = picDraw.ScaleHeight - 1
      xpixels = picDraw.ScaleWidth - 1

      Select Case crvType
              Case "Temp"
              For i = 1 To 6
                      cY1(i) = Int(ypixels - (a(i) - cYmin) / (cYmax - cYmin) * ypixels)
                      If cY1(i) = cY0(i) Then cY1(i) = cY1(i) + 1
              Next
              picDraw.Line (xpixels - 1, cY0(1))-(xpixels - 1, cY1(1)), vbRed
              picDraw.Line (xpixels - 1, cY0(2))-(xpixels - 1, cY1(2)), &H404080
              picDraw.Line (xpixels - 1, cY0(3))-(xpixels - 1, cY1(3)), vbGreen
              picDraw.Line (xpixels - 1, cY0(4))-(xpixels - 1, cY1(4)), vbBlack
              picDraw.Line (xpixels - 1, cY0(5))-(xpixels - 1, cY1(5)), vbBlue
              picDraw.Line (xpixels - 1, cY0(6))-(xpixels - 1, cY1(6)), &HFF00FF
              For i = 1 To 6
                      cY0(i) = cY1(i)
              Next
             
              Case "Ma"
              cY1(1) = Int(ypixels - (a(1) - cYmin) / (cYmax - cYmin) * ypixels)
              If cY1(1) = cY0(1) Then cY1(1) = cY1(1) + 1
              picDraw.Line (xpixels - 1, cY0(1))-(xpixels - 1, cY1(1)), vbRed
              cY0(1) = cY1(1)
             
      End Select
     
End Sub