DeretCode|

Tips, Trik dan Tutorial
Seputar IT, Coding, Internet Marketing, Keahlian, Pendidikan, Hobi Dan Lainnya
Night :

Cara PING Jaringan Untuk Mengecek Kualitas Jaringan Di VB.NET

advertisement
Cara PING Jaringan Untuk Mengecek Kualitas Jaringan Di VB.NET

Pada postingan kali ini, kita akan membuat sebuah methode fungsi yang memiliki fungsi untuk mengetahui apakah device kita terkoneksi di sebuah jaringan atau tidak. Methode 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
Methode 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.   
    
    Disini saya akan coba membuat Console App , untuk mengetes jaringan secara berulang-ulang 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. 
ping jaringan menggunakan vb.net

Terimakasih sudah mampir pada artikel kali ini. Jangan lupa di share jika kalian merasa artikel ini bermanfaat, dan jangan lupa tinggalkan jejak dengan berkomentar dibawah ini.
advertisement



0 Komentar untuk " Cara PING Jaringan Untuk Mengecek Kualitas Jaringan Di VB.NET"

Silahkan berkomentar dengan baik dan bijak!