VB ²¨ÐÎ

timer2ÓÃÀ´²É¼¯µãÊý£¬timer1ÓÃÀ´ÏÔʾµã
Private Sub Timer1_Timer() 'ÏÔʾ²¨ÐÎʱ¼ä¿ØÖÆ
Dim x1 As Long, x2 As Long, scaleY As Single, scaleX As Single, xd As Single, i As Integer ', xi, yi 'xdΪÏÔʾµÄÊý¾Ý£¨¾­¹ýת»»ºóµÄ£©,ADDataΪ²É¼¯µÄÊý¾Ý
Dim max1 As Single, min1 As Single, flag As Integer, m As Integer, n As Single


scaleY = Pic1.ScaleHeight / 10 'scaleYΪÊä³ö²¨ÐÎÒ»°ëÕ¼Õû¸öÏÔʾ¿òµÄ±ÈÀý
scaleX = Pic1.ScaleWidth / 10
x1 = HScroll3.Value - 10000

Pic1.Cls 'ÇåÆÁ
max1 = Y(1)
min1 = Y(1)

For i = 0 To 300 '300msÏÔʾһ´Î£¬Ò»´ÎÏÔʾ300¸öµã£¬ÒÔ¼õСÔËÐб¾º¯ÊýËù¿ªÏúµÄʱ¼ä£¬²»ÖÁÓÚÏÂÒ»Ãë²ÉÑùʱ²»ÄܲÉ
   
  If Y(i) > max1 Then 'Çó×î´ó×îСֵ
  max1 = Y(i)
  End If
  If Y(i) < min1 Then
  min1 = Y(i)
  End If
   
If i > 2 And i < 299 Then 'ÇóƵÂÊ
  If (Y(i) - Y(i + 1)) * (Y(i) - Y(i - 1)) >= 0 Then
  If flag >= 1 Then
  If Y(i) - Y(m) > 5 Or Y(i) - Y(m) < -5 Then
  If flag = 2 Then
  n = i - m
   
  Tex