Mengetahui Jumlah Karakter..

sedikit tantangan kali ini adalah menentukan jumlah karakter yang ada pada satu dua paragraf artikel..

dengan VB berikut;

Private Sub cek_Click()
Dim jumlah_kar, counter, count As Integer
Dim huruf As String
Dim arr(26) As Integer
Dim arrhrf(26) As String

jumlah_kar = Len(Forms!form1!t1)

hrf1 = ” “: hrf2 = ” “: hrf3 = ” “: hrf4 = ” “: hrf5 = ” “
r1 = 0: r2 = 0: r3 = 0: r4 = 0: r5 = 0

For counter = 1 To jumlah_kar
huruf = Mid(Forms!form1!t1, counter, 1)
If UCase(huruf) = “A” Then
arr(1) = arr(1) + 1
arrhrf(1) = “a”
ElseIf UCase(huruf) = “B” Then
arr(2) = arr(2) + 1
arrhrf(2) = “b”
ElseIf UCase(huruf) = “C” Then
arr(3) = arr(3) + 1
arrhrf(3) = “c”
ElseIf UCase(huruf) = “D” Then
arr(4) = arr(4) + 1
arrhrf(4) = “d”
ElseIf UCase(huruf) = “E” Then
arr(5) = arr(5) + 1
arrhrf(5) = “e”
ElseIf UCase(huruf) = “F” Then
arr(6) = arr(6) + 1
arrhrf(6) = “f”
ElseIf UCase(huruf) = “G” Then
arr(7) = arr(7) + 1
arrhrf(7) = “g”
ElseIf UCase(huruf) = “H” Then
arr(8) = arr(8) + 1
arrhrf(8) = “h”
ElseIf UCase(huruf) = “I” Then
arr(9) = arr(9) + 1
arrhrf(9) = “i”
ElseIf UCase(huruf) = “J” Then
arr(10) = arr(10) + 1
arrhrf(10) = “j”
ElseIf UCase(huruf) = “K” Then
arr(11) = arr(11) + 1
arrhrf(11) = “k”
ElseIf UCase(huruf) = “L” Then
arr(12) = arr(12) + 1
arrhrf(12) = “l”
ElseIf UCase(huruf) = “M” Then
arr(13) = arr(13) + 1
arrhrf(13) = “m”
ElseIf UCase(huruf) = “N” Then
arr(14) = arr(14) + 1
arrhrf(14) = “n”
ElseIf UCase(huruf) = “O” Then
arr(15) = arr(15) + 1
arrhrf(15) = “o”
ElseIf UCase(huruf) = “P” Then
arr(16) = arr(16) + 1
arrhrf(16) = “p”
ElseIf UCase(huruf) = “Q” Then
arr(17) = arr(17) + 1
arrhrf(17) = “q”
ElseIf UCase(huruf) = “R” Then
arr(18) = arr(18) + 1
arrhrf(18) = “r”
ElseIf UCase(huruf) = “S” Then
arr(19) = arr(19) + 1
arrhrf(19) = “s”
ElseIf UCase(huruf) = “T” Then
arr(20) = arr(20) + 1
arrhrf(20) = “t”
ElseIf UCase(huruf) = “U” Then
arr(21) = arr(21) + 1
arrhrf(21) = “u”
ElseIf UCase(huruf) = “V” Then
arr(22) = arr(22) + 1
arrhrf(22) = “v”
ElseIf UCase(huruf) = “W” Then
arr(23) = arr(23) + 1
arrhrf(23) = “w”
ElseIf UCase(huruf) = “X” Then
arr(24) = arr(24) + 1
arrhrf(24) = “x”
ElseIf UCase(huruf) = “Y” Then
arr(25) = arr(25) + 1
arrhrf(25) = “y”
ElseIf UCase(huruf) = “Z” Then
arr(26) = arr(26)
arrhrf(26) = “z”
End If

Next

For count = 1 To 26
If arr(count) > r1 Then
r1 = arr(count)
hrf1 = arrhrf(count)
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 Then
If arr(count) > r2 And arr(count) <= r1 Then
r2 = arr(count)
hrf2 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 Then
If arr(count) > r3 And arr(count) <= r1 And arr(count) <= r2 Then
r3 = arr(count)
hrf3 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 And arrhrf(count) hrf3 Then
If arr(count) > r4 And arr(count) <= r1 And arr(count) <= r2 And arr(count) <= r3 Then
r4 = arr(count)
hrf4 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 And arrhrf(count) hrf3 And arrhrf(count) hrf4 Then
If arr(count) > r5 And arr(count) <= r1 And arr(count) <= r2 And arr(count) <= r3 And arr(count) <= r4 Then
r5 = arr(count)
hrf5 = arrhrf(count)
End If
End If
Next

Forms!form1!t2 = hrf1
Forms!form1!t3 = hrf2
Forms!form1!t4 = hrf3
Forms!form1!t5 = hrf4
Forms!form1!t6 = hrf5

Forms!form1!j2 = r1
Forms!form1!j3 = r2
Forms!form1!j4 = r3
Forms!form1!j5 = r4
Forms!form1!j6 = r5

Forms!form1!p2 = Format(r1 / jumlah_kar * 100, “##.##”)
Forms!form1!p3 = Format(r2 / jumlah_kar * 100, “##.##”)
Forms!form1!p4 = Format(r3 / jumlah_kar * 100, “##.##”)
Forms!form1!p5 = Format(r4 / jumlah_kar * 100, “##.##”)
Forms!form1!p6 = Format(r5 / jumlah_kar * 100, “##.##”)

End Sub

Private Sub Command43_Click()
Forms!form1!t1 = ” “
Forms!form1!t1.SetFocus
Forms!form1!t2 = “”
Forms!form1!t3 = “”
Forms!form1!t4 = “”
Forms!form1!t5 = “”
Forms!form1!t6 = “”

Forms!form1!j2 = “”
Forms!form1!j3 = “”
Forms!form1!j4 = “”
Forms!form1!j5 = “”
Forms!form1!j6 = “”

Forms!form1!p2 = “”
Forms!form1!p3 = “”
Forms!form1!p4 = “”
Forms!form1!p5 = “”
Forms!form1!p6 = “”
End Sub

kita dapatkan tampilan penghitung karakter sebagai berikut:

dapat dilihat dari hasil penghitungan program tersebut bahwa,
1. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘a’ sebanyak 16,63% diikuti oleh huruf ‘n’ sebanyak 9,12%
2. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘e’ sebanyak 9,76% diikuti oleh huruf “a” sebanyak 9,54%
3. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘a’ sebanyak 14,21% diikuti oleh huruf ‘n’ sebanyak 8,6%

…