Here is another simple program that I wrote using Visual Basic NET that will ask the user to give a string and then our program will count the number of consonants and vowels in the given string by our user. In this program I am using Microsoft Visual Studio Ultimate 2012 Edition. I hope you will find my work useful. Thank you.
Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Public Class Form1
Const vowels = "aeiou"
Const consonants = "bcdfghjklmnpqrstvwzyz"
Private Function Count_All_Vowels(given_string As String) As Integer
Dim i As Integer
For i = 1 To Len(given_string)
If InStr(1, vowels, Mid$(given_string, i, 1), vbTextCompare) Then
Count_All_Vowels = Count_All_Vowels + 1
End If
Next i
Return Count_All_Vowels
End Function
Private Function Count_All_Consonants(given_string As String) As Integer
Dim i As Integer
For i = 1 To Len(given_string)
If InStr(1, consonants, Mid$(given_string, i, 1), vbTextCompare) Then
Count_All_Consonants = Count_All_Consonants + 1
End If
Next i
Return Count_All_Consonants
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label2.Text = "The Number of Vowels is " & Count_All_Vowels(UCase(TextBox1.Text)) & "."
Label3.Text = "The Number of Consonants is " & Count_All_Consonants(UCase(TextBox1.Text)) & "."
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
