Mencari Character Sama Dalam Suatu Text VB 2008

Tips kali ini merupakan aplikasi yang sederhana, namun hal rumit bertumbuh dari kesederhanaan konsep. Aplikasi ini menghitung Character yang sama dalam sebuah Text. Tampilannya seperti gambar di atas. Ikuti langkah-langkah di bawah ini:
Toolbox yang digunakan seperti gambar di bawah ini:

Design Form dari Toolbox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PanjangChar, jmlchar, i As Integer

REM menolkan hitung awal character
jmlchar = 0

REM menghitung jumlah karakter yang diketik atau di copy paste ke textbox2
REM ke dalam kotak text
REM di inisialisasikan dalam variabel Panjang Text
PanjangChar = Len(TextBox2.Text)

REM Merubah data inputan menjadi huruf besar
TextBox1.Text = UCase(TextBox1.Text)
TextBox2.Text = UCase(TextBox2.Text)

REM Melakukan looping atau perulangan sebanyak jumlah Character
For i = 0 To PanjangChar
TextBox2.Focus()
TextBox2.SelectionStart = i
TextBox2.SelectionLength = 1

REM Memeriksa keadaan di setiap inputan
If TextBox2.Text = "" Or TextBox1.Text = "" Then
MsgBox("Ketikkan Text")

REM Pencarian jika kedua inputan telah terisi
REM Bandingkan Character yang di cari pada TextBox1 dengan
REM Kalimat yang di ketik atau di copy paste pada Textbox2
ElseIf TextBox2.SelectedText = TextBox1.Text Then
REM Melakukan Penambahan ketika ditemukan character yang sama
jmlchar = jmlchar + 1
'End If
End If
Next
REM tampilkan pada Label3
Label3.Text = "Anda Mempunyai" & " " & jmlchar & " " & "Character" & " " & TextBox1.Text & " " & "Pada Text di atas"
REM Kembali Focus pada Button1 untuk interuksi berikutnya
Button1.Focus()
End Sub
End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Pencarian tampilannya seperti gambar paling atas.

Pengembangan Program di atas dapat Anda utak-atik, selamat Berkreasi.
Artikel terkait mengenai Tips ini:
Nilai/Angka menjadi Terbilang VB 2008 ===>>Klik disini
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian