LiveCode Forums.

Code: Select all

on preOpenCard
   put empty into field "messages1"
   --
   put empty into field "messages2"
   --
   put empty into field "messages3"
   --
   put empty into field "messages4"
   
end preOpenCard

on openCard
  
      mobileSensorAvailable ("heading", true)
         mobileStartTrackingSensor "heading", false
         --
         mobileSensorAvailable ("rotation rate", true) 
         mobileStartTrackingSensor "rotation rate", false
         --
         mobileSensorAvailable ("acceleration", true) 
         mobileStartTrackingSensor "acceleration", false
         --
          mobileSensorAvailable ("location", true)
         mobileStartTrackingSensor "location", false
end openCard

on closeCard
 
   mobileStopTrackingSensor "heading"
   //
   mobileStopTrackingSensor "rotation rate"
   //
   mobileStopTrackingSensor "acceleration"
   //
   mobileStopTrackingSensor "location"
   
end closeCard

//Location
on locationChanged latitude, longitude, altitude
   put "Location"&cr&"latitude:"&&latitude&cr&"longitude:"&&longitude&cr&"altitude:"&&altitude into field "messages1"
end locationChanged

//Acceleration
on accelerationChanged x, y, z
   put "Accel"&&x&cr&y&cr&z into field "messages2"
end accelerationChanged

//Heading
on headingChanged heading
   put "Heading"&&heading into field "messages3"
end headingChanged

//Rotation
on rotationRateChanged x, y, z
   put "Rotation rate"&cr&"X:"&&x&cr&"Y:"&&y&cr&"Z:"&&z into field "messages4"
end rotationRateChanged

Code: Select all

put 0 into myVar
repeat forever
   add 0 to myVar
   if myVar = 1 then
   end if
end repeat