none
Complemento para GPS RRS feed

  • Pregunta

  • Hola a todos me gustaría saber si alguien a utilizado algún complemento que me recomiende para visualizar los datos de un gps, por el USB de mi PC. Antes lo podía hacer agregando el GPS Toolkit Pro a VB 6.0, pero desde que me cambie a .NET el complemento produce un error en el Visual que utilizo y este se cierra(lo he probado con vb 2010 y 2015). Por cualquier duda lo unico que realiza este programa, es actualizar la latitud, longitud, velocidad, fecha y hora en una tabla con estas columnas. 

    Const MAX_CARACTERES As Byte = 15
    Private Declare Function BringWindowToTop Lib "user32.dll" (ByVal _
             hWnd As Long) As Long
    Private Declare Function FindWindow Lib "user32.dll" Alias _
             "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName _
             As Any) As Long
    Dim cn As New ADODB.Connection
    Dim rs_Gps As New ADODB.Recordset
    
    
    Private Sub Form_Load()
    On Error GoTo error
    Call AbrirGps
    Timer1.Enabled = True
    Timer1.Interval = 60000
    Exit Sub
    error:
    End Sub
    
    Private Sub Timer1_Timer()
    Call ActualizarGPS
    End Sub
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
    Principal.GPS.Close
    End Sub
    Sub AbrirGps()
    On Error GoTo error
    Principal.GPS.Open ("COM1")
    Latitud = GPS.Latitude
    Longitud = GPS.Longitude
    velocidad = GPS.Speed
    Fecha = Now()
    
    Exit Sub
    error:
    GPS.Close
    
    End Sub
    Sub ActualizarGPS()
    On Error GoTo error
    Set rs = New Recordset
    
    cn.Open "driver=sql server;uid=xxxx;pwd=xxxx;database=xxxxx;server=xxxxxx"
    rs_Gps.Open "SELECT * FROM Gps", cn, adOpenDynamic, adLockOptimistic
    Principal.GPS.LatLonFormat = 1
    Longitud = Mid(Principal.GPS.Longitude, 1, 9) + " W"
    Latitud = Mid(Principal.GPS.Latitude, 1, 9) + " S"
    velocidad = Mid(Principal.GPS.Speed, 1, 9) + " Kn"
    Fecha = Now()
    Fecha = Format(Fecha, "dd/mm/yyyy HH:mm:ss")
    rs_Gps.Update "Fecha", Fecha
    rs_Gps.Update "Latitud", Latitud
    rs_Gps.Update "Longitud", Longitud
    rs_Gps.Update "Velocidad", velocidad
    cn.Close
    Exit Sub
    error:


    • Editado adriian.91 lunes, 7 de agosto de 2017 21:33
    • Cambiado Enrique M. Montejo jueves, 10 de agosto de 2017 10:23 Comunicación con dispositivos externos.
    lunes, 7 de agosto de 2017 21:32