Casio Naurtech CETerm Ver.5.5 Scripting Guide - Manual (Page 54)

N AURTECH W EB B ROWSER AND T ERMINAL E MULATION FOR W INDOWS CE AND W INDOWS M OBILE
CETerm Scripting Guide Page 54
var p;
var pl = Device.GPS.GetPosition();
// Parse position literal object
eval( "p="+pl );
OS.Beep();
// Update display message
CETerm.Message.Text = "Lat and Long will display values when" +
" GPS obtains a location fix." +
" Initial fix may take several minutes." +
"\nPress ENTER when done.\nLat:" +
p.latitude + "\nLong:" + p.longitude;
// Reschedule event listener
var s = OS.Event.SetListener( "GPSPositionUpdateEvent",
"UpdateGPSPosition();", 300000 );
}
// Function to cleanup GPS display when done
function CleanupGPS()
{
var g = Device.GPS;
var m = CETerm.Message;
var e = OS.Event;
var k = Device.Keyboard;
// Close GPS device
g.Close();
// Hide display
m.IsVisible = false;
// Remove event listener
e.ClearListener( "GPSPositionUpdateEvent" );
// Delete event
e.Delete( "GPSPositionUpdateEvent" );
// Remove hot-key assignment
k.DeleteHotKey( "IDA_SCRIPT_50" );
}
// Function which initializes demo
function GPSDemo()
{
var s; // status
var g = Device.GPS;
var m = CETerm.Message;
var e = OS.Event;
var k = Device.Keyboard;
// Create event for GPS position update
var ep = e.Create( "GPSPositionUpdateEvent", false );