User manual

PC Oscilloscope PCSU100017
© 2005 ... Velleman
Die folgenden Daten werden in Zwischenspeicher gesteckt.
[0] : Sample rate in Hz
[1] : Full scale voltage in mV
[2] : Ground level in A/D converter counts. The value may be beyond the 0...255 range if GND level
is adjusted beyond the waveform display area.
[3...4098] : The acquired data in A/D converter counts (0...255), from PCSU1000.
The triggering point of the PCSU1000 is at the data location [1027].
Running the DSOLink in Delphi
Suchen Sie im
\PC-lab2000SE tools\PCSU1000 - PCS500 - PCS100 - K8031\Data transfer
DSOLink_DLL\DSOLink_Demo_VB\
Ordner auf der Velleman CD die Demo-Dateien.
Dieser Ordner enthält ein Ready-To-Run
DSOLink_Demo.EXE
Programm und dessen
Quellencode.
Sie können die Dateien in jeden Ordner kopieren und Delphi verwenden um die Dateien zu
überprüfen, beabrbeiten und zu kompilieren.
Beispiel
(in Delphi)
var
data:
array
[
0
..
5000
]
of
longint;
procedure
ReadCh1(Buffer: Pointer);
stdcall
;
external
'DSOLink.dll'
;
procedure
TForm1.Button1Click(Sender: TObject);
var
i: longint;
p:pointer;
begin
p:= @data[
0
];
ReadCh1(p);
memo1.clear;
memo1.lines.add(
'Sample rate [Hz]'
+chr(
9
)+inttostr(data[
0
]));
memo1.lines.add(
'Full scale [mV]'
+chr(
9
)+inttostr(data[
1
]));
memo1.lines.add(
'GND level [counts]'
+chr(
9
)+inttostr(data[
2
]));
memo1.lines.add(
''
);
begin
for
i:=
0
to
20
do
memo1.lines.add(
'Data ('
+inttostr(i)+
')'
+chr(
9
)+chr(
9
)+inttostr(data[i+
3
]));
end
;
end
;
Running the DSOLink in Visual Basic
Achten Sie darauf, dass die sich Datei im
DSOLink.DLL
im Windows'
SYSTEM32
Ordner befindet.
Suchen Sie im
\PC-lab2000SE tools\PCSU1000 - PCS500 - PCS100 - K8031\Data transfer
DSOLink_DLL\DSOLink_Demo_VB\
Ordner auf der VELSOFT CD die Demo-Dateien.
Dieser Ordner enthält ein Ready-To-Run
DSOLink_Demo.EXE
Programm und dessen
Quellencode.
Sie können die Dateien in jeden Ordner kopieren und Delphi verwenden um die Dateien zu
überprüfen, beabrbeiten und zu kompilieren.
Beispiel
(in Visual Basic)
Option
Explicit
Dim
DataBuffer(0
To
5000)
As
Long
Private
Declare
Sub
ReadCh1
Lib
"DSOLink.dll " (Buffer
As
Long
)
'This reads the settingsd and 4096 bytes of data from CH1 to the data buffer.
'The first 21 values are displayed.
Private
Sub
Read
_CH1_Click(Index
As
Integer
)
Dim
i
As
Long
List1.Clear
ReadCh1 DataBuffer(0)
List1.AddItem "Sample rate [Hz]" + Chr(9) + Str(DataBuffer(0))
List1.AddItem "Full scale [mV]" + Chr(9) + Str(DataBuffer(1))
List1.AddItem "GND level [counts]" + Chr(9) + Str(DataBuffer(2))
List1.AddItem ""