Cara Membuat Aplikasi Penghitung Jumlah Kata Dengan Visual Basic 6.0

Cara Membuat Aplikasi Penghitung Jumlah Kata Dengan Visual Basic 6.0 | Gho Blog's - Assalamua'alaikum Wr. Wb... Apa kabar sobat..?. Kali ini kita akan bahas lagi pemrograman Visual Basic 6.0. Sekarang kita membahas pemrograman yang sederhana aja dulu. Kita akan mencoba membuat aplikasi penghitung jumlah kata.

Aplikasi ini menggunakan While...Wend untuk perulangannya. Untuk lebih lanjutnya kita langsung praktekkan saja. Silakan sobat ikuti langkah-langkah berikut ini :

• Buka sebuah project dan tambahkan satu buah form.
• Disain form tersebut seperti gambar berikut ini :

• Kemudian double klik pada Tombol "Hitung Kata" dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub

Dim posisi As Long Dim kata As Long Dim teks As String posisi = 1 teks = Text1.Text teks = Replace(teks, Chr(13) & Chr(10), " ") teks = Replace(teks, Chr(9), " ") teks = Trim(teks) If Len(teks) > 0 Then kata = 1 Do While posisi > 0 posisi = InStr(posisi, teks, " ") If posisi > 0 Then kata = kata + 1 While Mid(teks, posisi, 1) = " " posisi = posisi + 1 Wend End If Loop MsgBox "TextBox berisi " & kata & " kata", vbInformation, "Hasil Penghitungan"

• Sekarang coba jalankan program yang sobat buat dan ketikkan beberapa buah kalimat, kemudian tekan tombol "Hitung Kata" dan lihat hasilnya.

Contoh dari project program ini bisa sobat Download disini :

 

Atau :

 

Sekian tutorial kami yang berjudul Cara Membuat Aplikasi Penghitung Jumlah Kata Dengan Visual Basic 6.0. Sekamat mencoba dan semoa bermanfaat.