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 (="") 



jika sudah di beri code ,  klik TextBox2 yang di samping IP Address lalu ke Propertis
cari " Enabled " ganti menjadi false 
kenapa ? ini fungsi nya agar tidak bisa di ketik, kenapa?
untuk pada saat di Get IP akan muncul langsung angka IP  di TextBox2 ini


jika sudah semua siap , klik Form1 nya lalu start Form1 atau anda bisa tekan F5


Tara tools sudah jadi ^_^
ini dia jika di tuliskan " Localhost "


jika di tes pada website dan blog ^_^


oke cukup sampai disini belajar membuat IP Finder simple dan sederhana
ini semoga bermanfaat ^_^
Previous
Next Post »