Skip to content

Commit

Permalink
added SingleDriverRoute7Stops example
Browse files Browse the repository at this point in the history
  • Loading branch information
@Olman62
Olman62 committed Dec 6, 2016
1 parent 8b048b8 commit 8f9ce7d
Show file tree
Hide file tree
Showing 4 changed files with 207 additions and 13 deletions.
87 changes: 87 additions & 0 deletions Route4Me Route Optimization Examples/Examples/SingleDriverRoute7Stops.vb
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,87 @@
Imports Route4MeSDKLibrary.Route4MeSDK
Imports Route4MeSDKLibrary.Route4MeSDK.DataTypes
Imports Route4MeSDKLibrary.Route4MeSDK.QueryTypes
Namespace Route4MeSDKTest.Examples
Partial Public NotInheritable Class Route4MeExamples
Public Function SingleDriverRoute7Stops() As DataObject
' Create the manager with the api key
Dim route4Me As New Route4MeManager(c_ApiKey)

' Prepare the addresses
'#Region "Addresses"

'input as many custom fields as needed, custom data is passed through to mobile devices and to the manifest

'#End Region
Dim addresses As Address() = New Address() {New Address() With { _
.AddressString = "דיזנגוף 229 תל אביב-יפו, 63,116, ישראל", _
.IsDepot = True, _
.Latitude = 32.090734, _
.Longitude = 34.775779, _
.Time = 0, _
.CustomFields = New Dictionary(Of String, String)() From { _
{"color", "red"}, _
{"size", "huge"} _
} _
}, New Address() With { _
.AddressString = "דיזנגוף 213 תל אביב-יפו, ישראל", _
.Latitude = 32.088689, _
.Longitude = 34.775371, _
.Time = 0 _
}, New Address() With { _
.AddressString = "שדרות בן גוריון 68 תל אביב-יפו, ישראל", _
.Latitude = 32.08308, _
.Longitude = 34.776894, _
.Time = 0 _
}, New Address() With { _
.AddressString = "מלכי Yisra'el רחוב תל אביב-יפו, ישראל", _
.Latitude = 32.081417, _
.Longitude = 34.779909, _
.Time = 0 _
}, New Address() With { _
.AddressString = "נצח ישראל רחוב 9 תל אביב-יפו, ישראל", _
.Latitude = 32.075644, _
.Longitude = 34.78331, _
.Time = 0 _
}, New Address() With { _
.AddressString = "שאול שדרות המלך 1-13 תל אביב-יפו, ישראל", _
.Latitude = 32.075644, _
.Longitude = 34.78331, _
.Time = 0 _
}, _
New Address() With { _
.AddressString = "ארלוזורוב 88 תל אביב-יפו, ישראל", _
.Latitude = 32.085298, _
.Longitude = 34.781916, _
.Time = 0 _
}}

' Set parameters

Dim parameters As New RouteParameters() With { _
.AlgorithmType = AlgorithmType.TSP, _
.StoreRoute = False, _
.RouteName = "Single Driver Route 7 Stops (vb.net)", _
.RouteDate = R4MeUtils.ConvertToUnixTimestamp(DateTime.UtcNow.[Date].AddDays(1)), _
.RouteTime = 60 * 60 * 7, _
.Optimize = EnumHelper.GetEnumDescription(Optimize.Distance), _
.DistanceUnit = EnumHelper.GetEnumDescription(DistanceUnit.MI), _
.DeviceType = EnumHelper.GetEnumDescription(DeviceType.Web) _
}

Dim optimizationParameters As New OptimizationParameters() With { _
.Addresses = addresses, _
.Parameters = parameters _
}

' Run the query
Dim errorString As String = ""
Dim dataObject As DataObject = route4Me.RunOptimization(optimizationParameters, errorString)

' Output the result
PrintExampleOptimizationResult("SingleDriverRoute7Stops", dataObject, errorString)

Return dataObject
End Function
End Class
End Namespace
6 changes: 5 additions & 1 deletion Route4Me Route Optimization Examples/Main.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -7,8 +7,12 @@ Namespace Route4MeSDKTest
Public Sub Main()
Dim examples = New Route4MeSDKTest.Examples.Route4MeExamples()

' ======== Create Route with 7 stops and Hebrew addresses ============
examples.SingleDriverRoute7Stops()
'======================================================================

' ======== Get Team Activities on a Route ===========================
examples.GetRouteTeamActivities()
'examples.GetRouteTeamActivities()
'======================================================================

' ======== Get USer By ID ===========================
Expand Down
125 changes: 114 additions & 11 deletions Route4Me Route Optimization Examples/Route4Me Route Optimization Examples.vbproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,21 @@
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
Expand Down Expand Up @@ -45,6 +60,9 @@
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="Route4MeSDKLibrary">
<HintPath>..\Route4MeSDKLibrary\bin\Debug\Route4MeSDKLibrary.dll</HintPath>
Expand All @@ -70,45 +88,111 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Examples\AddAddressBookContact.vb" />
<Compile Include="Examples\Activities\GetRouteTeamActivities.vb" />
<Compile Include="Examples\Activities\SearchAreaAdded.vb" />
<Compile Include="Examples\Activities\SearchDestinationDeleted.vb" />
<Compile Include="Examples\Activities\SearchDestinationInserted.vb" />
<Compile Include="Examples\Activities\SearchDestinationMarkedAsDeparted.vb" />
<Compile Include="Examples\Activities\SearchNoteInserted.vb" />
<Compile Include="Examples\Activities\SearchRouteOwnerChanged.vb" />
<Compile Include="Examples\Addressbook\AddAddressBookContact.vb" />
<Compile Include="Examples\AddAddressNote.vb" />
<Compile Include="Examples\AddAvoidanceZone.vb" />
<Compile Include="Examples\AvoidanceZone\AddAvoidanceZone.vb" />
<Compile Include="Examples\AddDestinationToOptimization.vb" />
<Compile Include="Examples\AddOrder.vb" />
<Compile Include="Examples\AddOrdersToOptimization.vb" />
<Compile Include="Examples\AddOrdersToRoute.vb" />
<Compile Include="Examples\Addressbook\GetAddressbookLocation.vb" />
<Compile Include="Examples\Addressbook\GetSpecifiedFieldsSearchText.vb" />
<Compile Include="Examples\Addressbook\SearchLocarionsByIDs.vb" />
<Compile Include="Examples\Addressbook\SearchRoutedLocations.vb" />
<Compile Include="Examples\AddRouteDestinations.vb" />
<Compile Include="Examples\DeleteAvoidanceZone.vb" />
<Compile Include="Examples\AvoidanceZone\AddPolygonAvoidanceZone.vb" />
<Compile Include="Examples\AvoidanceZone\AddRectAvoidanceZone.vb" />
<Compile Include="Examples\AvoidanceZone\DeleteAvoidanceZone.vb" />
<Compile Include="Examples\DeleteRoutes.vb" />
<Compile Include="Examples\DuplicateRoute.vb" />
<Compile Include="Examples\ExamplesInfrastructure.vb" />
<Compile Include="Examples\FindAsset.vb" />
<Compile Include="Examples\GenericExample.vb" />
<Compile Include="Examples\GetActivities.vb" />
<Compile Include="Examples\GeocodingForward.vb" />
<Compile Include="Examples\Activities\GetActivities.vb" />
<Compile Include="Examples\GetAddress.vb" />
<Compile Include="Examples\GetAddressBookContacts.vb" />
<Compile Include="Examples\Addressbook\GetAddressBookContacts.vb" />
<Compile Include="Examples\GetAddressNotes.vb" />
<Compile Include="Examples\GetAvoidanceZone.vb" />
<Compile Include="Examples\GetAvoidanceZones.vb" />
<Compile Include="Examples\AvoidanceZone\GetAvoidanceZone.vb" />
<Compile Include="Examples\AvoidanceZone\GetAvoidanceZones.vb" />
<Compile Include="Examples\GetOptimization.vb" />
<Compile Include="Examples\GetOptimizations.vb" />
<Compile Include="Examples\GetOrder.vb" />
<Compile Include="Examples\GetOrderByID.vb" />
<Compile Include="Examples\GetOrderByInsertedDate.vb" />
<Compile Include="Examples\GetOrdersByCustomFields.vb" />
<Compile Include="Examples\GetOrdersByScheduledDate.vb" />
<Compile Include="Examples\GetOrdersBySpecifiedText.vb" />
<Compile Include="Examples\GetRoute.vb" />
<Compile Include="Examples\GetRouteDirections.vb" />
<Compile Include="Examples\GetRoutePathPoints.vb" />
<Compile Include="Examples\GetRoutes.vb" />
<Compile Include="Examples\GetUsers.vb" />
<Compile Include="Examples\Members\CreateUser.vb" />
<Compile Include="Examples\Members\DeleteUser.vb" />
<Compile Include="Examples\Members\GetUserById.vb" />
<Compile Include="Examples\Members\GetUsers.vb" />
<Compile Include="Examples\InsertAddressIntoRouteOptimalPosition.vb" />
<Compile Include="Examples\Activities\LogSpecificMessage.vb" />
<Compile Include="Examples\MarkAddressAsDetectedAsVisited.vb" />
<Compile Include="Examples\MarkAddressAsMarkedAsDeparted.vb" />
<Compile Include="Examples\MarkAddressDeparted.vb" />
<Compile Include="Examples\MarkAddressVisited.vb" />
<Compile Include="Examples\Members\UpdateUser.vb" />
<Compile Include="Examples\MergeRoutes.vb" />
<Compile Include="Examples\MoveDestinationToRoute.vb" />
<Compile Include="Examples\MultipleDepotMultipleDriver.vb" />
<Compile Include="Examples\MultipleDepotMultipleDriverTimeWindow.vb" />
<Compile Include="Examples\MultipleDepotMultipleDriverWith24StopsTimeWindow.vb" />
<Compile Include="Examples\RemoveAddressBookContacts.vb" />
<Compile Include="Examples\RapidStreetDataAll.vb" />
<Compile Include="Examples\RapidStreetDataLimited.vb" />
<Compile Include="Examples\RapidStreetDataSingle.vb" />
<Compile Include="Examples\RapidStreetServiceAll.vb" />
<Compile Include="Examples\RapidStreetServiceLimited.vb" />
<Compile Include="Examples\RapidStreetZipcodeAll.vb" />
<Compile Include="Examples\RapidStreetZipcodeLimited.vb" />
<Compile Include="Examples\Addressbook\RemoveAddressBookContacts.vb" />
<Compile Include="Examples\RemoveAddressFromOptimization.vb" />
<Compile Include="Examples\RemoveOptimization.vb" />
<Compile Include="Examples\RemoveOrder.vb" />
<Compile Include="Examples\RemoveRouteDestination.vb" />
<Compile Include="Examples\ReOptimization.vb" />
<Compile Include="Examples\ReoptimizeRoute.vb" />
<Compile Include="Examples\ResequenceReoptimizeRoute.vb" />
<Compile Include="Examples\ResequenceRouteDestination.vb" />
<Compile Include="Examples\ReverseGeocoding.vb" />
<Compile Include="Examples\RouteSharing.vb" />
<Compile Include="Examples\SetGPSPosition.vb" />
<Compile Include="Examples\SingleDepotMultipleDriverNoTimeWindow.vb" />
<Compile Include="Examples\SingleDriverMultipleTimeWindows.vb" />
<Compile Include="Examples\SingleDriverRoundTrip.vb" />
<Compile Include="Examples\SingleDriverRoundTripGeneric.vb" />
<Compile Include="Examples\SingleDriverRoute10Stops.vb" />
<Compile Include="Examples\SingleDriverRoute7Stops.vb" />
<Compile Include="Examples\Territories\CreatePolygonTerritory.vb" />
<Compile Include="Examples\Territories\CreateRectTerritory.vb" />
<Compile Include="Examples\Territories\CreateTerritory.vb" />
<Compile Include="Examples\Territories\GetTerritories.vb" />
<Compile Include="Examples\Territories\GetTerritory.vb" />
<Compile Include="Examples\Territories\RemoveTerritory.vb" />
<Compile Include="Examples\Territories\UpdateTerritory.vb" />
<Compile Include="Examples\TrackDeviceLastLocationHistory.vb" />
<Compile Include="Examples\UpdateAddressBookContact.vb" />
<Compile Include="Examples\UpdateAvoidanceZone.vb" />
<Compile Include="Examples\Addressbook\UpdateAddressBookContact.vb" />
<Compile Include="Examples\AvoidanceZone\UpdateAvoidanceZone.vb" />
<Compile Include="Examples\UpdateOrder.vb" />
<Compile Include="Examples\UpdateRoute.vb" />
<Compile Include="Examples\UpdateRouteCustomData.vb" />
<Compile Include="Examples\Members\UserAuthentication.vb" />
<Compile Include="Examples\Members\UserRegistration.vb" />
<Compile Include="Examples\Members\ValidateSession.vb" />
<Compile Include="Examples\Vehicles\GetVehicles.vb" />
<Compile Include="MainFull.vb" />
<Compile Include="Main.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
Expand All @@ -135,6 +219,8 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="ClassDiagram1.cd" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
Expand All @@ -146,6 +232,23 @@
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Expand Down
2 changes: 1 addition & 1 deletion Route4MeSDKLibrary/Utils.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -53,7 +53,7 @@ Namespace Route4MeSDK
Using memoryStream = New MemoryStream()
writer.WriteObject(memoryStream, obj)

result = Encoding.[Default].GetString(memoryStream.ToArray())
result = Encoding.[UTF8].GetString(memoryStream.ToArray())
End Using

Return result
Expand Down

0 comments on commit 8f9ce7d

Please sign in to comment.