Program Visual Basic Mencari Jumlah Karakter Hidup

Saya yakin anda niscaya tahu karakter hidup bukan? Yap, A, I, U, E, O.  Program berikut ini untuk mencari jumlah rekapitulasi karakter hidup tersebut, baik karakter besar maupun karakter kecil.

Silahkan design jadwal visual basic mencari jumlah karakter hidup berikut ini :

Berikut listing jadwal visual basic mencari jumlah karakter hidup.

Private Sub cmduraikan_Click()
    Dim xa As Byte
    Dim xi As Byte
    Dim xu As Byte
    Dim xe As Byte
    Dim xo As Byte
    xa = 0
    xi = 0
    xu = 0
    xe = 0
    xo = 0
    For i = 1 To Len(Kalimat.Text)
        x = Mid(Kalimat.Text, i, 1)
        If x = “a” Or x = “A” Then
            xa = xa + 1
        ElseIf x = “i” Or x = “I” Then
            xi = xi + 1
        ElseIf x = “u” Or x = “U” Then
            xu = xu + 1
        ElseIf x = “e” Or x = “E” Then
            xe = xe + 1
        ElseIf x = “o” Or x = “O” Then
            xo = xo + 1
        End If
    Next i
    jmlA.Text = xa
    jmlI.Text = xi
    jmlU.Text = xu
    jmlE.Text = xe
    jmlO.Text = xo
End Sub

Mau tahu hasilnya?

lihat saja gambar jadwal visual basic mencari jumlah karakter hidup