Program Hitung Kata Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Dalam program ini akan dihitung jumlah kata dari sebuah atau beberapa buah kalimat yang diketikkan di kotak TextBox. Langkah – langkah pembuatan program Program Hitung Kata :

·           Buka proyek Standard EXE yang baru

·           Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox dan CommandButton dan Line

 

 Gbr 1

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Text      Font ForeColor BackColor MultiLine ScrollBars	(dikosongkan) MS Sans Serif, Bold, 10 &H00004040& &H00C0FFFF& Tue 2 - Vertical
CommandButton1	Name         Caption   Font Style BackColor	cmd_exit &Keluar MS Sans Serif, Bold, 8 1 - Graphical &H00008080&
Label1	Caption Font ForeColor BackColor	Jumlah Kata         = MS Sans Serif, Bold, 10 &H00FF0000& &H0080FF80&
Label2	Caption Font ForeColor BackColor	Kata MS Sans Serif, Bold, 10 &H00FF0000& &H0080FF80&
Label3	Name Caption Font ForeColor BackColor BorderStyle	lbl_jlh_kata (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000& &H0080C0FF& 1 – Fixed Single
Line1	BorderColor BorderWidth	&H0080C0FF& 2

Form1

Name Caption BackColor

frm_hitung_kata Program Hitung Kata &H0080FF80&

·           Klik menu View  =>  Code, lalu ketik kode program dibawah ini :

Dim Posisi As Long

Dim Jlh_Kata As Long

Dim Teks As String

Private Sub cmd_exit_Click()

End

End Sub

Private Sub Text1_Change()

Posisi = 1

Teks = Me.Text1.Text

Teks = Replace(Teks, Chr(13) & Chr(10), " ")        'tindih line feed dengan spasi

Teks = Replace(Teks, Chr(9), " ")                   'tindih tab dengan spasi tunggal

Teks = Trim(Teks)

If Me.Text1.Text = "" Then

        Me.lbl_jlh_kata.Caption = ""

'hitung Jlh_Kata pertama karena Jlh_Kata pertama tidak dipisahkan dengan spasi

'jika teks tidak kosong, berarti berisi satu Jlh_Kata

ElseIf Len(Teks) > 0 Then Jlh_Kata = 1

'ketika teks berisi spasi

    Do While Posisi > 0

    Posisi = InStr(Posisi, Teks, " ")

    'menambah jumlah Jlh_Kata

        If Posisi > 0 Then

            Jlh_Kata = Jlh_Kata + 1

            'dan melewati tambahan spasi

            While Mid(Teks, Posisi, 1) = " "

                Posisi = Posisi + 1

            Wend

        End If

    Loop

    Me.lbl_jlh_kata.Caption = Jlh_Kata

End If

End Sub

·           Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·           Hasilnya ketika program dijalankan

 

 Gbr 2

Download Program Hitung Kata  disini