Membuat Program Hitung Karakter Dengan Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Latihan kali ini  adalah latihan membuat program untuk menghitung karakter dalam sebuah kata atau kalimat, dimana spasi dihitung sebagai karakter dan menghitung karakter dalam sebuah kata atau kalimat, dimana spasi tidak dihitung sebagai karakter.

Langkah – langkah pembuatan program Program Hitung Karakter :

·           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	(dikosongkan) MS Sans Serif, Bold, 8 &H00800000& &H00FFFFC0&
CommandButton1	Name         Caption   Font Style BackColor	cmd_exit E&xit MS Sans Serif, Bold, 10 1 - Graphical &H0000C0C0&
Label1	Caption Font ForeColor BackColor	Ketik Kata atau Kalimat MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label2	Caption Font ForeColor BackColor	Jumlah Karakter Dimana Spasi Tidak Dihitung Sebagai Sebuah Karakter       : MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label3	Caption Font ForeColor BackColor	Karakter MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label4	Caption Font ForeColor BackColor	Jumlah Spasi      : MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label5	Caption Font ForeColor BackColor	Jumlah Karakter Keseluruhan (Spasi Dihitung Sebagai Sebuah Karakter)       : MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label6	Caption Font ForeColor BackColor	Karakter MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label7	Name Caption Font ForeColor BackColor	lbl_jlh_tanpa_spasi (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label8	Name Caption Font ForeColor BackColor	lbl_jlh_spasi (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label9	Name Caption Font ForeColor BackColor	lbl_jlh_keseluruhan (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Line1	BorderColor BorderWidth	&H0000C0C0& 2
Line2	BorderColor BorderWidth	&H0080C0FF& 2
Line3	BorderColor BorderWidth	&H0080C0FF& 2

Form1

Name Caption BackColor

frm_hitung_karakter Program Untuk Menghitung Jumlah Karakter Kata atau Kalimat &H0080FF80&

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

Private Sub cmd_exit_Click()

End

End Sub

Private Sub Form_Activate()

Me.Text1.SetFocus

End Sub

Private Sub Text1_Change()

Dim Posisi As Long

Dim Teks As String

Dim Jlh_Spasi As Integer

Posisi = 1

Jlh_Spasi = 0

Teks = Me.Text1.Text

If Me.Text1.Text = "" Then

    Me.lbl_jlh_keseluruhan.Caption = ""

    Me.lbl_jlh_spasi.Caption = ""

    Me.lbl_jlh_tanpa_spasi.Caption = ""

ElseIf Len(Teks) > 0 Then

'ketika teks berisi spasi

    Do While Posisi > 0

    Posisi = InStr(Posisi, Teks, " ")

    'menambah jumlah Jlh_Kata

        If Posisi > 0 Then

            'dan melewati tambahan spasi

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

                Posisi = Posisi + 1

                Jlh_Spasi = Jlh_Spasi + 1

            Wend

        End If

    Loop

    Me.lbl_jlh_keseluruhan.Caption = Len(Me.Text1.Text)

    Me.lbl_jlh_spasi.Caption = Jlh_Spasi

    Me.lbl_jlh_tanpa_spasi.Caption = Len(Me.Text1.Text) - Jlh_Spasi

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 Karakter  disini