DrivingCostUnits property

Article
02/25/2011

Returns or sets the method used to determine route costs. Read/write GeoDrivingCostUnits.

GeoDrivingCostUnits	Value	Description
geoCostBasedOnDistance	0	Cost based on fixed rate per GeoUnit (mile or kilometer)
geoCostBasedOnLiters	1	Cost based on price per liter of fuel
geoCostBasedOnUKGallons	3	Cost based on price per U.K. gallon of fuel
geoCostBasedOnUSGallons	2	Cost based on price per U.S. gallon of fuel

Applies to

Objects: DriverProfile

Syntax

object.DrivingCostUnits

Parameters

Part	Description
object	Required. An expression that returns a DriverProfile object.

Remarks

To return or set the fuel price or fixed cost for determining route costs after setting the DrivingCostUnits property, use the DrivingCost property.
To return or set GeoUnits, use the Units property.
To set fuel consumption rates, use the FuelConsumptionCity, FuelConsumptionHighway, and FuelConsumptionUnits properties.

Example

  Sub ChangeDrivingCostUnits()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objRoute As MapPoint.Route

  'Set up the application
  Set objMap = objApp.ActiveMap
  Set objRoute = objMap.ActiveRoute
  objApp.Visible = True
  objApp.UserControl = True

  'Add route stops and calculate the route
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)

  'Set the DrivingCostUnits to fixed cost based on price per liter of fuel
  objRoute.DriverProfile.DrivingCostUnits = geoCostBasedOnLiters
  objRoute.Calculate

  'Get new route cost
  MsgBox "New route cost: $" + CStr(objRoute.Cost)

  End Sub

Note This sample code is specific for use in MapPoint North America; it is for illustration purposes only.

Share via