Latest topics
» Hvor langt er den nye version?
14.08.18 18:44 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

» PDW sender ikke til PDWalarmsender
29.04.18 19:40 by Admin

» PDW modtager ikke udkald
12.04.18 15:22 by RH4600

august 2018
ManTirsOnsTorsFreLørSøn
  12345
6789101112
13141516171819
20212223242526
2728293031  

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 : 236
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 : 236
Join date : 09/02/17
Location : Hillerød

http://www.pdwtools.net

Tilbage til toppen Go down

Tilbage til toppen


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