B4A Library ICOSWorldForecast 3.50

Discussion in 'Additional libraries, classes and official updates' started by lonleystar, Oct 1, 2012.

  1. lonleystar

    lonleystar Well-Known Member Licensed User

    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)
     

    Attached Files:

    Last edited: Sep 1, 2013
  2. mkvidyashankar

    mkvidyashankar Active Member Licensed User

    Not able to unzip the file
     
  3. lonleystar

    lonleystar Well-Known Member Licensed User

    hi mkvidyashankar u've to rename ICOSWorldForecast2.0.z01.zip to ICOSWorldForecast2.0.z01

    best regards

    G.Salvi
     
    Last edited: Mar 29, 2013
  4. mkvidyashankar

    mkvidyashankar Active Member Licensed User

    hi

    i tried and getting this error

    ! C:\Documents and Settings\a\My Documents\Downloads\ICOSWorldForecast2.0.z01: Unexpected end of archive
     
  5. susu

    susu Well-Known Member Licensed User

  6. lonleystar

    lonleystar Well-Known Member Licensed User

    hi mkvidyashankar again i just tried 2 minuts ago and work good

    but anyway susu gave u the solution

    best regard

    G.Salvi
     
  7. lonleystar

    lonleystar Well-Known Member Licensed User

  8. Paulsche

    Paulsche Well-Known Member Licensed User

    i am happy, top job !!! Thanks.
     
  9. susu

    susu Well-Known Member Licensed User

    After tried your code, I realize that I can get weather data from World Weather Online directly by using their API. However, your library saves my time. Thank you so much.
     
  10. lonleystar

    lonleystar Well-Known Member Licensed User

    Thank you, for choosing again, my library

    please let me know if u have any problem

    best regard

    G.Salvi
     
  11. Brad

    Brad Active Member Licensed User

    Thanks for the updated library! Only problem is that the five day forecast increments the months instead of the days.
     
  12. lonleystar

    lonleystar Well-Known Member Licensed User

    Hi brad, what do you mean increments the month instead of days.

    Have a look to the attachment and let me know more.

    best regard

    G.Salvi
     
  13. Brad

    Brad Active Member Licensed User

    Disregard. I see that your demo displays the date as dd/mm/yyyy instead of mm/dd/yyyy which is what i'm used to.
     
  14. lonleystar

    lonleystar Well-Known Member Licensed User

    Hi Brad Have a look to the attachment and let me know if that's what you mean.

    Download again the library

    Rename:

    ICOSWorldForecast2.01.part1.zip and ICOSWorldForecast2.01.part2.zip

    To:

    ICOSWorldForecast2.01.part1.rar and ICOSWorldForecast2.01.part1.rar


    best regard

    G.Salvi
     
  15. djpero

    djpero Member Licensed User

    Error LatAndLong

    Hi,

    why I cannot set LatAndLong instead of getting list from .GetList to avoid choosing from msgbox list?

    Update: I getting different data when I manually set CityName and use .GetList at te same time.

    Example:
    After this I get Temp from Prijedor city, other data from Hawaii?
     
    Last edited: Oct 13, 2012
  16. lonleystar

    lonleystar Well-Known Member Licensed User

    Hi djpero, thanks for reporting tomorrow I will fix it.


    best regard

    G.Salvi
     
  17. lonleystar

    lonleystar Well-Known Member Licensed User

    Hi djpero and all guys, i fixed it, so download again the library and dont forget to rename the ext from zip to rar



    Rename:

    ICOSWorldForecast2.01.part1.zip and ICOSWorldForecast2.01.part2.zip

    To:

    ICOSWorldForecast2.01.part1.rar and ICOSWorldForecast2.01.part1.rar


    best regards

    G.Salvi
     
  18. djpero

    djpero Member Licensed User

    thnx,

    your example is working fine, but when I using in my project I cannot return any value:

    Code:
    a.Initialize("a")
          a.ApiKey=
    "xxxxxxxxxxxxxxxxxxxx" ' I entered my api corectly
          a.CityName="Prijedor"
          
    Msgbox(a.CCTempCelsius,"Weather")
    EDIT: I found a problem. I using SDKVersion=14. When remove it form Manifest editor then working fine. Any option to keep runing on this targetSDKVersion?
     
    Last edited: Oct 16, 2012
  19. lonleystar

    lonleystar Well-Known Member Licensed User

    Hi djpero, i'll check it out tomorrow be patient.


    best regard

    G.Salvi
     
  20. djpero

    djpero Member Licensed User

    Ok. I only asking :) becouse i tried so many times to run on my project created with New Basic4android. You did a great job. Thanx a lot.

    Best regards
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice