Visual Basic FAQ

Как сделать подобие кардиограммы

Option Explicit
Const Pi As Single = 3.14159265358979
Const stepx As Single = 0.1, cx  As Single = 2 * Pi, cy As Single = 2
Dim maxX As Long
Dim coord() As Single, cur_pos As Long
Dim offset As Single

Private Sub Form_Load()
maxX = cx / stepx
ReDim coord(1 To maxX, 1 To 2)
cur_pos = maxX
offset = 0
Picture2.Scale (-cx, cy)-(cx, -cy)
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
addcoord offset, Tan(offset)
offset = offset + stepx
End Sub

Sub addcoord(x As Single, y As Single)
Picture2.Cls

Dim i As Long
For i = 1 To maxX - 1
 coord(i, 1) = coord(i + 1, 1)
 coord(i, 2) = coord(i + 1, 2)
Next
coord(maxX, 1) = x
coord(maxX, 2) = y

Picture2.PSet (coord(cur_pos, 1) - x, coord(cur_pos, 2))

For i = cur_pos To maxX
 Picture2.Line -(coord(i, 1) - x, coord(i, 2)), vbRed
Next

cur_pos = cur_pos - 1
If cur_pos < 1 Then cur_pos = 1
End Sub

Запись опубликована on 15.01.2011 at 12:37 и размещена в рубрике: Мультимедиа. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.