Aplikasi Split Kata "VB.NET"

kali ini saya akan membuat sebuah aplikasi kecil dari vb.net yaitu aplikasi split kata fungsi dari aplikasi ini adalah sebagai pemisah sebuah kalimat menjadi kata perkata.
mungkin aplikasi yang saya buat ini tidak sesempurna buatan para master program karena saya sendiri masih belajar menjadi programmer,tapi lumayan lah buat wawasan kita belajar bikin program kecil-kecilan. hehehe..

oke langsung saja...
1.buka aplikasi vb.net anda
2.kita buat project baru : menu file => new project (ctrl+N)
3.kita tambahkan 2 button, 1 textbox, 1 listbox,dan 1 label kedalam form

4.melalui window propertise kita ubah Name dan Text masing-masing control. sesuaikan dengan tabel dibawah ini :

Control	Name	Text
Form	formSplit	Aplikasi split kata
Label	lblSplit	Masukin Kata Disini
TextBox	txtKalimat
ListBox	listSplit
Button1	cmdSplit	Split
Button2	cmdExit	Exit

5.Double klik pada button1 : Split, ketikan code berikut kedalam code editor.

        '###############################################################

        '#                     Aplikasi Split Kata                     #

        '#------------------------------------------------------------ #

        '#               Code by GaaR4 & Jatim community               #

        '#                                           18 februari 2011  #

        '###############################################################

        Dim kalimat As String

        Dim jcomers() As Char = {" "c}

        Dim kata() As String

        kalimat = txtKalimat.Text

        'Pisahkan kata perkata

        kata = kalimat.Split(jcomers)

        'tampilkan kata di listbox

        Dim kata2 As String

        For Each kata2 In kata

            listSplit.Items.Add(kata2)

        Next

    End Sub

jika tidak ada eror pada Eror List,maka bisa dipastikan aplikasi buatan anda siap dijalankan.

silahkan masukkan kalimat yang akan di split.

nah sekarang kita ketikan code pada button2 : Exit yang fungsinya untuk menutup aplikasi,berikut kode nya.( double klik button exit )

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        End

    End Sub

oke..aplikasi yang kita buat sudah selesai,sekarang kita save all. ( CTRL+SHIFT+S )