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. 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.
0 Komentar untuk " Cara PING Jaringan Untuk Mengecek Kualitas Jaringan Di VB.NET"
Silahkan berkomentar dengan baik dan bijak!