Mau tahu karakter apa saja yang sering dipakai dalam suatu bahasa ? Berikut adalah source code untuk menghitung jumlah karakter dan merangking karakter terbanyak yang dipakai dalam suatu bahasa (dicoba bahasa Indonesia, Jawa dan Inggris).
Source Code dibuat dalam bahasa VB.
Private Sub Command4_Click()
Dim jum, counter, count As Integer
Dim huruf As String
Dim arr(26) As Integer
Dim arrhrf(26) As String
jum = Len(Forms!form1!t1)
hrf1 = ” “: hrf2 = ” “: hrf3 = ” “: hrf4 = ” “: hrf5 = ” “
r1 = 0: r2 = 0: r3 = 0: r4 = 0: r5 = 0
For counter = 1 To jum
huruf = Mid(Forms!form1!t1, counter, 1)
If UCase(huruf) = “A” Then
a = a + 1
arr(1) = a
arrhrf(1) = “a”
ElseIf UCase(huruf) = “B” Then
b = b + 1
arr(2) = b
arrhrf(2) = “b”
ElseIf UCase(huruf) = “C” Then
c = c + 1
arr(3) = c
arrhrf(3) = “c”
ElseIf UCase(huruf) = “D” Then
d = d + 1
arr(4) = d
arrhrf(4) = “d”
ElseIf UCase(huruf) = “E” Then
e = e + 1
arr(5) = e
arrhrf(5) = “e”
ElseIf UCase(huruf) = “F” Then
f = f + 1
arr(6) = f
arrhrf(6) = “f”
ElseIf UCase(huruf) = “G” Then
g = g + 1
arr(7) = g
arrhrf(7) = “g”
ElseIf UCase(huruf) = “H” Then
h = h + 1
arr(8) = h
arrhrf(8) = “h”
ElseIf UCase(huruf) = “I” Then
i = i + 1
arr(9) = i
arrhrf(9) = “i”
ElseIf UCase(huruf) = “J” Then
j = j + 1
arr(10) = j
arrhrf(10) = “j”
ElseIf UCase(huruf) = “K” Then
k = k + 1
arr(11) = k
arrhrf(11) = “k”
ElseIf UCase(huruf) = “L” Then
l = l + 1
arr(12) = l
arrhrf(12) = “l”
ElseIf UCase(huruf) = “M” Then
m = m + 1
arr(13) = m
arrhrf(13) = “m”
ElseIf UCase(huruf) = “N” Then
n = n + 1
arr(14) = n
arrhrf(14) = “n”
ElseIf UCase(huruf) = “O” Then
o = o + 1
arr(15) = o
arrhrf(15) = “o”
ElseIf UCase(huruf) = “P” Then
p = p + 1
arr(16) = p
arrhrf(16) = “p”
ElseIf UCase(huruf) = “Q” Then
q = q + 1
arr(17) = q
arrhrf(17) = “q”
ElseIf UCase(huruf) = “R” Then
r = r + 1
arr(18) = r
arrhrf(18) = “r”
ElseIf UCase(huruf) = “S” Then
s = s + 1
arr(19) = s
arrhrf(19) = “s”
ElseIf UCase(huruf) = “T” Then
t = t + 1
arr(20) = t
arrhrf(20) = “t”
ElseIf UCase(huruf) = “U” Then
u = u + 1
arr(21) = u
arrhrf(21) = “u”
ElseIf UCase(huruf) = “V” Then
v = v + 1
arr(22) = v
arrhrf(22) = “v”
ElseIf UCase(huruf) = “W” Then
w = w + 1
arr(23) = w
arrhrf(23) = “w”
ElseIf UCase(huruf) = “X” Then
x = x + 1
arr(24) = x
arrhrf(24) = “x”
ElseIf UCase(huruf) = “Y” Then
y = y + 1
arr(25) = y
arrhrf(25) = “y”
ElseIf UCase(huruf) = “Z” Then
z = z + 1
arr(26) = z
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 & ” (” & r1 & ” karakter – ” & Format(r1 / jum * 100, “##.##”) & ” %)”
Forms!form1!t3 = hrf2 & ” (” & r2 & ” karakter – ” & Format(r2 / jum * 100, “##.##”) & ” %)”
Forms!form1!t4 = hrf3 & ” (” & r3 & ” karakter – ” & Format(r3 / jum * 100, “##.##”) & ” %)”
Forms!form1!t5 = hrf4 & ” (” & r4 & ” karakter – ” & Format(r4 / jum * 100, “##.##”) & ” %)”
Forms!form1!t6 = hrf5 & ” (” & r5 & ” karakter – ” & Format(r5 / jum * 100, “##.##”) & ” %)”
End Sub
