chyoli
Newbie
Joined: 11 Apr 2006
Posts: 1
|
 Posted: Apr 11th, 2006 02:01 AM Post subject: anyone can help me to check this code |
 |
|
Private Sub Timer1_Timer()
If (ecgDataPlot > 1000 And ecgDataPlot < 2850) Then
yarr2(k) = ecgDataPlot 'substituted by Mserial.input and convert
Call Plot
k = k + 1
If (k > 998) Then 'to make sure the no of element in array does not exceed 1000
k = 0
i = 0
j = 0 'also have to call function to write existing array into file
Call WriteFile
End If
End If
End Sub
=====================================================
Sub PlotOpen()
openyarr1(0) = 2554
If (i < 10000) Then
openyarr1(i + 1) = openyarr2(i)
i = i + 1
Else: i = 0
End If
If (j < 10000) Then
Picture1.Line (xx, 3500 - openyarr1(j))-(xx + 15, 3500 - openyarr2(j)), vbBlack
xx = xx + 15
If (xx > 4905) Then
xx = 0
Picture1.Cls
End If
j = j + 1
Else: j = 0
End If
End Sub
===================================================== |
|
