our price

$49USD

lifetime free upgrades

BUY ONLINE

  Overview

  Reference

  Code Sample

  Download

  Buy Now

 PAD file

 Awards

 About Capturix

 Contact us

Our online store is:

Powered by RegNow

EXAMPLE APPLICATION  

Private Sub Command1_Click()

     Timer1.Enabled = True

    GPS1.Port = Val(Me.display(6).Text)

    GPS1.Start

 End Sub

 Private Sub Command2_Click()

     GPS1.ShowMapQuestWebPage

 End Sub

 Private Sub Command3_Click()

     GPS1.StopGPS

    Timer1.Enabled = False

 End Sub

 Private Sub Command4_Click()

     Dim filex As String

    filex = "C:\Sample.kml"

     GPS1.CreateGoogleEarthPlaceMark filex, "Sample Placemark", "SampleGPS"

    MsgBox "File written on " + filex

 End Sub

 Private Sub Form_Load()

     On Error Resume Next 

    Me.Caption = "Sample Application for Capturix GPS SDK  Version " + GPS1.Version 

End Sub

 Private Sub GPS1_Error(Description As String)

     MsgBox Description, vbCritical, "GPS Error"

 End Sub

 Private Sub Timer1_Timer()

     display(0).Text = GPS1.GPS_Time

    display(1).Text = GPS1.Satellites

    display(2).Text = GPS1.Altitude + " " + GPS1.AltitudeUnit

    display(3).Text = GPS1.Longitude

    display(4).Text = GPS1.Latitude

    display(5).Text = GPS1.Speed

End Sub