Mode Malam
| Mode Tampilan
Penulis : admin

Home / Programming / Membuat Fungsi Ping Untuk Mengecek Kualitas Jaringan Di Vb.net
Membuat Fungsi Ping Untuk Mengecek Kualitas Jaringan Di Vb.net

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. 
Cara PING Jaringan Untuk Mengecek Kualitas Jaringan Di VB.NET

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.

Tags: #ping #vbnet
Bagikan :

Komentar:

Silahkan berkomentar dengan baik dan bijak!

Name * :
Email :
Website :
Comment :


This website uses cookies to ensure you get the best experience on our website

learn more