Visual Basic

23-May-07 18:30

I was trying to make a text to speech program .for that i am writing the following code.

Public Class Form1<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        If (TextBox1.Text.Trim <> "") Then<br />
            TextBox1.Text = CType(TextBox1.Text.Trim, Integer)<br />
            Dim no As Integer = CType(TextBox1.Text.Length, Integer)<br />
            If (no <= 0) Then Exit Sub<br />
            Select Case no<br />
                Case 1<br />
                    MessageBox.Show(ones(TextBox1.Text))<br />
                Case 2<br />
                    MessageBox.Show(tens(TextBox1.Text))<br />
                Case 3<br />
                    MessageBox.Show(Hundered(TextBox1.Text))<br />
                Case 4<br />
                    MessageBox.Show(Thousand(TextBox1.Text))<br />
                Case 5<br />
                    MessageBox.Show(TenThousand(TextBox1.Text))<br />
                Case 6<br />
                    MessageBox.Show(Lakh(TextBox1.Text))<br />
                Case 7<br />
                    MessageBox.Show(TenLakh(TextBox1.Text))<br />
                Case 8<br />
                    MessageBox.Show(Crore(TextBox1.Text))<br />
                Case 9<br />
                    MessageBox.Show(tenCrore(TextBox1.Text))<br />
            End Select<br />
        End If<br />
    End Sub<br />
<br />
    Private Function tenCrore(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (Not CInt(digit.Substring(0, 2)) = 0) Then<br />
            str = tens(digit.Substring(0, 2)) & " Crore "<br />
        End If<br />
        If (Not CInt(digit.Substring(2, 7)) = 0) Then<br />
            Return str & TenLakh(digit.Substring(2, 7))<br />
        Else<br />
            Return str<br />
        End If<br />
    End Function <br />
<br />
    Private Function Crore(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (Not CInt(digit.Substring(0, 1)) = 0) Then<br />
            str = ones(digit.Substring(0, 1)) & " Crore "<br />
        End If<br />
        If (Not CInt(digit.Substring(1, 7)) = 0) Then<br />
            Return str & TenLakh(digit.Substring(1, 7))<br />
        Else<br />
            Return str<br />
        End If<br />
    End Function<br />
<br />
    Private Function TenLakh(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (Not CInt(digit.Substring(0, 2)) = 0) Then<br />
            str = tens(digit.Substring(0, 2)) & " Lakh "<br />
        End If<br />
        If (Not CInt(digit.Substring(2, 5)) = 0) Then<br />
            Return str & TenThousand(digit.Substring(2, 5))<br />
        Else<br />
            Return str<br />
        End If<br />
    End Function<br />
<br />
    Private Function Lakh(ByVal digit As String) As String<br />
        Dim str As String = CType(digit, String)<br />
        Return ones(str.Substring(0, 1)) & " Lakh " & TenThousand(str.Substring(1, 5))<br />
    End Function<br />
<br />
    Private Function TenThousand(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (Not CInt(digit.Substring(0, 2)) = 0) Then<br />
            str = tens(digit.Substring(0, 2)) & " Thousand "<br />
        End If<br />
        If (Not CInt(digit.Substring(2, 3)) = 0) Then<br />
            Return str & Hundered(digit.Substring(2, 3))<br />
        Else<br />
            Return str<br />
        End If<br />
    End Function<br />
 <br />
    Private Function Thousand(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (Not CInt(digit.Substring(0, 1)) = 0) Then<br />
            str = ones(digit.Substring(0, 1)) & " Thousand "<br />
        End If<br />
        If (Not CInt(digit.Substring(1, 3)) = 0) Then<br />
            Return str & Hundered(digit.Substring(1, 3))<br />
        Else<br />
            Return str<br />
        End If<br />
<br />
        ' Return ones(str.Substring(0, 1)) & " Thousand " & Hundered(str.Substring(1, 3))<br />
    End Function<br />
<br />
    Private Function Hundered(ByVal digit As String) As String<br />
        Dim str As String = ""<br />
        If (CInt(digit.Substring(0, 1) > 0)) Then<br />
            str = ones(digit.Substring(0, 1)) & " Hundred "<br />
        End If<br />
        If (CInt(digit.Substring(1, 2) > 0)) Then<br />
            If (CInt(digit.Substring(1, 2)).ToString.Length = 1) Then<br />
                Return (str & " " & ones(digit.Substring(1, 2)))<br />
            Else<br />
                Return (str & " " & tens(digit.Substring(1, 2)))<br />
            End If<br />
<br />
<br />
        Else<br />
            Return str<br />
        End If<br />
    End Function<br />
<br />
    Private Function tens(ByVal digit As String) As String<br />
        Dim digt As Integer = Convert.ToInt32(digit)<br />
        Dim name As String = ""<br />
        Select Case (digt)<br />
            Case 10<br />
                name = "Ten"<br />
            Case 11<br />
                name = "Eleven"<br />
                Exit Select<br />
            Case 12<br />
                name = "Twelve"<br />
                Exit Select<br />
            Case 13<br />
                name = "Thrirteen"<br />
                Exit Select<br />
            Case 14<br />
                name = "Fourteen"<br />
                Exit Select<br />
            Case 15<br />
                name = "Fifteen"<br />
                Exit Select<br />
            Case 16<br />
                name = "Sixteen"<br />
                Exit Select<br />
            Case 17<br />
                name = "Seventeen"<br />
                Exit Select<br />
            Case 18<br />
                name = "Eighteen"<br />
                Exit Select<br />
            Case 19<br />
                name = "Nineteen"<br />
                Exit Select<br />
            Case 20<br />
                name = "Twenty"<br />
                Exit Select<br />
            Case 30<br />
                name = "Thity"<br />
                Exit Select<br />
            Case 40<br />
                name = "Fourty"<br />
                Exit Select<br />
            Case 50<br />
                name = "Fifty"<br />
                Exit Select<br />
            Case 60<br />
                name = "Sixty"<br />
                Exit Select<br />
            Case 70<br />
                name = "Seventy"<br />
                Exit Select<br />
            Case 80<br />
                name = "Eighty"<br />
                Exit Select<br />
            Case 90<br />
                name = "Ninty"<br />
                Exit Select<br />
            Case Is > 20<br />
                Dim str As String = CType(digit, String)<br />
                name = tens(str.Substring(0, 1) & "0") & " " & ones(str.Substring(1, 1))<br />
        End Select<br />
        Return name<br />
    End Function<br />
<br />
    Private Function ones(ByVal digit As String) As String<br />
<br />
        Dim digt As Integer = Convert.ToInt32(digit)<br />
        Dim name As String = ""<br />
        Select Case (digt)<br />
            Case 0<br />
                name = "Zero"<br />
            Case 1<br />
                name = "One"<br />
                Exit Select<br />
            Case 2<br />
                name = "Two"<br />
                Exit Select<br />
            Case 3<br />
                name = "Three"<br />
                Exit Select<br />
            Case 4<br />
                name = "Four"<br />
                Exit Select<br />
            Case 5<br />
                name = "Five"<br />
                Exit Select<br />
            Case 6<br />
                name = "Six"<br />
                Exit Select<br />
            Case 7<br />
                name = "Seven"<br />
                Exit Select<br />
            Case 8<br />
                name = "Eight"<br />
                Exit Select<br />
            Case 9<br />
                name = "Nine"<br />
                Exit Select<br />
        End Select<br />
        Return name<br />
    End Function<br />
<br />
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress<br />
        If (e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" _<br />
        Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" _<br />
        Or e.KeyChar = "9" Or e.KeyChar = "0" Or e.KeyChar = Chr(Keys.Back)) Then<br />
            e.Handled = False<br />
        Else<br />
            e.Handled = True<br />
        End If<br />
    End Sub<br />
End Class

for text to speech i was thinking to create a audio files for each of the following numbers.

0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,30,40,50,60,70,80,90

Now My Question is
1. Am I think right to create the audio files for each of the above numbers ?
2. Which audio extention file(.wav , mp3 .. etc ) will be useful .I meant which takes less space.

_Damian S_23-May-07 18:45

23-May-07 18:45

You also need speech for the words "and, hundred, thousand, million" etc

re: Wav or MP3 - by definition MP3 files will be smaller as it is a compressed format, but for such small files it probably doesn't make much difference. Go with wav for simplicity I say...

-------------------------------------------------
Damian - really needs to create a signature

Sonia Gupta23-May-07 18:49

23-May-07 18:49

Is there any way to reduce the code?

_Damian S_23-May-07 18:54

23-May-07 18:54

Probably, but unless you are willing to pay me I'm not going to do that for you. Wink | ;-)

Christian Graus23-May-07 20:07

Christian Graus

23-May-07 20:07

wow - no-one is going to read all that.

1 - yes, you can do that
2 - well, create a wav, encode it to mp3, and see which is smaller... MP3 is obviously smaller. I believe WMA is smaller still, but they are probably quite similar.

Yes, this code is very brute force, there's no doubt you could make it a lot smaller and more elegant.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Sonia Gupta23-May-07 20:20

23-May-07 20:20

Sir, Please Provide me some tips how can i reduce the code.

Along with the code i am going to create audio file - for each words
0,1,2,3,4,5,6,7,8,9,10,12,11,13,14,15,16,17,18,19,20,30,40,50,60,70,80,90,
hundred , thousand, ten thousand, lakh, core,ten crore.

Another question is that Is there any way out to reduce the audio files .i thought to create as many audio files as i said above.

Am i thinking right?
Please provide some suggestions.

Christian Graus23-May-07 21:27

Christian Graus

23-May-07 21:27

Build a dictionary that you can use to look up file names based on numbers instead of all those switch statements, for a start.

Nilish wrote:
Another question is that Is there any way out to reduce the audio files

Not really, I don't think.

Sonia Gupta23-May-07 21:48

23-May-07 21:48

How should I built the dictionary?

Dave Kreskowiak24-May-07 4:47

Dave Kreskowiak

24-May-07 4:47

Why not just use the SAPI 5.1[^] API library??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

button click

Sonia Gupta23-May-07 18:20

23-May-07 18:20

hi,
i have two buttons in my form - named button1 and button2.now in the following handler , can i add the two button click events?
like
private sub button_click(byval sender as system.objects , byval e as system.eventargs)handles button1.click , button2.click
end sub

_Damian S_23-May-07 18:32

23-May-07 18:32

If clicking the two buttons causes the same code to execute, why do you need two buttons?

-------------------------------------------
Damian - Man of changing signature.

Sonia Gupta23-May-07 18:42

23-May-07 18:42

No, further i want to do code to distinguish between two button , whether i have clicked button1 or button2 .Is it possible???????

_Damian S_23-May-07 18:52

23-May-07 18:52

Yes, the sender parameter tells you which button was clicked.

Check out the following link for details: http://www.samspublishing.com/articles/article.asp?p=102148&seqNum=3&rl=1[^]

Sonia Gupta23-May-07 19:39

23-May-07 19:39

I did not get the meaning of
DirectCast(sender, Button)

Private Sub LotsOfButtons( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click, Button2.Click, _
Button3.Click, Button4.Click, _
Button5.Click, Button6.Click, _
Button7.Click, Button8.Click, _
Button9.Click, Button10.Click
Dim clickedBtn As Button
If TypeOf sender Is Button Then
clickedBtn = DirectCast(sender, Button)
MsgBox(clickedBtn.Text)
End If
End Sub
Should i imports any framework class to use this function?

Sonia Gupta23-May-07 19:53

23-May-07 19:53

is DirectCast(sender, Button) some sort of CTYpe(sender,button) ?
If yes then DirectCast is any predefined function??????

_Damian S_23-May-07 19:57

23-May-07 19:57

See this link: http://www.codeproject.com/useritems/DirectcastVsCtype.asp[^]

Ch_Shahzad iqbal24-May-07 2:16

Ch_Shahzad iqbal

24-May-07 2:16

Making the two function either it is user define e.g
private sub button1_click(byval sender as system.objects , byval e as system.eventargs)handles button1.click
and Change the Name Of Second Function and replace the Handeler name Button2
Please try it