Table des Matières
Publicité
17. Utilisation du Yocto-VOC-V3 en Delphi
program
modulecontrol;
{$APPTYPE CONSOLE}
uses
SysUtils,
yocto_api;
const
serial = 'YVOCMK03-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;
var
module : TYModule;
c
: char;
errmsg : string;
begin
// Setup the API to use local USB devices
if
yRegisterHub('usb', errmsg)<>YAPI_SUCCESS
begin
Write('RegisterHub error:
exit;
end;
module := yFindModule(serial);
refresh(module);
repeat
read(c);
case
c
of
'r': refresh(module);
'b': beacon(module,Y_BEACON_ON);
'
': beacon(module,Y_BEACON_OFF);
end;
until
c = 'x';
yFreeAPI();
end.
Chaque propriété
xxx
propriétés qui se sont pas en lecture seule peuvent être modifiées à l'aide de la méthode
Pour plus de détails concernant ces fonctions utilisées, reportez-vous aux chapitre API
()
Modifications des réglages du module
Lorsque que vous souhaitez modifier les réglages d'un module, il suffit d'appeler la fonction
correspondante, cependant cette modification n'a lieu que dans la mémoire vive du
set_xxx()
module: si le module redémarre, les modifications seront perdues. Pour qu'elle soient mémorisées
de manière persistante, il est nécessaire de demander au module de sauvegarder sa configuration
courante dans sa mémoire non volatile. Pour cela il faut utiliser la méthode
136
// 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');
:
');
'+errmsg);
du module peut être lue grâce à une méthode du type
else
Writeln('off');
off');
then
1000)+'s');
cable)');
, et les
get_xxxx()
set_xxx
saveToFlash()
www.yoctopuce.com
.
Publicité
Table des Matières
