The selected time relates to the duration of a speed change from standstill to maximum speed or vice versa. The exact value is calculated as follows:
a = v / t = maximum speed / acceleration time. The new acceleration value is used with the next "S02" command.

Example:
Acceleration index: 3 = 33 s
Maximum treadmill speed: 22 km/h = 6.11 m/s
Acceleration value: a = (6.11 / 33) m/s² = 0.185 m/s²

coscomgetElevation

int coscomgetElevation(int portnumber;double *value);

function coscomgetElevation(portnumber : Integer;value : PDouble) : Integer;

value: actual elevation in %

coscomgetHeartrate

int coscomgetHeartrate(int portnumber;int *value);

function coscomgetHeartrate(portnumber : Integer;value : PInteger) : Integer;

value: actual heart frequency in beats per minute

coscomgetDistance

int coscomgetDistance(int portnumber;int *value);

function coscomgetDistance(portnumber : Integer;value : PInteger) : Integer;

value: actual distance in meter ( since last start command )

coscomgetFailSafe

int coscomgetFailSafe(int portnumber;int *value);

function coscomgetFailSafe(portnumber : Integer;value : PInteger) : Integer;

Reads communication timeout for failsafe (STOP)

value:

0: Disable Failsafe (Default)
1 - 250 1/10 seconds (= 0.1 - 25.0 seconds):

coscomsetFailSafe

int coscomsetFailSafe(int portnumber;int value);

function coscomsetFailSafe(portnumber : Integer;value : Integer) : Integer;

Enables communication timeout for failsafe (STOP)

value:

0: Disable Failsafe (Default)
1 - 250 1/10 seconds (= 0.1 - 25.0 seconds):

coscomsetSpeed

int coscomsetSpeed(int portnumber;value : Double);

function coscomsetSpeed(portnumber : Integer;value : Double) : Integer;

value: speed in meter per seconds

coscomsetAcceleration

int coscomsetAcceleration(int portnumber;int value);

function coscomsetAcceleration(portnumber : Integer;value : Integer) : Integer;

value: acceleration in acceleration indices ( see coscomgetAcceleration)

Only activated with new coscomsetSpeed function!

coscomsetElevation

int coscomsetElevation(int portnumber;double value);

function coscomsetElevation(portnumber : Integer;value : Double) : Integer;

value: elevation in %

int coscomsetProtocol(int portnumber;int how);

function coscomsetProtocol(portnumber : Integer;how : Integer) : Integer;

Activates communication protocol.

how:

1 On

2 Off

coscomgetProtocol

int coscomgetProtocol(int portnumber;int *how);

function coscomgetProtocol(portnumber : Integer;how : PInteger) : Integer;

Activates communication protocol.

how:

1 On

2 Off

How to use coscomekg.dll

1. Delphi

Make sure that the coscomekg.dll is in your application path.
Add coscomdll.pas to your project.
Sample code open communication:

procedure TTestcoscomdllForm.ActionOpenDeviceExecute(Sender: TObject);

var

aportnumber : Integer;

begin

closeDevice;

try

aportnumber := StrToInt(Edit1.Text);

except

exit;

end;

if coscomopenPort(aportnumber) > 0 then

FPortNumber := aportnumber;

end;

Sample code close communication:

procedure TTestcoscomdllForm.closeDevice;

begin

if (FPortNumber > 0) and (coscomclosePort(FPortNumber) > 0) then

FPortNumber := 0;

end;

Sample code read status

procedure TTestcoscomdllForm.ActionGetStatusExecute(Sender: TObject);

var

myvalue,arowindex : Integer;

begin

arowindex := 1;

FLastError := coscomgetStatus(FPortNumber,@myvalue);

if FLastError > 0 then

begin

with StringGrid1 do

begin

Cells[0,FixedRows + arowindex] := 'Status';

Cells[1,FixedRows + arowindex] := Format('%d',[myvalue]);

end;

end

else

begin

with StringGrid1 do

begin

Cells[0,FixedRows + arowindex] := 'Fail Safe';

case FLastError of

0: Cells[1,FixedRows + arowindex] := 'Connection Off';

-1: Cells[1,FixedRows + arowindex] := 'Function unsupported';

-2: Cells[1,FixedRows + arowindex] := 'Connection interrupted';

-3: Cells[1,FixedRows + arowindex] := 'Exception';

-4: Cells[1,FixedRows + arowindex] := 'wrong port number';

end;

Sample code set speed

procedure TTestcoscomdllForm.ActionGetSpeedExecute(Sender: TObject);

var

myvalue : Double;

begin

if coscomgetSpeed(FPortNumber,@myvalue) > 0 then

begin

with StringGrid1 do

begin

Cells[0,FixedRows + 2] := 'Speed';

Cells[1,FixedRows + 2] := FormatFloat('0.0',myvalue);

end;

end

else

begin

with StringGrid1 do

begin

Cells[0,FixedRows + 2] := 'Speed';

Cells[1,FixedRows + 2] := 'Error';

end;

Sample code key functions

procedure TTestcoscomdllForm.Button1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

coscomKeyPressPlus(FPortNumber,1);

end;

procedure TTestcoscomdllForm.Button1MouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

coscomKeyPressPlus(FPortNumber,0);

end;

2. C/ C++

Make sure that the coscomekg.dll is in your application path.
Add coscomdll.cpp to your project.
Use multithread options to compile your project!
Make sure loadcoscomEKGDLL() and unloadcoscomEKGDLL() is invoked only once. Do not use the instance initialization or clean up functions of the application!
Sample C++ Builder:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

loadcoscomEKGDLL();

Application->CreateForm(__classid(Tformborlandtestegk), &formborlandtestegk);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

unloadcoscomEKGDLL();

return 0;

}

Sample Visual C++:

BOOL CMfctestcoscomdllApp::InitApplication()

{

// TODO: Speziellen Code hier einfügen und/oder Basisklasse aufrufen

loadcoscomEKGDLL();

return CWinApp::InitApplication();

}

void CMfctestcoscomdllApp::OnFinalRelease()

{

// TODO: Speziellen Code hier einfügen und/oder Basisklasse aufrufen

unloadcoscomEKGDLL();

CWinApp::OnFinalRelease();

}

Sample code open communication:

void __fastcall Tformborlandtestegk::OpenDevice1Click(TObject *Sender)

{

char StrComPort[20];

int Size = Edit1->GetTextLen();

Edit1->GetTextBuf(StrComPort,Size+1);

int aportnumber = atoi(StrComPort);

closeDevice();

if (coscomopenPort(aportnumber) > 0 )

{

FPortNumber = aportnumber;

}

Sample code close communication:

void Tformborlandtestegk::closeDevice()

{

if ((FPortNumber > 0) && (coscomclosePort(FPortNumber) > 0))

FPortNumber = 0;

}

Sample code read status

void __fastcall Tformborlandtestegk::ReadStatus1Click(TObject *Sender)

{

int myValue;

int arowindex = 1;

StringGrid1->Cells[0][StringGrid1->FixedRows + arowindex] = "Status";

FLastError = coscomgetStatus(FPortNumber,&myValue);

if (FLastError > 0)

{

StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = FormatFloat("0",myValue);

}

else

{

switch (FLastError) {

case 0: StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = "Connection Off"; break;

case -1: StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = "Function unsupported"; break;

case -2: StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = "Connection interrupted"; break;

case -3: StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = "Exception"; break;

case -4: StringGrid1->Cells[1][StringGrid1->FixedRows + arowindex] = "wrong Portnumber"; break;

}

Sample code set speed

void __fastcall Tformborlandtestegk::SetSpeed1Click(TObject *Sender)

{

double myValue;

try

{

myValue = StrToFloat(StringGrid2->Cells[1][StringGrid2->FixedRows]);

if (coscomsetSpeed(FPortNumber,myValue) > 0)

StringGrid2->Cells[0][StringGrid2->FixedRows] = "Speed Ok";

else

StringGrid2->Cells[0][StringGrid2->FixedRows] = "Speed failed";

}

catch(...)

{

StringGrid2->Cells[0][StringGrid2->FixedRows] = "Speed failed";

}

Sample code key functions

void __fastcall Tformborlandtestegk::Button1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

coscomKeyPressMinus(FPortNumber,1);

}

//---------------------------------------------------------------------------

void __fastcall Tformborlandtestegk::Button1MouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

coscomKeyPressMinus(FPortNumber,0);

}