How to deploy GPS application on Windows Mobile 6

All replies

• 

  

  1

  Sign in to vote

  Hi Neneki,

  Please ask this question on Windows Phone forum: http://create.msdn.com/en-US/ 

  Thank you for your understanding and support.

  Best regards,

  ---

  Mike Feng
  MSDN Community Support | Feedback to us
  Please remember to mark the replies as answers if they help and unmark them if they provide no help.
  

  • Proposed as answer by Mr. Wharty Thursday, May 31, 2012 3:42 AM
  • Marked as answer by Just Karl Sunday, September 22, 2013 3:02 PM

  Wednesday, May 16, 2012 10:26 AM
• 

  

  0

  Sign in to vote

  Hi, this is my code, and is run OK

  Imports System
  Imports System.Drawing
  Imports System.Collections
  Imports System.Windows.Forms
  Imports System.Data
  Imports Microsoft.WindowsMobile.Samples.Location
  Public Class Form1
      Dim device As GpsDeviceState = Nothing
      Dim position As GpsPosition = Nothing
      Dim gps As New Gps
  
      'Private updateDataHandler As EventHandler
      Dim updateDataHandler As System.EventHandler = New System.EventHandler(AddressOf UpdateData)
  
  
      Private Sub btnCapturar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCapturar.Click
          If gps.Opened = False Then
              gps.Open()
          End If
      End Sub
  
      Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
          If gps.Opened = True Then
              gps.Close()
          End If
  
      End Sub
  
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        
          AddHandler gps.DeviceStateChanged, AddressOf gps_DeviceStateChanged
          AddHandler gps.LocationChanged, AddressOf gps_LocationChanged
      End Sub
  
      Protected Sub gps_LocationChanged(ByVal sender As Object, ByVal args As LocationChangedEventArgs)
          position = args.Position
          Invoke(updateDataHandler)
      End Sub
  
      Sub gps_DeviceStateChanged(ByVal sender As Object, ByVal args As DeviceStateChangedEventArgs)
          device = args.DeviceState
          Invoke(updateDataHandler)
      End Sub
  
      Sub UpdateData(ByVal sender As Object, ByVal args As System.EventArgs)
          If gps.Opened = True Then
              If device Is DBNull.Value = False Then
                  'str = device.FriendlyName + " " + device.ServiceState + ", " + device.DeviceState + "\n";
              End If
  
              If position Is DBNull.Value = False Then
                  If position.LatitudeValid = True Then
                      lblLatitud.Text = position.Latitude
                  End If
                  If position.LongitudeValid = True Then
                      lblLongitud.Text = position.Longitude
                  End If
              End If
              If position.SatellitesInSolutionValid And position.SatellitesInViewValid And position.SatelliteCountValid Then
                  lblSatelites.Text = "Satelites: " & position.SatelliteCount
              End If
              If Val(lblLatitud.Text) <> 0 And Val(lblLongitud.Text) <> 0 And position.PositionDilutionOfPrecision > 0 And position.PositionDilutionOfPrecision < 3 Then
                  '                gps.Close()
                  MsgBox("Finalizado")
              End If
          End If
      End Sub
  End Class
  

  Wednesday, July 17, 2013 8:45 PM