[Eğitim] B4A ile Web Site Üzerinden Veri Çekme (CoronaVirus API)

Ertan

Active Member
Licensed User
Herkese merhaba arkadaşlar,

Bugun sizlere bir website (api) üzerinden nasıl veri çekildiğini (temel) olarak gösterdim.
Bir hatam var ise affola.


Gerekli Olarak Videoda Kullandığım Komutlar

B4X:
Sub KoronaCode
   
    Try
   
    Dim Korona As HttpJob
    Korona.Initialize("GetAddress",Me)
    Korona.Download("https://coronavirus-19-api.herokuapp.com/countries/" & Ulke_Textbox.Text)
    wait for (Korona) JobDone(Korona As HttpJob)
    If Korona.Success Then
        ProgressDialogHide
        Dim parser As JSONParser
        parser.Initialize(Korona.GetString)
        Dim sec As Map = parser.NextObject
       
        Dim VakaSayisi As Int = sec.Get("cases")
        Dim BugunVaka As Int = sec.Get("todayCases")
        Dim VefatSayisi As Int = sec.Get("deaths")
        Dim BugunVefat As Int = sec.Get("todayDeaths")
        Dim Aktif As Int = sec.Get("active")
        Dim Kritik As Int = sec.Get("critical")
        Dim TestSayisi As Int = sec.Get("totalTests")
       
       
        VakaSayisi_Label.Text=VakaSayisi
        BugunkuVaka_Label.Text=BugunVaka
        VefatSayisi_Label.Text=VefatSayisi
        BugunkuVefat_Label.Text=BugunVefat
        Aktif_Label.Text=Aktif
        KritikSayi_Label.Text=Kritik
        TestSayisi_Label.Text=TestSayisi
       
    End If
   
    Korona.Release
   
    Catch
        MsgboxAsync("Lütfen Ülke Giriniz !","Hata !")
    End Try
   
End Sub

B4X:
Sub Ara_Buton_Click
    Dim Klavye As IME
    Klavye.Initialize("")
    Klavye.HideKeyboard
   
    ProgressDialogShow2("Bir saniye...",False)
    KoronaCode
   
End Sub
 
Last edited:
Top