Velleman PCSU1000 DSO - Manual (Page 22)

PC Oscilloscope PCSU1000 21
© 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.