Cara Mencari Character dalam Kalimat di Visual Basic 6.0

Hello sob…. Kali ini saya akan membuat program untuk menghitung Character yang ada dalam suatu kalimat.

Oke kita langsung saja membuatnya…

Pertama-tama kita buka Visual Basic 6.0-nya.

Lalu kita tambahkan Component : 3 Label, 2 Textbox, dan 1 CommandButton. Dan atur posisinya seperti berikut :

 

--Pengaturan Properties :

Object	Properties	Nilai
Form1	Caption StartUpPosition	Mencari Character 2 – CenterScreen
Label1	Caption	Masukkan Kalimat
Label2	Caption	Masukkan Character yang ingin di cari jumlahnya
Label3	Caption	Hasil
Text1	Text	(Kosong)
Text2	Text	(Kosong)
Command1	Caption	&Cari

  

Lalu kasih Coding di Cari (Command1) :

Dim jmlText, jmlChar, i As Integer

   

jmlChar = 0

jmlText = Len(Text1.Text)

   

For i = 0 To jmlText

    Text1.SetFocus

    Text1.SelStart = i

    Text1.SelLength = 1

        If Text1.SelText = Text2.Text Then

            jmlChar = jmlChar + 1

        End If

Next

Label3.Caption = "Kamu Mempunyai " & jmlChar & " Character " & Text2.Text

Command1.SetFocus

 

Sekarang kita coba jalankan programnya (F5), dan selesai.

Gimana sob… bagus kan… kalau sobat gak pengen repot / pengen yang udah jadi, download saja programnya dibawah :

-- Mencari Character