Translate


EnglishFrenchGermanySpainItalianNetherlandsRussian
PortugueseJapaneseKoreanArabicChinese SimplifiedCroatianDanish

Belajar VB 6.0 Headline Animator

29 Desember 2011

Memecah Kata Dari Sebuah Kalimat

Ada beberapa cara untuk memecah sebuah kalimat menjadi kata-kata. Salah satu cara itu adalah dengan memanfaatkan prosedur perulangan. Dalam contoh yang saya buat saya menggunakan beberapa langkah agar dapat menghasilkan kata-kata dari sebuah kalimat yang di-input-kan dalam sebuah textbox yang kemudian dimasukkan ke dalam sebuah listbox.

x = 0
For j = 1 To Len(Trim(Text1.Text))

kt1 = Mid(Trim(Text1.Text), j, 1)
kta = kta + kt1

If kt1 = Chr(32) Then

x = x + 1

List1.AddItem Trim(kta)

kta = ""

End If

Next j

If x = 0 Then List1.AddItem Trim(kta)

If x > 0 Then List1.AddItem Trim(kta)


Dalam program ini saya menggunakan variabel "x" yang saya gunakan sebagai counter yang berfungsi untuk mengetahui jumlah kata pada textbox.
Untuk mendapatkan kata-kata pada kalimat saya menggunakan perulangan dan fungsi "Mid" yang dimulai dari "j" yang berasal dari nilai perulangan dan mengambil 1 karakter yang saya masukkan kedalam variabel "kt1". Selanjutnya variabel ini saya gabungkan kedalam variabel "kta" yang akan menghasilkan sebuah kata. Apabila dalam variabel "kt1" bernilai karakter spasi yang berarti ini adalah akhir dari sebuah kata maka program akan mengeksekusi percabangan "if" yang membuat counter "x" akan bertambah dan memasukkan kata dari variabel "kta" kedalam listbox dan mengosongkan kembali nilai variabel "kta" untuk selanjunya digunakan untuk menampung kata selanjutnya hingga perulangan selesai. Fungsi dari variabel "x" yang saya jelaskan diawal tadi akan terlihat pada dua baris terakhir program.

Pada baris " If x = 0 Then List1.AddItem Trim(kta)".
Apabila nilai variabel "x" adalah "0" maka dapat diartikan bahwa kalimat pada textbox hanya berisi sebuah kata saja karena tidak terdapat karakter spasi yang merupakan tanda akhir sebuah kata. Maka program akan memasukkan nilai dari variabel "kta" yang merupakan kata dari perulangan yang dilakukan sebelumnya kedalam listbox.
Sedangkan pada baris terakhir akan berfungsi untuk memasukkan kata terakhir pada kalimat di textbox. Apabila kita tidak menggunakan baris ini, maka program tidak akan memasukkan kata terakhir karena diakhir kalimat tidak terdapat spasi yang merupakan tanda akhir sebuah kata. Untuk membuktikannya anda bisa menghapus atau menonaktifkan baris terakhir ini dengan memberikan tanda " ' " di depan baris ini.

Berikut ini adalah contoh desain aplikasi yang saya gunakan :
Untuk coding lengkapnya kalau mau bisa di download disini.


3 komentar:

Rizky Khafitsyah mengatakan...

sobb, thankzz banget atas infonya...

berkunjung ke blog aku ya..

follow : http://rikymetalist.blogspot.com

thankz banget sob,,
blog ini sudah saya follow :D

Salam Kompak Persahabatan :D

eBook Murah mengatakan...

Makasih atas infonya !!!

Putri Dinar Dwi Pamikat mengatakan...

Makasih infonya, bermanfaat banget xoxo

 
>