Ellipsoide Parameter verschiedener Ellipsoide.
MapX Tipps und Tricks Parameter verschiedener Ellipsoide.
GPS2GK GPS-Koordinaten nach Bessel/Gauß-Krüger.
GK2GPS Bessel/GK nach GPS(WGS84).
Kras2Bessel Krassovsky/GK nach Bessel/Gauß-Krüger-Koordinaten.
TK25 Topographischen Karte 1:25000
Helmerttransformation
Affin Tranformation
Garmin GPS III+ Routing PKW/Mopped.
Wandlung Routenplanung ins Garmin-Format wandeln.
Übersicht (Home)
Download
Download
Download
Mit Landkarten und erweiterter Speicherkapazität Dieses Gerät kann waagerecht und senkrecht betrieben werden, da sich das Display um 90 Grad drehen läßt. Die eingebaute Landkarte enthält Europa, Asien und den mittleren Osten. Weitere Karten können gespeichert werden Bildschirmdarstellung: 0.1 sm bis 3000 sm (180m bis 1600 km) Enthalten sind: Städte, Landesgrenzen, Autobahnen und Straßen, Bahnlinien, Flüße und Seen. Technische Daten: 12 Kanal parallel Empfänger Warmstart: ca. 15 Sek. Kaltstart: ca. 45 Sek. Autocate: ca. 5 Min. Interface NMEA0183* und RS-232 DGPS* Postionsupdate jede Sekunde Abnehmbare Antenne mit BNC Stecker Größe 5,9 x 12,7 x 4,1cm Gewicht 255g mit Batterien Versorgungsspannung 10-40V DC oder 4 AA Batterien* Leistungsaufnahme nur 0.75 W Interne Lithium Backupbatterie hält bis zu 10 Jahren Batterielebensdauer bis zu 36 Stunden LCD* Display beleuchtet 100x160 pixel - 5,6 x 3,8cm - kann um 90 Grad gedreht werden 500 Wegepunkte mit Name und Symbol 20 umkehrbare Routen mit je 30 Wegepunkten MOB* und TracBack-Funktion* über 100 verschiedene Kartendaten (incl. WGS84*) Arbeitet mit 'MapSource Straßen und Hinweise' Landkarten Damit können Sie die wichtigen Karten mit dem PC in das Gerät laden. Wird mit PC Interface Kabel geliefert. |
WEGNAME=Balatonfenyves -Graz Entfernung=203.8 FAHRZEIT=0 03:33(Tage/Stunden/Minuten) Kosten=194.74 15:32 0 Balatonfenyves auf B7 12 SO (172855,464211)Nadasd 15:44 12 - rechts auf B76 9 NW (172121,464033)Nadasd 15:53 20.7 - halb links auf L76 11 W (171519,464221)Nadasd 16:08 31.4 - links auf L75 22 W (170907,464342)Nadasd 16:37 53.5 - rechts auf B74 16 N (165241,464342)Nadasd 16:56 69.1 - geradeaus auf L76 26 W (165126,465037)Nadasd 17:30 95 - halb rechts au B86 4 N (163753,465913)Körmend 17:34 98.7 bei Körmend links auf B8 26 SW (163749,470119)Fürstenfeld 18:01 124.8 Grenzübertritt Rabafüzes geradeaus auf - 1.6 W (161755,465852)Fürstenfeld 18:03 126.4 Grenzübertritt Eltendorf geradeaus auf H65 30 W (161642,465904)Fürstenfeld 18:35 155.9 AS Ilz-Fürstenfeld links auf A2 41 W (155749,470447)AS Gleisdorf-Süd 18:55 196.4 AD Graz-Ost weiter auf A2 4 NW (152921,470108)A2 18:57 200.3 AE Graz-Münzgrabenstr halb rechts au - 4 W (152737,470247)Graz 19:05 203.8 Graz / 01.Bez.:Innere Stadt |
'(c) Dipl.-Ing. Hans Adelt 2002
Dim Zael&
Private Sub Wandel_Click()
Dim Route As String, S(1 To 20) As String, Idn$, RNr%, File$,A
Randomize
Open App.path & "\routen.rte" For Output As 1
Header
Do
Zael = 0
Idn = Chr$(Int((26 * Rnd) + 65)) + Chr$(Int((26 * Rnd) + 65)) + Chr$(Int((26 * Rnd) + 65))
File = OpenFile("*.txt")
If Len(File) = 0 Then Exit Do
Close 9: Open File For Input As 9
RNr = RNr + 1
Line Input #9, A$
posi = InStr(A$, "="): Route = Mid(A, posi + 1)
HeadRoute SF(RNr + 100, 2, 0), Route
Line Input #9, A$
Line Input #9, A$
Line Input #9, A$
Line Input #9, A$
While Not EOF(9)
Line Input #9, A$
Tabs A, S(), N
If N > 7 Then
If Trim(S(8)) > "" Then Waypoint Idn, S(8), S(3)
End If
Wend
Loop
Close 1, 9
End Sub
Sub Waypoint(Idn$, Geo$, Descript$)
Geo = "N" & Mid$(Geo, 9, 6) & ".000 E0" & Mid$(Geo, 2, 6) & ".000"
Zael = Zael + 1
Print #1, "W " & Idn & Right(Zael + 1000, 3) & " " & Geo & " 27-JUN-02 00:00:00 -9999 " & Left(Descript$ + Space(40), 40) & " 0.00000e+00 0"
End Sub
Sub Header()
Print #1, ""
Print #1, "H SOFTWARE NAME & VERSION"
Print #1, "I PCX5 2.05"
Print #1, ""
Print #1, "H R DATUM IDX DA DF DX DY DZ"
Print #1, "M G WGS 84 103 +0.000000e+00 +0.000000e+00 +0.000000e+00 +0.000000e+00 +0.000000e+00"
Print #1, ""
Print #1, "H COORDINATE SYSTEM"
Print #1, "U LAT LON DMS"
End Sub
Sub HeadRoute(Nr$, Route$)
Print #1, ""
Print #1, "R " & Nr & " " & Left$(Route + String(20, "_"), 20)
Print #1, ""
Print #1, "H IDNT LATITUDE LONGITUDE DATE TIME ALT DESCRIPTION PROXIMITY SYMBOL ;waypts"
End Sub
Sub Tabs(A$, S$(), Nr)
Nr = 0
Do
posi = InStr(A$, Chr$(9))
If posi = 0 Then Exit Do
Nr = Nr + 1: S(Nr) = Left(A, posi - 1): A = Mid$(A, posi + 1)
Loop: Nr = Nr + 1: S(Nr) = A
End Sub
|
Datei der Route für GPS III+ (graz.rte)
H SOFTWARE NAME & VERSION I PCX5 2.05 H R DATUM IDX DA DF DX DY DZ M G WGS 84 103 +0.000000e+00 +0.000000e+00 +0.000000e+00 +0.000000e+00 +0.000000e+00 H COORDINATE SYSTEM U LAT LON DMS R 01 Balatonfenyves -Graz H IDNT LATITUDE LONGITUDE DATE TIME ALT DESCRIPTION PROXIMITY SYMBOL W TAC001 N464211.000 E0172855.000 27-MAR-02 00:00:00 -9999 Balatonfenyves 0.00000e+00 1 W TAC002 N464033.000 E0172121.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC003 N464221.000 E0171519.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC004 N464342.000 E0170907.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC005 N464342.000 E0165241.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC006 N465037.000 E0165126.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC007 N465913.000 E0163753.000 27-MAR-02 00:00:00 -9999 - 0.00000e+00 1 W TAC008 N470119.000 E0163749.000 27-MAR-02 00:00:00 -9999 bei Körmend 0.00000e+00 1 W TAC009 N465852.000 E0161755.000 27-MAR-02 00:00:00 -9999 Grenzübertritt Rabafüzes 0.00000e+00 1 W TAC010 N465904.000 E0161642.000 27-MAR-02 00:00:00 -9999 Grenzübertritt Eltendorf 0.00000e+00 1 W TAC011 N470447.000 E0155749.000 27-MAR-02 00:00:00 -9999 AS Ilz-Fürstenfeld 43 0.00000e+00 1 W TAC012 N470108.000 E0152921.000 27-MAR-02 00:00:00 -9999 AD Graz-Ost 43 0.00000e+00 1 W TAC013 N470247.000 E0152737.000 27-MAR-02 00:00:00 -9999 AE Graz-Münzgrabenstr 43 0.00000e+00 1 |