Split Kalimat Textbox per-Kata input ke Datagridview

Kali ini saya mencoba berbagi trik pemrograman Visual Basic menggunakan Microsoft Visual Studio 2010. Trik yang akan dibahas kali ini adalah teknik memisahkan sebuah kalimat yang diinputkan oleh pengguna aplikasi pada sebuah Textbox menjadi Array kata-kata dan kemudian memasukkan array kata-kata tersebut kedalam sebuah datagridview secara vertikal(atas kebawah/ dalam satu kolom)

Langsung saja kita coba Codingnya.

1. Pertama buka Microsoft Visual Studio nya dulu yah..kemudian Pilih Visual Basic -> Windows Form Application. Pilih juga directori untuk simpan Filenya. Lalu klik OK. Cek gambar dibawah low bingung.

2. Kalau udah muncul tampilan seperti dibawah ini. Kemudian untuk membuat sebuah Project baru, pilih menu File - New - Project.

3. Setelah itu akan muncul sebuah form kosong seperti berikut.

4. Masukkan sebuah Textbox, Button, dan DataGridview. Kemudian Posisikan seperti gambar dibawah. Ganti text pada Button1 menjadi "SPLIT" agar lebih Mantab.. Cek gambar dibawah :

5. Langkah selanjutnya adalah Proses Coding. Untuk memulai, silahkan double-klik pada button "SPLIT" untuk view code.
Perhatikan baik-baik tiap kode berikut ini dan juga penjelasannya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If TextBox1.Text = "" Then TextBox1.Focus() : Exit Sub 'Untuk Mengecek Apabila Isi Textbox Kosong         Dim Kalimat As String 'Deklarasi Variabel untuk Menampung Kalimat         Dim i As Integer         Dim ArrayKata() As String         DataGridView1.Rows.Clear() ' Mengosongkan DatagridView         With DataGridView1             .ColumnCount = 1 'Membuat 1 Kolom Pada Datagridview sebelum mengisinya             .Columns(0).Name = "KATA" 'Memberi nama pada kolom pertama dengan nama "Kata"         End With         Kalimat = Trim(TextBox1.Text) 'trim = Menghilangkan Spasi sebelum dan sesudah kalimat         ArrayKata = Kalimat.Split(" ") ' Memisahkan kalimat menjadi kata dengan <spasi>         For i = 0 To UBound(ArrayKata) ' UBound = batas atas array             DataGridView1.Rows.Add(ArrayKata(i)) ' isi kata yang sudah di Split kedalam datagrid         Next i     End Sub

6. Nah, kalau sudah selesai ketik kode diatas. Coba di Compile saja (tekan F5 biar mudah). Hasil tampilan ketika dieksekusi seperti dibawah ini :

Makasih buat yang udah mampir baca