Cara Membuat IP Finder Simple di Visual Basic 2010 Express

Hello guys bertemu lagi bersama saya Mr.Gagaltotal666 huhh udah lama

tidak post artikel wkwkwk karena saya lagi sibuk di dunia nyata, oke kali ini saya

akan share cara membuat IP Finder simple atau sederhana yang dari

visual basic 2010 express atau bisa dibilang visual studio, oke ikuti step by step nya

seperti biasa anda buka terlebih dahulu Visual basic 2010 Express nya

jika sudah klik " New Project " dan pilih " Windows Forms Application "

setelah ada tampilan form , terlebih dahulu membuat label untuk dinamakan nya " URL "

klik Toolbox pada samping kiri dan pilih label , untuk ganti nama label nya

cari di menu propertis yang ada di pojok kanan bawah dan cari nama " Text "

lalu ubah namanya menjadi " URL "

selanjutnya buat 2 Button yang nanti untuk " Get IP " dan " Clear "

seperti biasa cari ke Toolbox dan pilih " Button " ganti nama Button nya

di menu propertis pada bagian " Text " ubah Button 1 : " Get IP " dan Button 2 : " Clear "

selanjut nya buat " TextBox " untuk di tempatkan di sebelah label URL

cari di Toolbox dan pilih " TextBox "

pada bagian Font color yang berada di TextBox yang tadi di buat,

ubah warna font nya menjadi merah kalau saya , selera anda jika ingin

mengasih warna font nya apa untuk mengubah warna font nya cari di propertis dan pilih

" FontColor " liat gambar dibawah ini

dan buat lagi label yang nanti untuk dinamakan : " IP Address "

cari di Toolbox dan pilih " label " lalu ke propertis cari " Text "

ganti nama nya menjadi "IP Address"

buat TextBox lagi yang nanti untuk di samping label IP address

cari di Toolbox dan pilih TextBox

pada di bagian Propertis di TextAlign pilih saja " Center " kenapa center ?

supaya pada saat muncul text nya berada di tengah , jika anda ingin text nya

berada di righ dan left silakan saja tidak masalah

selanjut nya disini saya akan tambahkan icon , supaya icon tools ini ada gambar nya ^_^

klik dulu from1 nya dan cari ke Propertis lalu pilih bagian Icon dan

silakan anda masukan icon apa saja , disini saya memasukan icon nya Ubuntu ^_^

klik Form1 nya menuju propertis dan ke bagian MaximizeBox : pilih False

kenapa false ? ini untuk agar tools tidak bisa membesar atau pada form1

ini nanti tidak akan bisa membesar cukup ukuran nya segitu saja

masih pada bagian Form1 , pada bagian Propertis cari " AutoSizeMode "

bagian Autosizemode nya ganti ke " GrowAndShrink " fungsi ini agar mode

Form1 nya pas sudah jadi tidak bisa di ubah dan ke bagian " AutoValidate "

di Autovalidate nya ganti menjadi : " Disable " fungsi ini buat Form1 nya

supaya tidak bisa merubah posisi mode size nya

masih di bagian Form1 , disini saya mengasih gambar background nya warna orange

untuk mengubah warna nya cari di bagian Propertis lalu cari " BackColor " disitu anda bisa merubah warna belakang buat Form1 ini dan jika anda ingin mengasihkan gambar pilih yang dibawah nya Backcolor yaitu " BackgroundImage "

selanjutnya isikan coding buat tools ini

klik pada button1 yang nama nya " Get IP " lalu klik kanan " View Code "

atau cara cepat nya tekan f7 tapi klik dulu button1 nya

Masukan Script ini buat di Button1 :

Imports System.Net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim Hostname As IPHostEntry = Dns.GetHostByName(TextBox1.Text)

Dim ip As IPAddress() = Hostname.AddressList

TextBox2.Text = ip(0).ToString

Catch ex As Exception

MsgBox("Opss URL SALAH. Periksa kembali ya Muach.", MsgBoxStyle.Critical, Title:="URL NOT FOUND")

End Try

End Sub

anda bisa rubah pada bagian MsgBox yang akan jika terjadi nya error pada saat masukan URL

di atas hasil Script saya pesan nya seperti itu, jika anda ingin mengubah nya tidak masalah

buat bagian MsgBoxstyle itu buat nama judul pas saat terjadi nya error atau salah URL

untuk bagian Button2 yaitu " Clear " berikan juga code nya

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

End Class

mengapa TextBoxt1.text ? dan TextBox2.text , dari yang kita buat tadi 2 Textbox kita logikan menjadi agar di klik button " Clear " kosong semua atau kembali semula , cuma kasihkan tanda (="")