Android Example COVID API

API for live information about COVID-19

##source##

Sub covid

    Dim cov1 As HttpJob
    cov1.Initialize("GetAddress", Me)
    cov1.Download("https://coronavirus-19-api.herokuapp.com/all/")
    Wait For (cov1) JobDone(cov1 As HttpJob)
    If cov1.Success Then
        ProgressDialogHide
        Dim parser As JSONParser
        parser.Initialize(cov1.GetString)
        Dim root As Map = parser.NextObject
        Dim recovered As Int = root.Get("recovered")
        Dim cases As Int = root.Get("cases")  
        Dim deaths As Int = root.Get("deaths")
       
   
    End If


    cov1.Release



End Sub

 

[LucaMs]

Hopefully all of this will become obsolete very soon.

 

[Star-Dust]

Thank you

 

[victormedranop]

Use this API it's more infor there.

Coronavirus monitor API Documentation (astsiatsko) | RapidAPI

rapidapi.com

 

[Ahmed.STorM]

Excellent , But can't we use AutoCompleteEdit text in this project? , cuz i tried but, i failed .. i got all countries array from a website & modified it accoring to API

 

[hmagday]

how to get the last updated date, example:
Last updated: April 30, 2020, 23:58 GMT

 

[Almora]

Spoiler

[{"country":"World","cases":3322814,"todayCases":18594,"deaths":234408,"todayDeaths":578,"recovered":1050408,"active":2037998,"critical":50926,"casesPerOneMillion":426,"deathsPerOneMillion":30,"totalTests":0,"testsPerOneMillion":0}]

the last update date api is not included. add yourself with the timer.