** Make Random Data for Graph Object **
Pego1.Subsets = 4
Pego1.Points = 12
** This is the slow way which is included for comparison **
For s = 0 To 3 4 subsets
For p = 0 To 11 12 points
Pego1.YData(s, p) = (p + 1) * 5 + Rnd(25)
Next p
Next s
** Pass data via dynamically allocated one dimensional array **
'** This logic stores all of the first subset's data and
'** then the second subsets's data and so on into the TmpData array.
ReDim TmpData(Pego1.Subsets * Pego1.Points) As Single 'Note Single
For s = 0 To 3 4 subsets
For p = 0 To 11 12 points
Offset = (s * Pego1.Points) + p
TmpData(Offset) = (p + 1) * 5 + Rnd(25);
Next p
Next s
Call PEvset(Pego1.hObject, PEP_faYDATA, TmpData(0), 48);
|