Split Aksara Menurut Aksara Tertentu

13 views
Function split abjad pada umumnya sudah tidak abnormal lagi bagi kita semua, tanpa sadari kita pun pernah melakukannya terlebih kini sudah marak promosi via SMS dan biasanya di lembaga-lembaga keuangan ibarat halnya cek saldo tabungan dengan format CEK#081000585 atau pendaftaran REG#JOKO#16121980 dengan tujuan nomor handphone tertentu. Jika sms dengan referensi format di kirim ke nomor tujuan tertentu, secara otomatis server sms gateway akan menseleksi dari format sms tersebut benar atau salah, referensi REG#JOKO#16121980 maka akan menjadi
REG
JOKO
16121980
Kali ini admin akan share bagaimana cara mensplit suatu abjad menurut abjad tertentu. Buatlah sebuah form pada Ms. Visual Basic 6.0 kemudian tambahkan 2 buah TextBox dan 1 buah CommanButton ibarat gambar dibawah ini
Double klik pada commanbutton kemudian copykan syntak dibawah ini
Dim nJumlah As Integer
Dim strKarakter() As String

strKarakter = Split(Text2.Text, Text1.Text)
For nJumlah = LBound(strKarakter) To UBound(strKarakter)
     MsgBox strKarakter(nJumlah) & ” –  Split Ke – ” & nJumlah, 64, “Split Karakter”
Next nJumlah

Kemudian simpan dan Jalankan/F5, inputkan split abjad (karkater pemisah antar kata) pada textbox yang pertama kemudian textbox yang kedua inputkan kata kemudian dipisahkan dengan split abjad pada textbox yang pertama dan klik commanbutton, kalau format penulisannya benar maka akan tampil pesan sejumlah kata yang telah displit ibarat gambar dibawah ini
Semoga artikel ini bermanfaat dan dapat sebagai materi referensi berguru dan pengembangan sistem
Author: 
    author
    No related post!