Jeg får et tall og vil presentere den i en kurve

[Hondaen]

Jeg får en tallverdi fra parallellporten som jeg ønsker å presentere grafisk via en kurve som viser f.eks en strøm over et tidsrom og en rute som viser strøm * tid (Ah).

 

Noen av dere som kan hjelpe ? :-)

 

 

mvh

Alexander

[GeirGrusom]

jepp

 

' Using label lblAvgTime
' Using PictureBox pctDisp
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) As Long
Const SRCCOPY = &HCC0020
Private Sub Form_Load()
   pctDisp.AutoRedraw = True
   pctDisp.ScaleMode = vbPixel
End Sub
Public Sub ProcessDataInputDWORD(value As Long)
   Static old_time As Long
   Static old_val As Long
   Dim m_h2 As Long
   m_h2 = pctDisp.ScaleHeight / 2
   
   'Tegn litt
   BitBlt pctDisp.hDC, -1, 0, pctDisp.ScaleWidth, pctDisp.ScaleHeight, pctDisp.hDC, 0, 0, SRCCOPY

   pctDisp.Line (pctDisp.ScaleWidth - 2, m_h2 - old_val)-(pctDisp.ScaleWidth - 1, m_h2 - value), vbGreen
   old_val = value
End Sub

 

Ganske enkelt.

BitBlt flytter hele tegninga en pixel til venstre for å skape scroll effekten.

Endret 17. oktober 2004 av GeirGrusom