>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 "" >>
>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 "" >>