GFCurve (2)/Testfrm.frm
VERSION 5.00
Begin VB.Form Testfrm
Caption = "Form1"
ClientHeight = 5715
ClientLeft = 60
ClientTop = 465
ClientWidth = 7755
LinkTopic = "Form1"
ScaleHeight = 5715
ScaleWidth = 7755
StartUpPosition = 3 'Windows‑Standard
Begin VB.Timer Timer1
Interval = 500
Left = 60
Top = 60
End
Begin Project1.GFCurvectl GFCurve1
Height = 5595
Left = 60
TabIndex = 0
Top = 60
Width = 7635
_extentx = 13467
_extenty = 8070
End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2002 by Louis.
Private Sub Form_Load()
'on error resume next
Call GFCurve1.Initialize(5, 10000)
GFCurve1.BackColor = RGB(0, 0, 0)
GFCurve1.ForeColor = RGB(255, 255, 255)
Call GFCurve1.CObj_Add("Money to Bill", RGB(255, 64, 64))
Call GFCurve1.CObj_Add("Crashing Programs", RGB(64, 255, 64))
Call GFCurve1.CObj_Add("Windows Errors", RGB(200, 200, 255))
End Sub
Private Sub Timer1_Timer()
'on error resume next
Call GFCurve1.C_ReceiveValue("Money to Bill", CSng(Int((100 ‑ 0 + 1) * Rnd(1) + 0)))
Call GFCurve1.C_ReceiveValue("Crashing Programs", CSng(Int((10 ‑ 0 + 1) * Rnd(1) + 0)))
Call GFCurve1.C_ReceiveValue("Windows Errors", CSng(Int((50 ‑ 0 + 1) * Rnd(1) + 0)))
Call GFCurve1.C_Tick
End Sub
[END OF FILE]