B4A Library ICOSWorldForecast 3.50

lonleystar · Oct 1, 2012

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 · May 15, 2013

sdb said:
We do appreciate your work. This library saves a lot of time.

What I see happening in this release is that the days for any location where the day is the same as mine is incorrect. Locations in the next 'day' show the day correctly.

The short day behaves the same.

Thanks for your efforts.

Hi sdb,

I´m working to resolve this issue will be soon fixed.

lonleystar · May 19, 2013

Lib Fixed.

Hi Guys i just uploaded the Library fixed download it again.

Sorry for the incovenience.

fanfalveto · May 19, 2013

Thank you very much :sign0098:

lonleystar · May 19, 2013

Hi Fanfalveto,

Thanks to u.

Paulsche · Jun 2, 2013

red border

lonleystar said:
Hi, i´ve CyanogenMod 4.1.2 too, and some time append to me as well, it´s a problem from it.

Hello lonleystar,

some users of my app HB-Verbrauchszähler Report repeatedly
that with this app in windows always short change a red box appears.
The problem is on my S4 Galaxy and Galaxy Tab2 7 "
not on the Galaxy S2.
There are original ROMs.

After testing, I found that the problem is gone when I disable the initialization of "ICOSWorldforecast".

Do you have any idea why this might be?

lonleystar · Jun 2, 2013

Paulsche said:
Hello lonleystar,

some users of my app HB-Verbrauchszähler Report repeatedly
that with this app in windows always short change a red box appears.
The problem is on my S4 Galaxy and Galaxy Tab2 7 "
not on the Galaxy S2.
There are original ROMs.

After testing, I found that the problem is gone when I disable the initialization of "ICOSWorldforecast".

Do you have any idea why this might be?

Hi paulsche,

append also to me to the originals galaxy tab 2 note, galaxy s3 and on my old galaxy tab 1 with cynogenmod 4.2.2.

anyway I'm trying to understand why.

Paulsche · Jun 2, 2013

Thanks for the information, then we simply have to deal with it at the moment.

lonleystar · Jun 3, 2013

Paulsche said:
Thanks for the information, then we simply have to deal with it at the moment.

Hi Paulsche,

Im working on it to understand What is wrong.

I think to fix it soon.

Be patient.

Paulsche · Jun 3, 2013

lonleystar said:
Hi Paulsche,

Im working on it to understand What is wrong.

I think to fix it soon.

Be patient.

:sign0060:

lonleystar · Jun 5, 2013

Paulsche said:
:sign0060:

Hi Paulsche,

as i promise you and every body i fixed the annoying red box.

please download the library 2.78.

Paulsche · Jun 5, 2013

lonleystar said:
Hi Paulsche,

as i promise you and every body i fixed the annoying red box.

please download the library 2.78.

Hi Lonleystar,
it works great :sign0098:

JakeBullet70 · Jun 10, 2013

Am I missing something? I am looking for sample code and the weather Icons but the only downloads I see contain the JAR and XML files.

I have been up all night programming so maybe my brain is fried :sign0161:

I also tried the dropbox files but there gone. :sign0085:

lonleystar · Jun 10, 2013

JakeBullet70 said:
Am I missing something? I am looking for sample code and the weather Icons but the only downloads I see contain the JAR and XML files.

I have been up all night programming so maybe my brain is fried :sign0161:

I also tried the dropbox files but there gone. :sign0085:

Hi JakeBullet70,

I made a mistake, I removed the demo.

But I'll add now.

Sorry.

lonleystar · Jun 10, 2013

lonleystar said:
Hi JakeBullet70,

I made a mistake, I removed the demo.

But I'll add now.

Sorry.

Hi to all,

RENAME:
ICOSWorldForecast_DEMO.part1.zip and ICOSWorldForecast_DEMO.part2.zip

TO:
ICOSWorldForecast_DEMO.part1.rar and ICOSWorldForecast_DEMO.part1.rar

JakeBullet70 · Jun 10, 2013

Had a problem running the demo.

I got the error: INSTALL_FAILED_OLDER_SDK

Fixed it by editing the manifest file: From

B4X:

<uses-sdk android:minSdkVersion="15" />

to

B4X:

<uses-sdk android:minSdkVersion="4" />

lonleystar · Jun 11, 2013

JakeBullet70 said:
Had a problem running the demo.

I got the error: INSTALL_FAILED_OLDER_SDK

Fixed it by editing the manifest file: From

B4X:

<uses-sdk android:minSdkVersion="15" />

to

B4X:

<uses-sdk android:minSdkVersion="4" />

Hi JakeBullet70,

yes u r right.

in the manifest use the code belowe

<uses-sdk android:minSdkVersion="4" android:targetSdkVersion=" Here theversion of your android "/>

Laurent95 · Jun 18, 2013

Very good work

Hi Giuseppe,

This is a nice job also this library :sign0188:, thank you.

Just two things who seems still not good in the last update.
No need to put am or pm in the "CurrentTime" because it's already in 24h format (Sorry for the screen shot who's take a bit late)
And the days seems still not fixed in this update, see the screen shot at bottom, i take a German town for be sure that's not because i'm French.
I don't translate the "Short7DayName(x)" and the "Full7DayName(x)", below my code :

B4X:

      lb18.text= AResource1.GetApplicationString("CCSunrise") & Main.a.Sunrise
      lb19.text= AResource1.GetApplicationString("CCSunset") & Main.a.Sunset
      img1.Bitmap=Main.a.CCIcon
      img2.Bitmap=Main.a.FCIcon(0)
      img3.Bitmap=Main.a.FCIcon(1)
      img4.Bitmap=Main.a.FCIcon(2)
      img5.Bitmap=Main.a.FCIcon(3)
      img6.Bitmap=Main.a.FCIcon(4)
      img7.Bitmap=Main.a.FCIcon(5)
      img8.Bitmap=Main.a.FCIcon(6)
      l1.Text=Main.a.Short7DayName(0)&CRLF&Main.a.FCDate(0)
      l3.Text=Main.a.Full7DayName(1)&CRLF&Main.a.FCDate(1)

Best regards,

P.S. : Definitively you'll stuck me all the time with your great job

lonleystar · Jun 19, 2013

Laurent95 said:
Hi Giuseppe,

This is a nice job also this library :sign0188:, thank you.

Just two things who seems still not good in the last update.
No need to put am or pm in the "CurrentTime" because it's already in 24h format (Sorry for the screen shot who's take a bit late)
And the days seems still not fixed in this update, see the screen shot at bottom, i take a German town for be sure that's not because i'm French.
I don't translate the "Short7DayName(x)" and the "Full7DayName(x)", below my code :

B4X:

lb18.text= AResource1.GetApplicationString("CCSunrise") & Main.a.Sunrise lb19.text= AResource1.GetApplicationString("CCSunset") & Main.a.Sunset img1.Bitmap=Main.a.CCIcon img2.Bitmap=Main.a.FCIcon(0) img3.Bitmap=Main.a.FCIcon(1) img4.Bitmap=Main.a.FCIcon(2) img5.Bitmap=Main.a.FCIcon(3) img6.Bitmap=Main.a.FCIcon(4) img7.Bitmap=Main.a.FCIcon(5) img8.Bitmap=Main.a.FCIcon(6) l1.Text=Main.a.Short7DayName(0)&CRLF&Main.a.FCDate(0) l3.Text=Main.a.Full7DayName(1)&CRLF&Main.a.FCDate(1)

Best regards,

P.S. : Definitively you'll stuck me all the time with your great job

Hi Laurent u r right,

Thx to report these bug, I´ll fix soon .

lonleystar · Jun 23, 2013

Laurent95 said:
Hi Giuseppe,

This is a nice job also this library :sign0188:, thank you.

Just two things who seems still not good in the last update.
No need to put am or pm in the "CurrentTime" because it's already in 24h format (Sorry for the screen shot who's take a bit late)
And the days seems still not fixed in this update, see the screen shot at bottom, i take a German town for be sure that's not because i'm French.
I don't translate the "Short7DayName(x)" and the "Full7DayName(x)", below my code :

B4X:

lb18.text= AResource1.GetApplicationString("CCSunrise") & Main.a.Sunrise lb19.text= AResource1.GetApplicationString("CCSunset") & Main.a.Sunset img1.Bitmap=Main.a.CCIcon img2.Bitmap=Main.a.FCIcon(0) img3.Bitmap=Main.a.FCIcon(1) img4.Bitmap=Main.a.FCIcon(2) img5.Bitmap=Main.a.FCIcon(3) img6.Bitmap=Main.a.FCIcon(4) img7.Bitmap=Main.a.FCIcon(5) img8.Bitmap=Main.a.FCIcon(6) l1.Text=Main.a.Short7DayName(0)&CRLF&Main.a.FCDate(0) l3.Text=Main.a.Full7DayName(1)&CRLF&Main.a.FCDate(1)

Best regards,

P.S. : Definitively you'll stuck me all the time with your great job

Hi Laurent95,

as I promise i fixed the library just download again.

Laurent95 · Jun 23, 2013

lonleystar said:
Hi Laurent95,

as I promise i fixed the library just download again.

Hi Gusieppe,

That's nice, and i thank you.

Unfortunately it still a mistake. That seems be between time zone of the request and time zone of the place of the weather.
Look the screen shot i have put, for play with i put far away place, but that's eight hours difference with here, and one more day, hu ho

It's pity, that means again to work on it. Maybe it's because you reference time of the weather's request, or the time zone of user ?
A precision, my local time is French time, because i test my AHLocale xml files on the example also.

I know i'm a bit weird, i do the same with my currencies converter, always try to get some rate of currency from the other side of earth or try weird things like that

Best regards

B4A Library ICOSWorldForecast 3.50

Attachments

Well-Known Member

Well-Known Member

Active Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Active Member

Attachments

Well-Known Member

Well-Known Member

Active Member

Attachments

Privacy & Transparency

Privacy & Transparency