Attribute VB_Name = "Module2"
'*********************************************************
'* Demonstration of module Graph2D.bas - A test periodic *
'* signal is successively drawn in 10 predefined windows *
'* (#1 to #10).                                          *
'*                                                       *
'*                          Copyright J-P Moreau, Paris. *
'*                               (www.jpmoreau.fr)       *
'*********************************************************

 

Sub GrafDemo()

 Xratio = XrIBM: Yratio = YrIBM

 Dim t As Double, ti As Double, tf As Double, dt As Double
 Dim i As Integer, ndata As Integer
 ReDim V(1023)

 'Create test signal F(t)
 LogX = 0: LogY = 0: EchAuto = 1
 ti = 0#: tf = 0.2
 ndata = 1024
 dt = (tf - ti) / (ndata - 1)
 t = ti - dt
 For i = 0 To ndata - 1
   t = t + dt
   V(i) = Curve#(t)
 Next

 'Draw a test curve in the 10 predefined windows
 Form1.AutoRedraw = False
 Form1.Cls
 For i = 1 To 10
   CurveXY i, ndata, ti, tf, 0, 1
   Legends 0, i, "TEST CURVE", "Time sec", "Acc. m/s2"
   Form1.Font.Bold = True
   Form1.Font.Size = 12
   Display 0, Ixmx - 350, Iymn + 100, CStr(i)
   Form1.Font.Bold = False
   Form1.Font.Size = 9
   Select Case i
     Case 3, 4, 7, 9
       Pause
       Form1.Cls
   End Select
 Next
 
 'Fprm1.Cls
 'PRINT : INPUT "  Save the curve (y/n) ? ", r$
 'If r$ = "y" Then
 '  INPUT "  File name: ", nomfich$
 '  DiskWriteData nomfich$, ndata%, ti, tf, "TEST CURVE", "Time sec", "Acc. m/s2"
 'End If
 
 End Sub

Function Curve#(t As Double)
Dim pi As Double
  pi = 3.1415926535
  Curve# = 10 * Sin(2 * pi * 50 * t) + 20 * Sin(2 * pi * 250 * t) + 50 * Sin(2 * pi * 500 * t)
End Function