User manual

PC Oscilloscope PCSU100021
© 2005 ... Velleman
Sub
ReadAll()
Dim
i
As
Long
ReadCh1 DataBuffer1(0)
ReadCh2 DataBuffer2(0)
With
ActiveSheet
For
i = 0
To
99
.Cells(i + 1, 2) = DataBuffer1(i)
.Cells(i + 1, 3) = DataBuffer2(i)
Next
i
End
With
End
Sub
6.
Press
Alt+F11
to return to Excel.
7.
Type following texts to column
A
:
Sample rate [Hz]
Full scale [mV]
GND level [counts]
Data 0
Data 1
Data 2
...
8.
Start oscilloscope program for PCSU1000, PCS500, PCS100 or K8031 and click
Run
or
Single
button.
9.
Click the button on the Excel worksheet. The created macro will execute and the data
described in column
A
will appear to the worksheet columns
B
and
C
.
·
Rows 4...4099 contain the acquired data in A/D converter counts (0...255) for PCSU1000
and PCS500.
·
Rows 4...4083 contain the acquired data in A/D converter counts (0...255) for PCS100 and
K8031.
·
The triggering point of PCSU1000 and PCS500 is on row 1030 and of PCS100 and K8031
on row 4.