Cara Menampilkan Harga Bitcoin Saat ini Secara RealTime dengan Visual Basic 6.0 (VB6)

Dalam artikel kali ini saya akan memberikan kode program dari Vsual Basic 6.0 untuk menampilkan Harga Bitcoin secara RealTime saat ini dengan menggunakan API Public CoinGecko dan Binance.

Karena vb6 tidak mempunyai fungsi HTTP modern jadi kita bisa menggunakan Microsoft XMLHTTP atau WinInet untuk mengambil data dari API.

Harga Bitcoin saat kode ini dibuat

Berikut adalah langkah-langkah untuk menampilkan harga bitcoin saat ini secara RealTime dengan menggunakan visual Basic 6.0 atau vb6 :

1. Buka Form VB6 Anda

2. Aktifkan Microsoft XML, v6.0 dengan cara Klik Project >Refernces> centang Microsoft XML, v6.0 jika tidak ada pilih Microsoft XML, v3.0

3. Pada Form tanamkan Label dan Timer dengan ketentuan berikut :

Label1 name:lblHarga        Caption :"Sedang memuat........"

Timer name:Timer1            Interval:5000

4. Copy kode dibawah ini untuk menampilkan Harga Bitcoin saat ini :

Private Sub Timer1_Timer()

    Call GetHargaBitcoin

End Sub

Private Sub GetHargaBitcoin()

    On Error GoTo ErrHandler

    Dim http As Object

    Dim url As String

    Dim response As String

    Dim harga As String

    

    url = "https://api.coingecko.com/api/v3/simple/price?ids=bitcoin&vs_currencies=usd"

    

    Set http = CreateObject("MSXML2.XMLHTTP")

    http.Open "GET", url, False

    http.send

    response = http.responseText

    

    ' Ambil harga

    harga = ParseJSON(response)

    ' ======== AUTO REFRESH JIKA N/A ========

    If harga = "N/A" Or Trim(harga) = "" Or Not IsNumeric(harga) Then

        ' Coba ulang

        Call GetHargaBitcoin

        Exit Sub

    End If

    ' ======================================

    lblHarga.Caption = "Harga BTC saat ini: $" & harga

    Form1.Caption = "Harga BTC saat ini: $" & harga

    Exit Sub

    

ErrHandler:

    lblHarga.Caption = "Gagal mengambil data"

End Sub

Private Function ParseJSON(json As String) As String

    Dim p1 As Long, p2 As Long

    

    p1 = InStr(json, "usd")

    If p1 > 0 Then

        p1 = InStr(p1, json, ":") + 1

        p2 = InStr(p1, json, "}")

        ParseJSON = Mid(json, p1, p2 - p1)

    Else

        ParseJSON = "N/A"

    End If

End Function

5. Simpan kode anda dan jalankan program

Catatan :

Jika mengguankan Binance https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT.

Pastikan komputer Anda terhubung ke Internet