User manual

6
List1.AddItem "GND level [counts]" + Chr(9) +
Str(DataBuffer(2))
For i = 0 To 20
List1.AddItem "Data(" + Str(i) + ")" + Chr(9) +
Chr(9) + Str(DataBuffer(i + 3))
Next
End Sub
DSOLink futtatása Borland C++ Builder-ben
A következő fájlok állnak rendelkezésre a
\PC-lab2000SE tools\PCSU1000 - PCS500 - PCS100 -
K8031\Data transfer
DSOLink_DLL\DSOLink_Demo_BCB\
mappában a VELSOFT CD –n, Borland C++Builder céljára:
DSOLink.dll Dynamic Link Library
DSOLink.h a C/C++ Header fájl függvény prototípushoz
DSOLink.lib Import Library
DSOLink_demo.cpp demo source
1. Készítsen új projektet a Borland C++ Builder-ben
2. Csatolja a projekthez az Import Library-t, a Project | Add
to Project menü opcióval.
3. Csatoljon egy #include utasítást a fő egységhez
DSOLink.H –val.
4. Csatolja a DLL-funkciót hívó kódot.
DSOLink.h
//---------------------------------------------------------------------------
// DSOLink.h
#ifdef __cplusplus
extern "C" { /* Assume C declarations for C++ */
#endif
#define FUNCTION __declspec(dllimport)
FUNCTION __stdcall ReadCh1(int* ptr);
FUNCTION __stdcall ReadCh2(int* ptr);
#ifdef __cplusplus
}
#endif
//---------------------------------------------------------------------------
Example (in Borland C++Builder)
//---------------------------------------------------------------------------
// DSOLink_demo.cpp
#include <vcl.h>
#pragma hdrstop
#include "DSOLink.h"
#include "DSOLink_demo.h"
//---------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//----------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int data[5000];
ReadCh1(data);
Memo1->Clear();
Memo1->Lines->Add("Sample rate [Hz]:
"+IntToStr(data[0]));
Memo1->Lines->Add("Full scale [mV]:
"+IntToStr(data[1]));
Memo1->Lines->Add("GND level [counts]:
"+IntToStr(data[2]));
Memo1->Lines->Add("");
for (int i = 0; i < 20; i++)
{
Memo1->Lines->Add("Data
"+IntToStr(i)+char(9)+IntToStr(data[i+3]));
}
}
//---------------------------------------------------
Tudnivaló: Ha az Import Library nem kompatibilis az Ön
Borland C++ verziójával, készíthet egy Import Library-t, az
IMPLIB futtatásával a DLLen.
IMPLIB működése:
IMPLIB (célmappa név) (forrás dll)
Pl: IMPLIB DSOLink.lib DSOLink.dll
4 adatátvitel Windows Excel-be
A PC-lab2000SE szoftver rendelkezik egy DLL-el (Dynamic
Link Library): DSOLink.DLL, a Windows SYSTEM32
mappában. A DLL segítségével az alkalmazásait átteheti
Excel, Visual Basic, Delphi vagy más 32-bites Windows
programba DLL támogatással.
Görbék adatainak átvitele Excel -be
Az alábbi példa megmutatja, hogyan lehet adatokat a
Velleman PC-szkópokról közvetlenül, más szoftver
használata nélkül táblázatkezelőbe vinni.
1. Indítsa a Microsoft Excel –t, és nyisson egy új
dokumentumot.
2. A View / Toolbars menüből válassza: Forms.
Megjelenik a megfelelő eszköztár.
3. Létesítsen egy Button-t [gomb]
A Forms-eszközlécen, kattintson a "Button" gombra: az
egérkurzor kis keresztté változik.
Az Excel munkalapon az egérrel azon helyen, ahova a
gombot kívánja, rajzoljon egy négyzetet.
Az egér elengedésekor megjelenik az "Assign Macro"
[makró hozzárendelés] ablak.
4. Üsse be a makró nevet: ReadAll és kattintson a New
gombra.
Megnyílik a Microsoft Visual Basic Edit ablak. Egy ReadAll
nevű szubrutin készült el.
5. Helyettesítse a standard szöveget:
Sub ReadAll()
End Sub
a következővel az edit ablakban:
(Copy and Paste=másol/beilleszt használatával)
Option Explicit
Dim DataBuffer1(0 To 5000) As Long
Dim DataBuffer2(0 To 5000) As Long
Private Declare Sub ReadCh1 Lib "DSOLink.dll " (Buffer
As Long)
Private Declare Sub ReadCh2 Lib "DSOLink.dll " (Buffer
As Long)
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. Nyomja az Alt+F11-et az Excel-be való visszatéréshez.
7. Írja be a következő szöveget az A oszlopba:
Sample rate [Hz]
Full scale [mV]
GND level [counts]
Data 0
Data 1
Data 2
...
8. Indítsa a PCSU1000, PCS500, PCS100 vagy K8031
szkóp programot, és kattintson a Run vagy Single
gombra.