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
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
- 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
- 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)
- FCDate (index As Int) As String
Attachments
Last edited:
Thanks for looking at my issues!
