NI CWGraph 显示波形图

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

ptrWaveBox.Axes(1).Maximum = 1000 ptrWaveBox.Axes(2).Maximum = 20 ptrWaveBox.Axes(2).Minimum = 0       Dim fTemp(2000) As Single   For n = 0 To iPixel - 1     fTemp(n) = wave(n) Next   ReDim wave(iPixel) As Single   For n = 0 To iPixel - 1     wave(n) = fTemp(n) Next   wave(iPixel) = Rnd(10) * 10 iPixel = iPixel + 1   xFirst = 0 If (iPixel > ptrWaveBox.Axes(1).Maximum) Then xFirst = ptrWaveBox.Axes(1).Maximum - iPixel + 1 End If     ptrWaveBox.Plots(1).PlotY wave, xFirst ptrWaveBox.Plots(1).Visible = True