Coding Menghitung Banyak Kata, Spasi & Huruf dalam TextBox di VB6

Coding Menghitung Banyak Kata, Spasi & Huruf dalam TextBox di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Coding Menghitung Banyak Kata, Spasi & Huruf dalam TextBox di VB6.

Selamat malam untuk kalian semua, kita jumpa lagi di tip dan trik VB6.Pada pertemuan kali ini saya ingin membagikan sebuah trik bagaimana cara menghitung banyaknya Kata, Huruf dan Spasi dalam sebuah Teks.

Aplikasi seperti ini sering kita temukan pada sebuah pesan singkat pada HP Anda, dimana pada saat kita mengetikan kalimat maka banyaknya huruf akan berkurang sebanyak huruf yang kita ketikan termasuk spasi secara otomatis,hal itu di karenakan dibatasinya banyaknya charakter pada SMS tersebut.

Pada trik yang Saya buat kali ini cara kerjanya hampir mirip dengan Aplikasi SMS yang tadi Saya sebutkan diatas, bedanya dalam trik ini kita akan menghitung seluruhnya setelah selesai kita mengetiknya mulai dari banyaknya kata, spasi  dan huruf hanya dengan menekan tombol "Hitung".

OK bagi Anda yang penasaran bagaimana cara membuatnya langsung aja ke TKP.

Cara Menghitung Jumlah Karakter dalam TextBox di VB6

1. Buka Form VB6 Anda
2. Tanamkan 4 Textbox, 1 Commanbutton dan beberapa Lebel pada Form VB Anda
3. Didalam Textbox1 ketiklah kata-kata Anda dalam sebuah kalimat (tesrserah Anda), ini berfungsi     sebagai objek atau kalimat yang kita akan hitung jumlah kata,spasi dan hurufnya.
4. Desainlah seperti gambar dibawah ini:

Desain Form

5. Setelah desain form selesai kemudian ketik kode dibawah ini di jendela kode:

Private Sub Command1_Click()
'menghitung jumlah kata
a = Text1.Text
jumlahA = 1
For I = 1 To Len(Trim$(a))
If Asc(Mid(a, I, 1)) = 13 Or Asc(Mid(a, I, 1)) = 32 Then
jumlahA = jumlahA + 1
End If
Next I
Text2.Text = jumlahA
Text2.Text = Text2.Text + " Kata"

'menghitung jumlah spasi
teks = Text1.Text
aitem = Split(teks, " ")
nitem = UBound(aitem)
Text3.Text = nitem
Text3.Text = Text3.Text + " Spasi"

'menghitung jumlah spasi
Text4.Text = Len(Text1.Text)
Text4.Text = Text4.Text + " Huruf"
End Sub

6. Kemudian Anda simpan kode Anda dan jalankan program ,setelah berhasil di jalankan tekan 
    tombol "Hitung".

Demikian tip cara cara menghitung banyaknya Kata, Huruf dan Spasi dalam sebuah Teks. Selesai....Selamat mencoba, semoga berhasil.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Coding Menghitung Banyak Kata, Spasi & Huruf dalam TextBox di VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel