Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GPS - ActiveX
Message
From
30/08/2005 04:27:45
Fida Shamsoodeen
Combined Systems (Pty) Ltd
Centurion, South Africa
 
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Miscellaneous
Thread ID:
01043216
Message ID:
01045048
Views:
23
Hi Borisalv

The tanslated samples worked 100%. Thank you for the effort and help!

Fida

>Fida,
>Here it is the translated samples
>
>Serial Port Sample:
>
>FUNCTION SPWaypointsExample()
>  LOCAL myGPS       AS GPSLibrary2PE.GPSDevice,
>        myWayPoints AS GPSLibrary2PE.GPSWaypoints,
>        WayPoints   AS GPSLibrary2PE.GPSWaypoint
>
>  myGPS = CREATEOBJECT("PSLibrary2PE.GPSDevice")
>
>  * Open the serial port, COM1 in this example
>  myGPS.Link.PortOpen(1)
>
>  * Retrieve the Waypoints from the GPS
>  myWaypoints = myGPS.GetWaypoints()
>
>  * Process the waypoints as required, in this example simply
>  * print a list of the Waypoints to the dedug window
>  For Each Waypoint In myWaypoints
>    With Waypoint
>      ? "Identifier=", .Identifier, "Latitude=",.Latitude, "Longitude=",Longitude
>    EndWith
>  Next
>
>  * Close the port
>  myGPS.Link.PortClose()
>
>  * Tidy up
>  STORE NULL TO myGPS, myWayPoints, WayPoints
>  RELEASE myGPS, myWayPoints, WayPoints
>
>RETURN ""
>
>
>USB Example
>
>
>FUNCTION USPWaypointsExample()
>
>  LOCAL myGPS       AS GPSLibrary2PE.GPSDevice,
>        myWayPoints AS GPSLibrary2PE.GPSWaypoints,
>        WayPoints   AS GPSLibrary2PE.GPSWaypoint
>
>  myGPS = CREATEOBJECT("PSLibrary2PE.GPSDevice")
>
>  * Retrieve the Waypoints from the GPS
>  myWaypoints = myGPS.GetWaypoints
>
>  * Process the waypoints as required, in this example simply
>  * print a list of the Waypoints to the dedug window
>  For Each Waypoint In myWaypoints
>    With Waypoint
>       ? "Identifier=",.Identifier, " Latitude=", .Latitude," Longitude=",.Longitude
>    EndWith
>  Next
>
>  * Tidy up
>  STORE NULL TO myGPS, myWayPoints, WayPoints
>  RELEASE myGPS, myWayPoints, WayPoints
>
>RETURN ""
>
>
>You can use ObjectBrowser then navigate, click open->Browse, navigate to that DLL "C:\Program Files\Waymex\GPSLibrary_PE\WMXGPSGRMNPE.dll" and select it.
>
>Keep in mind that I could test these codes because I have no GPS installed.
Wannabe FoxPert!!!
Previous
Reply
Map
View

Click here to load this message in the networking platform