Validasi URL dengan VB.NET dan C#

Setelah beberapa hari yang lalu saya memposting tentang Penggunaan Array di VB.NET dan C#.

pada malam hari ini saya kan memposting tentang Validasi URL dengan VB.NET dan C#, sebernarnya langkah-langkahnya hampir sama dengan Validasi Email dengan VB.NET dan C# yang pernah saya bahas sebelumnya, yang membedakan hanya pola dari Regexnya saja.

Oke langsung saja

Langkah - langkah Membuat Validasi URL dengan VB.NET dan C#

1. Buatlah sebuah project pada visual studio yang anda punya

2. Tambahkan 1 buah textbox, button, dan label pada sebuah form, lalu desain form tersebut seperti gambar di bawah ini

3. Import sebuah namespace System.Text.RegularExpressions dengan script dibawah ini

VB.NET

Imports System.Text.RegularExpressions

Using Imports System.Text.RegularExpressions

4. Buatlah sebuah function dengan script dibawah ini

VB.NET

Private Function checkurl(ByVal strurl As String) As Boolean
        ' Menyiapkan string untuk menyimpan pola regex
        Dim pattern As String = "^(http|https|ftp|)\://|[a-zA-Z0-9\-\.]+\.[a-zA-Z](:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&amp;%\$#\=~])*[^\.\,\)\(\s]$"

        If Regex.Match(strurl, pattern).Success Then ' Jika bernilai true
            ' Mengembailkan nilai false
            Return True
        Else
            ' Mengembailkan nilai false
            Return False
        End If
    End Function

private Boolean checkurl(string strurl)
        {
            // Menyiapkan string untuk menyimpan pola regex
            string pattern = @"^(http|https|ftp|)\://|[a-zA-Z0-9\-\.]+\.[a-zA-Z](:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&amp;%\$#\=~])*[^\.\,\)\(\s]$";
            
            if (Regex.Match(strurl,pattern).Success) // Jika bernilai true 
            {
                // Mengembalikan nilai true
                return true;
            }
            else
            {
                // Mengembalikan nilai false
                return false;
            }
        }

5. Pada event button1 click tambahkan script dibawah ini

VB.NET

Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        If checkurl(textBox1.Text) = True Then
            'Menampilkan pesan url valid
            MessageBox.Show("URL valid", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            ' Menampilkan pesan url tidak valid
            MessageBox.Show("URL tidak valid", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub

private void button1_Click(object sender, EventArgs e)
        {
            // Memanggil function checkurl
            if (checkurl(textBox1.Text) == true) // Jika menghasilkan nilai true
            {
                // Menampilkan pesan url valid
                MessageBox.Show("URL valid", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
            else
            {
                // Menampilkan pesan url tidak valid
                MessageBox.Show("URL tidak valid", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
            }
        }

6. Jalankan program tersebut dengan menekan F5