Free Databases in the Window Azure Marketplace: Listing 1.

Accessing the Microsoft Translator Data Feed via fixed query.

'Imports System.Data.Services.Client
'Custom class to obtain the needed Windows Azure Marketplace CustomerID and AccessKey
Dim Credentials = New AzureMarketplaceCredentials

'Credentials required to access any Windows Azure Marketplace data feed, even free ones
If (Credentials.CustomerID.Length > 0 AndAlso Credentials.AccessKey.Length > 0) Then

  'The Service Uri is provided by each data feed under the Detail tab at the bottom of the page
  Dim ServiceUri = New Uri(My.Settings.ServiceURI_BingTranslator)

  'The TranslatorContainer was converted from the provided C# class on the data feed page
  Dim BingService = New AzureMarketplaceVB.BingTranslator.TranslatorContainer(ServiceUri)
  BingService.Credentials = New System.Net.NetworkCredential(Credentials.CustomerID, Credentials.AccessKey)

  'Translate to Spanish from English. 
  'Language codes can be found at:"/?linkid=9783676
  Dim Translation = _
BingService.Translate("Good Morning. Today will be a beautiful day", "es", "en")

  'Convert result from a DataServiceQuery to a more usable List() object
  Dim Result = Translation.ToList()
  'The translated text will be a single string in Result(0) 
  End If

. . . . . .

Public Function Translate(ByVal [Text] As String, ByVal [To] As String, ByVal From As String) _
As DataServiceQuery(Of Translation)
  Dim query As DataServiceQuery(Of Translation) = _
MyBase.CreateQuery(Of Translation)("Translate")
  query = query.AddQueryOption("Text", ("’" & Uri.EscapeDataString([Text]) & "’"))
  query = query.AddQueryOption("To", ("’" & Uri.EscapeDataString([To]) & "’"))
  query = query.AddQueryOption("From", ("’" & Uri.EscapeDataString(From) & "’"))
  Return query
End Function

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus


  • Vendors Update Controls for .NET Core 3.1, Blazor

    This week saw two third-party vendors of dev tools -- UX and UI toolkits and controls -- release new offerings that include support for two of Microsoft's main open source frameworks, the cross-platform .NET Core 3.1 and Blazor, which allows for creating browser-based web applications with C# instead of JavaScript.

  • C++ Is Focus of New Visual Studio 2019 v16.7 Preview 2

    C++ development is a focus point of the new Visual Studio 2019 v16.7 Preview 2, featuring a slew of tweaks and improvements touching upon remote SSH connections, IntelliSense support and more.

  • Clustering Non-Numeric Data Using C#

    Clustering non-numeric -- or categorial -- data is surprisingly difficult, but it's explained here by resident data scientist Dr. James McCaffrey of Microsoft Research, who provides all the code you need for a complete system using an algorithm based on a metric called category utility (CU), a measure how much information you gain by clustering.

  • So What's Up with Microsoft's (and Everyone Else's) Love of Rust?

    Microsoft already stewards several popular programming languages -- C#, TypeScript, F# -- so what's up with its love of Rust, along with the rest of the world?

  • C# Steps Up Programming Language Popularity Ladder

    Microsoft's C# programming language climbed a year-over-year notch on the TIOBE Index, which measures popularity among developers.

.NET Insight

Sign up for our newsletter.

Terms and Privacy Policy consent

I agree to this site's Privacy Policy.

Upcoming Events