Latest topics
» Kryptering hovedstadens beredskab
Yesterday at 19:44 by Admin

» Dubletter uden GPS koordinat
31.08.18 19:50 by bma

» Hvor langt er den nye version?
20.08.18 10:09 by twister5800

» Oversættelse af gps koordinater til google links
10.06.18 21:16 by Admin

» Pager tilbage svar
07.06.18 21:11 by iversen84

» Valg af bedste sender
31.05.18 21:53 by iversen84

» Hvilket modem
25.05.18 14:18 by rpe81

» Stort Æ og stort Å
19.05.18 22:17 by Admin

» Alarmsender sender ikke
30.04.18 20:06 by Lehmann

oktober 2018
ManTirsOnsTorsFreLørSøn
1234567
891011121314
15161718192021
22232425262728
293031    

Calendar Calendar


Oversættelse af gps koordinater til google links

Go down

Oversættelse af gps koordinater til google links

Indlæg by iversen84 on 06.06.18 21:05

Hej Admin

Vil du dele lidt af din kodning, fx hvordan du omsætter gps koordinater til google maps links?

iversen84

Posts : 19
Join date : 10/04/17

Tilbage til toppen Go down

Re: Oversættelse af gps koordinater til google links

Indlæg by Admin on 08.06.18 17:16

Hej Iversen84,

Ja - gerne - men det bliver først i her i weekenden engang ...

_________________________________________
Mange venlige hilsner fra
Per, PDWtools
avatar
Admin
Admin

Posts : 243
Join date : 09/02/17
Location : Hillerød

http://www.pdwtools.net

Tilbage til toppen Go down

Re: Oversættelse af gps koordinater til google links

Indlæg by iversen84 on 08.06.18 17:18

Super

iversen84

Posts : 19
Join date : 10/04/17

Tilbage til toppen Go down

Re: Oversættelse af gps koordinater til google links

Indlæg by Admin on 10.06.18 21:16

Hej Iversen84,

Her er noget af kodningen. Da jeg kun er en glad amatør ud i programmering clown , kunne koden helt sikkert laves langt mere elegant - men den virker:  Very Happy

Kode:
Function gps(streng As String) As String ' koordinat, som starter med GPS
  streng = Replace(streng, ",", "")
  streng = Replace(streng, ".", "")
  streng = Replace(streng, Chr(32), "")
  Return koordinatomregner((Mid(streng, 1, 2) & Chr(32) & Mid(streng, 3, 2) & Chr(32) & Mid(streng, 5, 2) & "." & Mid(streng, 7, 2) & Chr(32) & Mid(streng, 9, 1) & Chr(32) & Mid(streng, 10, 3) & Chr(32) & Mid(streng, 13, 2) & Chr(32) & Mid(streng, 15, 2) & "." & Mid(streng, 17, 2) & Chr(32) & Mid(streng, 19, 1)))
End Function

  
Function rse(streng As String) As String' koordinat, som starter RSE
  Dim ny As String
  streng = Replace(streng, ".", "") : streng = Replace(streng, ",", "") : streng = Replace(streng, "_", "") : streng = Replace(streng, "E", "N")
  streng = Replace(streng, Chr(32), "")
  ny = Mid(streng, 1, 2) & Chr(32) & Mid(streng, 3, 2) & Chr(32) & Mid(streng, 5, 2) & "." & Mid(streng, 7, 1) & Chr(32) & Mid(streng, 8, 1) & Chr(32) & Mid(streng, 9, 3) & Chr(32) & Mid(streng, 12, 2) & Chr(32) & Mid(streng, 14, 2) & "." & RTrim(Mid(streng, 16, 2))
  Return koordinatomregner(ny & " E")
End Function

Function koordinatomregner(k As String) As String
  Dim n As Double
  Dim e As Double
  Dim tmpsplit()
  tmpsplit = Split(k, " ")
  n = DMS_To_DD("N", Val(tmpsplit(0)), Val(tmpsplit(1)), Val(tmpsplit(2)))
  e = DMS_To_DD("E", Val(tmpsplit(4)), Val(tmpsplit(5)), Val(tmpsplit(6)))
  n = Math.Round(n, 6)
  e = Math.Round(e, 6)
  omregnetkoordinat = n.ToString.Replace(",", ".") & "," & e.ToString.Replace(",", ".")
  Return omregnetkoordinat
End Function

Function DMS_To_DD(nswe As String, ByVal deg As UInteger, ByVal min As Double, ByVal sec As Double) As Double 'grader minutter sekunder til decimal grader
  Return (deg + (min * 60 + sec) / 3600)
End Function

_________________________________________
Mange venlige hilsner fra
Per, PDWtools
avatar
Admin
Admin

Posts : 243
Join date : 09/02/17
Location : Hillerød

http://www.pdwtools.net

Tilbage til toppen Go down

Re: Oversættelse af gps koordinater til google links

Indlæg by Sponsored content


Sponsored content


Tilbage til toppen Go down

Tilbage til toppen


 
Permissions in this forum:
Du kan ikke besvare indlæg i dette forum