PEMBELAJARAN KE-7

PEMBELAJARAN KE-7

PublicClass Form1

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim huruf AsString

Dim jml AsByte

Dim X AsString

        karakter.Items.Clear()

        hurufvokal.Items.Clear()

For i = 65 To 91

            X = Chr(i)

            jml = 0

For J = 1 To Len(kalimat.Text)

                huruf = Microsoft.VisualBasic.Mid(kalimat.Text, J, 1)

If X = huruf Then jml = jml + 1

Next J

If jml > 0 Then

             karakter.Items.Add(" huruf "& X &" = "& jml &" karakter ")

EndIf

Next i

EndSub

EndClass