B4A Library ICOSWorldForecast 3.50

View attachment 14755 View attachment 14754 View attachment 16846 Hi guys, ICOSWorldForecast is here.


It's a pleasure to introduce the new library of weather forecast.

The zip include:

The library, and the demo

INSTALLATION:

Copy the Library in your Basic For Android Library.

Copy the folder weathericon is located in files in the demo. In your one.


RENAME:
ICOSWorldForecast2.71.part1.zip and ICOSWorldForecast2.71.part2.zip

TO:
ICOSWorldForecast2.71.part1.rar and ICOSWorldForecast2.71.part1.rar

In this version I add WeatherUrl and 2 more days forecast.

You can use your own icons, instead of my icons.

For this new version 2.71 you need the new key.

You must register to obtain the new key, otherwise you will get error.

Use the address below to register.

World Weather Online - Welcome to the World Weather Online Developer Network!

don't forget to replace the ApiKey="XXXXXXXXXXXXXX" with your private key

This demos, I made with my galaxy tab 7 600x1024

any question or bugs please report to me.

big Thx to warwound for is fantastic auto-generated reference.


ICOSWorldForecast
Author: Giuseppe Salvi
Version: 2.81

• ICOSWorldForecast
  Methods:
  • FCDate (index As Int) As String
    Return Date for which the weather is forecasted
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCDate(0)
  • FCIcon (index As Int) As Bitmap
    Return Weather symbol image
    example:
    Dim a As ICOSWorldForecast
    Image1.SetBackgroundImage=a.FCWeatherIcon(0)
  • FCIconUrl (index As Int) As String
    Return URLIcon For Forecast Condition
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCIconUrl(0)
  • FCPrecipitationMM (index As Int) As String
    Return Precipitation amount in millimeter
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCPrecipitationMM(0)
  • FCTempMaxCelsius (index As Int) As String
    Return Day and night max temperature in Celcius
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCTempMaxCelsius(0)
  • FCTempMaxFahrenheit (index As Int) As String
    Return Day and night max temperature in Fahrenheit
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCTempMaxFahrenheit(0)
  • FCTempMinCelsius (index As Int) As String
    Return Day and night min temperature in Celcius
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCTempMinCelsius(0)
  • FCTempMinFahrenheit (index As Int) As String
    Return Day and night max temperature in Fahrenheit
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCTempMinFahrenheit(0)
  • FCWeatherCode (index As Int) As String
    Return Weather Code
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWeatherCode(0)
  • FCWeatherDesc (index As Int) As String
    Return Weather description
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWeatherDesc(0)
  • FCWinddir16Point (index As Int) As String
    Return 16-Point compass wind direction
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWinddir16Point(0)
  • FCWinddirDegree (index As Int) As String
    Return Wind direction in degree
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWinddirDegree(0)
  • FCWinddirection (index As Int) As String
    Return Compass Wind direction
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWinddirection(0)
  • FCWindspeedKmph (index As Int) As String
    Return Wind speed in kilometer per hour
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWindspeedKmph(0)
  • FCWindspeedMiles (index As Int) As String
    Return Wind speed in Miles per hour
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.FCWindspeedMiles(0)
  • FindLatAndLong As String
    Retrieve accurate latitude and longitude from GPS or network services
  • FindLocation As String
    Retrieve accurate location from GPS or network services
  • Full7DayName (day As Int) As String
    Return Full name of the day ( Monday )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Full7DayName(0) ' 0 = today - 1 = tomorrow etc etc
  • GetList (mCity As String) As ArrayList
    Set the City Name you wish to get the weather
    example:
    Dim a As ICOSWorldForecast
    Dim l As List
    Dim lv1 As ListView
    l = a.GetList("Los Angeles")
    For n = 0 To l.Size-1
    lv1.AddSingleLine(l.Get(n))
    Next
    Sub lv1_ItemClick (Position As Int, Value As Object)ics.CityName = lv1.GetItem(Position)
    lv1.Clear
    End Sub
  • Initialize (EventName As String)
    Initilize the object
  • Short7DayName (day As Int) As String
    Return Short name of the day ( Mon )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Short7DayName(0) ' 0 = today - 1 = tomorrow etc etc
  • StringFormat (format As String, object As Object, object1 As Object) As String
    Return Formatted String
    example:
    Label1.Text=StringFormat("Lat: %1$s - Long: %2$s ",Latitude,Longitude)
  • isWiFiConnected As Boolean
    Check if WiFi is Connected
  Permissions:
  • android.permission.ACCESS_ASSISTED_GPS
  • android.permission.ACCESS_COARSE_LOCATION
  • android.permission.ACCESS_FINE_LOCATION
  • android.permission.ACCESS_GPS
  • android.permission.ACCESS_LOCATION_EXTRA_COMMANDS
  • android.permission.ACCESS_NETWORK_STATE
  • android.permission.ACCESS_WIFI_STATE
  • android.permission.CONTROL_LOCATION_UPDATES
  • android.permission.INTERNET
  Properties:
  • ApiKey As String [write only]
    Set your personal ApiKey
    example:
    Dim a As ICOSWorldForecast
    a.ApiKey="XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  • AreaName As String [read only]
    Return Name of the city
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.AreaName
  • CCCloudCover As String [read only]
    Return Cloud Cover in %
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCCloudCover
  • CCHumidity As String [read only]
    Return Humidity in %
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCHumidity
  • CCIcon As Bitmap [read only]
    Return Weather symbol image
    example:
    Dim a As ICOSWorldForecast
    Image1.SetBackgroundImage=a.CCWeatherIcon
  • CCIconUrl As String [read only]
    Return URLIcon For Current Condition
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCIconUrl
  • CCLocalObsDateTime As String [read only]
    Return Local Observation date and time
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCLocalObsDateTime
  • CCObservationTime As String [read only]
    Return Observation time (UTC)
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCObservationTime
  • CCPrecipitationMM As String [read only]
    Return Precipitation Amount in Millimeter
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.PrecipitationMM
  • CCPressure As String [read only]
    Return Atmospheric pressure in Milibars
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCPressure
  • CCTempCelsius As String [read only]
    Return Temperature in Celsius
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCTempCelsius
  • CCTempFahrenheit As String [read only]
    Return Temperature in Fahrenheit
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCTempFahrenheit
  • CCVisibility As String [read only]
    Return Visibility kilometers per hour
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCVisibility
  • CCWeatherCode As String [read only]
    Return Weather Code
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWeatherCode
  • CCWeatherDescription As String [read only]
    Return Weather Description
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWeatherDescription
  • CCWinddir16Point As String [read only]
    Return 16-Point wind direction compass
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWinddir16Point
  • CCWinddirDegree As String [read only]
    Return Wind direction in degree
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWinddirDegree
  • CCWindspeedKmph As String [read only]
    Return Wind speed in kilometer per hour
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWindspeedKmph
  • CCWindspeedMiles As String [read only]
    Return Wind speed in Miles per hour
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CCWindspeedMiles
  • CityName As String [write only]
    Set City you wish to get the weather
    example:
    Dim a As ICOSWorldForecast
    a.CityName="New York"
  • Country As String [read only]
    Return Name of the Country
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Country
  • CurrentDate As String [read only]
    Return Current Day,Month,Year ( Friday, 28 September, 2012 )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CurrentDate
  • CurrentTime As String [read only]
    Return Current time ( 02.09 PM )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.CurrentTime
  • DstOffset As String [read only]
    Return DstOffset = ( GMT +2 )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.DstOffset
  • GmtOffset As String [read only]
    Return GmtOffset = ( GMT +1 )
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.GmtOffset
  • LatAndLong As String [write only]
    Set Lat and Long you wish to get the weather
    example:
    Dim a As ICOSWorldForecast
    a.LatAndLong="40.714,-74.006"
  • Latitude As Object [read only]
    Return Latitude of the city
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Latitude
  • Longitude As Object [read only]
    Return Longitude of the city
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Longitude
  • Population As String [read only]
    Return Population of the city
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Population
  • Region As String [read only]
    Return Name of the Region
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Region
  • Sunrise As String [read only]
    Return Sunrise = 06:04
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Sunrise
  • Sunset As String [read only]
    Return Sunset = 19:36
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.Sunset
  • TimeZoneID As String [read only]
    Return TimeZoneID = Europe/Rome
    example:
    Dim a As ICOSWorldForecast
    Label1.Text=a.TimeZoneID
  • Version As Double [read only]
    Return the version of this library
  • WeatherUrl As String [read only]
    Return url of the city [ http://www.worldweatheronline.com/London-weather/City-of-London-Greater-London/GB.aspx ]
    example:
    Dim Webview1 As Webview
    Webview1.LoadUrl(a.WeatherUrl)

 

[lonleystar]

Great - it was me being an idiot

Yes it works - I had two problems. 1, I didn;t have the icons in the files folder and two I was using the old API.

I have one last question, in post 112 I asked if it was possible to get the weather code, name of the icon being used and a couple of other parameters. Are these now available?

Thank you so much for your hard work.

yes tomorrow i´ll upload.

 

[gadgetmonster]

Thank you. I have made a donation as a thank you for such a great library.

 

[lonleystar]

Thank you. I have made a donation as a thank you for such a great library.

Hi paulchatwin thanks for your donation i just upload the fixed library and add FCWeatherCode,
CCWeatherCode,
WeaterUrl

just download it again.

 

[lonleystar]

Thank you. I have made a donation as a thank you for such a great library.

Hi paulchatwin, I just saw your donation a big thanks.
I started to create the library premium for the weather with many new.

My english is not good at moment sorry for same mistake i make.

 

[gadgetmonster]

No need to apologise as your English is very good. Can you tell us what new features will be available in the premium version

 

[lonleystar]

No need to apologise as your English is very good. Can you tell us what new features will be available in the premium version

Hi Paul, have a lock here and u´ll see World Weather Online - Documentation

 

[gadgetmonster]

Sorry, I have one more question.

Is it possible to get the actual name of the icon used such as "symbol_0001_sunny.png" ?

Reason I ask is because the code is used for both day and night and I would have to add my own logic to workout which icon to use.

Many thanks

Paul

 

[lonleystar]

Sorry, I have one more question.

Is it possible to get the actual name of the icon used such as "symbol_0001_sunny.png" ?

Reason I ask is because the code is used for both day and night and I would have to add my own logic to workout which icon to use.

Many thanks

Paul

Hi, is not possible why the provider give this name just replace XXXXXXX with your old key.

"http://free.worldweatheronline.com/feed/weather.ashx?&format=xml&q=london&date=today&extra=localObsTime,utcDateTime&timezone=yes&cc=yes&num_of_days=5&includelocation=yes&key=XXXXXXXXXXXXXXXXXXXXXXXX"

 

[lonleystar]

Sorry, I have one more question.

Is it possible to get the actual name of the icon used such as "symbol_0001_sunny.png" ?

Reason I ask is because the code is used for both day and night and I would have to add my own logic to workout which icon to use.

Many thanks

Paul

Hi again, i think it will be possible in the premium because i´ll use [ isDayTime ] to controll night and day

 

[gadgetmonster]

Hi again, i think it will be possible in the premium because i´ll use [ isDayTime ] to controll night and day

Hi LonleyStar

The xml returns a parameter called weatherIconURL. This is exactly what I need if possible as it contains the name of the icon file. Would it be possible to give us access to this?

 

[lonleystar]

Hi LonleyStar

The xml returns a parameter called weatherIconURL. This is exactly what I need if possible as it contains the name of the icon file. Would it be possible to give us access to this?

Hi Paul, yes it is possible i´ll add till tonight.

 

[gadgetmonster]

Wow thank you

 

[lonleystar]

Wow thank you

Hi, this is the URL will return.

"http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0001_sunny.png"


let me know if it is ok.

 

[gadgetmonster]

That would be perfect

 

[lonleystar]

That would be perfect

Hi Paul, I just upload the fixed library download it and let me know.

 

[gadgetmonster]

Hi Paul, I just upload the fixed library download it and let me know.

Perfect - thank you

 

[lonleystar]

Perfect - thank you

Hi Paul, Thanks to you.

 

[lonleystar]

Changed form:​

Full5DayName and Short5DayName

To:

Full7DayName , Short7DayName​

download just the library .

ICOSWorldForecast-Library.zip contains only the library

 

[GMan]

i am using the following code :

Dim a As ICOSWorldForecast
lb1.Text = a.FCTempCelsius & "°"

But an error occured:

Error description: Unknown member: fctempcelsius
Occurred on line: 1670
lb1.Text = ALBA.FCTempCelsius & "°"
Word: fctempcelsius

Why happens this ?

 

[gadgetmonster]

Hi

FCTempCelsius requires an index parameter:

lb1.Text = a.FCTempCelsius(0) & "°"

If you want the current temperature, use a.CCTempCelsius

Hope that helps