Membuat Aplikasi Data Covid Dengan B4a dan API Global | Tutorial B4a Indonesia

Membuat Aplikasi Data Covid Dengan B4a dan API Global | Tutorial B4a Indonesia

Disini kita akan mencoba menampilkan data Live Count dari kasus Covid-19 menggunakan API https://coronavirus-19-api.herokuapp.com/all/

Kalian juga bisa mengatur dan mengubah pencariannya berdasarkan negara yang kalian inginkan untuk melihat data secara realtime.

Nah, untuk kodenya sendiri bisa kalian lihat dibawah ini:

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

Untuk source code sendiri dapat kalian download pada Link dibawah ini:

Download Disini

Tutorial B4a Indonesia ManhwaHua