671 Views

Cara Menampilkan IP Address Di Vb.Net

logo-visual-basic

hai… semua sobat belajarhebat bertemu lagi dengan saya, kali ini saya akan memberikan sebuah tutorial bagaimana cara menampilkan ip address di vb net. ok klo gitu yuk kita buat programnya!!.

 

langkah langkah:

  • masukkan 2 label , 2 textbox dan 1 button ke form
  • lalu susun seperti gambar dibawah ini

ipv46

  • klik label1 dan ganti label1 menjadi ipv4 (properties-text)
  • klik label2 dan ganti label2 menjadi ipv6 (properties-text)
  • klik button1 dan ganti button1 menjadi cek (properties-text)
  • jika sudah maka tampilannya menjadi berikut

ipv46a

  • jika sudah double klik pada button1/cek  dan masukkan koding berikut

Imports System.Net
Imports System.Net.Sockets
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim curAdd As IPAddress
Dim hostname As IPHostEntry = Dns.GetHostEntry(System.Environment.MachineName)

Dim curAdd1 As IPAddress
Dim hostname1 As IPHostEntry = Dns.GetHostEntry(System.Environment.MachineName)

For Each curAdd In hostname.AddressList
If curAdd.AddressFamily = AddressFamily.InterNetwork Then
TextBox1.Text = curAdd.ToString()
End If
Next
For Each curAdd1 In hostname1.AddressList
If curAdd1.AddressFamily = AddressFamily.InterNetworkV6 Then
TextBox2.Text = curAdd1.ToString()
End If
Next
End Sub
End Class

  • jika sudah klik run(f5) dan hasilnya menjadi berikut

ipaddress hasil

gimana mudah bukan, seian dari saya semoga bermanfaat bagi anda semua. bagi anda yang masih belum mengerti cara membuatnya saya sudah sediakan video tuturialnya. jadi anda bisa belajar lewat video agar mudah dipahami cara membuatnya.

video tutorial:

Share
You can leave a response, or trackback from your own site.

Leave a Reply