Cek Status Internet Ketika Menampilkan Harga Bitcoin Secara RealTime dengan Visual Basic 6.0 (vb6)

Sebelum Anda mengerjakan tutorial ini Anda harus mengerjakan artikel sebelumnya yaitu tentang Cara menampilkan harga Bitcoin saat ini secara RealTime , karena artikel ini sangat berhubungan erat, dimana pada artikel sebelumnya untuk menampilkan harga Bitcoin harus terkoneksi dengan internet.

Artikel ini hanya menambahkan beberapa baris kode dari kode sebelumnya sebagai alert untuk mengecek apakah harga Bitcoin yang ingin Anda tampilkan di perangkat Anda sudah terkoneksi internet atau belum, jika belum maka akan muncul alert.

Ketika terkoneksi internet

Ketika Tidak Ada koneksi internet

Berikut adalah langkah menambah kode untuk mengecek Koneksi Internet :

1. Tambahkan kode dibawah ini dibagian Deklarasi Umum (General - Declaration), pada kode yang kita sudah buat pada artikel sebelumnya

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _

(ByRef dwFlags As Long, ByVal dwReserved As Long) As Long

2. Tambahkan kode dibawah ini sebuah Function untuk mengecek koneksi internet, pada kode yang kita sudah buat pada artikel sebelumnya, tempatkan setelah kode diatas :

Private Function IsConnected() As Boolean

    Dim dwFlags As Long

    IsConnected = (InternetGetConnectedState(dwFlags, 0&) <> 0)

End Function

3. Tambahkan kode dibawah ini pada kode yang kita sudah buat pada artikel sebelumnya pada bagian Timer

Private Sub Timer1_Timer()

    Call GetHargaBitcoin

'kode yang ditambahkan

    If Not IsConnected() Then

    lblStatusInternet.Caption = "Tidak ada koneksi internet!"

   Form1.Caption = "Tidak ada koneksi internet!"

    lblStatusInternet.ForeColor = vbRed

    

    Exit Sub

End If

End Sub

4. Tambahkan sebuah Label dengan name:lblStatusInternet, tempatkan tepat dibawah lblHarga, kemudian copy kode dibawah ini untuk mengosongkan label

Private Sub Form_Load()

lblStatusInternet.Caption = ""

End Sub

Jika semua kode sebelumnya sudah Anda tambahkan, sekarang mari kita test apakah berjalan atau tidak, caranya matikan koneksi internet Anda kemudian jalankan Project begitu juga sebaliknya hidupkan koneksinya