Contrôle De La Partie Module - Yoctopuce Yocto-3D-V2 Mode D'emploi

18. Utilisation du Yocto-3D-V2 en Delphi
// retreive some sensors present on the yocto-3D
tilt1 := yFindTilt(serial+'.tilt1');
tilt2 := yFindTilt(serial+'.tilt2');
compass := yFindCompass(serial+'.compass');
accelerometer :=
gyro :=yFindGyro(serial+'.gyro');
// let's poll
done := false;
count :=0;
repeat
if (tilt1.isOnline()) then
begin
if (count mod 10=0) then
Write(FloatToStr(tilt1.get_currentValue())+#9);
Write(FloatToStr(tilt2.get_currentValue())+#9);
Write(FloatToStr(compass.get_currentValue())+#9);
Write(FloatToStr(accelerometer.get_currentValue())+#9);
Writeln(FloatToStr(gyro.get_currentValue()));
inc(count);
Sleep(100);
end
else
begin
Writeln('Module not connected (check identification and USB
done := true;
end;
until done;
yFreeAPI();
end.
18.3. Contrôle de la partie module
Chaque module peut-être contrôlé d'une manière similaire, vous trouverez ci dessous un simple
programme d'exemple affichant les principaux paramètres d'un module et permettant d'activer la
balise de localisation.
program modulecontrol;
{$APPTYPE CONSOLE}
uses
SysUtils,
yocto_api;
const
serial = 'Y3DMK002-123456';
procedure refresh(module:Tymodule)
begin
if (module.isOnline())
begin
Writeln('');
Writeln('Serial
Writeln('Logical name : '
Writeln('Luminosity
Write('Beacon
if (module.get_beacon()=Y_BEACON_ON) then Writeln('on')
Writeln('uptime
Writeln('USB current
Writeln('Logs
Writeln(module.get_lastlogs());
Writeln('');
Writeln('r : refresh / b:beacon ON / space : beacon
end
else Writeln('Module not connected (check identification and USB
end;
procedure beacon(module:Tymodule;state:integer);
begin
module.set_beacon(state);
refresh(module);
end;
146
yFindaccelerometer(serial+'.accelerometer');
Writeln('tilt1'#9'tilt2'#9'compass'#9'acc'#9'gyro');
// use serial number or logical name
;
then
: ' + module.get_serialNumber());
+ module.get_logicalName());
: ' + intToStr(module.get_luminosity()));
:');
: ' + intToStr(module.get_upTime() div
: ' + intToStr(module.get_usbCurrent())+'mA');
: ');
else Writeln('off');
off');
cable)');
1000)+'s');
cable)');
www.yoctopuce.com