Yoctopuce Yocto-GPS-V2 Mode D'emploi page 109

Vous reconnaîtrez dans cet exemple l'utilisation des fonctions expliquées ci-dessus, cette fois
utilisées avec le décorum nécessaire à en faire un petit programme d'exemple concret.
program helloworld;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows,
yocto_api,
yocto_gps;
Procedure Usage();
var
exe : string;
begin
exe:= ExtractFileName(paramstr(0));
WriteLn(exe+'
WriteLn(exe+'
WriteLn(exe+'
halt;
End;
var
gps : TYGps;
errmsg : string;
done : boolean;
begin
if (paramcount<1) then
// Setup the API to use local USB devices
if yRegisterHub('usb', errmsg)<>YAPI_SUCCESS
begin
Write('RegisterHub error:
exit;
end;
if paramstr(1)='any'
begin
// try to find
gps := yFirstGps();
if gps=nil then
begin
writeln('No module connected (check USB
halt;
end
end
else // or use the one specified on the commande line
gps:= YFindGps(paramstr(1)+'.gps');
// let's poll
done := false;
repeat
if (gps.isOnline()) then
begin
if (gps.get_isFixed()<>Y_ISFIXED_TRUE) then
Writeln('fixing')
else
writeln(gps.get_latitude()+'
Writeln('
Sleep(1000);
end
else
begin
Writeln('Module not connected (check identification and USB
done := true;
end;
until done;
yFreeAPI();
end.
www.yoctopuce.com
<serial_number>');
<logical_name>');
any');
usage();
'+errmsg);
then
the first temperature gps available
(press Ctrl-C to exit)');
then
cable)');
'+gps.get_longitude());
14. Utilisation du Yocto-GPS-V2 en Delphi
cable)');
103