GFCurveMaker/Testfrm.frm
VERSION 5.00
Begin VB.Form Testfrm
Caption = "GFCurveMakerTest"
ClientHeight = 3075
ClientLeft = 60
ClientTop = 435
ClientWidth = 4635
LinkTopic = "Form2"
ScaleHeight = 3075
ScaleWidth = 4635
StartUpPosition = 3 'Windows‑Standard
Begin VB.CommandButton DrawCommand
Caption = "Draw"
Height = 375
Left = 2640
TabIndex = 0
Top = 2640
Width = 1935
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)2003 by Louis.
Private Sub DrawCommand_Click()
'on error resume next
Dim CurveArray(1 To 1000) As Double
'preset
GFCurveMakerfrm.CurveForeColor = RGB(128, 0, 256)
GFCurveMakerfrm.CurveBackColor = RGB(255, 255, 255)
'begin
Call GFCurveMaker_CurveFromFileDouble(CurveArray(), STUFF_PROGRAMDIRECTORY + "DebugCurveData.dat")
Call GFCurveMakerfrm.GFCurveMaker_Draw( _
CurveArray(), 20, 20000, "Hertz", 5, "This is a test of GFCurveMaker." + Chr$(13) + Chr$(10) + "Just manipulate (Ins: new point, Del: remove point) the curve and press 'Save'.", "Mighty test of GFCurveMaker")
Call GFCurveMaker_CurveToFileDouble(CurveArray(), STUFF_PROGRAMDIRECTORY + "DebugCurveData.dat")
End Sub
Private Sub Form_Unload(Cancel As Integer)
'on error resume next
End
End Sub
[END OF FILE]