Memanipulasi Karakter dan String di Visual Basic .Net (VB.NET)

Karakter dan String sudah jadi lumrah dan wajib ada dalam sebuah program aplikasi seperti input, label, validasi password kesemuanya itu adalah bagian dari string.

Anda tau gak kalau Karakter dan String itu bisa kita manipulasi di antaranya adalah :

1. Membalik String
2. Menggabungkan String
3. Mengulang String
4. Menentukan Panjang String
5. Mengganti Karakter tertentu dari String
6. Mengambil sebagaian Karakter String
7. Mencari Karakter atau String dalam Teks
8. Mengatur Kapitalisasi Karakter dalam String
9. Mendapatkan Kode Ascii dari Karakter
10. Mendapatan Karakter dari Kode Ascii

Dari ke sepuluh semuanya itu Admin tidak menjelaskan satu per satu fungsinya masing-masing, Admin hanya membuat dalam bentuk Aplikasi sederhana yang mudah dipahami dan lebih terlihat hasilnya.

Untuk memahami masing-masing kode diatas Admin sudah kasih keterangan dalam kode yang sudah tersusun dalam bentuk Aplikasi sederhana.

Berikut adalah kodenya :

Public Class Form1

    Private Sub ButtonBalikString_Click(sender As Object, e As EventArgs) Handles ButtonBalikString.Click

        '1. Membalik String

        Dim teks As String

        Dim hasil As String

        teks = TextBoxBalikString.Text

        hasil = StrReverse(teks)

        LabelHasilBalik.Text = hasil

    End Sub

    Private Sub ButtonGabung_Click(sender As Object, e As EventArgs) Handles ButtonGabung.Click

        '2. Penggabungan String

        Dim namaDepan As String

        Dim namaBelakang As String

        Dim gabung As String

        namaDepan = TextBoxString1.Text

        namaBelakang = TextBoxString2.Text

        gabung = namaDepan & " " & namaBelakang

        LabelGabung.Text = gabung

    End Sub

    Private Sub ButtonUlang_Click(sender As Object, e As EventArgs) Handles ButtonUlang.Click

        '3. Pengulangan String

        Dim teks As String

        Dim ulang As String

        teks = TextBoxUlang.Text

        ulang = String.Concat(Enumerable.Repeat(teks & " ", TextBoxJumlahUlang.Text))

        LabelUlang.Text = ulang

    End Sub

    Private Sub ButtonPanjang_Click(sender As Object, e As EventArgs) Handles ButtonPanjang.Click

        '4. Menghitung Panjang String

        Dim teks As String

        Dim panjang As Integer

        teks = TextBoxPanjang.Text

        panjang = teks.Length

        LabelPanjang.Text = ("Panjang string: " & panjang)

    End Sub

    Private Sub ButtonGanti_Click(sender As Object, e As EventArgs) Handles ButtonGanti.Click

        '5. Mengganti Karakter tertentu dalam String

        Dim teks As String

        Dim hasilGanti As String

        teks = TextBoxString.Text

        hasilGanti = teks.Replace(TextBoxDiganti.Text, TextBoxPengganti.Text)

        LabelHasilGanti.Text = (hasilGanti)

    End Sub

    Private Sub ButtonAmbil_Click(sender As Object, e As EventArgs) Handles ButtonAmbil.Click

        '6. Mengambil Karakter tertentu sebanyal x karakter

        Dim teks As String

        Dim potong As String

        teks = TextBoxUtama.Text

        potong = teks.Substring(TextBoxIndex.Text, TextBoxAmbil.Text)

        LabelHasilAmbil.Text = potong

    End Sub

    Private Sub ButtonCari_Click(sender As Object, e As EventArgs) Handles ButtonCari.Click

        '7. Mencari Karakter atau String dalam Teks

        Dim teks As String

        Dim posisi As Integer

        teks = TextBoxSumber.Text

        posisi = teks.IndexOf(TextBoxKataCari.Text)

        If posisi <> -1 Then

            LabelHasilCari.Text = "Ditemukan di index: " & posisi

        Else

            LabelHasilCari.Text = "Tidak ditemukan"

        End If

    End Sub

    Private Sub ButtonBesar_Click(sender As Object, e As EventArgs) Handles ButtonBesar.Click

        '8. Mengubah Huruf Besar & Kecil

        Dim teks As String

        teks = TextBoxBesar.Text

        LabelBesar.Text = TextBoxBesar.Text.ToUpper()

    End Sub

    Private Sub ButtonKecil_Click(sender As Object, e As EventArgs) Handles ButtonKecil.Click

        'Mengubah Huruf kecil

        Dim teks As String

        teks = TextBoxKecil.Text

        LabelKecil.Text = TextBoxKecil.Text.ToLower

    End Sub

    Private Sub ButtonAscii_Click(sender As Object, e As EventArgs) Handles ButtonAscii.Click

        '9. Mengambil kode Ascii dari Karakter

        Dim karakter As Char

        Dim ascii As Integer

        karakter = TextBoxAscii.Text

        ascii = Asc(karakter)

        LabelAscii.Text = ascii

    End Sub

    Private Sub ButtonKarakterAscii_Click(sender As Object, e As EventArgs) Handles ButtonKarakterAscii.Click

        '10. Mengambil Karakter dari kode Ascii

        Dim ascii As Integer

        Dim karakterAscii As Char

        ascii = TextBoxKarakterAscii.Text

        karakterAscii = Chr(ascii)

        LabelKarakterAscii.Text = karakterAscii

    End Sub

End Class

Jika Form sudah dijalankan maka hasilnya seperti ini :

Menipulasi Karakter dan String di VB.NET

Itulah artikel kali ini tentang Memanipulasi Karakter dan String di Visual Basic .Net (VB.NET), semoga artikel ini bermanfaat buat kita semua dan mudah dipahami.Amin.

Selamat mencoba semoga berhasil