[Prog] Welke taal is dit?

[Martin]

Ben voor mijn werk aan het kijken of we iets kunnen automatiseren en nu stuit ik op een stukje code om de afstand tussen 2 plaatsen te bepalen aan de hand van 2 postcode's.

De programmeertaal komt mij niet bekend voor, en op de site staat ook niet welke taal het is.. kan iemand mij vertellen welke taal dit is:

PHP-code:

The code used to calculate this is using webservices is very simple and can be found below

Dim Service As New geoaccess.GeoAccess()
Dim LocationFrom, LocationTo As geoaccess.Location
LocationFrom = Service.GazetteerSimple("NL", "", "", "", "", FromPostalCode, SubscriptionKey)
LocationTo = Service.GazetteerSimple("NL", "", "", "", "", ToPostalCode, SubscriptionKey)
If LocationFrom.X = "" Or LocationFrom.Y = "" Or LocationTo.X = "" Or LocationTo.Y = "" Then
  Response.Write("PostalCode not found")
Else
  Dim Route As geoaccess.RouteResult
  Route = Service.RoutePlannerSimple(LocationFrom.X, LocationFrom.Y, LocationTo.X, LocationTo.Y, geoaccess.EncodingType.AND1, geoaccess.RouteLanguage.English, True, False, False, False, False, False, False, "", SubscriptionKey)
  Response.Write("Distance of the Route = " & Route.Distance / 1000 & "km")
End If

The code used to calculate this using html requests and XML parsing


Dim httpresult As System.Net.WebResponse
Dim httprequest As System.Net.WebRequest
Dim XMLDoc As New System.Xml.XmlDocument()
Dim Node As System.Xml.XmlNode()
Dim X1, Y1, X2, Y2 As String
Dim GazetteerUrl, RoutePlannerUrl As String
GazetteerUrl = "http://geoaccess.and.com/geoaccess/geoaccess.asmx/GazetteerSimple?"
GazetteerUrl &= "Country=nl&State=&City=&Street=&Premise=&SubscriptionKey=" & SubscriptionKey & "&PostCode="
RoutePlannerUrl = "http://geoaccess.and.com/geoaccess/geoaccess.asmx/RoutePlannerSimple?"
RoutePlannerUrl &= "Encoding=AND1&Language=English&WantMetric=true&WantRouteDetails=false&WantDataSet=false&"
RoutePlannerUrl &= "WantDescription=false&WantSpeedInfo=false&WantLocations=false&WantRouteData=false&"
RoutePlannerUrl &= "FormatString=&SubscriptionKey=" & SubscriptionKey

Try
     httprequest = System.Net.WebRequest.Create(GazetteerUrl & FromPostalCode)
     XMLDoc.Load(httprequest.GetResponse().GetResponseStream)
     X1 = XMLDoc.Item("Location").Item("X").InnerText
     Y1 = XMLDoc.Item("Location").Item("Y").InnerText
    
     httprequest = System.Net.WebRequest.Create(GazetteerUrl & ToPostalCode)
     XMLDoc.Load(httprequest.GetResponse().GetResponseStream)
     X2 = XMLDoc.Item("Location").Item("X").InnerText
     Y2 = XMLDoc.Item("Location").Item("Y").InnerText
    
     RoutePlannerUrl &= "&DepartureX=" & X1 & "&DepartureY=" & Y1 & "&ArrivalX=" & X2 & "&ArrivalY=" & Y2
     httprequest = System.Net.WebRequest.Create(RoutePlannerUrl)
     XMLDoc.Load(httprequest.GetResponse().GetResponseStream)
     Response.Write("Distance of the Route = " & XMLDoc.Item("RouteResult").Item("Distance").InnerText / 1000 & "km")
Catch
     Response.Write("Getting the distance failed")
End Try 


[McMotion]

Visual Basic .NET ofzo? (maar ja aan de andere kant, er staat wel 2x aangegeven dat het PHP is, dus dan zal dat het wel zijn )

[dafelix]

voor zover ik kan zien, Visual Basic (welke versie kan ik niet zien). de 'catch' functie in VB ken ik niet, dus wellicht .NET(/2003) versie

heb ik vroeger ook nog wel mee gewerkt, maar op een geven ogenblik toch op andere talen over gegaan

Ziet er uit als ASP(.NET) geschreven volgens VBScript.

[skins]

Dit is heel duidelijk ASP.NET met als taal Visual Basic.NET

(tja, beetje .NET nerdje )

[Below_Zero]

Ik ken alleen een btje HTML...

[Krekker]

Below_Zero schreef op 14-03-2005 @ 10:35 :
Ik ken alleen een btje HTML...

Leuk voor je. Ook leuk dat je dit met ons allen wil delen.

[Dr HenDre]

Krekker schreef op 14-03-2005 @ 12:45 :
Leuk voor je. Ook leuk dat je dit met ons allen wil delen.

[Below_Zero]

Krekker schreef op 14-03-2005 @ 12:45 :
Leuk voor je. Ook leuk dat je dit met ons allen wil delen.

Ja, vet he?

[Raven]

dim.. endif lijkt wel basic

Raven schreef op 14-03-2005 @ 19:57 :
dim.. endif lijkt wel basic

De while/wend-loopjes ontbreken d'r nog maar aan

[McMotion]

en goto + regelnummers

de echte basic hoort met goto + regelnummers

[Bluesman]

Is dit geen PHP dan?

[dafelix]

Bluesman schreef op 15-03-2005 @ 16:43 :
Is dit geen PHP dan?

verwarrend, die [php] tags ^_^

Bluesman schreef op 15-03-2005 @ 16:43 :
Is dit geen PHP dan?

Nee. In PHP moet je regels afsluiten met ; anders wordt de complete code één instructie.