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