VBÈçºÎʵÏÖͼÏñµÄ·Å´óËõС

Private Sub Timer1_Timer()
Dim X As Integer, Y As Single, z As Single
Dim scaley As Single
Dim j As Integer
Static i As Integer
Dim ADData As Long '¶¨ÒåAD²ÉÑù±äÁ¿

AC6611_AD hDevice, 0, ADData 'AD²ÉÑù£¬0ͨµÀ£¬AC6611Ò»¹²ÓÐ16¸öͨµÀ0-15£¬ÓÉaddata·µ»ØAD²ÉÑùÖµ0-4095
'Print AC6611_ADToVoltage(ADData, 0) 'ÏÔʾ²ÉÑùµÄÊý¾Ý£¬²¢×ª»»Îª0-5Vµçѹʵ¼Êµçѹֵ
'Picture1.DrawWidth = 2

scaley = Picture1.ScaleHeight / 4
Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHeight / 2
i = i + 1
adata(j) = AC6611_ADToVoltage(ADData, 0)
X = i / 30 * scaley
Y = adata(j) / 5 * scaley
z = adata(j)

Picture1.PSet Step(X, -Y), vbRed
end sub
Private Sub Command1_Click()

Timer1.Enabled = True
End Sub
ÕâÊÇÎÒµÄÒ»¶Î²É¼¯³ÌÐò£¬ÓÐË­¿ÉÒÔ°ïÎҰѲɼ¯µÄÇúÏßʵÏÖ·Å´óËõСô£¿

---

²Î¿¼ÏÂÃæÕâ¸ö:
http://topic.csdn.net/u/20080910/20/1ab23882-3cb0-49dc-9b86-eb169e58a823.html

---

Ë­ÔÚÎҵijÌÐòÉϼӼӿ´¿´°¡

---

Óð´Å¥À´¿ØÖÆ