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.


Read more ...

Mengambil Data Dari Form Lain

Ada saatnya ketika kita ingin mengambil data yang terdapat pada suatu form untuk dapat kita gunakan pada form lainnya. Misalnya kita memiliki data pada sebuah kontrol textbox pada form1 dan kita ingin mengambil data tersebut tanpa harus melihat kembali ke form1 atau kita tidak perlu melakukan copy paste dari satu form ke form yang lainnya. Caranya tidaklah sulit, format umumnya adalah sebagai berikut:

[kontrol]form_tujuan=form_sumber[.][kontrol_sumber][.][properti kontrol]

Sebagai contoh:
Ketika kita ingin mengambil data yang ada pada text1 pada form1 yang akan menjadi sumber data dan meletakkannya pada sebuah label1 pada form2 sebagai form tujuan maka kode yang harus kita tuliskan adalah:

label1.caption=form1.text1.text

Hanya seperti itu...???
Ho'o... hanya seperti itu. Namun ketika saya coba ternyata ada ketentuan lain yang harus diperhatikan. Ketentuannya adalah form sumber tidak boleh kita unload atau kita tutup secara penuh. Lantas bagaimana bila kita tidak ingin menampilkan form1..? Kita bisa menggunakan prosedur "hide" yang sudah ada pada setiap form untuk sekadar menyembunyikan form1. Untuk pemanggilannya kita bisa menggunakan perintah:

form1.hide atau Me.hide dimana Me disini adalah form tempat kode ini berada. Untuk melihat perbedaannya bisa dilihat pada contoh aplikasi sederhana ini.

Semoga bisa menambah pengetahuan buat pemula seperti saya.

Read more ...