Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Gefahrene Autobahnkilometer anzeigen
zurück: Mappoint und Outlook Problem weiter: Mappoint mit C# Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
20. März 2008, 15:07
Rufname:

Gefahrene Autobahnkilometer anzeigen - Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Hi!
Ich hab da ein Problem. Ich habe mit VBA eine Entfernungsmatrix erstellt, die die Entfernungen zwischen allen Zielen berechnet. Jetzt möchte ich allerdings noch wissen, wieviele Autobahnkilometer jeweils zurückgelegt wurden, kann mir da jemand helfen? Ich bin am verzweifeln...

Grüsse
Kikolino
DirkG
Programmierer


Verfasst am:
26. März 2008, 08:47
Rufname:


AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Hi Kikolino,

mit der Calculate-Methode lassen sich Straßenkilometer zwischen 2 oder mehreren Waypoints berechnen. Dabei werden alle Straßentypen berücksichtigt, die zum Zurücklegen des Wegs zwischen Waypoints benötigt werden.

Die Berechnung reiner Autobahnkilometer wäre theoretisch möglich, wenn an den Autobahnkreuzen Waypoints (manuell per Pin) gesetzt werden. Für das Herausfiltern bestimmter Straßentypen gibt es keine Methode.

Viele Grüße,

Dirk
Gast



Verfasst am:
26. März 2008, 10:55
Rufname:

AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Das ist natürlich nicht die Antwort, die ich hören wollte, trotzdem danke Dirk!
btk-path
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Jun 2008, 00:07
Rufname:
Wohnort: Witzendorf

AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Welche Programmiersprache nutzt du?
Ich habe in VBA eine Funktion erstellt, die ab Beginn der Routenanweisung auffahren auf ... und so weiter die km berechnet stimmt bis auf ca. 5 km genau.
DirkG
Programmierer


Verfasst am:
30. Jun 2008, 08:47
Rufname:


AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Hallo,

das hört sich nach einer genialen Lösung an. Darauf muss man erstmal kommen. Respekt!

Grüße,

Dirk
btk-path
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Jun 2008, 09:53
Rufname:
Wohnort: Witzendorf

AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Soll ich diese Funktion veröffentlichen? Hat jemand Interesse?
Willi Wipp
Moderator


Verfasst am:
30. Jun 2008, 12:42
Rufname:
Wohnort: Raum Wiesbaden

Re: Gefahrene Autobahnkilometer anzeigen - Re: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Hi btk-path,

ich denke das koennte sicher fuer einige Benutzer von Interesse sein ;)

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
btk-path
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Jun 2008, 13:58
Rufname:
Wohnort: Witzendorf

AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Also, das funktioniert nur mit der deutschen Version und einem Access-Formular mit dem Mappoint.Control.13:
Code:
Public Function mappoint_maut(v_addr As String, n_addr As String, _
                              mautbetrag As Currency) As Currency
    Dim anweisungen As Variant
   
    'Form mit dem MapPointControl öffnen
    '(Hier heißt es karte_mappoint und das Control MPC)
    DoCmd.OpenForm "karte_mappoint", , , , , acHidden
    Set objmap = Form_karte_mappoint.MPC.NewMap(2)
    Set objroute = objmap.activeroute
    objroute.Waypoints.Add objmap.FindResults(v_addr).Item(1)
    objroute.Waypoints.Add objmap.FindResults(n_addr).Item(1)
    objroute.Calculate
    mautstrecke = 0
    For i = 1 To objroute.Directions.Count
        ' Direction teilen, da manchmal 2 in einer Zeile stehen
        anweisungen = Split(objroute.Directions.Item(i), ", ")
        For j = 0 To UBound(anweisungen)
            If Left(anweisungen(j), 12) = "Von Auffahrt" Or _
               Left(anweisungen(j), 13) = "Auffahren auf" Then
                mautstrecke = mautstrecke + _
                              objroute.Directions.Item(i).Distance
            End If
        Next j
    Next i
    mautstrecke = Format(mautstrecke, "#,##0.00")
    'strecke = Format(objroute.distance, "#,##0.00")
    mappoint_maut = Format(mautstrecke * mautbetrag, "#,##0.00 €")
End Function
Der aufruf klappt mit
Code:
Private Sub maut_berechnen()
    Dim maut As Currency
   
    maut = mappoint_maut("Erfurt", "Hamburg", 0.13)
    Debug.Print maut
End Sub
so einfach wie effizient

Zuletzt bearbeitet von btk-path am 30. Jun 2008, 14:02, insgesamt einmal bearbeitet
DirkG
Programmierer


Verfasst am:
30. Jun 2008, 19:44
Rufname:


AW: Gefahrene Autobahnkilometer anzeigen - AW: Gefahrene Autobahnkilometer anzeigen

Nach oben
       

Bin beeindruckt...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge MS Project Forum: Status Vorgänger / Startmöglichkeit anzeigen lassen 0 chris_0815 116 10. Dez 2013, 17:55
chris_0815 Status Vorgänger / Startmöglichkeit anzeigen lassen
Keine neuen Beiträge MS Project Forum: Alle Nachfolger anzeigen lassen MSP2010 7 jmtw 340 18. März 2013, 10:55
Matthias Schäfer Alle Nachfolger anzeigen lassen MSP2010
Keine neuen Beiträge MS Project Forum: Verschiedene Anzeigen für Dauern von Balken -MSProjekt 2007 2 GK_2225 318 13. Feb 2013, 14:02
GK_2225 Verschiedene Anzeigen für Dauern von Balken -MSProjekt 2007
Keine neuen Beiträge MS Visio Forum: Veerbte / implementierte Methoden und Attribute anzeigen 0 RE-User 101 13. Jan 2013, 13:49
RE-User Veerbte / implementierte Methoden und Attribute anzeigen
Keine neuen Beiträge MS Project Forum: Kostengruppen Auswerten/Anzeigen 3 Gast 706 27. Jan 2012, 08:38
Matthias Schäfer Kostengruppen Auswerten/Anzeigen
Keine neuen Beiträge MS Project Forum: Nur die letzten beiden Outline-Level anzeigen lassen 2 Spockvv 602 01. Dez 2011, 13:20
jimsonweet Nur die letzten beiden Outline-Level anzeigen lassen
Keine neuen Beiträge MS Project Forum: ms project notizen anzeigen 2 brauchehilfe 1973 20. Okt 2010, 07:47
brauchehilfe ms project notizen anzeigen
Keine neuen Beiträge MS Project Forum: Änderungen im Vorgang anzeigen lassen 1 Patbo 1119 27. Jun 2010, 13:14
A-Zwo Änderungen im Vorgang anzeigen lassen
Keine neuen Beiträge MS Project Forum: VBA - Arbeit pro Ressource in Userform anzeigen 0 Gast 1234 23. Okt 2009, 12:53
Gast VBA - Arbeit pro Ressource in Userform anzeigen
Keine neuen Beiträge MS Project Forum: Spalte "Work" in Tagen anzeigen 0 Project2007 1008 29. Jun 2009, 14:00
Project2007 Spalte "Work" in Tagen anzeigen
Keine neuen Beiträge MS Project Forum: Zugeteilte Ressurcen als Liniendiagramm anzeigen 0 Menzek 610 28. Mai 2009, 13:12
Menzek Zugeteilte Ressurcen als Liniendiagramm anzeigen
Keine neuen Beiträge MS Visio Forum: Shape-Daten neben Shape anzeigen Visio Standard 2007 0 Roderer 2444 26. Feb 2009, 17:01
Roderer Shape-Daten neben Shape anzeigen Visio Standard 2007
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum