AdditionalLibs/B4A/CalculationDistanceTime.xml

<?xml version="1.0" encoding="utf-8"?>
<root>
  <doclet-version-NOT-library-version>1.00</doclet-version-NOT-library-version>
  <dependsOn>okhttp</dependsOn>
  <dependsOn includesSingletonModules="true">okhttputils2</dependsOn>
  <dependsOn>json</dependsOn>
  <dependsOn>okhttp-3.5.0</dependsOn>
  <dependsOn>okio-1.11.0</dependsOn>
  <dependsOn>javaobject</dependsOn>
  <dependsOn>stringutils</dependsOn>
  <class>
    <name>b4a.example.calculationdistancetime._typelevel</name>
    <shortname>typeLevel</shortname>
    <owner>process</owner>
    <method>
      <name>Initialize</name>
      <comment>Initializes the fields to their default value.</comment>
      <returntype>void</returntype>
    </method>
    <field>
      <name>IsInitialized</name>
      <comment>Tests whether the object has been initialized.</comment>
      <returntype>boolean</returntype>
    </field>
    <field>
      <name>duration</name>
      <returntype>String</returntype>
    </field>
    <field>
      <name>distance</name>
      <returntype>String</returntype>
    </field>
    <field>
      <name>error</name>
      <returntype>String</returntype>
    </field>
  </class>
  <class>
    <name>b4a.example.calculationdistancetime</name>
    <shortname>calculationdistancetime</shortname>
    <owner>process</owner>
    <method>
      <name>IsInitialized</name>
      <comment>Tests whether the object has been initialized.</comment>
      <returntype>boolean</returntype>
    </method>
    <method>
      <name DesignerName="Initialize">_initialize</name>
      <comment>Initializes the object. You can add parameters to this method if needed.
&lt;b&gt;originlat&lt;/b&gt; - Double Original Latitude
&lt;b&gt;originlot&lt;/b&gt; - Double Original Longitude
&lt;b&gt;destinationlat&lt;/b&gt; - Double Destination Latitude
&lt;b&gt;destinationlot&lt;/b&gt; - Double Destination Longitude
&lt;b&gt;units&lt;/b&gt; - Units as Result - "km" returns distances in kilometers and meters or "imperial" returns distances in miles and feet
&lt;i&gt;Example:&lt;/i&gt; &lt;code&gt;
Dim calculate As calculationdistancetime
calculate.Initialize(41.923229,12.7241383,41.9191877,12.655384, "Km", Me, "Check_Result")

Sub Check_Result(valore As typeLevel)
	Log("Errore: " &amp; valore.error)
	If valore.error.Length = 0 Then
		Log("Distance: " &amp; valore.distance)
		Log("Time to Arrive: " &amp; valore.duration)
	End If
End Sub
&lt;/code&gt;
</comment>
      <returntype>String</returntype>
      <parameter>
        <name>ba</name>
        <type>anywheresoftware.b4a.BA</type>
      </parameter>
      <parameter>
        <name>originlat</name>
        <type>double</type>
      </parameter>
      <parameter>
        <name>originlon</name>
        <type>double</type>
      </parameter>
      <parameter>
        <name>destinationlat</name>
        <type>double</type>
      </parameter>
      <parameter>
        <name>destinationlot</name>
        <type>double</type>
      </parameter>
      <parameter>
        <name>units</name>
        <type>String</type>
      </parameter>
      <parameter>
        <name>Module</name>
        <type>Object</type>
      </parameter>
      <parameter>
        <name>EventName</name>
        <type>String</type>
      </parameter>
    </method>
  </class>
  <version>1</version>
  <author>Devil-App</author>
</root>