Membuat Fungsi Ping Untuk Mengecek Kualitas Jaringan Di Vb.net

Pada postingan kali ini, kita akan membuat sebuah method fungsi yang memiliki fungsi untuk mengetahui apakah device kita terkoneksi di sebuah jaringan atau tidak. Method ini akan sangat berguna ketika kita membuat sebuah sistem yang saling terintegrasi di sebuah jaringan menggunakan bahasa pemrograman vb.net. Oke kita langsung saja ke syntaxnya, silahkan kalian copy pate kedalam project vb.net kalian masing-masing.

Function SignalChecker(ByVal ip)
    Try
       Dim ping As New System.Net.NetworkInformation.Ping
       Return ping.Send(ip).RoundtripTime
    Catch ex As Exception
       Return 999
    End Try
End Function

Method diatas akan mengembalikan nilai berupa satuan milisecond. Semakin baik konektivitas, semakin kecil nilai yang di kembalikan. Jika device tidak dapat menjangkau jaringan methode akan mengembalikan nilai 999. 

advertisement

Disini admin akan coba membuat program Console App , untuk mengetes koneksi secara terus menerus setiap satu detik. Syntaxnya sebagai berikut.

Module ModuleMain
    Sub Main()
        Console.Write("Silahkan masukan ip atau web address:")
        Dim ip = Console.ReadLine()
        While True
            Dim sc = SignalChecker(ip)
            Console.WriteLine("Time Replay : " & sc & ", Kualitas : " & IIf(sc < 17, "High", "Low"))
            Threading.Thread.Sleep(1000) 'Berfungsi untuk menahan proses selama 1000 milisecond
        End While
    End Sub
    Function SignalChecker(ByVal ip)
        Try
            Dim ping As New System.Net.NetworkInformation.Ping
            Return ping.Send(ip).RoundtripTime
        Catch ex As Exception
            Return 999
        End Try
    End Function
End Module

Jika kita jalankan program hasilnya seperti gambar berikut ini. 

Sekian dulu tutorial kali ini, terimakasih sudah mampir. Jangan lupa di share jika kalian merasa artikel ini bermanfaat, dan jangan lupa tinggalkan jejak dengan berkomentar dibawah ini.