• Home
 · 
• Graphics
 · 
• This is a Pulse Reader Program Follow The Instructions and Get Going.

This is a Pulse Reader Program Follow The Instructions and Get Going.

This is a Pulse Reader Program Follow The Instructions and Get Going.

API Declarations



'If you like this code just mail me
'This Code is for those who wish to make a little high sounding but a very _ simple program
'Just Add the code and it will make a (Sort of Cardiograph or Pulse Reader)
'From kazmi
'mail me at [email protected]
'add a line (line1) tilted towards right like this '/'
'add a timer- interval = 1
'Add A Label ; Make it Transparent; Make it Autosize
'The backcolor of Form = vbblack
'Add A line (line2)
'Form Moveable = False
'Form Strartup Position = 2-CenterScreen




Rate This is a Pulse Reader Program Follow The Instructions and Get Going.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim z As Integer
Dim clr1, clr2, clr3 As Integer
Dim clr As Boolean
Dim tp As Integer

Private Sub Form_Resize()
clr1 = 255
Me.BackColor = vbBlack
Form1.Width = 7790
Me.Height = 3450
End Sub

Private Sub Form_Load()
Line1.X1 = 1440
Line1.X2 = 720
Line1.Y1 = 5520
Line1.Y2 = 6600
Line2.X1 = 0
Line2.X2 = 7320
Line2.Y1 = 2520
Line2.Y2 = 2520
Line2.BorderColor = vbWhite
Form1.BackColor = vbBlack
Form1.Width = 7790
Me.Height = 3450
Label1.Top = Line1.Y2 - 5000
tp = Label1.Top
End Sub

Private Sub Timer1_Timer()
Label1.Left = 3000
Label1.Top = Line1.Y2 - 5000
If Line1.Y2 - 5000 < tp Then
tp = Line1.Y2 - 5000
Line2.X1 = 0
Line2.X2 = 10000 - tp
Line2.Y1 = Label1.Top + 1000
Line2.Y2 = Label1.Top + 1000
End If
Me.Caption = "Highest Value = " & 10000 - tp
Label1.Caption = "Glucose Level= " & Label1.Top
Label1.ForeColor = RGB(clr1, clr2, clr3)
'Me.Caption = "By Syed [email protected]"
If clr3 > 255 Then
clr = True
End If
If clr1 <= 0 Or clr2 <= 0 Or clr3 <= 0 Then
clr = False
End If
If clr = True Then
clr1 = clr1 - 1
clr2 = clr2 - 1
clr3 = clr3 - 1
Else
clr1 = clr1 + 1
clr2 = clr2 + 1
clr3 = clr3 + 1
End If
a = Line1.Y2
z = 3000
p = Rnd(11) * 30
If p < 20 Then
Line1.Y2 = Line1.Y2 + p
Else
Line1.Y2 = Line1.Y2 - p
End If
While z > Line1.Y2 - 4000
Form1.PSet (far, z), RGB(clr1, clr2, clr3)
z = z - 1
Wend
far = far + 10
If far > 7750 Then
Form1.Refresh
far = 0
End If
End Sub